Excel 将下拉列表中列出的项目数设置为变量

Excel 将下拉列表中列出的项目数设置为变量,excel,vba,Excel,Vba,当前,项目导出为PDF时会显示一条消息。希望从下拉列表中获取项目总数,以表示的x值(导出x的y)。当前有一个固定值 Const SAVE_PATH = "C:\SC\" Sub SCtoPDF() Dim inputRange As Range Dim cell As Range Set inputRange = Evaluate(Range("G11").Validation.Formula1) For Each cell In inputRange

当前,项目导出为PDF时会显示一条消息。希望从下拉列表中获取项目总数,以表示的x值(导出x的y)。当前有一个固定值

Const SAVE_PATH = "C:\SC\"

Sub SCtoPDF()
    Dim inputRange As Range
    Dim cell As Range

    Set inputRange = Evaluate(Range("G11").Validation.Formula1)

    For Each cell In inputRange
        If cell.Value <> "" Then
            counter = counter + 1
            Application.StatusBar = "Exporting Scorecard: " & counter & " of " & "32"

            [G11] = cell.Value
            ActiveSheet.Calculate
            ActiveSheet.ExportAsFixedFormat _
                Type:=xlTypePDF, _
                Filename:=SAVE_PATH & cell.Value, _
                Quality:=xlQualityStandard, _
                IncludeDocProperties:=True, _
                IgnorePrintAreas:=False, _
                OpenAfterPublish:=False
        End If
    Next cell
End Sub
Const SAVE\u PATH=“C:\SC\”
子SCtoPDF()
Dim inputRange As范围
暗淡单元格作为范围
设置输入范围=评估(范围(“G11”)。验证。公式1)
对于输入范围中的每个单元格
如果单元格的.Value为“”,则
计数器=计数器+1
Application.StatusBar=“导出记分卡:&”计数器&“of”和“32”
[G11]=单元格值
活动表。计算
ActiveSheet.ExportAsFixedFormat_
类型:=xlTypePDF_
Filename:=保存路径和单元格.Value_
质量:=xlQualityStandard_
IncludeDocProperties:=True_
IgnorePrintAreas:=假_
OpenAfterPublish:=False
如果结束
下一个细胞
端接头

假设没有验证列表行为空:

inputRange.Rows.Count

假设没有验证列表行为空:

inputRange.Rows.Count

什么下拉列表?哪里?G11的内容是什么?什么下拉列表?哪里?G11的内容是什么?