Question

EXCEL中如何用VB选择单元格，用鼠标选择！！！

程序运行，跳出一个对话框，叫用鼠标选择要操作的单元格（单个单元格），选择后点确定，把选择的那个单元格值给变量！！！

Answer 1

可以使用Application.InputBox("", Type:=8)进行操作。

如下代码在选定单元格后将返回所选区域地址：

Sub RangsSel()
Dim myrange As Range
Set myrange = Application.InputBox("选择区域", Type:=8)
MsgBox myrange.Address
End Sub

Answer 2

这个可以

Sub 选择单元格传值()
Dim r As Range
Dim msg As String
msg = "请选择单元格或者输入数值"
Set r = Application.InputBox(msg, "提示", Type:=8)
r.Select
MsgBox r.Address
End Sub

Answer 3

Sub tttt()
Dim UserRange As Range
prompt = "Select a range for the random numbers."
Title = "Select a range"
On Error Resume Next
Set UserRange = Application.InputBox(prompt:=prompt, Title:=Title, Default:=ActiveCell.Address, Type:=8)
On Error GoTo 0
If UserRange Is Nothing Then
MsgBox "canceled."
Else
MsgBox UserRange.Address
End If
End Sub

追问

你这个我试过了，结果显示TT为空

Answer 4

再详细点 我把代码给你。
单元格值给哪个变量？是显示出来么？

追问

就是用鼠标选择一个单元格，然后把我选择的是那个单元格（比如我选择的是A1), 然后变量值AA="A1" 注意是=A1，并不是A1单元格的值

追答

变量值AA是存在excel里，还是显示出来，还是存哪的？

追问

这个不是很重，关键的是AA="A1"

追答

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim address As String
Dim ac As String
ac = ActiveCell.AddressLocal
MsgBox ac
End Sub
这个是自动弹出的绝对引用。

追问

怎么不能运行呢？找不到你这程序？而且你这个好像是显示在运行前已经选择的单元格，我是要在运行的时候叫用户选择单元格。

追答

Sub test()
Dim address As String
address = InputBox("请选择单元格")
ActiveSheet.Range(address).Select
MsgBox ActiveCell.address

End Sub

追问

程序运行后，用户都不能选择单元格了呀！而且我试了一下，你这个可以输入，但不能选择！而且我要的结果是如何知道用户选择了那个单元格，并不是单元格的值。

追答

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim address As String
MsgBox "您选择了" & ActiveCell.address
address = activecell.address '记录选择的单元格的地址 你可以处理

End Sub
你是不是要这个啊？ 需求不明确。
把上面代码站到VBE的各个sheet里面

追问

结果差不多，但我要的不是每次单击，而是在宏程序中运行，并且是叫用户选择单元格。然后显示选择的那个单元格，其实显示不是目的，而是要对程序运行后选择的单元格进行操作。所以让用户选择。要不然我不知道要操作那个单元格

追答

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim address As String
Dim i As Integer
i = MsgBox("请选择要操作的单元格", vbOKCancel)
If i = 1 Then

address = InputBox("请选择单元格")
MsgBox "您选择了" & address
Range(address).Activate
End If
End Sub