Excel 儲存格 、 VBA 和 滑鼠的應用

A2儲存格值= 500

B2儲存格值= 200

C2儲存格值= 100

能否寫一個VBA程式

當滑鼠移到A2時

A1儲存格顯示500

當滑鼠移到B2時

A1儲存格顯示200

當滑鼠移到C2時

A1儲存格顯示100

已更新項目:

移到的意思是 "經過"

不是點下左鍵

經過儲存格就算

謝謝

3 個解答

評分
  • 1 0 年前
    最佳解答

    這個使用下面的方法可以搞定

    Window.RangeFromPoint 方法傳回位於螢幕上指定座標位置的 Shape 或 Range 物件。如果指定座標位置上沒有任何圖案,則此方法將傳回 Nothing。

    請下載連結參考

    http://www.box.net/shared/9yr5ibpc0g

  • 1 0 年前

    "當滑鼠移到A2時" 是點選到 A2 ? 還是 On_Mouse_Over?

  • 小花
    Lv 5
    1 0 年前

    範例檔在http://www.funp.net/9114685

    打開活頁簿後,點選你要執行的工作表,按右鍵,選檢視程式碼

    貼上下列程式碼

    Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    Static mySum As Double

    If Target.Row = 2 And Target.Column = 1 Then [a1] = 500

    '點選A2則A1等於500,Target.Row = 2 表示第二欄Target.Column = 1表示第1欄,這行意思當目標儲存格為第2列,第1欄(也就是A2時)執行後面動作,讓A1等於500

    If Target.Row = 2 And Target.Column = 2 Then [a1] = 200

    If Target.Row = 2 And Target.Column = 3 Then [a1] = 100

    End Sub

還有問題?馬上發問,尋求解答。