我试图搜索此问题，但没有发现类似问题。
我仍然是VBA的新手，我正在尝试创建一个宏，该宏根据用户的输入选择单元格的范围，然后从这些选定的单元格中创建轮廓网格。
我的Excel工作簿中有两个ActiveX按钮，用户可以使用它们输入要使用的网格大小（宽度和高度）。我正在努力将上述宽度和高度包含在我的代码中。这是按钮的代码（一点都不不清楚）：
Private Sub Height_Click()
Dim Height As Integer
Height = InputBox("Syötä ruudukon korkeus", "Ruudukon korkeus", "Syötä tähän")
Range("E5") = Height
End Sub
和宽度按钮：
Private Sub Width_Click()
Dim Width As Integer
Width = InputBox("Syötä ruudukon leveys", "Ruudukon leveys", "Syötä tähän")
Range("E2") = Width
End Sub
我希望我的网格从单元格“ G2”开始，并从那里向右和向下展开，并更改所选单元格的大小。但是我写的代码根本不起作用（正如我所想）。这是代码：
Private Sub CreateGrid_Click()
Columns("G:G+E2").Select
Selection.ColumnWidth = 1
Rows("2:2+E5").Select
Selection.RowHeight = 1
End Sub
单元格“ E2”和“ E5”分别打印有宽度和高度值。当我单击CreateGrid按钮时，没有任何反应。有什么想法可以使此代码起作用吗？非常感谢您提供所有答案。
-特木
编辑：
Private Sub CreateGrid_Click()
Range("G2:" & Range("G2").Offset(Range("E5").Value,Range("E2").Value).Addresslocal).Select
End Sub
如果这样做没有达到您的期望，请告诉我，我将尽力帮助纠正它。
本文收集自互联网，转载请注明来源。
如有侵权，请联系[email protected] 删除。
我来说两句