返回列表 上一主題 發帖

[發問] 表單卷軸與工作表捲軸

回復 1# shadowming
  1. Private Sub ScrollBar1_Change()
  2. With ScrollBar1
  3.    .Max = 1000
  4.    .Min = 1
  5.    [A1] = .Value
  6. End With
  7. End Sub
複製代碼
學海無涯_不恥下問

TOP

回復 3# shadowming
  1. Private Sub ScrollBar1_Change()
  2. With ScrollBar1
  3.    .Max = 1000
  4.    .Min = 1
  5.    Sheet1.[A1] = .Value
  6. End With
  7. End Sub
複製代碼
學海無涯_不恥下問

TOP

        靜思自在 : 對父母要知恩,感恩、報恩。
返回列表 上一主題