Excel 我有一个带有燃料下拉菜单的组合框。我需要它,以便选择一个燃料从一张纸上复制数据并粘贴到另一张纸上
组合框选项是字符串,如“E10:10%乙醇”。通过输入特定字符串,程序将从生物燃料表中检索数据,并将其粘贴到结果表中,其中包含来自不同燃料类型的各种数据 这将运行良好:Excel 我有一个带有燃料下拉菜单的组合框。我需要它,以便选择一个燃料从一张纸上复制数据并粘贴到另一张纸上,excel,vba,Excel,Vba,组合框选项是字符串,如“E10:10%乙醇”。通过输入特定字符串,程序将从生物燃料表中检索数据,并将其粘贴到结果表中,其中包含来自不同燃料类型的各种数据 这将运行良好: 'Copy Results to summary page for Comparisons (and formatting) 'Cost Sheets("Biofuel LDPV").Select Range("G11").C
'Copy Results to summary page for Comparisons (and formatting)
'Cost
Sheets("Biofuel LDPV").Select
Range("G11").Copy
Sheets("LDPV").Select
Range("J5").PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
End With
这将在不抛出错误的情况下运行,但不会执行我需要它执行的操作:
If ComboBox1.Value = "E10: 10% Ethanol" Then
'Copy Results to summary page for Comparisons (and formatting)
'Cost
Sheets("Biofuel LDPV").Select
Range("G11").Copy
Sheets("LDPV").Select
Range("J5").PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
End With
ElseIf ComboBox1 = "E15: 10-15% Ethanol" Then
'Copy Results to summary page for Comparisons (and formatting)
'Cost
Sheets("Biofuel LDPV").Select
Range("G12").Copy
Sheets("LDPV").Select
Range("J5").PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
End With
End if
你可能会从阅读中受益。