返回列表 上一主題 發帖

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

sy091649

帖子
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
收藏 分享

Andy2483
　暱稱: 厚臉皮的學生

大學生Rank: 4

帖子
1446 
主題
40 
精華
0 
積分
1470 
點名
0  
作業系統
Windows 7 
軟體版本
Excel 2010 & 2016 
閱讀權限
50 
性別
男 
來自
台灣 
註冊時間
2020-7-15 
最後登錄
2024-10-21 
2#
發表於 2024-1-30 13:56 | 只看該作者
回復 1# sy091649


    謝謝前輩發表此主題
請將 If Controls("TextBox" & i).Value = True Then  修改為判斷字數,替換以下代碼試試看
If Len(Controls("TextBox" & i).Value) >0 Then
用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流

TOP

sy091649

帖子
2 
主題
1 
精華
0 
積分
3 
點名
0  
作業系統
i7 
軟體版本
2021 
閱讀權限
10 
註冊時間
2024-1-30 
最後登錄
2024-1-31 
3#
發表於 2024-1-30 17:01 | 只看該作者
感謝解答，這個方法的確有用；謝謝!!!!!!

TOP

        靜思自在 : 【是否發揮了良能？】人間壽命因為短暫，才更顯得珍貴。難得來一趟人間，應問是否為人間發揮了自己的良能，而不要一味求長壽。
返回列表 上一主題