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

帖子: 127
主題: 28
精華: 0
積分: 160
點名: 0
作業系統: W7
軟體版本: 2003
閱讀權限: 20
性別: 男
註冊時間: 2010-11-1
最後登錄: 2017-5-20

3^#

發表於 2012-5-12 09:59 | 只看該作者

回復 2# register313

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

oobird

　頭銜: 街友一族

超級版主 Rank: 8 Rank: 8

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

論壇貢獻勳章

4^#

發表於 2012-5-12 10:15 | 只看該作者

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

帖子: 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) 謝謝你了

oobird

　頭銜: 街友一族

超級版主 Rank: 8 Rank: 8

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

論壇貢獻勳章

6^#

發表於 2012-5-12 10:38 | 只看該作者

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

帖子: 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

oobird

　頭銜: 街友一族

超級版主 Rank: 8 Rank: 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)

帖子: 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

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 列
出現「找不到指定的物件」錯誤訊息
謝謝~~~