Warning: file_get_contents(/data/phpspider/zhask/data//catemap/0/vba/14.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181

Warning: file_get_contents(/data/phpspider/zhask/data//catemap/5/excel/24.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Excel VBA Vlookup,其中用户选择哪些单元格_Vba_Excel - Fatal编程技术网

Excel VBA Vlookup,其中用户选择哪些单元格

Excel VBA Vlookup,其中用户选择哪些单元格,vba,excel,Vba,Excel,我正在创建一个宏,以便在同一工作簿中的两个不同工作表之间进行vlookup,但有时单元格的布局会发生变化,因此我希望能够添加一个对话框,允许用户选择他们要查找的内容和要比较的列表,但不确定如何进行比较 这是我迄今为止的代码: ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-59],ONCE!C[-49],1,0)" Range("BI2").Select Selection.AutoFill Destination:=Range("BI2:BI208032")

我正在创建一个宏,以便在同一工作簿中的两个不同工作表之间进行vlookup,但有时单元格的布局会发生变化,因此我希望能够添加一个对话框,允许用户选择他们要查找的内容和要比较的列表,但不确定如何进行比较

这是我迄今为止的代码:

ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-59],ONCE!C[-49],1,0)" 
Range("BI2").Select 
Selection.AutoFill Destination:=Range("BI2:BI208032") 
Range("BI2:BI208032").Select 
Selection.Copy 
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False

提前感谢

您可以像这样使用InputBox:

myValue = InputBox("Give me some input")

欢迎来到SO!查看您的宏Pferd676可能很有用!事先警告一下,我是个彻头彻尾的傻瓜,所以我的宏可能是垃圾,我不知道。ActiveCell.FormulaR1C1=“=VLOOKUP(RC[-59],ONCE!C[-49],1,0)”范围(“BI2”)。选择选择。自动填充目标:=Range(“BI2:BI208032”)范围(“BI2:BI208032”)。选择。复制选择。粘贴特殊粘贴:=xlPasteValues,操作:=xlNone,SkipBlanks:=False,转置:=False复制和粘贴:)在“myValue”中您将得到用户的答案。非常感谢。您知道是否有可能获得向导使用的框吗?不,我不知道。没问题。不完全是我想要的,但是在正确的方向上的一个步骤您正在寻找的控件被称为RefEdit。有关更多信息,请参阅前一页。使用RefEdit比@duDe的方法更复杂。