找回密碼 或 安全提問
 註冊
|註冊|登錄

伊莉討論區

搜索
尊貴會員無限下載附件伊莉需要你的贊助和支持你準備好成為出色的版主了嗎?
催眠fc2旬果中文惡靈古堡rpggd
催眠即ヤ雅姿海賊梅麻呂虚魂剣ラ異世界後ncy 096

休閒聊天興趣交流學術文化旅遊交流飲食交流家庭事務PC GAMETV GAME
熱門線上其他線上感情感性寵物交流家族門派動漫交流貼圖分享BL/GL
音樂世界影視娛樂女性頻道潮流資訊BT下載區GB下載區下載分享短片
電腦資訊數碼產品手機交流交易廣場網站事務長篇小說體育運動時事經濟
上班一族博彩娛樂

[繁]葬送的芙莉蓮25-

[繁]因為不是真正的夥

[繁]月光下的異世界之

[簡]北海道辣妹金古錐

[繁]非自願的不死冒險

[繁]葬送的芙莉蓮28-
C & C++ 語言C# 語言Visual Basic 語言PHP 語言JAVA 語言
查看: 3564|回復: 5

[求助] excel VBA 迴圈更改控件名稱[複製鏈接]

Rank: 6Rank: 6Rank: 6Rank: 6Rank: 6Rank: 6

帖子
15
積分
995 點
潛水值
48010 米
發表於 2018-7-7 12:01 AM|顯示全部樓層
如果發覺自己無法使用一些功能或出現問題,請按重新整理一次,並待所有網頁內容完全載入後5秒才進行操作。
請問,在excel VBA裡,我試著拉出10個Commandbutton
預設名稱為Commandbutton1~Commandbutton10
如果要改名子~寫成Commandbutton1.caption="xxx"之類的
,但太多個一個一個寫很麻煩
想利用迴圈一次性直接寫成Commandbutton1.caption=1
Commandbutton2.caption=2....以下類推
但都會顯示異常
是否Commandbutton這個控件,無法使用迴圈控制呢?

是否有精通的大德,可以教導
...
瀏覽完整內容,請先 註冊登入會員
如果發覺自己無法使用一些功能或出現問題,請按重新整理一次,並待所有網頁內容完全載入後5秒才進行操作。

使用道具檢舉

Rank: 2Rank: 2

帖子
166
積分
406 點
潛水值
7780 米
發表於 2018-7-7 09:48 PM|顯示全部樓層
本帖最後由 天蓬元帥 於 2018-7-7 09:48 PM 編輯

因為不知道最後你的用意在哪,如果只是單純過程會用到
有一個不是辦法的辦法....先用迴圈寫出Commandbutton1.caption="XXX"的程式碼
之後再匯入(或貼上就好)
Sub Macro2()
For i = 1 To 10
Sheets("123").Cells(i, 1) = "Commandbutton" & i & ".caption=" & "XXX"
Next i
...
瀏覽完整內容,請先 註冊登入會員
所有積分大於負-100的壞孩子,將可獲得重新機會成為懲罰生,權限跟幼兒生一樣。

使用道具檢舉

Rank: 6Rank: 6Rank: 6Rank: 6Rank: 6Rank: 6

帖子
15
積分
995 點
潛水值
48010 米
發表於 2018-7-8 07:14 AM|顯示全部樓層
若有安裝色情守門員,可用無界、自由門等軟件瀏覽伊莉。或使用以下網址瀏覽伊莉: http://www.eyny.com:81/index.php
天蓬元帥 發表於 2018-7-7 09:48 PM
下載: 訪客無法瀏覽下載點,請先 註冊登入會員

因為不知道最後你的用意在哪,如果只是單純過程會用到
有一個不是辦法的辦法....先用迴圈寫出Commandbutton ...

謝謝   我試試看                  
...
瀏覽完整內容,請先 註冊登入會員
如果發覺自己無法使用一些功能或出現問題,請按重新整理一次,並待所有網頁內容完全載入後5秒才進行操作。

使用道具檢舉

Rank: 6Rank: 6Rank: 6Rank: 6Rank: 6Rank: 6

帖子
155
積分
1291 點
潛水值
47805 米
發表於 2018-7-8 10:45 AM|顯示全部樓層
若瀏覽伊莉的時侯發生問題或不正常情況,請使用Internet Explorer(I.E)。
本帖最後由 tryit244178 於 2018-7-8 04:06 PM 編輯

記得以前VB6有個控制項的物件可以用,不知VBA有沒有…試試這個
  1. For i = 1 To 3
  2.    Controls("CommandButton" & i).Caption = "Test" & i
  3. Next i
複製代碼

點評

t0020497 謝謝,我會往物件控制方向思考的..  發表於 2018-7-8 05:49 PM

使用道具檢舉

Rank: 2Rank: 2

帖子
166
積分
406 點
潛水值
7780 米
發表於 2018-7-8 03:16 PM|顯示全部樓層
一樣顯示物件不支援此屬性或方法
網路爬文還沒找到解答
另外後來想想,其實也不用用迴圈,EXCEL直接公式拉就好 冏





點評

tryit244178 抱歉,不要從零開始  發表於 2018-7-8 04:07 PM
成為伊莉的版主,你將獲得更高級和無限的權限。把你感興趣的版面一步步地發展和豐盛,那種滿足感等著你來嚐嚐喔。

使用道具檢舉

帖子
73
積分
22 點
潛水值
8164 米
發表於 2018-7-10 10:46 PM|顯示全部樓層
若瀏覽伊莉的時侯發生問題或不正常情況,請使用Internet Explorer(I.E)。
  1. Dim a As Object, i As Integer
  2. On Error Resume Next

  3. For Each a In ActiveSheet.OLEObjects
  4.     If TypeName(a.Object) = "CommandButton" Then
  5.        If Left(a.Object.Caption, 13) = "CommandButton" Then
  6.           a.Object.Caption = "Test" & i
  7.           i = i + 1
  8.        End If
  9.     End If
  10. Next
複製代碼

...
瀏覽完整內容,請先 註冊登入會員

點評

t0020497 謝謝 我試試看  發表於 2018-7-13 11:21 PM
如果瀏覽伊莉時速度太慢或無法連接,可以使用其他分流瀏覽伊莉,www01.eyny.com(02,03)。

使用道具檢舉

您需要登錄後才可以回帖 登錄 | 註冊

Powered by Discuz!

© Comsenz Inc.

重要聲明:本討論區是以即時上載留言的方式運作,對所有留言的真實性、完整性及立場等,不負任何法律責任。而一切留言之言論只代表留言者個人意見,並非本網站之立場,用戶不應信賴內容,並應自行判斷內容之真實性。於有關情形下,用戶應尋求專業意見(如涉及醫療、法律或投資等問題)。 由於本討論區受到「即時上載留言」運作方式所規限,故不能完全監察所有留言,若讀者發現有留言出現問題,請聯絡我們。有權刪除任何留言及拒絕任何人士上載留言,同時亦有不刪除留言的權利。切勿上傳和撰寫 侵犯版權(未經授權)、粗言穢語、誹謗、渲染色情暴力或人身攻擊的言論,敬請自律。本網站保留一切法律權利。
回頂部