|
|
| Тема |
 как да променя кода ??? |
|
| Автор |
zvezdi4kata_ff (непознат
) |
|
| Публикувано | 22.03.10 15:32 |
|
|
|
Някой може ли да ми помогне !
Намерих си този код който брои стойностите(дати) оцветени с цвят който сме задали в лист1 от клетките А1 до А365
Private Sub CommandButton1_Click()
Dim i, counter As Integer
For i = 1 To 365
If Cells(i, 1).Font.ColorIndex = 1 Then
counter = counter + 1
Else
End If
Next i
Cells(1, 4).Value = counter
End Sub
Въпроса ми е ако някой знае как да направя така че в клетка В1 да изпиша примерно датата 01.01.2010г. , а в клетка С1 да изпиша 20 , след което при натискане на бутон в клетка Д1 се появи съответната дата
Лично ще почерпя Редактирано от zvezdi4kata_ff на 22.03.10 15:34.
| |
| |
| 
|
|
