±±¨îª«¥ó¤§VBA

duck_simon

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

¤U¸ü¦¸¼Æ: 12

2011-9-7 16:23

Hsieh

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

duck_simon

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

Hsieh

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

duck_simon

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

Hsieh

¦^´_ 5# duck_simon

§Ú¥Î§A1#ÀÉ®×°õ¦æµL»~

GBKEE

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

duck_simon

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

¹Ï¤ù1.rar (39.28 KB)

¤U¸ü¦¸¼Æ: 12

2011-9-8 14:52

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

oobird

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

GBKEE

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