- ©«¤l
- 2
- ¥DÃD
- 2
- ºëµØ
- 0
- ¿n¤À
- 4
- ÂI¦W
- 0
- §@·~¨t²Î
- w10
- ³nÅ骩¥»
- 365
- ¾\ŪÅv
- 10
- µù¥U®É¶¡
- 2020-4-5
- ³Ì«áµn¿ý
- 2020-4-8
|
ªí³æ¿é¤J«á¦Û°Ê±a¤Jªí®æ
Ä~¤W¦¸µo°Ý«á
¤W¦¸ªº°ÝÃD¤w¸gºCºC¸Ñ¨M¤F
¥u®t³Ì«á¤@Ó¨BÆJ¤@ª½¨S¦³ÀYºü
§Ú·Q«ö¤U¥[¤J«á§âText¸Ìªº¶ñ¼g¤JD10¤ÎF10¦ì¸m
µM«á¤U¤@Ó«~¶µ·s¼Wªº±µÄòµÛ«á±·s¼W
¦ýÂIÀ»«á¨S¦³¥ô¦ó¤ÏÀ³
¤£ª¾¹D¸Ó¦p¦ó×¥¿...
Private Sub CommandButton1_Click()
If myb.Text = "" Then
MsgBox ("½Ð¿é¤J¼Æ¶q")
Me.myb.SetFocus
Exit Sub
Else
If Sheets("µ²±b").Range("D10") = "" Then
r = 2
Else
r = Range("D9").End(xlDown).Row + 1
End If
Cells(r, "D") = mya.Text
'Sheets("µ²±b").Cells(r, "F") = myb.Text
End If
End Sub |
|