[發問] scrollbar 的問題

帖子: 766
主題: 256
精華: 0
積分: 1035
點名: 0
作業系統: windows 11
軟體版本: OFFICE2021
閱讀權限: 50
性別: 男
註冊時間: 2011-5-30
最後登錄: 2026-10-2

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2014-3-25 14:32 | 顯示全部帖子

[發問] scrollbar 的問題

Private Sub ScrollBar1_Change()
With ScrollBar1
Sheets("sheet1").Range("H1").Value = Sheets("sheet1").Range("M2").Value
.Max = Sheets("sheet1").Range("H1") + 5
.Min = Sheets("sheet1").Range("H1") - 5
Sheets("sheet1").Range("H1") = .Value
End With
end sub
初始值不是 +5就-5
如何讓scrollbar h1初始值 ==> 等於 M2 的值,MAX 跟MIN 仍然有作用

樓主熱帖

帖子: 766
主題: 256
精華: 0
積分: 1035
點名: 0
作業系統: windows 11
軟體版本: OFFICE2021
閱讀權限: 50
性別: 男
註冊時間: 2011-5-30
最後登錄: 2026-10-2

2^#

發表於 2014-3-26 06:57 | 顯示全部帖子

你的程式放錯地方了.

設定 ScrollBar 的最大值與最小值,
應該是要放在 Worksheet_Change 裡面.

在 ...
luhpro 發表於 2014-3-25 22:32

事件程序宣告與同名事件描述不相符??
Private Sub ScrollBar1_Change()
Sheets("sheet1").Range("H1").Value = Sheets("sheet1").Range("M2").Value
End Sub

Private Sub Worksheet_Change()
With ScrollBar1
.Max = Sheets("sheet1").Range("H1") + 5
.Min = Sheets("sheet1").Range("H1") - 5
Sheets("sheet1").Range("H1") = .Value
End With
End Sub

帖子: 766
主題: 256
精華: 0
積分: 1035
點名: 0
作業系統: windows 11
軟體版本: OFFICE2021
閱讀權限: 50
性別: 男
註冊時間: 2011-5-30
最後登錄: 2026-10-2

3^#

發表於 2014-3-27 06:42 | 顯示全部帖子

本帖最後由 t8899 於 2014-3-27 06:46 編輯

從程式看不出來 ScrollBar 與哪個儲存格有連動,
這裡假設它的 LinkedCell 值為 M2. (即其值與 Range("M2 ...
luhpro 發表於 2014-3-27 02:54

我想要的...........
H1儲存格===> 一開始點擊 ScrollBar 的上下鈕為100(h1的值等於m2) 滑動拉捍應在中間
，往左盡頭為95, 往右盡頭為105 (附檔)

Book2.rar (6.55 KB)
點擊其他儲存格後，h1的值又回到m2的值,拉捍回到中間

帖子: 766
主題: 256
精華: 0
積分: 1035
點名: 0
作業系統: windows 11
軟體版本: OFFICE2021
閱讀權限: 50
性別: 男
註冊時間: 2011-5-30
最後登錄: 2026-10-2

4^#

發表於 2014-3-28 07:15 | 顯示全部帖子

這是因為你的程式中是用 Private Sub Worksheet_Change()
但實際上應該要長這樣: Private Sub Worksheet ...
luhpro 發表於 2014-3-27 23:02

剛點左右 h1 會等於 m2 ,但增減值+-5 沒作用??

Book2.rar (8.66 KB)

帖子: 766
主題: 256
精華: 0
積分: 1035
點名: 0
作業系統: windows 11
軟體版本: OFFICE2021
閱讀權限: 50
性別: 男
註冊時間: 2011-5-30
最後登錄: 2026-10-2

5^#

發表於 2014-4-9 05:52 | 顯示全部帖子

看不懂你的意思.
.Max = .Parent.[H1] + 5
.Min = .Parent.[H1] - 5
就是在變增減值的啊.

或許妳還 ...
luhpro 發表於 2014-4-8 21:36

謝謝，我的問題已解決是要用GotFocus
Private Sub ComboBox1_Click()
[h1].Value = Sheet1.ComboBox1.Text
End Sub
Private Sub ComboBox1_GotFocus()
Sheet1.Range("H1").Value = Sheet1.Range("M2").Value
ComboBox1.List = Sheet1.Range("y30:y38").Value
End Sub