[VBA程序]：VBA怎样获得excel的当前单元cell呢？

liuhexiang · 发表于 2006-2-10 22:04:47

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

我在excel里随便用鼠标定了一个单元格，怎样用VBA获得呢？（在不知道行列号及当前sheet名称的情况下）

还有，我构造了一个选择集，选中CAD的单行文字，VBA如何能编辑该文字，不是改变该文字属性，比如颜色等（这个我会了），我是想改变该选中的文字，比如由原来为”12“，改为”58“

雪山飞狐(lzh) · 发表于 2006-2-11 11:04:20

1、你可以看看Excel附带的vba帮助
2、改变对象的textstring属性

liuhexiang · 发表于 2006-2-11 12:48:51

我的程序如下，但不行有错误，该如何修改？还有如何获得当前单元的行号和列号？谢谢！

Public Sub kk()

Dim Excel As Excel.Application
Dim ExcelSheet As Object
Dim ExcelWorkbook As Object
Set Excel = GetObject(, "Excel.Application")
Set ExcelSheet = Excel.Worksheets("sheet1")
MsgBox "The name of the active sheet is " & Excel.ActiveSheet.name
MsgBox Excel.ActiveSheet.name.ActiveCell.Value
‘或者是MsgBox Excel.ActiveSheet.ActiveCell.Value

End sub

雪山飞狐(lzh) · 发表于 2006-2-11 13:17:49

MsgBox Excel.ActiveCell.Value

雪山飞狐(lzh) · 发表于 2006-2-11 13:21:17

上传Excel的VBA帮助文件

雪山飞狐(lzh) · 发表于 2006-2-11 13:21:50

雪山飞狐(lzh) · 发表于 2006-2-11 13:22:53

雪山飞狐(lzh) · 发表于 2006-2-11 13:23:46

yunzhong80 · 发表于 2006-2-11 16:37:58

Public Sub test()
Dim Excel As Excel.Application
Dim ExcelSheet As Object
Dim ExcelWorkbook As Object
Set Excel = GetObject(, "Excel.Application")

MsgBox Excel.ActiveCell.Row & ":" & Excel.ActiveCell.Column
End Sub

账号		自动登录	找回密码
密码			立即注册

[VBA程序]：VBA怎样获得excel的当前单元cell呢？

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子