[發問] 請問一個重覆程式碼使用上的問題

mygod0403

不知道該怎麼下標題{:3_60:} ，sorry

狀況是這樣

我設計了一個表單，上面有10個textbox控制項
另外還有一個label，做為統計這10個textbox的總和
然後我想當任一個textbox的值改變時
label的內容都能即時更新
目前知道可以用textbox_change處理
問題是
難道10個 textbox的change事件都要寫上相同的程式碼嗎？

麻煩了，謝謝~~~

register313

回復 1# mygod0403

下載 (87.71 KB)

2012-5-11 23:24

表單UserForm1程式碼

1. Dim col As New Collection
   
2. Private Sub UserForm_initialize()
   
3. Dim myc As cmds
   
4. For i = 1 To 10
   
5.   Set myc = New cmds
   
6.   Set myc.cmd = Me.Controls("Textbox" & i)
   
7.   col.Add myc
   
8. Next
   
9. Set myc = Nothing
   
10. End Sub

複製代碼

物件類別模組cmds程式碼

1. Public WithEvents cmd As MSForms.TextBox
   
2. Private Sub cmd_change()
   
3. For i = 1 To 10
   
4.   data = data + Val(UserForm1.Controls("Textbox" & i))
   
5.   UserForm1.Label1.Caption = data
   
6. Next
   
7. End Sub

複製代碼

icestormer

回復 2# register313


  請問 像您所寫的程式碼 也是可以運用在工作表上的設置好的Textbox 嗎？

oobird

大同小異，但不能完全套用。

icestormer

大同小異，但不能完全套用。
oobird 發表於 2012-5-12 10:15

   那要怎改呢? 能不能教一下 我也有相同的問題 只是在工作表上而已(差在我的是用SpinButton)   謝謝你了

oobird

不好意思，沒有文件該怎麼幫你改？

icestormer

回復 6# oobird

SpinButton練習.rar (12.01 KB)

下載次數: 4

2012-5-12 11:42

對不起 現在附上檔案
檔案中 有5個spinebutton
作用:由1到5 分別 對A5到E5 都是相同作用只是欄別不同,其它程式碼完全一樣

另外 有一個奇怪的問題. 如下圖(4個圖)
第一及第二張圖 都有指定巨集 及控制


===============================================================
但第三及第四張圖郤沒有.. 不管怎弄都找不到
第三及第四張就是在弣檔上的spinebutton  ,請問要怎把指定巨集及控制弄出來?(我是用excel2003)


================================================================
由於看不懂 下方這種語法,如果想要弄懂,請問是要去那裡學習或是有什麼好的學習書可以買呢?發現書店中有關VBA的書很少(目前買的4本 也都沒有介紹到這部份)
1:excel vba 功能索引式參考手冊
2:excel 超圖解 VBA 基礎講座
3:  .............................. 塵用講座
4:辦公室提昇效率必備EXCEL VBA 技法256招
---------------------------------------------------------------------------------------------------------------------------------------------------
Public WithEvents txb As MSForms.TextBox
Dim txbs(11 To 49) As txb
Dim col As New Collection

oobird

spinebutton 與微調按鈕是不一樣的東西。
圖一圖二是表單工具的微調按鈕，所以有這個選項
下面的是控制工具的spinebutton ，不能混為一談
以下是用表單工具做的例子 SpinButton練習2.rar (9.16 KB)

下載次數: 19

2012-5-12 16:49

icestormer

回復 8# oobird


有幾個問題如果oobird 或有高手會  麻煩教一下, 感謝
這個檔是 我把oobird 大提供的,一邊理解語法一邊改的,但也產生了幾個問題
先附上檔案 微調按鈕練習.rar (9.48 KB)

下載次數: 5

2012-5-12 22:17

第一個問題:
Private Sub Workbook_Open()
   Dim ctl As Shape
   For Each ctl In Sheet1.Shapes
       If ctl.Type = 8Then  
          ctl.OnAction = "Btn_Click" <<此行跟使用  call Btn_click 有什麼我看不出來的差別嗎?(執行起來都是一樣呢)
         End If
   Next ctl
End Sub
第二個問題:
Sub Btn_Click()

    按鈕名 = Application.Caller
    n = Val(Right(Application.Caller, 1))<<application.caller 實際作用還是不懂 不知能不能教一下
    長度 = Len(Application.Caller)
   
With Cells(4, n)
   
  If Left(按鈕名, 1) = "微" Then
        
         If Cells(1, n).Value = 1 Then <<此行 原本是想採用直接取 [微調按鈕]的值 但都失敗(我只會使用 spinebutton.value 但又沒法用.) 只好把它的值連結在 工作表上的儲存格上
   
               .Value = "你按了:" & 按鈕名 & "最大值"
               .Characters(5, 長度).Font.ColorIndex = 3
               .Characters(6 + 長度, 1).Font.ColorIndex = 3
         Else
                .Value = "你按了:" & 按鈕名 & "最小值"
                .Characters(5, 長度).Font.ColorIndex = 3
                .Characters(6 + 長度, 1).Font.ColorIndex = 8
         End If
              
   Else
   
          .Value = "你按了" & 按鈕名
         
          .Characters(3 + 長度, 1).Font.ColorIndex = 3
     
   End If

mygod0403

回復 2# register313
不好意思…
執行到 col.add myc 列
出現「找不到指定的物件」錯誤訊息
謝謝~~~