Sub Mac()
With Sheets("Prod")
Dim n As Integer
.Select
n = .Range("B11").CurrentRegion.Rows.Count + 10
.Range("Q12").FormulaLocal = "=НЕ(ЕОШ(ПОИСК(" & """" & "промежуточные.итоги" & """" & ";L12))"
.Range("B11").CurrentRegion.AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=.Range("Q11:Q12"), Unique:=False
.Range("L12:L" & n).Select
Selection.SpecialCells(xlCellTypeVisible).Select
...
...
.ShowAllData
End Sub
изменение ПРОМЕЖУТОЧНЫЕ.ИТОГИ
Привет, люди добрые...
Вопрос вот в чем:
Делаем Subtotal(ИТОГИ то бишь)...
Нужно над ячейками, которые содержат формулы ПРОМЕЖУТОЧНЫЕ.ИТОГИ, произвести некоторые действия, например поменять формат...
Как "цепануть эти самые ячейки"?..
Пробовал так:
Ничо не вышло!..
Во-первых он не воспринимает формулу в ячейках как текст, а во-вторых по-моему этот способ какой-то тупой (первое чо в голову пришло)!..
Прошу совета!..
Вопрос вот в чем:
Делаем Subtotal(ИТОГИ то бишь)...
Нужно над ячейками, которые содержат формулы ПРОМЕЖУТОЧНЫЕ.ИТОГИ, произвести некоторые действия, например поменять формат...
Как "цепануть эти самые ячейки"?..
Пробовал так:
Код:
Ничо не вышло!..
Во-первых он не воспринимает формулу в ячейках как текст, а во-вторых по-моему этот способ какой-то тупой (первое чо в голову пришло)!..
Прошу совета!..
Короче если все еще кому-то интересно, нашел решение:
Извиняюсь за код - он сырой (с автозаписи)...
Единственная проблема: если в БД есть формулы(и их нужно оставить), то придется ее прежде куда-нибудь скопировать таким образом:
Код:
Range("A1").Select
Selection.CurrentRegion.Select
Selection.SpecialCells(xlCellTypeFormulas, 23).Select
Selection.Font.Bold = True
Selection.Font.ColorIndex = 3
Selection.CurrentRegion.Select
Selection.SpecialCells(xlCellTypeFormulas, 23).Select
Selection.Font.Bold = True
Selection.Font.ColorIndex = 3
Извиняюсь за код - он сырой (с автозаписи)...
Единственная проблема: если в БД есть формулы(и их нужно оставить), то придется ее прежде куда-нибудь скопировать таким образом:
Код:
Range("A1").Select
Selection.CurrentRegion.Select
Selection.Copy
Range("N1").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Selection.CurrentRegion.Select
Selection.Copy
Range("N1").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False