vikttur, спасибо за помощь!!!! вроде получилось, только не совсем до конца код понял If Target.Cells.ххххххCount > 1 Then ххххххExit Sub - вот это не понял для чего If Target.хххххRow < 3 Then Exit хххххSub - это понятно, что шапку таблицы не учитывал вот этот иф понять вообще не могу If Not хххххApplication.Intersect(Range("C:C"), хххххTarget) Is Nothing Then
а так вот что получилось
Код
Private Sub Worksheet_Change(ByVal Target As Range)
order1_ = WorksheetFunction.Match("ЗАКАЗ 1", Range("35:35"), 0)
order2_ = WorksheetFunction.Match("ЗАКАЗ 2", Range("35:35"), 0)
order3_ = WorksheetFunction.Match("ЗАКАЗ 3", Range("35:35"), 0)
If Target.Cells.Count > 1 Then Exit Sub
If Target.Row < 36 Then Exit Sub
If Application.WorksheetFunction.CountIf(Columns(order1_), ">0") > 0 Then
Columns(order1_).Interior.Color = RGB(200, 200, 200)
Else
Columns(order1_).Interior.Pattern = xlNone
End If
End Sub
во вложении файл , там с 35 строки начинается действо (столбец заказ 1) когда на заказ ставишь число - строка окрашивается, зануляешь - то все опять белое
Я на VBA пишу, по методом подобия, проб и ошибок, хотел бы код тоже на ВБА иметь СЧЁТЗ(C:C), как я прочитал в инструкции только посчитает количество ненулевых элементов, а мне покрасить нужно чтобы визуально в глаза бросалось
День добрый, уважаемые гуру задача такова: есть таблица (очень много строк), допустив в столбце D количество товара на складе в столбце C количество зарезервированного товара как сделать так на VBA чтобы при наличии любого ненулевого значения в столбце C (возможно ниже определенной строки) весь столбец C окрашивался в определенный цвет желательно не прописывать строго нижнюю границу таблицы соответственно при отсутствие значения столбец опять становился белым условное форматирование не прижилось))) все заранее спасибо
JayBhagavan,может я что то не так делаю, выдает ошибку "компонент с указанным именем не найден" и показывает на строку Set Shp1 = ActiveSheet.Shapes("Button 1") ЗЫ делаю с нового файла
День добрый всем!!! кто нибудь может помочь и пересохранить файл в 10 сообщении от 11 Янв 2015 19:44:43 в формате XLS а то у меня ексель 2003)) или макрос выложить?
спасибо большое The_Prist, , вы показали как фиксировать столбец, полазив на других форумах, соорудил это (см вложенный файл) прошу не кидаться тапками, так как программирую всего 3 часа)
день добрый, прошу помощи у гуру! есть таблица учета: столбец А сколько ушло столбец B сколько есть на складе столбец С кнопка счетчик для каждой строки (+1 к столбцу А и -1 к столбцу B соответственно) строк- позиций много и в каждой строке кнопка счетчик на свою строку вопрос такой: для первой строки я в конструкторе вставил кнопку и написал макрос (первый раз в жизни)
вот как бы теперь ее(кнопку счетчик) размножить на остальные строки чтобы макрос автоматически менял значения строк и еще, не маловажно, как можно написать макрос так, чтобы, допустим, я хочу вставить столбец между столбцами А и Б - функциональность таблицы не пострадала
вариант когда прописываешь в нужных строках единички а потом жмешь на большую кнопку и происходит общий пересчет не пройдет.... может кто знает как сделать так чтобы можно было скопировать кнопку счетчик всем заранее спасибо