各位IT大神們不好意思，雷包小弟我又來發問了，上次清單問題解決後，小弟我又遇到新的問題，EXCEL介面找半天，找不到可以為儲存格添加滾動軸的功能，所以小弟我嘗試用 ActiveX 控制項中的 卷軸(SpinButton1) ，

但針對單一儲存格不知道該怎寫，如圖，

假設格內有1~10的數字，但欄高不夠只顯示五個，該如何撰寫

小弟去網路查 ，有找到對多行的寫法，但不是我要的

Private Sub SpinButton1_Change()
''操作1~10行。
Sheet1.Rows("1:10").EntireRow.Hidden = False
Select Case SpinButton1.Value
Case 0 ''后8行
Sheet1.Rows("1:2").EntireRow.Hidden = True
Case 1 ''中间8行
Sheet1.Rows("1:1").EntireRow.Hidden = True
Sheet1.Rows("10:10").EntireRow.Hidden = True
Case 2 ''前8行
Sheet1.Rows("9:10").EntireRow.Hidden = True
End Select
End Sub

我想法是說 能否先找出儲存格內的換行符，如下

Sheets(1).Activate
Set Rng = Sheets("Sheets(1)").Range("A1").Find("char(10)", LookAT:=xlWhole)

然後使用上面的 FOR 迴圈，如果有現成代碼就最好了 orz