Question

我对VBA还不熟悉，仍然在寻找代码！

我想在IF语句中创建 Vlookup 。我想首先检查制造商（单元格B11），然后使用所选设备（单元格C11）在单独的选项卡上查找范围（＆＃34;列表＆＃34;，范围O3：Q11）并将 $ value（Cell P3）复制/粘贴到新单元格中的初始选项卡（单元格L11）。正如我所说，我对VBA还不熟悉，但这里有一些我试过的代码：

Sub ServiceCosts()

Dim SamsungServ As Range
Dim Manufacturer As Range
Dim Device As Range
Dim MonoSamService As String

Set SamsungServ = Sheets("List").Range("O3:Q11")
Set Manufacturer = Range("B11")
Set Device = Range("C11")

If Manufacturer = "Samsung" Then
MonoSamService = Application.WorksheetFunction.VLookup(Device, SamsungServ, 2, False)
ActiveCell.Copy
Sheets("Finance Calculations").Range("L11").Select
ActiveCell.PasteSpecial Paste:=xlPasteValues


Else
MsgBox "Please Select Device"

End If

End Sub

任何帮助都将非常感谢!!!

由于

Answer 1

在我看来，您认为MonoSamService是“ActiveCell”。除非你明确告诉它，否则它不会成功。

相反，我会做类似的事情：

MonoSamService = Application.WorksheetFunction.VLookup（Device，SamsungServ，2，False）表（＆＃34;财务计算＆＃34;）。范围（＆＃34; L11＆＃34;）。值= MonoSamService

IE中。将财务计算中的单元格值设置为您从vlookup中获取的值。

Vlookup与复制/粘贴 - VBA

1 个答案: