已知行和列如何构造一个Cell对象在VBA里面调用呢。
比如(0, 2), 得到$C
这个对象，然后我可以用，比如修改里面的值，或者对其进行判断什么的 比如(0, 2),&nbs
比如(0, 2), 得到$C
已知行和列如何构造一个Cell对象在VBA里面调用呢。
比如(0, 2), 得到$C$1这个对象，然后我可以用，比如修改里面的值，或者对其进行判断什么的
A B C
1
2
3
比如(0, 2), 得到$C$1这个对象，然后我可以用，比如修改里面的值，或者对其进行判断什么的
A B C
1
2
3
6 个解决方案
#1
Dim objBook As Workbook
Dim objSheet As Worksheet
...
Set objSheet = objBook.Worksheets("Sheet1")
objSheet.Range("C1") = "修改的值"
...
搞定 :)
Dim objSheet As Worksheet
...
Set objSheet = objBook.Worksheets("Sheet1")
objSheet.Range("C1") = "修改的值"
...
搞定 :)
#2
C1:
Cells(1, 3)
Cells(1, 3)
#3
表格的单元格表示方法：Sheet.Cells(i,j)，i---行号，j---列号
如：Sheets("Sheet1").Cells(10,10)表示sheet1表格的第10行10列交叉的单元格。
可以直接赋值或取值
dim w1 as string
w1=cells(2,4)
w1=cells(2,4).value
w1=cells(2,4).text
cells(2,4)="www"
cells(2,4).value="www"
cells(2,4)=6
注意：如果代码属于当前表格，可以直接使用Cells(i,j)，如果代码在模块里，则在Cells前面应该加上定语Sheet，表明属于哪一个表格。
如：Sheets("sheet1").Cells(i,j)
... ...
如：Sheets("Sheet1").Cells(10,10)表示sheet1表格的第10行10列交叉的单元格。
可以直接赋值或取值
dim w1 as string
w1=cells(2,4)
w1=cells(2,4).value
w1=cells(2,4).text
cells(2,4)="www"
cells(2,4).value="www"
cells(2,4)=6
注意：如果代码属于当前表格，可以直接使用Cells(i,j)，如果代码在模块里，则在Cells前面应该加上定语Sheet，表明属于哪一个表格。
如：Sheets("sheet1").Cells(i,j)
... ...
#4
A!F4，如果要把A参数化怎么弄？
Range(strSheetName"!F4, "strSheetName"!F7").Select
好像编译不过。
Range(strSheetName"!F4, "strSheetName"!F7").Select
好像编译不过。
#5
Range(strSheetName & "!F4, " & strSheetName & "!F7").Select
#6
在VBA中完全不需要用到
.select
这个东东
试试这个形式:
worksheets(strSheetName).cells(i,j).方法(或属性)名
.select
这个东东
试试这个形式:
worksheets(strSheetName).cells(i,j).方法(或属性)名
这个对象，然后我可以用，比如修改里面的值，或者对其进行判断什么的 比如(0, 2),&nbs
