麻辣家族討論版版 » Excel程式區 » 如何讓篩選不會讓按鈕CommandButton位置跑掉?

返回列表下一主題上一主題發帖

[發問] 如何讓篩選不會讓按鈕CommandButton位置跑掉?

大學生 Rank: 4

帖子: 712
主題: 281
精華: 0
積分: 1019
點名: 0
作業系統: Windows 10
軟體版本: Office 2019
閱讀權限: 50
性別: 男
註冊時間: 2011-6-30
最後登錄: 2025-5-22

1^# 跳轉到 »

發表於 2013-5-9 14:29 | 顯示全部帖子

如何將儲存格對應到圖形?

本帖最後由 av8d 於 2013-5-9 14:40 編輯

小廳單雙主位桌牌.rar (20.6 KB)
如何將儲存格對應到圖形?

以上再次麻煩各位大大了~

大學生 Rank: 4

帖子: 712
主題: 281
精華: 0
積分: 1019
點名: 0
作業系統: Windows 10
軟體版本: Office 2019
閱讀權限: 50
性別: 男
註冊時間: 2011-6-30
最後登錄: 2025-5-22

2^#

發表於 2013-5-9 15:38 | 顯示全部帖子

回復 1# av8d

剛使用錄製巨集~有了一點眉目~

Sub aa()
ActiveSheet.Shapes.Range(Array("Oval 30")).Select
Selection.ShapeRange(1).TextFrame2.TextRange.Characters.Text = 工作表1.[B6]
End Sub

複製代碼

但是希望能縮短成一行~再次感謝

大學生 Rank: 4

帖子: 712
主題: 281
精華: 0
積分: 1019
點名: 0
作業系統: Windows 10
軟體版本: Office 2019
閱讀權限: 50
性別: 男
註冊時間: 2011-6-30
最後登錄: 2025-5-22

3^#

發表於 2013-5-9 16:01 | 顯示全部帖子

回復 2# av8d

一行也解決了~

Sub aa()
Sheets("工作表2").Select
ActiveSheet.Shapes.Range(Array("Text Box 1")).TextFrame2.TextRange.Characters.Text = 工作表1.[B6]
ActiveSheet.Shapes.Range(Array("Oval 30")).TextFrame2.TextRange.Characters.Text = 工作表1.[B7]
ActiveSheet.Shapes.Range(Array("Oval 31")).TextFrame2.TextRange.Characters.Text = 工作表1.[B8]
End Sub

複製代碼

再次感謝各位大大的觀看~

大學生 Rank: 4

帖子: 712
主題: 281
精華: 0
積分: 1019
點名: 0
作業系統: Windows 10
軟體版本: Office 2019
閱讀權限: 50
性別: 男
註冊時間: 2011-6-30
最後登錄: 2025-5-22

4^# 倒序看帖

字體大小: tT

發表於 2013-5-13 11:38 | 顯示全部帖子

[發問] 如何讓篩選不會讓按鈕CommandButton位置跑掉?

小廳單雙主位俯視圖.rar (87.53 KB)
以上是暫時修改的

但是當數量一多~可能就會很複雜~
當時原本使用隱藏欄位的方式~但是發現~
當展開的時候~按鈕全部會擠成一團~
不知道是否有不會跑位的方法呢?

收藏

靜思自在 : 【時日莫空過】一個人在世間做了多少事，就等於壽命有多長。因此必須與時間競爭，切莫使時日空過。

返回列表下一主題上一主題