devilkurs, спасибо - больше и не нужно. Самое то! У дочки по информатике задание было - типа сложить картофель и цену. Макрос увидел - добавил ещё похожий. Спасибо! ОГРОМНОЕ! Тема закрыта!
devilkurs, спасибо - больше и не нужно. Самое то! У дочки по информатике задание было - типа сложить картофель и цену. Макрос увидел - добавил ещё похожий. Спасибо! ОГРОМНОЕ! Тема закрыта!IgorLuPro
Я бы тогда на SelectionChange повесил бы добавление , а на Дабл клик BeforedoubleClick снятие. А то не удобно в твоем примере снимать "галочку", если ошибся или тупо надо убрать из суммирования.
[spoiler][vba]
Код
Private Sub Worksheet_BeforedoubleClick(ByVal Target As Range, Cancel As Boolean) If Target.Cells.Count > 1 Then Exit Sub If Not Intersect(Target, Range("h1:h118")) Is Nothing Then Target.Font.Name = "Marlett" If Target = vbNullString Then Else Target = vbNullString End If Cancel = True End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Cells.Count > 1 Then Exit Sub If Not Intersect(Target, Range("h1:h118")) Is Nothing Then Target.Font.Name = "Marlett" If Target = vbNullString Then Target = "a" End If
Я бы тогда на SelectionChange повесил бы добавление , а на Дабл клик BeforedoubleClick снятие. А то не удобно в твоем примере снимать "галочку", если ошибся или тупо надо убрать из суммирования.
[spoiler][vba]
Код
Private Sub Worksheet_BeforedoubleClick(ByVal Target As Range, Cancel As Boolean) If Target.Cells.Count > 1 Then Exit Sub If Not Intersect(Target, Range("h1:h118")) Is Nothing Then Target.Font.Name = "Marlett" If Target = vbNullString Then Else Target = vbNullString End If Cancel = True End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Cells.Count > 1 Then Exit Sub If Not Intersect(Target, Range("h1:h118")) Is Nothing Then Target.Font.Name = "Marlett" If Target = vbNullString Then Target = "a" End If