12
返回列表 上一主題 發帖

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

mygod0403

帖子
23 
主題
10 
精華
0 
積分
60 
點名
0  
作業系統
winxp 
軟體版本
office2003 
閱讀權限
20 
性別
男 
註冊時間
2010-10-19 
最後登錄
2014-10-28 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2012-5-11 14:47 | 只看該作者

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

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

狀況是這樣

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

麻煩了，謝謝~~~
收藏 分享

register313
　頭銜: 麻辣 路人甲

大學生Rank: 4

帖子
967 
主題
0 
精華
0 
積分
1001 
點名
0  
作業系統
WIN XP 
軟體版本
OFFICE 2003 
閱讀權限
50 
性別
男 
來自
台北 
註冊時間
2010-11-29 
最後登錄
2022-5-17 

2012龍年全勤獎章熱烈參與勳章
2#
發表於 2012-5-11 23:26 | 只看該作者
回復 1# mygod0403



表單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
複製代碼

TOP

icestormer

帖子
127 
主題
28 
精華
0 
積分
160 
點名
0  
作業系統
W7 
軟體版本
2003 
閱讀權限
20 
性別
男 
註冊時間
2010-11-1 
最後登錄
2017-5-20 
3#
發表於 2012-5-12 09:59 | 只看該作者
回復 2# register313


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

TOP

oobird
　頭銜: 街友一族

超級版主Rank: 8Rank: 8

帖子
1572 
主題
16 
精華
2 
積分
1521 
點名
0  
作業系統
xp 
軟體版本
office 2003 
閱讀權限
150 
性別
男 
註冊時間
2010-5-1 
最後登錄
2016-1-13 

論壇貢獻勳章
4#
發表於 2012-5-12 10:15 | 只看該作者
大同小異，但不能完全套用。

TOP

icestormer

帖子
127 
主題
28 
精華
0 
積分
160 
點名
0  
作業系統
W7 
軟體版本
2003 
閱讀權限
20 
性別
男 
註冊時間
2010-11-1 
最後登錄
2017-5-20 
5#
發表於 2012-5-12 10:33 | 只看該作者
大同小異，但不能完全套用。
oobird 發表於 2012-5-12 10:15



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

TOP

oobird
　頭銜: 街友一族

超級版主Rank: 8Rank: 8

帖子
1572 
主題
16 
精華
2 
積分
1521 
點名
0  
作業系統
xp 
軟體版本
office 2003 
閱讀權限
150 
性別
男 
註冊時間
2010-5-1 
最後登錄
2016-1-13 

論壇貢獻勳章
6#
發表於 2012-5-12 10:38 | 只看該作者
不好意思，沒有文件該怎麼幫你改？

TOP

icestormer

帖子
127 
主題
28 
精華
0 
積分
160 
點名
0  
作業系統
W7 
軟體版本
2003 
閱讀權限
20 
性別
男 
註冊時間
2010-11-1 
最後登錄
2017-5-20 
7#
發表於 2012-5-12 11:47 | 只看該作者
本帖最後由 icestormer 於 2012-5-12 13:32 編輯

回復 6# oobird

SpinButton練習.rar (12.01 KB)
對不起 現在附上檔案
檔案中 有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

TOP

oobird
　頭銜: 街友一族

超級版主Rank: 8Rank: 8

帖子
1572 
主題
16 
精華
2 
積分
1521 
點名
0  
作業系統
xp 
軟體版本
office 2003 
閱讀權限
150 
性別
男 
註冊時間
2010-5-1 
最後登錄
2016-1-13 

論壇貢獻勳章
8#
發表於 2012-5-12 15:44 | 只看該作者
本帖最後由 oobird 於 2012-5-12 16:49 編輯

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

TOP

icestormer

帖子
127 
主題
28 
精華
0 
積分
160 
點名
0  
作業系統
W7 
軟體版本
2003 
閱讀權限
20 
性別
男 
註冊時間
2010-11-1 
最後登錄
2017-5-20 
9#
發表於 2012-5-12 20:06 | 只看該作者
本帖最後由 icestormer 於 2012-5-12 22:26 編輯

回復 8# oobird


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

TOP

mygod0403

帖子
23 
主題
10 
精華
0 
積分
60 
點名
0  
作業系統
winxp 
軟體版本
office2003 
閱讀權限
20 
性別
男 
註冊時間
2010-10-19 
最後登錄
2014-10-28 
10#
發表於 2012-5-14 09:47 | 只看該作者
回復 2# register313
不好意思…
執行到 col.add myc 列
出現「找不到指定的物件」錯誤訊息
謝謝~~~

TOP

        靜思自在 : 口說好話、心想好意、身行好事。
12
返回列表 上一主題