День добрый, уважаемые господа. Имеется папка с мартовскими файлами (во вложении), подскажите как разом поменять в наименованиях файлов "март" на "апрель".

Огромное Вам человеческое спасибо)

Добрый день, имеется таблица, в ней 2 столбца, в одном сумма, в другом разница. Есть ли какая-нибудь функция (формула) для построчного сравнения этих столбцов и выделения если значения не равны. Если бы просто числа были все понятно, а тут формулы и никак не получается.
Подскажите пожалуйста. Пример прилагается (столбцы выделил желтым)

Премного благодарен!

Подскажите, а есть ли вариант сделать так чтобы при нажатии на ячейку галочка появлялась, затем при повторном нажатии (один клик вместо двух) исчезала, затем еще раз при одном клике на ту же ячейку снова появлялась, затем снова исчезала и так далее, в общем что-то типа чекбокса.

Спасибо большое!!!  

А можно ли как-то разделить для двух горизонтальных зон?
В приложенном примере в Block #1 всё работает как надо (в каждой строке (1.,2.,3) ставится только одна галка), а как сделать чтобы также работало вдобавок и в Block #2 не пойму.
Помогите пожалуйста.
И может посоветуйте где про основные коды и их правильное написание почитать. Искал, везде как-то обрывками и размыто...

Ну в целом вроде понял, спасибо!

Спасибо большое,

а про это не просвятите??

Добавил еще кое-чего (во вложении), не глянете?
Там по тому же принципу "одна галочка", только в трех клетках а не колонках, вроде правильно сделал.
Правда так и не разобрался как тоже самое провернуть в строках "3" и "5".
И не совсем понятна функция кодов:                                                                                        
                                            Vl = Target.Value      
                                      и If Vl <> "a" Then

Ещё раз преогромнейшее спасибо, очень помогли!

Нужно очищать в каждой таблице отдельно. А каким кодом (условием) разобрать не могу. Всё методом "тыка" ибо дилетант)

И не совсем понял функцию If Target.Row < 12 Then

Код

Private Sub Worksheet_SelectionChange(ByVal Target As Range)    If Target.Cells.Count > 1 Then Exit Sub        If Not Intersect(Target, Range("D3:U11,D14:U19")) Is Nothing Then            Application.EnableEvents = False          If Target.Row < 12 Then                Range(Cells(3, Target.Column), Cells(11, Target.Column)) = ClearContents            Else                Range(Cells(14, Target.Column), Cells(19, Target.Column)) = ClearContents            End If                Target.Font.Name = "Marlett"                Target = "a"            Application.EnableEvents = True        End If End Sub

Хотел добавить несколько разделов ещё, но чего-то не хватает...  

Владимир, низкий Вам поклон и огромное спасибо за помощь!

МатросНаЗебре, а с другим вариантом (3) не поможете?

Не сочтите за наглость, но не могли бы еще немного помочь.
Никак алгоритм не пойму. Обучаться азам программирования время катастрофически не хватает.
Можно ли прописать так, чтобы в каждом вертикальном столбце D3:D11,D14:D19,E3:E11,E14:E19... также только одна галочка ставилась?
Пример во вложении.

Уважаемый gling, премного благодарен за помощь!

Спасибо огромное, всё работает!
А можно ли прописать код для нескольких диапазонов.
Скинул пример, прописал в ячейках A4:C4, хотелось бы чтобы таким же образом работало в E4:G4, A7:C7, E7:G7 и т.д.
Пробовал, чего то не получается.

Добрый вечер, уважаемые господа!

Есть такой код, чтобы вставлять галочки одним кликом, и убирать двумя.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

   If Target.Cells.Count > 1 Then Exit Sub

       If Not Intersect(Target, Range("A1,C1,E1")) Is Nothing Then

           Application.EnableEvents = False

           Target.Font.Name = "Marlett"

           Target = "a"

           Application.EnableEvents = True

       End If

End Sub

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

   If Not Intersect(Target, Range("A1,C1,E1")) Is Nothing Then

       Application.EnableEvents = False

       Cancel = True

       Target.ClearContents

       Application.EnableEvents = True

   End If

End Sub

Вопрос, можно ли добавить к этому функцию: если ставим галочку в одной ячейку, в другой стирается, и наоборот. В общем хотелось бы чтобы существовала толька одна галочка из трех.