- ©«¤l
- 13
- ¥DÃD
- 6
- ºëµØ
- 0
- ¿n¤À
- 50
- ÂI¦W
- 0
- §@·~¨t²Î
- win10
- ³nÅ骩¥»
- office 2016
- ¾\ŪÅv
- 20
- ©Ê§O
- ¤k
- µù¥U®É¶¡
- 2014-2-25
- ³Ì«áµn¿ý
- 2019-12-10
|
±zªº¤è¦¡¸Õ¤F¤§«á¨Ã¨S¹F¨ì·Qnªºµ²ªG¡AÁÙ¬On·PÁ±z¡A§Ú«á¨Ó±N±zªº§ï¦¨¤G¬q¼gªk´N¸Ñ¨M¤F¡AÁÂÁ±z
Private Sub B1_Click()
Cells(4, "A") = myA.Text
Cells(5, "B") = myB.Text
Cells(6, "B") = myC.Text
Cells(8, "B") = myD.Text
Cells(9, "B") = myE.Text
Cells(10, "B") = myF.Text
Cells(9, "F") = myG.Text
Cells(10, "F") = myH.Text
End Sub
Private Sub B4_Click()
r = Range("B12").End(xlDown).Row + 1
Cells(r, "B") = myI.Text
Cells(r, "C") = myJ.Text
Cells(r, "D") = myK.Text
Cells(r, "E") = myL.Text
Cells(r, "G") = myM.Text
End Sub |
|