ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

½sĶ¿ù»~,©óÁôÂüҲÕ

½sĶ¿ù»~,©óÁôÂüҲÕ

¤j¤j­Ì,¦n
¤p§Ì¦³¤@vbaµ{¦¡¤u§@ªí, ¦b®a¤¤¤Î¤½¥qªº­Ó¤H¹q¸£¤¤¨Ï¥Î¬O¨S¦³°ÝÃD, ¦ý·í³o¤u§@µ¹¤©¤½¥q¨ä¥L¦P¨Æ¨Ï¥Î®É, ·|¥X²{"½sĶ¿ù»~,©óÁôÂüҲÕ"½Ð±Ð¤j¤j­Ì«ü¾É..ÁÂÁÂ!!

³q±`³oºØ²{¶Hµo¥Í©óµ{¦¡¹B¦æ®Éµo¥Í¿ù»~¥»¨ÓÀ³¸Ó·|¸õ岀°»¿ùµøµ¡
¦Óvba«OÅ@ªºª¬ºA¤U©Ò¥HµLªkÀ˵øvbe
­Y¤£¦P¹q¸£¤~·|µo¥Í
¥iÀˬdofficeª©¥»¬O§_¬Û¦P
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

http://support.microsoft.com/kb/307410/zh-tw
³o¸Ìªº¬Ý¹L¤F¶Ü¡H

TOP

两¦ì¤j¤j¦n
¤p§Ì­è¦^¨ì®a¤¤, ¬Ý¨ì2¦ì¤j¤j¦^À³,¨ä¹ê§Ú¤]´¿·Q¹L¬O§_¬O¤£¦Pª©¥»ªº³n¥óÃö«Y,
¦ý¤½¥q¤¤¥Îªº¥þ¬O²Î¤@§@·~¨t²Î, À³¤£¬O§@·~¨t²Î,oobird¤j¤j©Ò´£¨Ñªººõ§}¥¼¬Ý¹L, ¤p§Ì·|¶i¤J, §Æ±æ¯à§ä¥X­ì¦]..¦b¦¹ÁÂÁ¤G¦ì¤j¤j¦^À³, °J¤ßÁÂÁÂ..

TOP

³o­Ó°ÝÃD.....§Ú¸I¹L¡A¤Z¬O¦³Åܼƪº³£­n«Å§i
¨Ò¦pfor i =1 to 100
§Úªº¹q¸£¤£¥ÎDim i µ{¦¡¨ÌµM¥i¥H°õ¦æ¡A¤½¥qªº´N¤£¦æ¡C
­ì¥»ÁÙ»~¥H¬°¬O2010»P2003ª©¥»ªº°ÝÃD¡A®tÂI§â¤½¥qªº2010¬å¤FXD

TOP

¤j¤j­Ì,¦n
¤p§Ì¦³¤@vbaµ{¦¡¤u§@ªí, ¦b®a¤¤¤Î¤½¥qªº­Ó¤H¹q¸£¤¤¨Ï¥Î¬O¨S¦³°ÝÃD, ¦ý·í³o¤u§@µ¹¤©¤½¥q¨ä¥L¦P¨Æ ...
©P¤j°¶ µoªí©ó 2010/11/22 07:35 AM

Àˬd¤@¤U"¤Þ¥Î¶µ¥Ø"
¬Ý¬Ý¦³¨S¦³¿òº|ªº~
­Y¬O§Ú¦^µª¡A¨Ï±zº¡·N¡A½Ð±zÅý§Úª¾¹D¡I                  
­Y¬O§Úªº¦^ÂСA±z¤´¦³¨ä¥L¨£¸Ñ¡A¤]½Ð±z¤£¶Þ«ü±Ð¡I

TOP

ÁÂÁ¤j¤j­Ì,
¤p§Ì¤£¤~, ¹ê¬Ý¤£ºÝ­Ù, ²{§âµ{¦¡½X¶Ç¤W,±æ¤j¤j­Ì«ü¾É,¹ê·P¿E,ÁÂÁÂ!!
Private Sub Calendar1_Click()
[I10] = Calendar1
Calendar1.Visible = False
End Sub

Private Sub Worksheet_SelectionChange(ByVal T As Range)
If T.Count > 2 Then End
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
   Calendar1.Visible = True: Calendar1 = Date
   Else
   Calendar1.Visible = False
End If
End Sub

TOP

§A¸Ñ°£VBE±K½X«á¡A¦b¥X²{¿ù»~ªº¹q¸£¤¤°õ¦æ
¬Ý¥X²{¿ù»~®Éªº¤¤Â_ÂI¬O­þ¤@¦æ?
´Nª¾¹D°ÝÃD¥X¦b­þ¸Ì
¨Ì¦¹µ{¦¡½X·|¥X¿ù±oÀ³¸Ó¥u¦³¤ë¾ä±±¨î¶µ
§A¥ý¦Û¦æÀˬd¬Ý¬Ý
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

ÁÂÁ´£¥Ü, ©ú¤Ñ¦^¨ì¤½¥q, ¸Õ¸Õ

TOP

§Ú²q.....
[I10] = Calendar1 ªº[I10] ·|¸õ²§±`
­n§ï¦¨cells(10,9)
¥t¥~For Each C In [d15:d35]
­n¥ýDim C ¡A¦Ü©ó [d15:d35]¤]­n¥Hcells¤è¦¡ªí¥Ü

TOP

        ÀR«ä¦Û¦b : ¤@­Ó¤Hªº§Ö¼Ö¡D¤£¬O¦]¬°¥L¾Ö¦³±o¦h¡A¦Ó¬O¦]¬°¥L­p¸û±o¤Ö¡C
ªð¦^¦Cªí ¤W¤@¥DÃD