Excel 将下拉列表中列出的项目数设置为变量
当前,项目导出为PDF时会显示一条消息。希望从下拉列表中获取项目总数,以表示的x值(导出x的y)。当前有一个固定值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
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的内容是什么?