Public Function ChengXU(Byval myRange As Range)
myRange.Cells(1,1)="hhhhhhhhhh"
myRange.Cells(1,1).value="hhhhhhhhhh"
以上两条语句都运行不了，其中myRange为一个单元格区域，请问怎样才能给我所选的区域中的一个单元格赋值呢？
材料/工具：Excel2010
1、打开一个Excel的文件，鼠标左键单击【开发工具】菜单标签。
2、接着，在表格中输入简单的表格，比如水果表格。
3、然后在VBA控件下拉菜单中，选择按钮控件。
4、接着在表格中绘制出按钮控件，并修改控件名称。
5、然后，鼠标左键单击【查看代码】按钮。
6、接着，在代码窗口中输入给单元格的赋值语句。
7、最后在设计窗口上，鼠标左键单击按钮，可以看到表格中的单元格中自动显示出数据了
温馨提示：答案为网友推荐，仅供参考
第1个回答 推荐于2017-10-03
1.打开Excel 2010。
2.点击开发工具-宏。
3.命名-然后点击创建。
4.复制以下语句。
Sheet1.Name = "对sheet1表名赋值"。
Sheet1.Range("a1") = "对sheet1的a1单元格赋值"。
粘贴到下图光标处。
5.了解语句含义，见图。
6.了解语句含义，见图。
7.改成自己需要赋的值，点击运行，然后返回excel表查看是否有所改变。
7.查看结果，可发现已赋值。
第2个回答 2010-08-21
你的意思是定义一个区域，然后把这个区域当作一个表，并对该区域的某一个单元格赋值吧！没看懂你myRange中赋了什么区域。
dim myrange as range
sub mac()
Set myrange = Range("B2, E6")
ChengXU
end sub
Public Function ChengXU()
myrange.Cells(1, 3) = "hhh"
End Function '结果是第2行，第4列赋值hhh了
这个大概是你想要的，ChengXU中要执行myrange区域的某单元格赋值的话，建议你别加上(Byval myRange As Range),myrange的声明一定要是全局声明。否则就要这样。
Public Function ChengXU()
Set myrange = Range("B2, E6")
myrange.Cells(1, 3) = "hhh"
End Function
dim myrange as range
sub mac()
Set myrange = Range("B2, E6")
ChengXU
end sub
Public Function ChengXU()
myrange.Cells(1, 3) = "hhh"
End Function '结果是第2行，第4列赋值hhh了
这个大概是你想要的，ChengXU中要执行myrange区域的某单元格赋值的话，建议你别加上(Byval myRange As Range),myrange的声明一定要是全局声明。否则就要这样。
Public Function ChengXU()
Set myrange = Range("B2, E6")
myrange.Cells(1, 3) = "hhh"
End Function
第3个回答 2010-08-20
参考这个例子吧
Public Sub ChengXU()
Dim myRange As Range
Dim i As Integer
Dim j As Integer
Set myRange = Range("A1: F2")
i = myRange.CountLarge
For j = 1 To i
myRange(j).Value = j
Next j
End Sub
Public Sub ChengXU()
Dim myRange As Range
Dim i As Integer
Dim j As Integer
Set myRange = Range("A1: F2")
i = myRange.CountLarge
For j = 1 To i
myRange(j).Value = j
Next j
End Sub
第4个回答 推荐于2017-10-01
Selection(1, 1) = "aaa"
调试已通过本回答被提问者采纳
调试已通过本回答被提问者采纳
