- ©«¤l
- 5923
- ¥DÃD
- 13
- ºëµØ
- 1
- ¿n¤À
- 5986
- ÂI¦W
- 0
- §@·~¨t²Î
- win10
- ³nÅ骩¥»
- Office 2010
- ¾\ŪÅv
- 150
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥xÆW°ò¶©
- µù¥U®É¶¡
- 2010-5-1
- ³Ì«áµn¿ý
- 2022-1-23
|
¥»©«³Ì«á¥Ñ GBKEE ©ó 2010-12-30 17:05 ½s¿è
¦^´_ 11# littlea
¦bVBA¬Oµ¡¤¤
Sub test()
±Æ§Ç
Dim d%
I = 17
Do
I = I + 1
Sheets("¥X³f³qª¾³æ(½d¥»)").Select
a$ = Cells(I, 1)
If a$ = "" Then Exit Do
Sheets("CL221").Select
J = 8
Do
J = J + 1
If Cells(J, 1) = "" Then Exit Do '³o¦æ¦p¹Ï «öF9 ³]¤U ¤¤Â_ÂI ¤¤Â_«á «öF8³v¦æ°õ¦æ
Debug.Print Cells(J, 1) & ";" & a$ '³o¦æ¥i¥Î À˵ø-> §Y®É¹Bºâµøµ¡ ¨Ó¬d¬ÝÅܼÆÈ
If Cells(J, 1) = a$ Then
Sheets("¥X³f³qª¾³æ(½d¥»)").Select
P$ = Cells(I, 6)
d% = DialogSheets("½Ð¿é¤J½s¸¹").EditBoxes(1).Text
Sheets("CL221").Select
Cells(J, d% + 14) = P$
Exit Do
End If
Loop
Loop
End Sub
|
|