- ©«¤l
- 559
- ¥DÃD
- 58
- ºëµØ
- 0
- ¿n¤À
- 626
- ÂI¦W
- 0
- §@·~¨t²Î
- win8
- ³nÅ骩¥»
- office2013
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- ¨Ó¦Û
- TW
- µù¥U®É¶¡
- 2010-11-22
- ³Ì«áµn¿ý
- 2024-6-14
|
¼Ó¥D~ ¦]¬°§Ú¤£ª¾¹D©p¬Onkey in sheet2¤¤ "A"Äæ¦ì¸ê®Æ«á¤~¥X²{"B"Äæ¦ìªº¸ê®Æ
ÁÙ¬O»¡ª½±µ§âSHEET1¤¤"A"Äæ¦ì¸ê®Æ¤@µ§¤@µ§¨Ìsheet2ªºªí¥Ü¤è¦¡§e²{~
¤U±¬O§Ú¨Ì³]¤@Ó«öÁ䪺¤è¦¡~
ª½±µ§âSHEET1¤¤"A"Äæ¦ì¸ê®Æ¤@µ§¤@µ§¨Ìsheet2ªºªí¥Ü¤è¦¡§e²{~
¦ý¬O°õ¦æ«á~ ¦]¼Ó¥Dsheet1¤¤²Ä148¦C¥H«áªº¸ê®Æ¬O¦³°ÝÃDªº~ ©Ò¥H~ µ{¦¡½X°õ¦æ«á·|²£¥Í¿ù»~
Private Sub CommandButton1_Click()
Do Until Sheet2.Range("A" & 2 + I) = ""
Sheet1.Range("A" & 2 + N) = Sheet2.Range("A" & 2 + I)
Sheet1.Range("B" & 2 + N) = "§÷®Æ¹w¦ô»Ý¨D¶q(a)"
N = N + 1
Sheet1.Range("B" & 2 + N) = "MIS»Ý¨D(a')"
N = N + 1
Sheet1.Range("B" & 2 + N) = "®w¦s¶q(b)"
N = N + 1
Sheet1.Range("B" & 2 + N) = "¦b³~¶q(c)"
N = N + 1
Sheet1.Range("B" & 2 + N) = "±H°â®w(d)"
N = N + 1
Sheet1.Range("B" & 2 + N) = "³Ì§C¦s¶q(e)"
N = N + 1
Sheet1.Range("B" & 2 + N) = "µ²¦s(f)"
N = N + 1
Sheet1.Range("B" & 2 + N) = "µ²¦sDOI"
N = N + 1
Sheet1.Range("B" & 2 + N) = "«Øij½ÐÁʶq(g)"
N = N + 1
Sheet1.Range("B" & 2 + N) = "¹wp½ÐÁʶq"
N = N + 1
Sheet1.Range("B" & 2 + N) = "µ²¦s+¹wp½ÐÁÊDOI"
N = N + 1
Sheet1.Range("B" & 2 + N) = "³Æµù(§ó·s¤é)"
N = N + 1
I = I + 1
Loop
End Sub |
|