Question

用vba给Excel单元格赋值

Public Function ChengXU(Byval myRange As Range)
myRange.Cells(1,1)="hhhhhhhhhh"
myRange.Cells(1,1).value="hhhhhhhhhh"

以上两条语句都运行不了，其中myRange为一个单元格区域，请问怎样才能给我所选的区域中的一个单元格赋值呢？

Answer 1

材料/工具：Excel2010

1、打开一个Excel的文件，鼠标左键单击【开发工具】菜单标签。

2、接着，在表格中输入简单的表格，比如水果表格。

3、然后在VBA控件下拉菜单中，选择按钮控件。

4、接着在表格中绘制出按钮控件，并修改控件名称。

5、然后，鼠标左键单击【查看代码】按钮。

6、接着，在代码窗口中输入给单元格的赋值语句。

7、最后在设计窗口上，鼠标左键单击按钮，可以看到表格中的单元格中自动显示出数据了

Answer 2

1.打开Excel 2010。

2.点击开发工具-宏。

3.命名-然后点击创建。

4.复制以下语句。

Sheet1.Name = "对sheet1表名赋值"。

Sheet1.Range("a1") = "对sheet1的a1单元格赋值"。

粘贴到下图光标处。

5.了解语句含义，见图。

6.了解语句含义，见图。

7.改成自己需要赋的值，点击运行，然后返回excel表查看是否有所改变。

7.查看结果，可发现已赋值。

Answer 3

你的意思是定义一个区域，然后把这个区域当作一个表，并对该区域的某一个单元格赋值吧！没看懂你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

Answer 4

参考这个例子吧
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

Answer 5

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