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

±±¨îª«¥ó¤§VBA

±±¨îª«¥ó¤§VBA

¥»©«³Ì«á¥Ñ duck_simon ©ó 2011-9-7 16:24 ½s¿è

½Ð±Ð¥ý¶i¤j¤j:
¦pªþ¥ó¤º¤§»¡©ú
ÁÂÁÂ ! ¶K­È.rar (7.48 KB)

¦^´_ 1# duck_simon


    Sub nn()
Set a = Columns("A").Find([F1], lookat:=xlWhole)
If Not a Is Nothing Then a.Offset(, 1).Resize(, 4) = a.Offset(, 1).Resize(, 4).Value
End Sub
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

½Ð±ÐHsieh ¤j¤j:
·í§Ú°õ¦æ¸Ó  VBA ®É,Åã¥Ü"ÅܼÆ"¥¼©w¸q, ­n¦p¦ó "©w¸q" ?
ÁÂÁÂ !

TOP

Sub nn()
Dim a As Range
Set a = Columns("A").Find([F1], lookat:=xlWhole)
If Not a Is Nothing Then a.Offset(, 1).Resize(, 4) = a.Offset(, 1).Resize(, 4).Value
End Sub
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

½Ð±ÐHsieh ¤j¤j:
§Ú¤£ª¾­þ¨à¥X¿ù, ÁÙ¬O¤£¯à°õ¦æ,¥i±¤­ì¥»§Ú¬O¤¤¾Ç¥Í,§ï¤F·s¯¸,§Ñ¤F³qª¾ªO¤j,µLªk¤U¸üÀÉ®×..

TOP

¦^´_ 5# duck_simon

§Ú¥Î§A1#ÀÉ®×°õ¦æµL»~
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2011-9-8 13:45 ½s¿è

¦^´_ 5# duck_simon
"¶K­È"±±¨îª«¥ó¤§VBA    ¶K­ÈªºVBAª«¥ó¦WºÙ¬°CommandButton1
Private Sub CommandButton1_Click() ' ¦¹§Y¬°¦¹±±¨îª«¥ó¤§VBA  ¹w³]¨Æ¥ó
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Dim a As Range
Set a = Columns("A").Find([F1], lookat:=xlWhole)
If Not a Is Nothing Then a.Offset(, 1).Resize(, 4) = a.Offset(, 1).Resize(, 4).Value

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
End Sub

TOP

¥»©«³Ì«á¥Ñ duck_simon ©ó 2011-9-8 16:05 ½s¿è

½Ð°Ý¯à§_¬Ý¨ì¹Ï¤ù ? ¤£ª¾§Ú¿ù¦b­þ ?

¹Ï¤ù1.rar (39.28 KB)

½Ð±Ð¬O§_"³]©w¤Þ¥Î¶µ¥Ø" ¥¼¤Ä¿ï ?

TOP

CommandButton1_Click¨Æ¥ó»PSub nn()
¨âªÌ§A¥u¯à¿ï¨ä¤@¡C
´N¹³¤@±i®É¨èªí¡A§A¤£¯à¤W­±¼g¥xÆW«È¹B¯Z¨®®É¨èªí
µM«á±µµÛ¤@¦æ¼g¡G¥xÆWÅK¸ô§½¯Z¨®®É¨èªí¡C

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2011-9-8 17:10 ½s¿è

¦^´_ 8# duck_simon
«Øij§A­n¦hª¦ª¦¤å¨Ó»{ÃÑVBAªº»yªk
³o¬O¤@­Óµ{§Ç¥¨¶°
Private Sub CommandButton1_Click()   
'
'  
'µ{§Ç¤ºªºµ{¦¡½X
'''
'
End Sub
'''''''''''''''''''''''''''
³o¤S¥t¤@­Óµ{§Ç¥¨¶°
Sub nn()
'
'µ{§Ç¤ºªºµ{¦¡½X
'
'
End Sub

TOP

        ÀR«ä¦Û¦b : ¦h°µ¦h±o¡C¤Ö°µ¦h¥¢¡C
ªð¦^¦Cªí ¤W¤@¥DÃD