GBKEE

¦^´_ 4# man65boy

1. Dim xlday
   
2. Private Sub UserForm_Initialize()
   
3.     xlday = Format(Date, "eemm")
   
4.     Label1 = xlday
   
5. End Sub
   
6. Private Sub TextBox1_Change()
   
7.    Label1 = IIf(Val(TextBox1) > 0, Val(TextBox1), 0) + Val(xlday)
   
8. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 6# man65boy

1. Option Explicit
   
2. Dim xlday       '¼Ò²Õ³»ºÝ«Å§iÅܼƬ°¦¹¼Ò²Õªº¨p¥ÎÅܼƠ ¶È¦¹¼Ò²Õªºµ{§Ç¥i¤Þ¥Î
   
3. Private Sub UserForm_Initialize()
   
4.     Dim tmpArry(), sht1 As Worksheet, sht2 As Worksheet, R As Interior
   
5.     '¦p¦¹µ{§Ç¤º Dim «Å§iÅܼƪºÅܼÆ,¶È¦¹µ{§Ç¥i¤Þ¥Î,¨ä¥Lµ{¦¡¤¤µLªk¤Þ¥Î.
   
6.     Set sht1 = Sheets("¶i³f")
   
7.     Set sht2 = Sheets("¾P³f")
   
8.     R = sht1.Range("AS65536").End(xlUp).Row
   
9.     xlday = Format(Date, "eemm")
   
10.     Label1 = xlday
    
11. End Sub
    
12. Private Sub TextBox1_Change()
    
13.    Label1 = IIf(Val(TextBox1) > 0, Val(TextBox1), 0) + Val(xlday)
    
14.    'xlday ³o¸Ì¥i¥H¤Þ¥Î¨ì
    
15.    'sht2  ³o¸Ì¤£¥i¥H¤Þ¥Î¨ì
    
16. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 8# man65boy

1. Dim sht1 As Worksheet
   
2. Dim sht2 As Worksheet '©ñ¦b³o¸Ì   ¼Ò²Õ©Ò¦³µ{§Ç³£¥i¥Î
   
3. Dim sht3 As Worksheet '©ñ¦b³o¸Ì   ¼Ò²Õ©Ò¦³µ{§Ç³£¥i¥Î
   
4. Dim xlday                           '©ñ¦b³o¸Ì   ¼Ò²Õ©Ò¦³µ{§Ç³£¥i¥Î
   
5. '--------¤W­±¬O¼Ò²Õ³»ºÝ  ---------
   
6. Private Sub UserForm_Initialize()
   
7. 'Dim xlday  §A©ñ¦b³o¸Ì   ¥u¦³ UserForm_Initialize ³oµ{§Ç¥i¥Î
   
8.     Dim tmpArry()
   
9.     Set sht1 = Sheets("¶i³f")
   
10.     Set sht2 = Sheets("¾P³f")
    
11.     Set sht3 = Sheets("¸ê®Æ")
    
12.    R = sht1.Range("AS65536").End(xlUp).Row
    
13.     xlday = Format(Date, "yyyy")  '¤p§Ì¥u·QÀ³¥Î¥[Á`YYYY
    
14.     Label23 = xlday   
    
15. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 10# man65boy
"¨ä¤¤ªºsht1 .s ht2 . sht3 .¬O«ü¼Ò²Õ¶Ü?¨º¬O§_­nÀ³¥Î¨ìªº¬¡­¶³£­n¨Ì§Ç¿é¤Jsht4....sht5©O?"
³o¤£¬O¼Ò²Õ¬OÅܼÆ: §A«ü©w¬°¬¡­¶Ã¯¤Wªº¤u§@ªí
¼Ò²Õ ¬OVBA ¤¤¼gµ{¦¡½Xªº¦a¤è

¤U¸ü (34.11 KB)

2012-6-23 07:58

¦^´_ 11# Hsieh
·PÁ´£¿ô,¬O§Ú¨Sª`·Nªº.