Создание копки в клетке

[fnatiq]

Добрый день народ, вопрос состоит в том что нужно сделать так, чтобы в табличке при нажатие в "клетку" ставилась галочка, при следующем нажатие она убиралась.
пример приложил, не пойму как она делается((

[fnatiq]

Ну help me народ ну никак не въеду.

[staniiislav]

что вы не поймете? посмотрите пример

[fnatiq]

что вы не поймете? посмотрите пример

Я не пойму на каком основание оно ставиться?

[fnatiq]

Формула или какая вставка? не веду.

[RAN]

http://www.excel-vba.ru/chto-umeet-excel/chto-takoe-makros-i-gde-ego-iskat/

[staniiislav]

макросом+определенный шрифт (который выставляется заранее), Alt+F11 нажимайте и смотрите

[staniiislav]

http://www.excel-vba.ru/chto-umeet-excel/chto-takoe-makros-i-gde-ego-iskat/

правильный ответ ))))))))

[fnatiq]

Спасибо вроде понемногу разберемся)

[fnatiq]

Народ а Возможно ли копирование таблички с сохранение макросов? или в придется переписать ?

[staniiislav]

Народ а Возможно ли копирование таблички с сохранение макросов? или в придется переписать ?

1) Когда вы копируете книгу, все содержимое книги копируется вместе с содержимым книги. Другими словами макросы, формулы и т.д. не куда не исчезают.
2) При копировании листа, который содержит макросы, необходимо копировать через:
http://office.microsoft.com/ru-ru/excel-help/HP001217035.aspx

[fnatiq]

Народ а Возможно ли копирование таблички с сохранение макросов? или в придется переписать ?

1) Когда вы копируете книгу, все содержимое книги копируется вместе с содержимым книги. Другими словами макросы, формулы и т.д. не куда не исчезают.
2) При копировании листа, который содержит макросы, необходимо копировать через:
http://office.microsoft.com/ru-ru/excel-help/HP001217035.aspx

Станислав, а если нужно несколько одинаковых табличек, на одном и том же листе, пример я скидывал в первом сообщение, вот одна есть табличка(с введенными уже макросами), нужно еще 3 таких же, на этом же листе с такими же функциями. Заранее спасибр.

[RAN]

Вот весь ваш код (для столбцов B, D, F). Нужные диапазоны добавьте самостоятельно.

Код:

'CODE 1 Ставим/снимаем флажок, если был одиночный щелчок по ячейке
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Cells.Count > 1 Then Exit Sub
    Set myrange = Range("B2:B15,D2:D15,F2:F15")
    For Each are In myrange.Areas
        If Not Intersect(Target, are) Is Nothing Then
            Target.Font.Name = "Marlett"
            Target = IIf(Len(Target), "", "a")
        End If
    Next
End Sub

'CODE 2 Ставим/снимаем флажок, если был двойной щелчок по ячейке
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
     Set myrange = Range("B2:B15,D2:D15,F2:F15")
    For Each are In myrange.Areas
        If Not Intersect(Target, are) Is Nothing Then
            Target.Font.Name = "Marlett"
            Target = IIf(Len(Target), "", "a")
        End If
    Next
        Cancel = True 'чтобы не уйти в режим редактирования
End Sub

[fnatiq]

Спасибо