¤@­Ó¤ë¾äªº°ÝÃD

©P¤j°¶

¤j¤j­Ì, ¤p§Ì¦³¤@±i¤u§@ªí, ¤º¦³¤@­Ó¤é´Áµ{¦¡, »¡¥y¹ê¸Ü³oµ{¦¡¤]¬O¤Í¦n©ó¦¹½×¾Â«e¨­¤¤§l¦¬«á¦A¤À¨Éµ¹¤p§Ì,
²{¤p§Ì·Q­×§ï¤é´Áµ{¦¡, ¦ý¤p§Ì¤£¤~,¸Õ¹L¦h¦¸³£¤£¦¨¥\, ½Ð¤j¤j­Ì¨ó§U,
Book2.rar (12.78 KB)

¤U¸ü¦¸¼Æ: 16

2010-11-13 21:20

©P¤j°¶

ÁÂÁª©¥D¤j¤j, ¤v¦¨¥\­×§ï, ·PÁ±оÉ, ·P®¦, Ä@¥D§È¦ö¤j¤j.ÁÂÁÂ!

oobird

­ìµ{¦¡¬O³]¸m®Ø½u»P§Aªº°ÝÃDµLÃö¡C
¤£¯à¦P®É¦s¦b¨â­ÓWorksheet_SelectionChange¨Æ¥óªº¡C

©P¤j°¶

¤j¤j¦n, ÁÂÁ¦^À³
¤p§Ì§âµ{¦¡¶K©ó½s¿è°Ï, ¦ý¤£¦¨¥\, À³¬O­n§â­ì¦³µ{¦¡»P¤j¤jµ{¦¡¿Ä¦X,½Ð¤j¤j±Ð¾É, ÁÂÁÂ!!
Private Sub Worksheet_SelectionChange(ByVal T As Range)
If T.Count > 2 Then End
For Each C In [d15:d35]
If C.Value >= 1 And C.Value < 500 Then C.Borders(6).LineStyle = 1
Next
If Not Application.Intersect([h15:h35], T) Is Nothing Then
If T.Borders(6).LineStyle = 1 Then
T.Borders(6).LineStyle = 0
Else
T.Borders(6).LineStyle = 1
End If
ElseIf T.Address = "$I$10J$10" Then
If Len(T(1) & T(2)) = 0 Then T = Date Else T = ""
End If
End Sub

Private Sub Calendar1_Click()
ActiveCell = Calendar1.Value
Calendar1.Visible = False
ActiveCell.Offset(, 1).Select
End Sub

Private Sub Worksheet_SelectionChange(ByVal T As Range)
If T.Count > 2 Then End
If T.Address <> "$I$10J$10" Then End
Me.Calendar1.Visible = True
End Sub

oobird

Private Sub Calendar1_Click()
ActiveCell = Calendar1.Value
Calendar1.Visible = False
ActiveCell.Offset(, 1).Select
End Sub

Private Sub Worksheet_SelectionChange(ByVal T As Range)
If T.Count > 2 Then End
If T.Address <> "$I$10:$J$10" Then End
Me.Calendar1.Visible = True
End Sub