excel巨集中如何獲取新增按鈕的屬性

2021-07-27 11:21:34 字數 2682 閱讀 4380

1樓:匿名使用者

方法一:你用的是表單控制元件中的按鈕,每個按鈕指定巨集,10個按鈕得指定10個巨集,巨集的名稱為"buttonattribute" & i,然後再定義10個巨集。

public bod(100)

sub addbutton()

dim str

for i = 1 to 2

set bod(i) = activesheet.buttons.add(54, i * 27, 108, 30)

bod(i).onaction = "buttonattribute" & i

next i

end sub

sub buttonattribute1()

msgbox bod(1).left & bod(1).top & bod(1).width & bod(1).height

end sub

sub buttonattribute2()

msgbox bod(2).left & bod(2).top & bod(2).width & bod(2).height

end sub

下面在依次輸入buttonattribute3。這樣做肯定很麻煩,參考方法二

方法二:先批量插入active 控制元件中的的按鈕。

sub add()

for i = 1 to 2

activesheet.oleobjects.add(classtype:="forms.commandbutton.1", link:=false _

, displayasicon:=false, left:=54, top:=i * 27, width:=108, height _

:=30).select

next i

end sub

然後在thisworkbook裡面插入以下:

dim 按鈕()

private sub workbook_open()

dim a as object, j%

for i = 1 to sheets.count

for each a in sheets(i).oleobjects

if instr(a.name, "commandbutton") = 1 then

j = j + 1

redim preserve 按鈕(j)

set 按鈕(j) = new 類1

set 按鈕(j).anniu = sheets(i).oleobjects(a.name).object

end if

next

next

end sub

再在類模組裡插入

public withevents anniu as msforms.commandbutton

private sub anniu_click()

msgbox anniu.left & anniu.top & anniu.width & anniu.height

end sub

使用類模組,即可使每個插入的按鈕,執行click事件時呼叫本身的屬性。

參考

2樓:匿名使用者

你這個要分別繫結巨集才可以繫結同一個巨集沒法區分點的是哪個按鈕for i = 1 to 10

activesheet.buttons.add(54, i * 27, 108, 30).select

selection.onaction = "buttonattribute_" & i

next i

sub buttonattribute_1()msgbox 1

end sub

sub buttonattribute_2()msgbox 2

end sub

sub buttonattribute_3()msgbox 3

end sub

...sub buttonattribute_10()msgbox 10

end sub

3樓:

這個真不知道,一起等答案

excel如何檢視和修改表單控制元件的屬性?(以選項按鈕為例)

4樓:4終

1、開啟一個excel的檔案,在**中輸入一些字串,比如衣服品種和

數量統計回表,如下圖所示。答

2、接著,滑鼠左鍵單擊【開發工具】選單標籤,在vba控制元件下拉選單中,並選擇表單按鈕控制元件,如下圖所示。

3、在**中繪製出表單按鈕控制元件,並滑鼠右鍵單擊選單【編輯】,修改按鈕名稱,如下圖所示。

4、接著,單擊選擇指定巨集,在彈出的視窗中,新增選擇按鈕巨集,如下圖所示。,如下圖所示。

5、然後,在彈出的**視窗上,輸入vba**,如下圖所示。

6、接著,在**中輸入衣服的**和數量,如下圖所示。最後,在設計視窗上,滑鼠左鍵單擊表單按鈕控制元件,可以看到衣服分類**中的合計單元格中顯示出統計數值了。

5樓:男人海洋

在 選單欄 空白處-->右鍵-->控制元件工具箱(選中)

控制元件工具箱 1 設計模式 2屬性 3檢視**

希望能幫到你!

6樓:匿名使用者

2016版的是選中開發工具中的設計模式,再點屬性,從下拉選單中選中cmd選項

excel巨集設定,excel中如何啟用巨集

在excel裡面安全性設為中,而且檔案裡面有寫巨集,則開啟檔案的時候會出個對話方塊,問是否啟用巨集,如果點是,則可以執行巨集命令,如果點否,則巨集不能正常執行。注 巨集是excel裡面編寫的程式 檔案,選項 信任中心,信任中心設定,巨集設定,啟用巨集即可在excel中按下alt f11 即可開啟vb...

請教 VBA如何獲取巨集按鈕的所在的行號或列號

我好像記得是可以的,但是我忘了,不過可以換個思路,用它所在位置來推理出應該在那個行。效果如下 sub 巨集2 a activesheet.shapes button 1 top for i 1 to 10 myt cells i,1 heightmytop mytop myt if mytop a ...

excel中如何使用巨集計算,如何使用EXCEL巨集命令實現自動計算功能?

巨集的功能比函式要強啊.巨集可以呼叫函式,反過來好像不行吧.巨集就是程式設計了.嵌入office的vb,也叫vba.微軟叫vba.說到程式設計,那她還能呼叫其他的東西.總之,使用巨集想怎麼計算就怎麼計算.如何使用excel巨集命令實現自動計算功能?chartovalue 函式可計算單個單元格中可能含...