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

¨D§U ¦p¦ó´£¿ôÀx¦s®æ¦³¬Û¦P¸ê®Æ

¨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

¥»©«³Ì«á¥Ñ °a¤ªºµ ©ó 2020-11-24 13:03 ½s¿è

¦^´_ 1# ºÆ¨gª°¯W

©êºp¤p§Ì ÁÙ¦b¾Ç²ß¶¥¬q¡A¥u¬O¦³ªÅ¨Ó§äÃD¥Ø½m²ß  ¸Õ¸Õ¬Ý ¬O¤£¬O³o¼Ë ·PÁÂ

Public Sub ½m²ß1124()
'x = "11112(¶À)AAA2" '¦³¿é¤J
x = "" '¨S¿é¤J
E = False
101: If E = True Then x = "11112(¶À)AAA2"
    For i = 2 To Sheets(1).Cells(Rows.Count, 2).End(xlUp)(2).Row
        If Cells(i, "B") = x And Cells(i, "B") <> "" Then
            MsgBox "¦³­«´_¸ê®Æ", vbInformation
            Exit For
        ElseIf Cells(i, "B") = "" Then
            Cells(i, "A") = "111"
            Cells(i, "B") = "11112(¶À)AAA2"
            Cells(i, "C") = "10"
        ElseIf x = "" Then
            MsgBox "¿é¤J¸ê®Æ", vbInformation
            E = True: GoTo 101
        End If
     Next i
        
End Sub

TOP

¦^´_ 1# ºÆ¨gª°¯W

¦pªG¥i¥H §â§A·Q­nªºµ²ªG ¤@¦¸¥þ³¡»¡©ú¤@¤U §âÀɮ׶ǤW¨Ó §Ú­Ì¥i¥H¤@°_½m²ß ÁÂÁÂ

TOP

        ÀR«ä¦Û¦b : ¤H¥Í¤£¤@©w²y²y¬O¦n²y¡A¦ý¬O¦³¾ú½mªº±j¥´ªÌ¡AÀH®É³£¥i¥H´§´Î¡C
ªð¦^¦Cªí ¤W¤@¥DÃD