自定义函数，参数怎么引用用户选择的区域？

yellow777 · 发表于 2024-1-8 09:18

自定义函数，参数怎么引用用户选择的区域？，想再加一个参数让用户自己选择查找区域Range(Cells(1, 1), Cells(20, 7))，包括跨工作表的区域选择，如Sheet2!A1:G27，怎么搞？谢谢！有附件

Function whcfind(ByVal T_range As Range)

  Dim what As String
  what = T_range.Value
Set rng = ActiveSheet.Range(Cells(1, 1), Cells(20, 7)).Find(what, LookAt:=xlWhole)

  whcfind = Cells(rng.Row, 1).Value

End Function

tanglf188 · 发表于 2024-1-8 09:23

Set myCell = Application.InputBox(prompt:="选择一个单元格", Title:="选择", Type:=8)

半百 · 发表于 2024-1-8 09:30

yellow777 · 发表于 2024-1-8 09:37

好吧，晕了，写好了，忘改函数名称了。。。

yellow777 · 发表于 2024-1-8 09:41

Sheet3!A1:E20，MsgBox B_range.Address显示出来的是A1:E20，哪个属性能把Sheet3!A1:E20，引用出来呢？

yjh_27 · 发表于 2024-1-8 11:51

yellow777 发表于 2024-1-8 09:41
Sheet3!A1:E20，MsgBox B_range.Address显示出来的是A1:E20，哪个属性能把Sheet3!A1:E20，引用出来呢？

MsgBox B_range.Worksheet.Name & "!" & B_range.Address

半百 · 发表于 2024-1-8 12:58

yellow777 发表于 2024-1-8 09:41
Sheet3!A1:E20，MsgBox B_range.Address显示出来的是A1:E20，哪个属性能把Sheet3!A1:E20，引用出来呢？

？

yellow777 · 发表于 2024-1-8 14:55

这个我也试了，能够显示出来值，放到查找区域里不能使用，有时间，看看附件，能给做一下不？

yellow777 · 发表于 2024-1-9 08:24

yellow777 发表于 2024-1-8 09:41
Sheet3!A1:E20，MsgBox B_range.Address显示出来的是A1:E20，哪个属性能把Sheet3!A1:E20，引用出来呢？

MsgBox B_range.Worksheet.Name & "!" & B_range.Address

选择的区域可能会跨表，不一定是在一个表里

		自动登录	找回密码
密码			免费注册