Excel 2010 F2-マクロの入力ボタン

Question

グリッドセルを横切って特定の色の塗りつぶしを含む2つの列を持つグラフがあります。

特定のセルにマクロボタンを作成して、ボタンをクリックして列が自動的に更新されるようにしたいと考えています（= CountCellsByColor（##：##、＃））。現在のところ、F2キーを押しながらEnterキーを押すと、これを行うことができますが、これで問題は解決します。

これは私が持っているもので、開発者タブからコマンドボタンを作成しました。ボタン）;次にVBA画面で、次のコード、私はボタンをクリックした後にポップアップする使用制限のエラーを取得する

Sub RefreshCells() 
Dim r As Range, rr As Range 
Set rr = Selection 
For Each r In rr 
    r.Select 
    Application.SendKeys "{F2}" 
    Application.SendKeys "{ENTER}" 
    DoEvents 
Next 
End Sub 

、それは一度動作しますが、目次に、残りのセルを編集からロックします。私は、シートのユーザーが単純に特定のセルをクリックして色を変えることを可能にする、シート上で実行されているいくつかのVBAコードを持っています。

Answer 1

私はこれをあまりにも複雑にしていました！

開発者タブの下で、「マクロを記録」を押すとF2キーを押してから「レコードを停止」し、その機能を保存します。次に、開発者タブの下にButtonを作成し、そのマクロに割り当てました。

Sub Macro5() 
' 
' Macro5 Macro 
' 

' 
    Range("D33:D34").Select 
    ActiveCell.FormulaR1C1 = "" 
    Range("D35").Select 
End Sub 

おそらく正しいとは言えませんが、F2 + Enterキーを押すと、セルをクリックすると同じ効果があるようです。自動カウントが完璧でなく、エラーもバグもない列はありません！