¨D§U ¦p¦ó´£¿ôÀx¦s®æ¦³¬Û¦P¸ê®Æ
- ©«¤l
- 3
- ¥DÃD
- 2
- ºëµØ
- 0
- ¿n¤À
- 50
- ÂI¦W
- 0
- §@·~¨t²Î
- WIN7
- ³nÅ骩¥»
- 2009
- ¾\ŪÅv
- 20
- µù¥U®É¶¡
- 2019-8-3
- ³Ì«áµn¿ý
- 2021-9-12
|
¨D§U ¦p¦ó´£¿ôÀx¦s®æ¦³¬Û¦P¸ê®Æ
³Â·Ð¦U¦ì¤j¯«
¤p§Ì·Q§â x¿é¤JªºÈ ¤£¸òÀx¦s®æ«½Æ
¦pªG¦³«½Æ´£¿ô¸ò¤£¿é¤J¨ìÀx¦s®æ
²{¦b·|´£¿ô ¦ýÁÙ¬O·|¿é¤J¨ìÀx¦s®æ
©êºp¤j¯« ¥Ø«e·s¤â ÁÙµLªk¦^´_
x = ComboBox1.Text + ComboBox2.Text + ComboBox3.Text
For i = 2 To Sheets("¤u§@³æ1").[B36656].End(xlUp).Row
If Cells(i, "B") = x Then
MsgBox "¦³«´_¸ê®Æ", vbInformation
Exit For
Else
Cells(r, "C") = TextBox2.Text
Cells(r, "B") = ComboBox1.Text + ComboBox2.Text + ComboBox3.Text
Cells(r, "A") = TextBox1.Text
End If
Next
If x = "" Then
MsgBox "¿é¤J¸ê®Æ", vbInformation
End If |
|
|
|
|
|
|