输入框范围不用于查找功能

编程问答 2022-05-29

问题描述

Dim MyRange As Range
Dim FindStr As String

FindStr = "ABG Sec India BP PBT"

'Get Range address from the User to get the PBT Input from
On Error Resume Next
Set MyRange = Excel.Application.InputBox(Prompt:="Specify the PBT range e.g A5:M20 from NPV Sheet",_
            Title:="PBT Range",_
            Type:=8)


On Error GoTo 0

'copy the PBT Number from the next worksheet in My Range

For i = 1 To 7
    Range("d5").Offset(i,0) = Worksheets("NPV ").Range(MyRange).Find(what:=FindStr).Offset(0,i + 2)
Next i

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）

findinputboxvba