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

如何達成兩個listbox的水平捲軸同步?

earl

小學生 Rank: 1

帖子: 6
主題: 3
精華: 0
積分: 9
點名: 0
作業系統: xp
軟體版本: sp3
閱讀權限: 10
性別: 男
註冊時間: 2012-4-20
最後登錄: 2016-2-17

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2016-1-5 18:01 | 只看該作者

如何達成兩個listbox的水平捲軸同步?

請問各位大大若需要將兩個listbox的水平捲軸同步的話, 應該如何操作?
網路上找了好幾個方式都無法正常執行, 是否能協助幫下忙, 謝謝
希望是不管操作listbox1或是listbox2的水平捲軸都能夠同步於另一個listbox
PS. 公司是使用office 2007的, 也無法新增listview的功能, 所以請忽略listview的做法, 謝謝

test.zip (12.11 KB)

樓主熱帖

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

2^#

發表於 2016-1-7 07:19 | 只看該作者

回復 1# earl
試試看

Dim AR(), Msg As Boolean
Private Sub UserForm_Initialize()
AR = Array(ListBox1, ListBox2) '所有ListBox
Set myitem = Range("A1:I4") '這裡有修改
Set mydb = Range("A2:I4")
With AR(0) 'ListBox1
.ColumnCount = 9
.RowSource = myitem.Address
End With
With AR(1) 'ListBox2
.ColumnCount = 9
.RowSource = mydb.Address
End With
End Sub
Private Sub ListBox1_Click()
If Msg Then Exit Sub
Ex ListBox1.ListIndex
End Sub
Private Sub ListBox2_Click()
If Msg Then Exit Sub
Ex ListBox2.ListIndex
End Sub
Private Sub Ex(OB As Integer)
Dim E As Variant
Msg = True
For Each E In AR
E.ListIndex = OB ' 所有ListBox 水平捲軸都同步
Next
Msg = False
End Sub

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

TOP

stillfish00

大學生 Rank: 4

帖子: 1018
主題: 15
精華: 0
積分: 1058
點名: 0
作業系統: win7 32bit
軟體版本: Office 2016 64-bit
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2012-5-9
最後登錄: 2022-9-28

3^#

發表於 2016-1-7 09:25 | 只看該作者

回復 2# GBKEE
我覺得他說的是 ListBox1下方捲軸往右滾動時
ListBox2下方捲軸也要向右同步滾動

這樣還有解嗎?

表達不清、題意不明確、沒附檔案格式、沒有討論問題的態度~~~~~~以上愛莫能助。

TOP

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2833
主題: 10
精華: 0
積分: 2889
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-11-17

4^#

發表於 2016-1-7 09:56 | 只看該作者

１．捲軸移動時，並不會觸動事件（不知其它版本是否有此事件），而選取(Click) 時，只能檢測其資料行列位置！
２．若想〔標題文字〕與〔資料〕左右同步顯示，設定其 ColumnHeads = True 即可，不須用到兩個ListBox
３．如果各欄文字字元數不多，以範例檔為例，只要設定其 ColumnWidths 屬性，也用不到水平捲軸！

參考如下方法：
Set mydb = Range("A2:I4")　'注意：這參照位址不可包含〔標題列〕
With ListBox2
　　.ColumnCount = 9
　　.RowSource = mydb.Address
　　.ColumnHeads = True
　　.ColumnWidths = "42,42,42,42,42,42,42,42,42"
End With

TOP

earl