- 最後登錄
- 2024-4-28
- 在線時間
- 7164 小時
- 註冊時間
- 2010-5-4
- 閱讀權限
- 95
- 精華
- 0
- UID
- 7964333
- 帖子
- 155
- 積分
- 1287 點
- 潛水值
- 47865 米
| 本帖最後由 tryit244178 於 2018-7-11 04:56 PM 編輯
把程式碼改為
- Dim r As Range, i As Range, j As Range
-
- Set r = Range("A2:F31")
-
- For Each i In r.Columns
- For Each j In i.Rows
- If j.value = "" Then
- j.value = TextBox1.Text
- Exit Sub
- End If
- Next j
- Next i
複製代碼
... |
|