вставка значений в промежуточные итоги

Весь MS Office, программирование на Visual Basic for Applications и MS VB

Модератор: Naeel Maqsudov

Ответить
angej
Сообщения: 13
Зарегистрирован: 25 сен 2008, 15:32

всем привет!!!
помогите пожалуйста решить проблему в написании макроса, ато я мучають два дня а так и ничего не получилось... :(

вопрос такой...

Есть у меня таблица, которая является копией таблицы в которой сделаны промежуточные итоги.
Нужно чтобы в итогах отображалисть коды и названия самих предметов по которым делаются эти итоги.
Чтобы было понятней прикрепляю примерный файл. Предпологаемый результат закрашен в желтый цвет.

Извините если очень тупо излагаю, и пожалуйста помогите решить если можно....
Вложения
fail1.zip
(2.27 КБ) 13 скачиваний
angej
Сообщения: 13
Зарегистрирован: 25 сен 2008, 15:32

всем привет!!! свою проблему решил сам...

вот часть макроса отвечающая за выше изложеное задание, может кому пригодится....

Worksheets("R_i").Select
ActiveSheet.Cells(12, 4).Select

nov1 = Trim(ActiveSheet.Range("b12"))
nov2 = Trim(ActiveSheet.Range("c12"))
nov3 = Trim(ActiveSheet.Range("d12"))
i = 12
Do While Not Trim(ActiveSheet.Cells(i, 3)) = Empty
i = i + 1
Loop
j = 12
For j = 12 To i - 1

If Not Trim(ActiveSheet.Cells(j, 4)) = nov3 Then

ActiveSheet.Cells(j, 2).Select
ActiveSheet.Cells(j, 2).FormulaR1C1 = nov1
ActiveSheet.Cells(j, 3).Select
ActiveSheet.Cells(j, 3).FormulaR1C1 = nov2
ActiveSheet.Cells(j, 4).Select
ActiveSheet.Cells(j, 4).FormulaR1C1 = nov3
Rows(ActiveCell.Row).Select
Selection.Font.Bold = True

nov1 = Trim(ActiveSheet.Cells(j + 1, 2))
nov2 = Trim(ActiveSheet.Cells(j + 1, 3))
nov3 = Trim(ActiveSheet.Cells(j + 1, 4))

End If
Next j
nilem
Сообщения: 112
Зарегистрирован: 14 ноя 2008, 01:59
Откуда: Уфа

Только лишние Select уберите
Ответить