自動填滿選項按鈕

帖子: 80
主題: 27
精華: 0
積分: 108
點名: 0
作業系統: windows
軟體版本: 2007
閱讀權限: 20
性別: 女
註冊時間: 2012-3-6
最後登錄: 2012-8-23

2^#

發表於 2012-3-16 21:25 | 顯示全部帖子

本帖最後由 caichen3 於 2012-3-16 21:34 編輯

非常感謝Hsieh喔:)
如果希望能以5個optionbutton做為一個群組呢？？

寶寶

帖子: 80
主題: 27
精華: 0
積分: 108
點名: 0
作業系統: windows
軟體版本: 2007
閱讀權限: 20
性別: 女
註冊時間: 2012-3-6
最後登錄: 2012-8-23

3^#

發表於 2012-3-19 11:54 | 顯示全部帖子

非常感謝

寶寶

帖子: 80
主題: 27
精華: 0
積分: 108
點名: 0
作業系統: windows
軟體版本: 2007
閱讀權限: 20
性別: 女
註冊時間: 2012-3-6
最後登錄: 2012-8-23

4^#

發表於 2012-3-20 11:52 | 顯示全部帖子

我在工作表新增一個按鈕，在按鈕裡輸入H大大的程式碼，執行後按鈕便消失，是不是使用OLEObject方法便無法以手動方式製作按鈕呢？？

寶寶

帖子: 80
主題: 27
精華: 0
積分: 108
點名: 0
作業系統: windows
軟體版本: 2007
閱讀權限: 20
性別: 女
註冊時間: 2012-3-6
最後登錄: 2012-8-23

5^#

發表於 2012-3-20 18:23 | 顯示全部帖子

本帖最後由 caichen3 於 2012-3-20 18:35 編輯

感謝H大大的回覆！！還有一個問題請教你，
OLEobjects方法增加的optionbutton,每個都有編號，每次執行按鈕的編號並不是依序排列，
因為我要設定每個按鈕的標題文字，要如何以變數I來控制並設定這５個按鈕的標題文字？？

寶寶

帖子: 80
主題: 27
精華: 0
積分: 108
點名: 0
作業系統: windows
軟體版本: 2007
閱讀權限: 20
性別: 女
註冊時間: 2012-3-6
最後登錄: 2012-8-23

6^#

發表於 2012-3-21 17:56 | 顯示全部帖子

本帖最後由 caichen3 於 2012-3-21 18:06 編輯

感謝h大大:)
請教Left:=.Left, Top:=.Top, Width:=.Width, Height:=.Height是什麼意思呢？
若我在最後插入新的一列，並也希望在該列有自動新增上述所說的五個按鈕該如何呢(變數i=1 to 5) ？？

寶寶

帖子: 80
主題: 27
精華: 0
積分: 108
點名: 0
作業系統: windows
軟體版本: 2007
閱讀權限: 20
性別: 女
註冊時間: 2012-3-6
最後登錄: 2012-8-23

7^#

發表於 2012-3-21 18:13 | 顯示全部帖子

本帖最後由 caichen3 於 2012-3-21 18:25 編輯

如何設定新增按鈕的位置呢？？假設在某列的d欄至h欄中放置5個按鈕
b為新插入的列
For i = 1 To 5
With a.Offset(, i)
   Set ob = ActiveSheet.OLEObjects.Add(ClassType:="Forms.OptionButton.1")
      ob.Object.Left = ["D+b:" & "H+b"].Left
      ob.Object.Top = ["D+b:" & "H+b"].Top
      ob.Object.Width = ["D+b:" & "H+b"].Width
      ob.Object.Height = ["D+b:" & "H+b"].Height
End With
Next

程式碼出錯，可以幫我看看嗎？感謝

寶寶

帖子: 80
主題: 27
精華: 0
積分: 108
點名: 0
作業系統: windows
軟體版本: 2007
閱讀權限: 20
性別: 女
註冊時間: 2012-3-6
最後登錄: 2012-8-23

8^#

發表於 2012-3-21 22:22 | 顯示全部帖子

如何設定新增按鈕的位置在某列的第d欄至h欄中放置5個按鈕
(b為新插入的列)
For i = 1 To 5
With a.Offset(, i)
   Set ob = ActiveSheet.OLEObjects.Add(ClassType:="Forms.OptionButton.1")
      ob.Object.Left = ["D+b:" & "H+b"].Left
      ob.Object.Top = ["D+b:" & "H+b"].Top
      ob.Object.Width = ["D+b:" & "H+b"].Width
      ob.Object.Height = ["D+b:" & "H+b"].Height
End With
Next

程式碼出錯，可以幫我看看嗎？感謝

寶寶

帖子: 80
主題: 27
精華: 0
積分: 108
點名: 0
作業系統: windows
軟體版本: 2007
閱讀權限: 20
性別: 女
註冊時間: 2012-3-6
最後登錄: 2012-8-23

9^#

發表於 2012-3-22 09:19 | 顯示全部帖子

插入新的一列，並於該列中第d欄至h欄中放置5個選項按鈕，以下是我的部份程式碼，請大大幫我看看哪裡出錯嗎：

b = Range("I1").Value
ActiveSheet.Rows(b).Insert '於第b列插入新的一列
For Each a In Range("C:C").SpecialCells(xlCellTypeConstants)
For i = 1 To 5
Select Case i
      Case "1"
      mystr = "非常不重要" & "(" & i & ")"
      Case "2"
      mystr = "不重要" & "(" & i & ")"
      Case "3"
      mystr = "普通" & "(" & i & ")"
      Case "4"
      mystr = "重要" & "(" & i & ")"
      Case "5"
      mystr = "非常重要" & "(" & i & ")"
End Select

With a.Offset(, i)
   Set ob = ActiveSheet.OLEObjects.Add(ClassType:="Forms.OptionButton.1")
      ob.Object.Left = ["D+b:" & "H+b"].Left
      ob.Object.Top = ["D+b:" & "H+b"].Top
      ob.Object.Width = ["D+b:" & "H+b"].Width
      ob.Object.Height = ["D+b:" & "H+b"].Height
      ob.Object.Caption = mystr
End With
Next
Next

寶寶

帖子: 80
主題: 27
精華: 0
積分: 108
點名: 0
作業系統: windows
軟體版本: 2007
閱讀權限: 20
性別: 女
註冊時間: 2012-3-6
最後登錄: 2012-8-23

10^#

發表於 2012-3-22 11:45 | 顯示全部帖子

非常感謝各位大大的回覆，以後我的提問會更清楚說明一些

以下是我要呈現的畫片結果
A欄：編號 B欄：使用者需求敘述  C欄：空儲存格 D~H欄：放置OptionButton ，每一列為一個群組，並以編號1~5依序排列(OptionButton以OB表示)
   A    B    C       D             E             F             G             H
1 1    xxx          OB0-1    OB0-2    OB0-3    OB0-4    OB0-5
2 2    yyy          OB1-1    OB1-2    OB1-3    OB1-4    OB1-5
3 3    zzz          OB2-1    OB2-2    OB2-3    OB2-4    OB2-5
4 4    jjj             OB3-1    OB3-2    OB3-3    OB3-4    OB3-5
5 5    iii             OB4-1    OB4-2    OB4-3    OB4-4    OB4-5
6
7

如果我想要插入新的一列，並且希望能在該列上新增OptionButton，像上述以編號1~5呈現，但原先的工作表上已被選取的OptionButton資料不會被清除呢？？

寶寶