返回列表下一主題上一主題發帖

[發問] 請問為什麼Textbox的回傳值被限定類型?

sy091649

小學生 Rank: 1

帖子: 2
主題: 1
精華: 0
積分: 3
點名: 0
作業系統: i7
軟體版本: 2021
閱讀權限: 10
註冊時間: 2024-1-30
最後登錄: 2024-1-31

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

發表於 2024-1-30 13:13 | 只看該作者

[發問] 請問為什麼Textbox的回傳值被限定類型?

我寫了語法去回傳Textbox的內容，但是不知道為什麼只有輸入純數字時才會回傳到指定欄位，只要有含括英文或者空格都無法回傳；
以下是我們語法，再麻煩大家了。
Private Sub CommandButton1_Click()

Application.ScreenUpdating = False

mybook = ActiveWorkbook.Name
mysheet = ActiveSheet.Name

Dim i As Integer
Dim a As Integer

For i = 1 To 3

If Controls("TextBox" & i).Value = True Then

Worksheets("HIDE - Message").Activate

For a = 1 To 1000

If Cells(1 + a, 3) = Worksheets("water program").Cells(36 + i, 2).Value Then

Cells(1 + a, 7) = Controls("Textbox" & i).Text

Exit For
End If
Next a

End If

Next i

Application.ScreenUpdating = True
Worksheets(mysheet).Activate

Unload Me

End Sub