Sub CondFormatDocumenter()
'adapted from data validation code posted by J.E. McGimpsey 2005-02-03
'http://www.mcgimpsey.com/excel/index.html
'Excel conditional formatting documentation
Dim sCF(0 To 2) As Variant
Dim rCF As Range
Dim rCell As Range
Dim iCF As Integer
Dim nFile As Long
Dim sC As String
Dim strCF As String
Dim strInteriorColor As String
Dim strFontColor As String
sC = vbTab
On Error Resume Next
Set rCF = Cells.SpecialCells(xlCellTypeAllFormatConditions)
On Error GoTo 0
If Not rCF Is Nothing Then
nFile = FreeFile
Open "test.txt" For Output As #nFile
For Each rCell In rCF
iCF = rCell.FormatConditions.Count
For iCF = 1 To iCF
With rCell.FormatConditions(iCF)
sCF(0) = Choose(.Type, "Cell Value Is", "Formula Is")
sCF(1) = .Formula1
On Error Resume Next
sCF(2) = .Formula2
On Error GoTo 0
Select Case .Type
Case xlCellValue
Select Case .Operator
Case xlAnd
strCF = "Between" & sC & sCF(1) & sC & "And" & sC & sCF(2)
Case xlNotBetween
strCF = "Not Between" & sC & sCF(1) & sC & "And" & sC & sCF(2)
Case xlEqual
strCF = "Equal to" & sC & sCF(1)
Case xlNotEqual
strCF = "Not Equal to" & sC & sCF(1)
Case xlGreater
strCF = "Greater Than" & sC & sCF(1)
Case xlLess
strCF = "Less Than" & sC & sCF(1)
Case xlGreaterEqual
strCF = "Greater Than or Equal to" & sC & sCF(1)
Case xlLessEqual
strCF = "Less Than or Equal to" & sC & sCF(1)
Case Else
'do nothing
End Select
Case xlExpression
strCF = sCF(1)
Case Else
strCF = sCF(1)
End Select
If .Interior.ColorIndex > 0 Then
strInteriorColor = sC & "Interior: " & .Interior.ColorIndex
Else
strInteriorColor = ""
End If
If .Font.ColorIndex > 0 Then
strFontColor = sC & "Font: " & .Font.ColorIndex
Else
strFontColor = ""
End If
strCF = sC & "Cond " & iCF & ": " & sCF(0) & sC & strCF _
& strInteriorColor & strFontColor
End With
Print #nFile, rCell.Address(False, False) & strCF
Erase sCF
Next iCF
Next rCell
Close #nFile
End If
End Sub
