Работа с CommandButton, заполнение ячеек

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Работа с CommandButton, заполнение ячеек (Нужно в таблице заполнять дни с разным графиком работы)

Работа с CommandButton, заполнение ячеек

engardio

Дата: Вторник, 23.10.2012, 17:01 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 3

Репутация: 0 ±

Замечаний: 20% ±

Добрый день Великие гении! Как можно сделать, чтобы, при нажатии кнопки Заполнялась ячейка любым значением(цветом). при том, что номер столбца должен соответствовать дате на компьютере? каждая кнопка должна соответствовать имени напротив.
пример оформления:
http://s51.radikal.ru/i134/1210/47/039cc3f05c1c.png

К сообщению приложен файл: __.xlsm (35.1 Kb)

Молли: Слава тебе, Господи.
Дин: Зови меня Дин.

Ответить

ABC

Дата: Вторник, 23.10.2012, 17:13 | Сообщение № 2

Группа: Друзья

Ранг: Обитатель

Сообщений: 397

Репутация: 112 ±

Замечаний: 0% ±

Excel 2007

[vba]

Code

Private Sub CommandButton1_Click()
Dim i&
     Range("C3:AG9").Name = "Marlett"
     For i = 3 To 33
         If Format(Now, "d") = Cells(2, i) Then
             Cells(3, i).Value = "a"
         Else: Cells(3, i).Value = ""
         End If
     Next
End Sub

[/vba]

MS Excel 2007 and 2010...
-------------------------------
С Уважением, Даулет

Ответить

Формуляр

Дата: Вторник, 23.10.2012, 17:59 | Сообщение № 3

Группа: Друзья

Ранг: Ветеран

Сообщений: 832

Репутация: 255 ±

Замечаний: 0% ±

Excel 2003, 2013

Я бы не стал плодить кнопки - оставил одну, которая определяет Техника по активной ячейке
[vba]

Code

Private Sub CommandButton1_Click()
Dim i&
Dim targetRng As Range

       Set targetRng = Intersect(ActiveCell, [B:B])
       If targetRng Is Nothing Then Exit Sub

       For i = 3 To 33
           If Format(Now, "d") = Cells(2, i) Then Cells(targetRng.Row, i) = "a"
       Next
End Sub

[/vba]

Excel 2003 EN, 2013 EN

Сообщение отредактировал Формуляр - Вторник, 23.10.2012, 18:38

Ответить

engardio

Дата: Среда, 24.10.2012, 13:25 | Сообщение № 4

Группа: Пользователи

Ранг: Прохожий

Сообщений: 3

Репутация: 0 ±

Замечаний: 20% ±

Спасибо ребят, но надо еще что-бы не перескакивало значениею к примеру вчера я поотмечал, сегодня я начинаю отмечать а значение перескакивает со вчерашнего, а надо что-бы сохранялось старое и добавлялось новое

К сообщению приложен файл: 0930678.xlsm (38.9 Kb)

Молли: Слава тебе, Господи.
Дин: Зови меня Дин.