用vba给Excel单元格赋值

显示全部楼层 · 2019-5-6 08:45:37

Public Function ChengXU(Byval myRange As Range)

myRange.Cells(1,1)="hhhhhhhhhh"

myRange.Cells(1,1).value="hhhhhhhhhh"
以上两条语句都运行不了，其中myRange为一个单元格区域，请问怎样才能给我所选的区域中的一个单元格赋值呢？

千问 · 2019-5-6 08:45:37

材料/工具：Excel20101、打开一个Excel的文件，鼠标左键单击【开发工具】菜单标签。2、接着，在表格中输入简单的表格，比如水果表格。3、然后在VBA控件下拉菜单中，选择按钮控件。4、接着在表格中绘制出按钮控件，并修改控件名称。5、然后，鼠标左键单击【查看代码】按钮。6、接着，在代码窗口中输入给单元格的赋值语句。7、最后在设计窗口上，鼠标左键单击按钮，可以看到表格中的单元格中自动显示出数据了7

千问 · 2019-5-6 08:45:37

1.打开Excel 2010。2.点击开发工具-宏。3.命名-然后点击创建。4.复制以下语句。Sheet1.Name = "对sheet1表名赋值"。Sheet1.Range("a1"8

千问 · 2019-5-6 08:45:37

你的意思是定义一个区域，然后把这个区域当作一个表，并对该区域的某一个单元格赋值吧！没看懂你myRange中赋了什么区域。dim myrange as rangesub mac()Set myrange = Range("B2, E6")ChengXUend subPublic Function ChengXU()myran

千问 · 2019-5-6 08:45:37

参考这个例子吧Public Sub ChengXU()Dim myRange As RangeDim i As IntegerDim j As IntegerSet myRange = Range("A1: F2")i = myRange.CountLargeFor j = 1 To i
myRange(j).V

千问 · 2019-5-6 08:45:37

Selection(1, 1) = "aaa"调试已通过