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

如何將TextBox和編號分開?

av8d

大學生 Rank: 4

帖子: 712
主題: 281
精華: 0
積分: 1019
點名: 0
作業系統: Windows 10
軟體版本: Office 2019
閱讀權限: 50
性別: 男
註冊時間: 2011-6-30
最後登錄: 2025-5-22

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2011-9-5 14:17 | 顯示全部帖子

如何將TextBox和編號分開?

本帖最後由 av8d 於 2011-9-8 08:19 編輯

For i = 2 To 7
"TextBox" & i=""
Next i
End Sub

以上做法會發生錯誤
是因為TextBox是物件嗎?

若TextBox2+TextBox3+++++TextBox7又該怎寫?

樓主熱帖

av8d

大學生 Rank: 4

帖子: 712
主題: 281
精華: 0
積分: 1019
點名: 0
作業系統: Windows 10
軟體版本: Office 2019
閱讀權限: 50
性別: 男
註冊時間: 2011-6-30
最後登錄: 2025-5-22

2^#

發表於 2011-9-7 12:57 | 顯示全部帖子

請問為什麼型態會不符合?(感謝GBKEE 大大解決了我的疑問)

本帖最後由 av8d 於 2011-9-7 23:50 編輯

cach.rar (34.33 KB)

請問為什麼型態會不符合?有沒有比較快點的作法?(例如:用迴圈)

TOP

av8d

大學生 Rank: 4

帖子: 712
主題: 281
精華: 0
積分: 1019
點名: 0
作業系統: Windows 10
軟體版本: Office 2019
閱讀權限: 50
性別: 男
註冊時間: 2011-6-30
最後登錄: 2025-5-22

3^#

發表於 2011-9-7 23:47 | 顯示全部帖子

回復 2# GBKEE

Private Sub CommandButton1_Click()
For i = 2 To 4
Controls("TextBox" & i) = ""
Next i
End Sub

按下按鈕後出現沒有定義這個Sub或Function

TOP

av8d

大學生 Rank: 4

帖子: 712
主題: 281
精華: 0
積分: 1019
點名: 0
作業系統: Windows 10
軟體版本: Office 2019
閱讀權限: 50
性別: 男
註冊時間: 2011-6-30
最後登錄: 2025-5-22

4^#

發表於 2011-9-8 08:28 | 顯示全部帖子

G大您好~我可否在詢問一下關於以下的改寫方式
n1 = Val(TextBox1)
n2= Val(TextBox2)
n3= Val(TextBox3)
若改寫成迴圈改怎麼寫?
以下兩個寫法都會出現錯誤.
For i = 1 To 3
For j = 1 To 3
"n" & j = 工作表1.OLEObjects("TextBox" & i).Object.Value
Next j
Next i
-------------------------------------------------------
For i = 1 To 3
For j = 1 To 3
"n" & j = Controls("TextBox" & i).Value
Next j
Next i

TOP

av8d

大學生 Rank: 4

帖子: 712
主題: 281
精華: 0
積分: 1019
點名: 0
作業系統: Windows 10
軟體版本: Office 2019
閱讀權限: 50
性別: 男
註冊時間: 2011-6-30
最後登錄: 2025-5-22

5^#

發表於 2011-9-8 12:50 | 顯示全部帖子

Option Explicit
Private Sub CommandButton2_Click()
Dim N()
i = 1
ReDim N(1 To 3)
For i = 1 To 3
N(i) = 工作表1.OLEObjects("TextBox" & i).Object.Value
Next
ATO = N3 + N2
MsgBox ATO

不知道為什麼答案都是0

End Sub

TOP

av8d