使用VB.net在Excel中复制条件格式?

时间:2011-07-01 06:13:39

标签: vb.net excel conditional-formatting

我在工作表'two'中有一列'A',在工作表'one'中有另一列'B'!

我想将A列中的A列条件格式复制到B列中!

基本上,我想将A列中的所有内容复制到一个除了数据之外的B列中的所有内容!

请帮助!!

我有:

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

我是Vb.net的新手 - 请帮忙!

1 个答案:

答案 0 :(得分:0)

这是一个推动:

    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到 SourceRange.FormatConditions的循环中使用 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