其實目前的電腦效能應該還足以負荷吧^^
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim KeyCol As Integer
If (ActiveCell.Row = 2 Or ActiveCell.Row = 3) And ActiveCell.Column < 51 Then
KeyCol = ActiveCell.Column
If ActiveCell.Row = 2 Then
Else
End If
Range(Cells(4, KeyCol), Cells(4, KeyCol)).Select
End If
End Sub
設51欄以內
選中2或3列時會做不同的兩件事
做完後選中該欄第4列，以避免不斷重做。(←非必要)
※ 引述《smartalex (alex)》之銘言：
: 標題: [算表] excel把巨集的功能放在儲存格上
: 時間: Tue Nov 15 23:14:43 2011
:
: 軟體: Office 2010 excel
:
: 版本: 2010
:
: 請問在excel中可以把巨集的功能放在儲存格內的文字上嗎 ?
:
: 小弟目前會用的巨集是最簡單的方式 (插入一個按鈕 再把先前錄製的巨集指定上去)
:
: 想換一種方式 不要另外新增按鈕
:
: 而是變成點一下儲存格中的文字就會自動執行巨集
:
: (有點像是超連結的意思 但不是連到某個網址 而是連到某個巨集 並且執行)
:
: 請問excel有辦法做到這樣的功能嗎 ?
:
: 謝謝
:
: --
: ※ 發信站: 批踢踢實業坊(ptt.cc)
: ◆ From: 59.115.8.39
: → unfinish:能做到儲存格資料異動時就自動執行巨集 不過似乎沒辦法指 11/16 00:26
: → unfinish:定任一儲存格 這樣一來資料一多時 會拖慢整個工作表的效 11/16 00:28
: → unfinish:率 因為只要一有變動就會去跑一次巨集 11/16 00:29
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 61.224.50.83