- 帖子
- 254
- 主題
- 6
- 精華
- 0
- 積分
- 310
- 點名
- 0
- 作業系統
- W10
- 軟體版本
- Excel 2016
- 閱讀權限
- 20
- 性別
- 男
- 來自
- 台灣
- 註冊時間
- 2019-6-16
- 最後登錄
- 2024-9-23
|
本帖最後由 軒云熊 於 2020-11-24 13:03 編輯
回復 1# 瘋狂狐狸
抱歉小弟 還在學習階段，只是有空來找題目練習 試試看 是不是這樣 感謝
Public Sub 練習1124()
'x = "11112(黃)AAA2" '有輸入
x = "" '沒輸入
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 "輸入資料", vbInformation
E = True: GoTo 101
End If
Next i
End Sub |
|
發表於 2020-11-24 12:56
| 