返回列表 上一主題 發帖

[發問] 表單按鈕連續執行

[發問] 表單按鈕連續執行

我在表單按鈕中設定巨集
希望在滑鼠點擊按鈕未放開滑鼠時可以連續執行巨集直至開放滑鼠,請問要如何設定?
  1. Sub Left()
  2. shift = Range("A7").Value
  3.     ActiveSheet.Shapes("Group 2").Select
  4.     Selection.ShapeRange.IncrementLeft -shift * 75
  5. End Sub
複製代碼
偶而學習

        靜思自在 : 唯其尊重自己的人,才更勇於縮小自己。
返回列表 上一主題