[發問] scrollbar 的問題

帖子: 835
主題: 6
精華: 0
積分: 915
點名: 14
作業系統: Win 10,7
軟體版本: 2019,2013,2003
閱讀權限: 50
性別: 男
註冊時間: 2010-5-3
最後登錄: 2024-11-6

2^#

發表於 2014-3-25 22:32 | 只看該作者

本帖最後由 luhpro 於 2014-3-25 22:35 編輯

Private Sub ScrollBar1_Change()
With ScrollBar1
Sheets("sheet1").Range("H1").Value = Sheets("sheet ...
t8899 發表於 2014-3-25 14:32

你的程式放錯地方了.

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

在程式跑到 Range H1 = M1 之後,
接著就依據 H1 的值去設定 ScrollBar 的最大值與最小值.

ScrollBar1_Change這個程序
一般是用在當程式去變更或 User 用滑鼠去點選 ScrollBar,
進而造成其值異動時使用.

帖子: 759
主題: 249
精華: 0
積分: 1021
點名: 0
作業系統: windows 11
軟體版本: OFFICE2021
閱讀權限: 50
性別: 男
註冊時間: 2011-5-30
最後登錄: 2024-11-12

3^#

發表於 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

帖子: 835
主題: 6
精華: 0
積分: 915
點名: 14
作業系統: Win 10,7
軟體版本: 2019,2013,2003
閱讀權限: 50
性別: 男
註冊時間: 2010-5-3
最後登錄: 2024-11-6

4^#

發表於 2014-3-27 02:54 | 只看該作者

事件程序宣告與同名事件描述不相符??
Private Sub ScrollBar1_Change()
Sheets("sheet1").Range("H1" ...
t8899 發表於 2014-3-26 06:57

從程式看不出來 ScrollBar 與哪個儲存格有連動,
這裡假設它的 LinkedCell 值為 M2. (即其值與 Range("M2") 連動)

那麼建議你把 Worksheet_Change 裡的 Sheets("sheet1").Range("H1") = .Value 拿掉, (ScrollBar1_Change 已經有達成此目的了)
這樣點擊 ScrollBar 的上下鈕,
M2 與 H1 都會跟著連動,
ScrollBar 的 Max 與 Min 兩個值也會跟著變動,
不過這樣看起來怪怪的. (感覺這樣的程式動作可能不是你想要的)

建議你把需求詳細描述一下,
或是提供相關程式碼,
這樣做出來的程式較能符合你的需求.

帖子: 759
主題: 249
精華: 0
積分: 1021
點名: 0
作業系統: windows 11
軟體版本: OFFICE2021
閱讀權限: 50
性別: 男
註冊時間: 2011-5-30
最後登錄: 2024-11-12

5^#

發表於 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的值,拉捍回到中間

帖子: 835
主題: 6
精華: 0
積分: 915
點名: 14
作業系統: Win 10,7
軟體版本: 2019,2013,2003
閱讀權限: 50
性別: 男
註冊時間: 2010-5-3
最後登錄: 2024-11-6

6^#

發表於 2014-3-27 23:02 | 只看該作者

本帖最後由 luhpro 於 2014-3-27 23:04 編輯

事件程序宣告與同名事件描述不相符??
Private Sub ScrollBar1_Change()
Sheets("sheet1").Range("H1" ...
t8899 發表於 2014-3-26 06:57

這是因為你的程式中是用 Private Sub Worksheet_Change()
但實際上應該要長這樣: Private Sub Worksheet_Change(ByVal Target As Range)
這個事件最低限度必須要提供觸發變更事件的主體 :Target 這個物件以供程式運用,(不能直接清掉)
所以會發生這個錯誤.

我想要的...........
t8899 發表於 2014-3-27 06:42

H1儲存格===> 一開始點擊 ScrollBar 的上下鈕為100(h1的值等於m2) 滑動拉捍應在中間
，往左盡頭為95, 往右盡頭為105
點擊其他儲存格後，h1的值又回到m2的值,拉捍回到中間

看到 "點擊" 就要想到 SelectionChange (變更正被選擇<Activate>的儲存格)

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With Target
Select Case "R" & .Row & "C" & .Column
Case "R1C8" ' H1
.Offset(1, 5) = 100
.Value = .Offset(1, 5)
With .Parent.ScrollBar1
.Max = 105
.Min = 95
.Value = 100
End With
Case Else
With .Parent
.[H1] = .[M2]
With .ScrollBar1
.Max = .Parent.[H1] + 5
.Min = .Parent.[H1] - 5
.Value = .Parent.[H1]
End With
End With
End Select
End With
End Sub

複製代碼

至於其他的程序以上述的需求來看,
應該暫時還不需要用到.

帖子: 759
主題: 249
精華: 0
積分: 1021
點名: 0
作業系統: windows 11
軟體版本: OFFICE2021
閱讀權限: 50
性別: 男
註冊時間: 2011-5-30
最後登錄: 2024-11-12

7^#

發表於 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)

帖子: 835
主題: 6
精華: 0
積分: 915
點名: 14
作業系統: Win 10,7
軟體版本: 2019,2013,2003
閱讀權限: 50
性別: 男
註冊時間: 2010-5-3
最後登錄: 2024-11-6

8^#

發表於 2014-4-8 21:36 | 只看該作者

剛點左右 h1 會等於 m2 ,但增減值+-5 沒作用??
t8899 發表於 2014-3-28 07:15

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

或許妳還需要確認 ScrollBar 要與哪個儲存格做連結, (H1? 還是 M2?)
也就是說點了 ScrollBar 的左右鍵後,
哪個儲存格的內容要跟著變?
這點只要設定 ScrollBar 的 LinkedCell 屬性為該儲存格即可.

另外,因此使那個儲存格值變了後,
是否又有儲存格的內容要跟著變?

帖子: 759
主題: 249
精華: 0
積分: 1021
點名: 0
作業系統: windows 11
軟體版本: OFFICE2021
閱讀權限: 50
性別: 男
註冊時間: 2011-5-30
最後登錄: 2024-11-12

9^#

發表於 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