Excel VBA Vlookup,其中用户选择哪些单元格
我正在创建一个宏,以便在同一工作簿中的两个不同工作表之间进行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")
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的方法更复杂。