使单元格看起来像button

我正在尝试使Excel单元格看起来像button，而不实际插入button。

For Each myCell In Range(BoardSize) With myCell .Borders.LineStyle = xlContinuous .Borders.Weight = xlThick .Borders.Color = RGB(110, 110, 110) .Interior.Color = RGB(180, 180, 180) End With myCell.Borders(xlEdgeTop).Color = RGB(255, 255, 255) myCell.Borders(xlEdgeLeft).Color = RGB(255, 255, 255) Next myCell 

它适用于一个单元格：

但在一个很大的范围内，它看起来像这样：

我想要的是一些东西，而不使用实际的命令button，如：

Answer 1

 For Each mycell In Range(BoardSize) isblack = mycell.Row Mod 2 = 0 Xor mycell.Column Mod 2 = 0 With mycell .Borders.LineStyle = xlContinuous .Borders.Weight = xlThick .Borders.Color = RGB(110, 110, 110) .Interior.Color = RGB(180, 180, 180) End With If Not isblack Then mycell.Borders(xlEdgeTop).Color = RGB(255, 255, 255) mycell.Borders(xlEdgeLeft).Color = RGB(255, 255, 255) End If Next mycell 

另一个版本有一个小神器。 它滑行奇数行和奇数列

  Dim mycell As Range For Each mycell In Range(BoardSize) evenrow = mycell.Row Mod 2 = 0 evencol = mycell.Column Mod 2 = 0 isblack = evenrow Xor evencol With mycell .Borders.LineStyle = xlContinuous .Borders.Weight = xlThick .Borders.Color = RGB(110, 110, 110) .Interior.Color = RGB(180, 180, 180) End With If Not isblack Then mycell.Borders(xlEdgeTop).Color = RGB(255, 255, 255) mycell.Borders(xlEdgeLeft).Color = RGB(255, 255, 255) End If If evenrow Or evencol Then mycell.Borders.Color = RGB(180, 180, 180) If evencol And mycell.ColumnWidth <> 0.1 Then mycell.ColumnWidth = 0.1 Else mycell.ColumnWidth = 5 If evenrow And mycell.RowHeight <> 1 Then mycell.RowHeight = 1 Else mycell.RowHeight = 30 Next mycell