vb.net - VB.netを使用してExcelで条件付き書式をコピーしますか？

Question

ワークシート「2」に列「A」があり、ワークシート「1」に別の列「B」があります。

2列のA列の条件付き書式を1列のB列にコピーしたい！

基本的に、データを除いて、2列のA列から1列のB列まですべてをコピーしたいと思います。

助けてください ！！

私は持っています ：

sheetA & sheetB object as Objects in my code
I am using VB.NET

私はVb.netの初心者です-助けてください！

Answer 1

ここにちょっとしたプッシュがあります：

    oExcel = CreateObject("Excel.Application")
    Book = oExcel.Workbooks.Open("C:\Users\Jonathan\Documents\Test2.xlsx")
    Sheet = Book.Worksheets(1)
    SourceRange = Sheet.Range("A1:A" & Sheet.Range("A1").End(Excel.XlDirection.xlDown).Row)
    DestRange = Sheet.Range("D1:D" & Sheet.Range("D1").End(Excel.XlDirection.xlDown).Row)

その要点は、ある範囲からフォーマット条件を取得し、それを別の範囲に追加するこの部分です。これは、書式設定の基準が 1 つしかないことを前提としています。複数の場合、1 からSourceRange.FormatConditions.CountへのループでSourceRange.FormatConditions(i)を使用して、それらすべてをステップ オーバーする必要があります (最大 3 つあると思います)。

    DestRange.FormatConditions.Add(Excel.XlFormatConditionType.xlCellValue, SourceRange.FormatConditions(1).Operator, SourceRange.FormatConditions(1).Formula1)
    DestRange.FormatConditions(1).Interior.ColorIndex = SourceRange.FormatConditions(1).Interior.ColorIndex