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

man65boy

½Ð±Ð¦U¦ì¥ý®v­Ì¡A¦p¦ó¦bªí³æ¸ÌªºTextBox1¿é¤JAÄæ¸Ìªº¤å¦r¡A«ö¶s«á§âµe­±±a¨ì¸ÓÄæÄæ¦ì¡C
ªí³æ³sµ².rar (84.3 KB)

¤U¸ü¦¸¼Æ: 11

2012-6-20 19:35

³Â·Ð«ü¾É¤@¤U¡AÁÂÁÂ!

kimbal

½Ð±Ð¦U¦ì¥ý®v­Ì¡A¦p¦ó¦bªí³æ¸ÌªºTextBox1¿é¤JAÄæ¸Ìªº¤å¦r¡A«ö¶s«á§âµe­±±a¨ì¸ÓÄæÄæ¦ì¡C


³Â·Ð«ü¾É¤@¤U¡A ...
man65boy µoªí©ó 2012-6-20 19:36

1. Private Sub CommandButton1_Click()
   
2.     On Error Resume Next
   
3.    
   
4.     Set tar = Cells.Find(What:=TextBox1.Text, After:=Range("A1"), LookIn:=xlFormulas, _
   
5.         LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext)
   
6.     If Not tar Is Nothing Then
   
7.         tar.Activate
   
8.         Unload Me
   
9.     Else
   
10.         MsgBox ("§ä¤£¨ìÃþ¦ü¦r¼Ë")
    
11.     End If
    
12.    
    
13. End Sub

½Æ»s¥N½X

man65boy

¦^´_ 2# kimbal

·PÁÂkimbal¤j¤jªº¦^µª¡AvbaªºÀ³¥Î¯uªº¤ñ¨ç¼ÆÀYµh¤F³\¦h¡A·PÁ§A!

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

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

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

¦^´_ 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

¦^´_ 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

¦^´_ 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

¦^´_ 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