返回列表 上一主題 發帖

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

av8d

帖子
710 
主題
280 
精華
0 
積分
1016 
點名
0  
作業系統
Windows 10 
軟體版本
Office 2019 
閱讀權限
50 
性別
男 
註冊時間
2011-6-30 
最後登錄
2025-1-19 
1# 跳轉到 »
發表於 2013-5-9 14:29 | 顯示全部帖子

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

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

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

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

TOP

av8d

帖子
710 
主題
280 
精華
0 
積分
1016 
點名
0  
作業系統
Windows 10 
軟體版本
Office 2019 
閱讀權限
50 
性別
男 
註冊時間
2011-6-30 
最後登錄
2025-1-19 
2#
發表於 2013-5-9 15:38 | 顯示全部帖子
回復 1# av8d


    剛使用錄製巨集~有了一點眉目~
  1. Sub aa()
  2.     ActiveSheet.Shapes.Range(Array("Oval 30")).Select
  3.     Selection.ShapeRange(1).TextFrame2.TextRange.Characters.Text = 工作表1.[B6]
  4. End Sub
複製代碼
但是希望能縮短成一行~再次感謝

TOP

av8d

帖子
710 
主題
280 
精華
0 
積分
1016 
點名
0  
作業系統
Windows 10 
軟體版本
Office 2019 
閱讀權限
50 
性別
男 
註冊時間
2011-6-30 
最後登錄
2025-1-19 
3#
發表於 2013-5-9 16:01 | 顯示全部帖子
回復 2# av8d


    一行也解決了~
  1. Sub aa()
  2.     Sheets("工作表2").Select
  3.     ActiveSheet.Shapes.Range(Array("Text Box 1")).TextFrame2.TextRange.Characters.Text = 工作表1.[B6]
  4.    
  5.     ActiveSheet.Shapes.Range(Array("Oval 30")).TextFrame2.TextRange.Characters.Text = 工作表1.[B7]
  6.    
  7.     ActiveSheet.Shapes.Range(Array("Oval 31")).TextFrame2.TextRange.Characters.Text = 工作表1.[B8]
  8. End Sub
複製代碼
再次感謝各位大大的觀看~

TOP

av8d

帖子
710 
主題
280 
精華
0 
積分
1016 
點名
0  
作業系統
Windows 10 
軟體版本
Office 2019 
閱讀權限
50 
性別
男 
註冊時間
2011-6-30 
最後登錄
2025-1-19 
4# 倒序看帖
打印
tT
發表於 2013-5-13 11:38 | 顯示全部帖子

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

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

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

        靜思自在 : 慈悲沒有敵人，智慧不起煩惱。
返回列表 上一主題