繁體瀏覽工具設為首頁收藏本站
 找回密碼 或 安全提問
 註冊
|註冊|登錄

伊莉討論區

搜索
請尊重及感激所有版主付出和奉獻感激所有對伊莉作出奉獻的人尊貴會員無限使用任何功能
伊莉討論區 › 論壇 › 電腦資訊 › 電腦程式設計 › Visual Basic 語言 › excel VBA 迴圈更改控件名稱
mg催眠神奇寶貝火影偷拍新竹mg
abf 029火影paio haz試験までroyd 200brandi l一拳超人
休閒聊天興趣交流學術文化旅遊交流飲食交流家庭事務PC GAMETV GAME
熱門線上其他線上感情感性寵物交流家族門派動漫交流貼圖分享BL/GL
音樂世界影視娛樂女性頻道潮流資訊BT下載區GB下載區下載分享短片
電腦資訊數碼產品手機交流交易廣場網站事務長篇小說體育運動時事經濟
上班一族博彩娛樂

[繁]最狂輔助職業【話
[繁]莫名成為邪龍的五
[繁]膽大黨04-

[繁]妻子變成小學生。
這是所謂的人工美女嗎
[繁]精靈幻想記 第二
C & C++ 語言C# 語言Visual Basic 語言PHP 語言JAVA 語言
返回列表發新帖

查看: 3907|回復: 5
打印上一主題下一主題

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

t0020497

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

帖子
15
積分
975 點
潛水值
49870 米
跳轉到指定樓層
樓主
發表於 2018-7-7 12:01 AM|只看該作者|正序瀏覽
成為伊莉的版主，你將獲得更高級和無限的權限。把你感興趣的版面一步步地發展和豐盛，那種滿足感等著你來嚐嚐喔。
請問,在excel VBA裡,我試著拉出10個Commandbutton
預設名稱為Commandbutton1~Commandbutton10
如果要改名子~寫成Commandbutton1.caption="xxx"之類的
,但太多個一個一個寫很麻煩
想利用迴圈一次性直接寫成Commandbutton1.caption=1
Commandbutton2.caption=2....以下類推
但都會顯示異常
是否Commandbutton這個控件,無法使用迴圈控制呢?

是否有精通的大德,可以教導
...
瀏覽完整內容，請先 註冊 或 登入會員
分享分享0收藏收藏0支持支持0
所有積分大於負-100的壞孩子，將可獲得重新機會成為懲罰生，權限跟幼兒生一樣。

使用道具檢舉

Waroger

帖子
73
積分
22 點
潛水值
8184 米
6樓
發表於 2018-7-10 10:46 PM|只看該作者
分享使你變得更實在，可以使其他人感到快樂，分享是我們的動力。今天就來分享你的資訊、圖片或檔案吧。
  1. Dim a As Object, i As Integer
  2. On Error Resume Next

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

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

點評

t0020497 謝謝 我試試看  發表於 2018-7-13 11:21 PM
回覆中加入附件並不會使你增加積分，請使用主題方式發佈附件。

使用道具檢舉

天蓬元帥

Rank: 2Rank: 2

帖子
166
積分
406 點
潛水值
7920 米
5樓
發表於 2018-7-8 03:16 PM|只看該作者
成為伊莉的版主，你將獲得更高級和無限的權限。把你感興趣的版面一步步地發展和豐盛，那種滿足感等著你來嚐嚐喔。
一樣顯示物件不支援此屬性或方法
網路爬文還沒找到解答
另外後來想想，其實也不用用迴圈，EXCEL直接公式拉就好 冏

點評

tryit244178 抱歉，不要從零開始  發表於 2018-7-8 04:07 PM
若有安裝色情守門員，可用無界、自由門等軟件瀏覽伊莉。或使用以下網址瀏覽伊莉: http://www.eyny.com:81/index.php

使用道具檢舉

tryit244178

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

帖子
155
積分
1282 點
潛水值
47975 米
4樓
發表於 2018-7-8 10:45 AM|只看該作者
如果重複性登入後自動登出，請先刪除所有Cookie和舊網頁再登入。
本帖最後由 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
所有積分大於負-100的壞孩子，將可獲得重新機會成為懲罰生，權限跟幼兒生一樣。

使用道具檢舉

t0020497

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

帖子
15
積分
975 點
潛水值
49870 米
3樓
發表於 2018-7-8 07:14 AM|只看該作者
伊莉影片
天蓬元帥 發表於 2018-7-7 09:48 PM
下載: 訪客無法瀏覽下載點，請先 註冊 或 登入會員

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

謝謝   我試試看                  
...
瀏覽完整內容，請先 註冊 或 登入會員





如果你覺得伊莉做得不錯，那就不要再猶疑了。今天就贊助和支持我們，立即行動！我們需要你的一點力量喔。

使用道具檢舉

天蓬元帥

Rank: 2Rank: 2

帖子
166
積分
406 點
潛水值
7920 米
頭香
發表於 2018-7-7 09:48 PM|只看該作者
若對尊貴或贊助會員有任何疑問，歡迎向我們查詢。我們的即時通或MSN: admin@eyny.com
本帖最後由 天蓬元帥 於 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
...
瀏覽完整內容，請先 註冊 或 登入會員
若登入不正常或變回訪客狀態，請先刪除COOKIE再登入。

使用道具檢舉

返回列表發新帖
高級模式
BColorImageLinkQuoteCodeSmilies
您需要登錄後才可以回帖 登錄 | 註冊

Powered by Discuz!

© Comsenz Inc.

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