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

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

ªí³æ¥[³sµ²

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

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

TOP

¥»©«³Ì«á¥Ñ kimbal ©ó 2012-6-20 22:57 ½s¿è
½Ð±Ð¦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
À´±oµo°Ý,µª®×´N·|¦b¨ä¤¤

¤µ¤éの¤@¬íは  ©ú¤éにない
http://kimbalko-chi.blogspot.com
http://kimbalko.blogspot.com

TOP

¦^´_ 2# kimbal

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

TOP

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

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

ªí³æLabel1.rar (87.13 KB)

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

TOP

¥»©«³Ì«á¥Ñ man65boy ©ó 2012-6-22 01:27 ½s¿è

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

TOP

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

TOP

¥»©«³Ì«á¥Ñ man65boy ©ó 2012-6-22 07:17 ½s¿è

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

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

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

TOP

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

TOP

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

TOP

        ÀR«ä¦Û¦b : µêªÅ¦³ºÉ¡D§ÚÄ@µL½a¡AµoÄ@®e©ö¦æÄ@Ãø¡C
ªð¦^¦Cªí ¤W¤@¥DÃD