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

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

¥»©«³Ì«á¥Ñ °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 : ¤£­nÀH¤ß©Ò±ý¡A­nÀH¤ß±Ð¨|¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD