[發問] 請教UserForm內有多個TextBox要如何簡化程序(感謝)

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 11
主題: 1
精華: 0
積分: 12
點名: 0
作業系統: Win7 32
軟體版本: Office2013
閱讀權限: 10
性別: 男
來自: Keelong
註冊時間: 2015-2-14
最後登錄: 2015-3-16

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

發表於 2015-2-14 09:06 | 只看該作者

[發問] 請教UserForm內有多個TextBox要如何簡化程序(感謝)

目前有70個TextBox並以第70為1~69的累計
輸入TextBox並按下Enter後就計入到TextBox70內因此在程序內寫入以下69個程序
請教如何簡化

目前尚須加入
1.按下滑鼠後清空TextBox內容
2.按下鍵盤"往上鍵","往下鍵"
因此程序會變得很長所以特來請教簡化方式.....感恩

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 13 Then TextBox70.Text = Val(TextBox70.Text) + Val(TextBox1.Text)
End Sub
Private Sub TextBox2_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 13 Then TextBox70.Text = Val(TextBox70.Text) + Val(TextBox2.Text)
End Sub
.......

複製代碼

linyancheng

帖子: 228
主題: 73
精華: 2
積分: 333
點名: 0
作業系統: Windows 10
軟體版本: Office 2000, 2019
閱讀權限: 100
性別: 男
來自: 彰化縣
註冊時間: 2013-7-18
最後登錄: 2024-10-13

6^#

發表於 2015-2-20 17:53 | 只看該作者

本帖最後由 linyancheng 於 2015-2-20 18:01 編輯

這樣寫應該可以。

帖子: 11
主題: 1
精華: 0
積分: 12
點名: 0
作業系統: Win7 32
軟體版本: Office2013
閱讀權限: 10
性別: 男
來自: Keelong
註冊時間: 2015-2-14
最後登錄: 2015-3-16

5^#

發表於 2015-2-19 21:20 | 只看該作者

目前只會寫成這樣

spTB = Val(Replace(Class_TextBox.Name, "TextBox", ""))
With Class_TextBox
If KeyCode = 13 Then
If spTB < 24 Then
.Parent.TextBox70.Text = Val(.Parent.TextBox70.Text) + Val(.Text)
ElseIf spTB > 23 And spTB < 47 Then
.Parent.TextBox71.Text = Val(.Parent.TextBox71.Text) + Val(.Text)
Else
.Parent.TextBox72.Text = Val(.Parent.TextBox72.Text) + Val(.Text)
End If
End If
End With

複製代碼

帖子: 11
主題: 1
精華: 0
積分: 12
點名: 0
作業系統: Win7 32
軟體版本: Office2013
閱讀權限: 10
性別: 男
來自: Keelong
註冊時間: 2015-2-14
最後登錄: 2015-3-16

4^#

發表於 2015-2-19 21:02 | 只看該作者

又無步了...只好再次求助G大
感謝萬分

目前想設置
TextBox70為1到23的累計
TextBox71為24到46的累計
TextBox72為47到69的累計
不知要如何修改程序......謝謝您

帖子: 11
主題: 1
精華: 0
積分: 12
點名: 0
作業系統: Win7 32
軟體版本: Office2013
閱讀權限: 10
性別: 男
來自: Keelong
註冊時間: 2015-2-14
最後登錄: 2015-3-16

3^#

發表於 2015-2-19 16:58 | 只看該作者

:loveliness: .....非常感謝G大熱情幫忙

報告:非常成功

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

2^#

發表於 2015-2-15 16:08 | 只看該作者

回復 1# changxxx

UserForm的程式碼

Option Explicit
Dim UserForm_Text(1 To 69) As New Class1 '宣告變數為新的物件模組
Private Sub UserForm_Initialize()
Dim i As Integer
For i = 1 To UBound(UserForm_Text)
Set UserForm_Text(i).Class_TextBox = Controls("textbox" & i)
'物件模組的Class_TextBox 設定為 Controls("textbox" & i)
Next
End Sub

複製代碼

物件類別模組的程式碼

Option Explicit
Public WithEvents Class_TextBox As MSForms.TextBox
'WithEvents 選擇性引數。表示 varname 是物件變數的關鍵字，且用來對應 ActiveX 物件所引發的事件。
'僅適用於物件類別模組中。
'您可以用 WithEvents 來個別宣告變數，但不可用來建立陣列，也不可與 New 同時使用。
Private Sub Class_TextBox_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
With Class_TextBox
If KeyCode = 13 Then .Parent.TextBox70.Text = Val(.Parent.TextBox70.Text) + Val(.Text)
End With
End Sub

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.