- ©«¤l
- 17
- ¥DÃD
- 5
- ºëµØ
- 0
- ¿n¤À
- 69
- ÂI¦W
- 0
- §@·~¨t²Î
- Win XP
- ³nÅ骩¥»
- SP3
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2010-5-9
- ³Ì«áµn¿ý
- 2022-11-28
|
¦^´_ 4# samwang
Samwang ¤j¤j ±z¦n:´ú¸Õµ²ªGOK¡C·PÁ«üÂI
¤U¦C»yªk¬O¤§«e®M¥Î¦b¨ç¼Æªº°}¦C¶]§å¦¸°j°é°õ¦æ¸ê®Æ¥Í¦¨«á¦C¦L(PDFµêÀÀ¦Lªí¾÷)¡A
¦p¦óµ²¦X±z´£¨ÑªºVBA¶i¦æ¸ê®Æ°j°é¦C¦L¡A¦pªþ¥ó"Isp-test-3 ¹w´Áµ²ªG"
Private Sub CommandButton1_Click()
Set sh3 = Worksheets("List")
Set sh2 = Worksheets("Isp")
For AA = 1 To Application.CountA(sh3.Range("a2:a500"))
sh2.[E2] = sh3.Cells(AA + 1, 3)
sh2.[E3] = sh3.Cells(AA + 1, 5)
sh2.[E4] = sh3.Cells(AA + 1, 14)
sh2.[k2] = sh3.Cells(AA + 1, 11)
sh2.[k3] = sh3.Cells(AA + 1, 9)
sh2.[K4] = sh3.Cells(AA + 1, 7)
sh2.PrintOut
Next
End Sub |
|