ªí³æªºLabel¦P¨B°õ¦æ

man65boy

½Ð±Ð¦U¦ì¥ý®v­Ì¡A¦p¦ó¦bªí³æ¸ÌªºTextBox1¿é¤J¼Æ¦r¡A¦bLabel1(¦~.¤ë)¸òµÛÅã²{¥[Á`«áªºµª®×¡A³Â·Ð¦Ñ®v­Ì«ü¾É¤@¤U¡AÁÂÁÂ!

ªí³æLabel1.rar (87.13 KB)

¤U¸ü¦¸¼Æ: 8

2012-6-21 07:15

man65boy

¦^´_ 12# GBKEE


    ·PÁ¨â¦ì¦Ñ®vªº¦^µª¡A°O¤U¨Ó¤F~ÁÂÁÂ!!!

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ªº.

Hsieh

¦^´_ 10# man65boy


    xlday¬OEXCEL«O¯d¦r¡A½Ð¥H¨ä¥L¦r¦ê©R¦W

man65boy

¦^´_ 9# GBKEE

·PÁÂGBKEE¦Ñ®vªº­×§ï«ü¾É¡A¦A½Ð°Ý¦Ñ®v¡A
Dim sht1 As Worksheet
Dim sht2 As Worksheet '©ñ¦b³o¸Ì   ¼Ò²Õ©Ò¦³µ{§Ç³£¥i¥Î
Dim sht3 As Worksheet '©ñ¦b³o¸Ì   ¼Ò²Õ©Ò¦³µ{§Ç³£¥i¥Î
Dim xlday                           '©ñ¦b³o¸Ì   ¼Ò²Õ©Ò¦³µ{§Ç³£¥i¥Î

¨ä¤¤ªºsht1 .s ht2 . sht3 .¬O«ü¼Ò²Õ¶Ü?¨º¬O§_­nÀ³¥Î¨ìªº¬¡­¶³£­n¨Ì§Ç¿é¤Jsht4....sht5©O?
¦A¦¸¦aÁÂÁ¦Ѯv¡C

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

man65boy

¦^´_ 7# GBKEE
ÁÂÁÂGBKEE¤j¤j¡Aµ{¦¡¶K¤W¥h¤F¡AÁÙ¬O¥X²{"¤£¯à«ü©w±`¼Æ"¡AÀɮצ]¯A¤Î°Ó·~Áô¨p¡AµLªkªþ¤W§¹¾ãª©¡A¤p§Ìªþ¤WÁY¤pª©¡A§Æ±æ¦Ñ®v¯àÀ°¦£¸ÑÃD!
1010622.rar (26.49 KB)

¤U¸ü¦¸¼Æ: 8

2012-6-22 07:14

¦b½d¨Ò¤¤
xlday = Format(Date, "yyyy/mm/dd")

¤p§Ì¥u·QÀ³¥Î¥[Á`YYYY

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

man65boy

¦^´_ 5# GBKEE


    ·PÁÂGBKEE¦Ñ®vªº¦^µª¡A
¦A½Ð±Ð¦Ñ®v¡A·íªí³æ¸Ì¤w¦³§Oªº«Å§i®É¡A
Private Sub UserForm_Initialize()
    Dim tmpArry()
Set sht1 = Sheets("¶i³f")
    Set sht2 = Sheets("¾P³f")
R = sht1.Range("AS65536").End(xlUp).Row
¸Ó¦p¦ó§â¥H¤U³o¬qµ{¦¡¯Ç¤J¤W­±¨º¤@¬q
Dim xlday
Private Sub UserForm_Initialize()
    xlday = Format(Date, "eemm")
    Label1 = xlday
End Sub

¤p§Ì§ë­°¤F¡A¦]¬°¦³­«½Æªº¨â¬q Private Sub UserForm_Initialize() ³Â·Ð¦Ñ®v«üÂI¤@¤U!

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