ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] UserFormªí³æ¬ÛÃö°ÝÃD

¦^´_ 4# v03586


Private Sub CommandButton1_Click()
Dim k&, Arr(1 To 7)¡@'©w¤@­Ó¡e°}¦C¡f®e¯Ç¸ê®Æ
For k = 1 To 5
¡@¡@If k <= 3 Then If Me("OptionButton" & k) = True Then Arr(1) = Me("OptionButton" & k).Caption
¡@¡@'¡Ä¦pªG¿ï¶µ¬° True¡A±N¨ä¡e«ö¶s¤å¦r¡f¥[¤J°}¦C¢°
¡@¡@Arr(k + 1) = Me("TextBox" & k)
¡@¡@'¡Ä±N¤å¦r¤è¶ô¤º®e¥[¤J°}¦C¢±¡ã¢µ
¡@¡@If Arr(k + 1) = "" Then Arr(1) = "": Exit For
¡@¡@'¡Ä¦pªG¤å¦r¤è¶ô¬°ªÅ¡A±N°}¦C¢°²MªÅ¡A¸õ¥X°j°é
Next k
¡@
If Arr(1) = "" Then MsgBox ("¸ê®Æ¥¼¿é¤J§¹¾ã¡A ¡y * ¡z ¥²¶·¿é¤J" & vbCrLf & _
¡@¡@¡@¡@¡@¡@"Data is not enter the full , ¡y * ¡z you must fill "): Exit Sub
'¡Ä¥H¡e°}¦C¢°¡f·í§@Àˬd¿é¤J¬O§_§¹¾ãªº¼Ðªº

Arr(7) = Now¡@
'¡Ä°}¦C¢¶¥[¤J¤é´Á®É¶¡

Sheets("FMC Input Database").Cells(Rows.Count, "A").End(xlUp)(2).Resize(1, 7) = Arr
'¡Ä¶ñ¤J¸ê®Æ
¡@
Unload Me
End Sub

µ{¦¡½X«Ü²³æ¡A½Ð¦Û¦æ¥h´¢¼Ò¡ã¡ã

TOP

¦^´_ 6# v03586


Sheets("FMC Input Database").Range("A2").Select¡@
Selection.End(xlDown).Select¡@

Select ·|°õ¦æ¡e¿ï¨ú¡f¤u§@ªíªº°Ê§@
Selection ¥u¹ï¡e·í«e¡f¤u§@ªí²£¥Í§@¥Î
©Ò¥H¡A¿ý»s¤§µ{¦¡½X¡A³£¶·¦A°µ­×¹¢¡I
With Sheets("FMC Input Database").Range("A2").End(xlDown)
      .cells(2,1)=??
      .cells(2,2)=??
      ~~
      ~~
End With

TOP

        ÀR«ä¦Û¦b : ¤â¤ß¦V¤U¬O§U¤H¡A¤â¤ß¦V¤W¬O¨D¤H¡F§U¤H§Ö¼Ö¡A¨D¤Hµh­W¡C
ªð¦^¦Cªí ¤W¤@¥DÃD