|
|
|
Тема
|
 активира клетка съдържаща днешна дата
|
|
| Автор |
vector_m (непознат
) |
| Публикувано | 13.01.11 21:00 |
|
|
В sheet1 в А1:А365 имам дати съответно от 01.01.2011 до 31.12.2011.
Как може да се направи така, че при активиране на sheet1 да направи активна клетката ,която съдържа текущата дата (днешната).
Сътворих този код но нищо не се получи.
For j = 1 To 366
If Day(Sheets("sheet1").Range("v1")) = (Sheets("sheet1").Cells(j, 1)) Then
Sheets("sheet1").Cells(j, 1).Activate
End If
Next j
А след това да селектира целия ред
ActiveCell.Rows("j,1").EntireRow.Select
БЛАГОДАРЯ ВИ!
Редактирано от vector_m на 13.01.11 21:02.
| |
|
Тема
|
 Re: активира клетка съдържаща днешна дата
[re: vector_m]
|
|
| Автор |
TRN () |
| Публикувано | 14.01.11 09:05 |
|
|
Private Sub Worksheet_Activate()
For J = 1 To 366
If Range("V1") = Cells(J, 1) Then
Rows(J).Select
Exit Sub
End If
Next J
End Sub
| |
|
Тема
|
Re: активира клетка съдържаща днешна дата
[re: vector_m]
|
|
| Автор |
Бypaн (ентусиаст) |
| Публикувано | 14.01.11 14:01 |
|
|
След като имаш всички дати, а не само работните дни, може и без цикъл:
Sub CurrentDateActivate()
Dim lngRow As Long
lngRow = Date - DateSerial(Year(Date) - 1, 12, 31)
Worksheets("Sheet1").Cells(lngRow, 1).Activate
End Sub
| |
|
| 
|
|
