Если бы новичок хотя бы ставил в известность, тех кто ему помогает, что задача решается на другом форуме - то да, Вам бы помогли. А так - зачем тратить своё время на дублирование?
Если бы новичок хотя бы ставил в известность, тех кто ему помогает, что задача решается на другом форуме - то да, Вам бы помогли. А так - зачем тратить своё время на дублирование?Serge_007
Не-а. Вам тут уже предлагали готовые коды. Хорошие. Работающие на порядок быстрей, чем Ваш в сообщении № 19. И что? Зря потратили время на Вас. А пока писал это сообщение, узнал от Сержа о кросспостинге. Кроссерам не помогаю принципиально.
Не-а. Вам тут уже предлагали готовые коды. Хорошие. Работающие на порядок быстрей, чем Ваш в сообщении № 19. И что? Зря потратили время на Вас. А пока писал это сообщение, узнал от Сержа о кросспостинге. Кроссерам не помогаю принципиально.KuklP
Ну с НДС и мы чего-то стoим! kuklp60@gmail.com WM Z206653985942, R334086032478, U238399322728
"Я понятия не имею" - но тем не менее мне поставили в укор то, о чем не имеете понятия. Это, по крайней мере, странно. И тогда я совершенно ничего не понимаю. Я задал два разных вопроса на двух разных форумах. В чем я не прав? Или у вас такая политика, что одному человеку нельзя задавать разные вопросы на двух форумах? - Тогда извините, я не знал этого. В дальнейшем буду придерживаться этого правила.
"Я понятия не имею" - но тем не менее мне поставили в укор то, о чем не имеете понятия. Это, по крайней мере, странно. И тогда я совершенно ничего не понимаю. Я задал два разных вопроса на двух разных форумах. В чем я не прав? Или у вас такая политика, что одному человеку нельзя задавать разные вопросы на двух форумах? - Тогда извините, я не знал этого. В дальнейшем буду придерживаться этого правила.Alexei
Нет, я не стал бы тратить время на решение одного и того же вопроса для одного и того же человека. Но я повторюсь - по своему незнанию я не понял, что решение этих двух вопросов - одно и тоже (ну не все разбираются в VBA). Еще раз извиняюсь.
Нет, я не стал бы тратить время на решение одного и того же вопроса для одного и того же человека. Но я повторюсь - по своему незнанию я не понял, что решение этих двух вопросов - одно и тоже (ну не все разбираются в VBA). Еще раз извиняюсь.Alexei
Сообщение отредактировал Alexei - Пятница, 12.07.2013, 23:02
Sub Îòìåòèòü() Dim rArea As Range For Each rArea In Selection.Areas Cells(rArea.Row, 1).Resize(rArea.Rows.Count, 14).Interior.Color = 15773696 Next rArea End Sub
[/vba] Вам этот код уже тут предлагали.
[offtop]"Извиняюсь" - по логике предполагает, что вы только собираетесь извиниться, либо уже сами себя "извинили".[/offtop]
[vba]
Код
Sub Îòìåòèòü() Dim rArea As Range For Each rArea In Selection.Areas Cells(rArea.Row, 1).Resize(rArea.Rows.Count, 14).Interior.Color = 15773696 Next rArea End Sub
[/vba] Вам этот код уже тут предлагали.
[offtop]"Извиняюсь" - по логике предполагает, что вы только собираетесь извиниться, либо уже сами себя "извинили".[/offtop]SkyPro
Всем привет. Пишу в этой теме, потому как задача, мне кажется, похожая. Хотя и не совсем. Я чайник в программировании. Написал такой код. Почему-то не работает заливка, когда номер столбца определяю как переменную "Номер_столбца". Если задать имя столбца в виде конкретного числа допустим 1, то работает. Не могу понять почему. Может кто что подскажет?
Private Sub CommandButton2_Click() ' Получаем номер верхней строки эталонного диапазона TextBox2.Value = ActiveCell.Row Верх_ном_эталон_Row = TextBox2.Value 'Получаем номер листа эталонного диапазон TextBox4.Value = ActiveCell.Column Номер_столбца = TextBox4.Value End Sub
Private Sub CommandButton4_Click() ' Получаем номер нижней строки эталонного диапазона TextBox3.Value = ActiveCell.Row Ниж_ном_эталон_Row = TextBox3.Value Верх_ном_эталон_Row = TextBox2.Value Номер_столбца = TextBox4.Value 'Получаем имя листа эталонного диапазон TextBox1.Value = ActiveSheet.Name Имя_листа = TextBox1.Text ' Очищаем эталонный диапазон от цветной заливки если она была With Worksheets(Имя_листа).Columns(1).Interior .Pattern = xlNone .TintAndShade = 0 .PatternTintAndShade = 0 End With 'Заливаем зеленым выделенный диапазон Set Rng = Sheets(Имя_листа).Range(Cells(Верх_ном_эталон_Row, Номер_столбца), Cells(Ниж_ном_эталон_Row, Номер_столбца)) Rng.Interior.Color = RGB(80, 110, 100) End Sub
Всем привет. Пишу в этой теме, потому как задача, мне кажется, похожая. Хотя и не совсем. Я чайник в программировании. Написал такой код. Почему-то не работает заливка, когда номер столбца определяю как переменную "Номер_столбца". Если задать имя столбца в виде конкретного числа допустим 1, то работает. Не могу понять почему. Может кто что подскажет?
Private Sub CommandButton2_Click() ' Получаем номер верхней строки эталонного диапазона TextBox2.Value = ActiveCell.Row Верх_ном_эталон_Row = TextBox2.Value 'Получаем номер листа эталонного диапазон TextBox4.Value = ActiveCell.Column Номер_столбца = TextBox4.Value End Sub
Private Sub CommandButton4_Click() ' Получаем номер нижней строки эталонного диапазона TextBox3.Value = ActiveCell.Row Ниж_ном_эталон_Row = TextBox3.Value Верх_ном_эталон_Row = TextBox2.Value Номер_столбца = TextBox4.Value 'Получаем имя листа эталонного диапазон TextBox1.Value = ActiveSheet.Name Имя_листа = TextBox1.Text ' Очищаем эталонный диапазон от цветной заливки если она была With Worksheets(Имя_листа).Columns(1).Interior .Pattern = xlNone .TintAndShade = 0 .PatternTintAndShade = 0 End With 'Заливаем зеленым выделенный диапазон Set Rng = Sheets(Имя_листа).Range(Cells(Верх_ном_эталон_Row, Номер_столбца), Cells(Ниж_ном_эталон_Row, Номер_столбца)) Rng.Interior.Color = RGB(80, 110, 100) End SubЧайнеГ