提取表格内单元格函数和条件格式至VBA并运行检测VBA代码是否有效

这个任务有两个部分：提取表格内单元格函数和条件格式至VBA，以及检测VBA代码是否有效。我分别来回答。

提取表格内单元格函数和条件格式至VBA：

1. 首先需要打开Visual Basic Editor，这可以通过按下Alt + F11来实现。

2. 在VB Editor中，找到该工作簿的VBAProject并展开它。在其中找到该工作表的代码模块。

3. 在代码模块中添加一个新的函数，用于提取表格内单元格函数和条件格式。以下是一个示例函数：

Sub ExtractFormulasAndFormats()
    Dim rng As Range
    Dim formulaString As String
    Dim formatString As String
    Dim i As Long, j As Long
    
    '设置检查范围
    Set rng = ActiveSheet.UsedRange
    
    '迭代每个单元格
    For i = 1 To rng.Rows.Count
        For j = 1 To rng.Columns.Count
            '提取公式串
            If Not rng.Cells(i, j).HasFormula Then
                formulaString = ""
            Else
                formulaString = rng.Cells(i, j).Formula
            End If
            
            '提取条件格式
            If rng.Cells(i, j).FormatConditions.Count = 0 Then
                formatString = ""
            Else
                formatString = rng.Cells(i, j).FormatConditions.Formula1
            End If
            
            '将提取的信息添加到新建的代码模块中
            With ThisWorkbook.VBProject.VBComponents("Sheet1").CodeModule
                .InsertLines .CountOfLines + 1, "Range(""" & rng.Cells(i, j).Address & """).Formula = """ & formulaString & """"
                .InsertLines .CountOfLines + 1, "Range(""" & rng.Cells(i, j).Address & """).FormatConditions.Formula1 = """ & formatString & """"
            End With
        Next j
    Next i
End Sub

4. 运行这个函数，它将在代码模块中创建一些新的行，这些行会包含提取的函数和条件格式信息。

检测VBA代码是否有效：

1. 在VB Editor中，找到该工作簿的VBAProject并展开它。在其中找到该工作表的代码模块。

2. 在代码模块中添加一个新的函数，用于检测代码的有效性。以下是一个示例函数：

Sub CheckVBACode()
    Dim compiled As Boolean
    
    '尝试编译代码，如果成功，则代码有效
    compiled = False
    On Error Resume Next
    ThisWorkbook.VBProject.VBComponents("Sheet1").CodeModule.CheckSyntax
    If Err.Number = 0 Then
        compiled = True
    End If
    On Error GoTo 0
    
    '显示结果
    If compiled Then
        MsgBox "VBA代码有效。"
    Else
        MsgBox "VBA代码无效。"
    End If
End Sub

3. 运行这个函数，它将检测代码的有效性并显示结果。