当每个单元格填充时，从XLS文件自动生成PDF

Question

我从VBA代码开始，想从XLS文件生成PDF。 此XLS文件是每天的一周时间表，每天填写0或1填充：

D1	D2	D2 D3	D4	总	验证	预期
1	0	1	1	4	4	OK

，然后我计算总和并与预期的总和进行比较。如果是相等的，那么列验证还可以，否则是KO。

最后，我想从该文件中生成一个PDF，当用户每天填充用户（D1，..，D4），然后计算validate列和pdf中的导出文件，如果是“确定”，

我可以暂时尝试此操作：

    Sub generate_PDF_()
    '
    ' generate_PDF_ Macro
    '
    
    Dim saveLocation As String
    saveLocation = "path/to/savefolder"
    
    Range("AG2").Select
    ActiveCell.FormulaR1C1 = "=SUM((RC[-31]:RC[-1]))"
    Range("AI2").Select
    ActiveCell.FormulaR1C1 = "=IF(RC[-2]=RC[-1],""OK"",""KO"")"
    
    If Range("AI2").Select = 'OK' Then
        .ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:=saveLocation & "/attendance_sheet" & .ActiveSheet.Name & ".pdf"
        
End If
    
    End Sub

谢谢提前为您的帮助

Answer 1

如果范围（“ ai2”）。选择='ok'，那么 - 这将无法按照您的想法和使用“确定”而不是'ok'而不是

使用worksheet_change事件来控制该值。 （您只能在工作表模块中使用它）

    Private Sub Worksheet_Change(ByVal Target As Range)
         If Not (Intersect(Target, Range("AI2")) Is Nothing) Then
             If Target.Value2="OK" Then 
                  ... ' add your code
             End if
         End if
    End Sub

.ActiveSheet而无需“使用应用程序...结尾”构造将为您带来错误。使用Application.ActiveSheet

没有理由使用range.select方法。而不是：

    Range("AG2").Select
    ActiveCell.FormulaR1C1 = "=SUM((RC[-31]:RC[-1]))"

使用：

    Range("AG2").FormulaR1C1 = "=SUM((RC[-31]:RC[-1]))"