Excel 2010 F2-输入宏按钮

时间:2016-08-06 17:03:26

标签: excel vba excel-vba

我有一个包含两列的图表,这些列在网格单元格中水平计数并具有特定的颜色填充。 (= CountCellsByColor(##:##,#)每列有24行。

我现在想在特定单元格中创建一个宏按钮,以便用户可以单击该按钮,列将自动更新。目前这是通过点击一个单元格,按F2然后按Enter完成的,这很好但是如果我可以让它变得更简单。

这就是我所拥有的,我从Developer选项卡(Insert,Button)创建了一个commandButton;然后在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代码,允许工作表的用户只需单击某些单元格即可将其变为不同的颜色。

1 个答案:

答案 0 :(得分:0)

我让这太复杂了!如果我可以尝试回答我自己的问题,我就是这样做的,

在Developer选项卡下,我点击Record Macro然后点击F2 Enter,然后点击Stop Record并保存该功能。然后我在开发人员选项卡下创建了一个Button,并为其分配了该宏。

Sub Macro5()
'
' Macro5 Macro
'

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

它可能不对,但它似乎具有相同的效果,点击进入一个单元格,点击F2 + Enter。没有完全自动计数更新的列,没有错误,没有错误!