用vba给Excel单元格赋值

Posted 2023-05-01

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

参考技术A

1.打开Excel 2010。

2.点击开发工具-宏。

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

4.复制以下语句。

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

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

粘贴到下图光标处。

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

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

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

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

参考技术B 你的意思是定义一个区域，然后把这个区域当作一个表，并对该区域的某一个单元格赋值吧！没看懂你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 参考技术C 参考这个例子吧
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 参考技术D Selection(1, 1) = "aaa"
调试已通过本回答被提问者采纳

怎么用vba在excel中统计每列有多少行数

A列最底端有数据的单元格
[a65536].end(xlup).row

如果是统计每列有多少非空单元格
就要调用COUNTA函数方便些
WorksheetFunction.CountA (Range("A:A")) 参考技术A 在vba中调用counta函数统计 参考技术B 用do ... while 语句
例如统计A列用的行数：
n=1
do while range("A"&n)<>""
HangShu=n
n=n+1
loop