Excel 我有一个带有燃料下拉菜单的组合框。我需要它,以便选择一个燃料从一张纸上复制数据并粘贴到另一张纸上

Excel 我有一个带有燃料下拉菜单的组合框。我需要它,以便选择一个燃料从一张纸上复制数据并粘贴到另一张纸上,excel,vba,Excel,Vba,组合框选项是字符串,如“E10:10%乙醇”。通过输入特定字符串,程序将从生物燃料表中检索数据,并将其粘贴到结果表中,其中包含来自不同燃料类型的各种数据 这将运行良好: 'Copy Results to summary page for Comparisons (and formatting) 'Cost Sheets("Biofuel LDPV").Select Range("G11").C

组合框选项是字符串,如“E10:10%乙醇”。通过输入特定字符串,程序将从生物燃料表中检索数据,并将其粘贴到结果表中,其中包含来自不同燃料类型的各种数据

这将运行良好:

        '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

你可能会从阅读中受益。