如何将条件格式中的单元格颜色作为转换为真正的单元格颜色填充呀

ymzxd

学习了！谢谢楼上

793374076

tyc_198 发表于 2013-1-5 16:40
先选中你要处理的表格，Ctrl+c,点击剪贴板右边的小下拉箭头标志，调出剪贴板栏，双击刚刚复制的剪贴板文件 ...

可以多谢多谢

psxk3535

Sub 条件格式颜色转背景颜色()





   Dim i As Integer
    For i = 2 To 30
        cl = Range("A" & i).DisplayFormat.Interior.Color
        Range("A" & i).Interior.Color = cl
    Next
    Range("A2:A30").FormatConditions.Delete
End Sub


网上找的，我的可以用 ，只保留条件格式背景色，不保留条件格式的字体颜色

psxk3535

Sub 非空单元格条件色转背景色加框线()
Sheets("aaa").Select

Dim s As Integer, r As Integer
For s = 1 To Cells(1, 255).End(xlToLeft).Column  
For r = 2 To Cells(65536, 1).End(xlUp).Row         
cl = Cells(r, s).DisplayFormat.Interior.Color         
sl = Cells(r, s).DisplayFormat.Font.Color              
        Cells(r, s).Interior.Color = cl               
        Cells(r, s).Font.Color = sl                  
        Cells(r, s).FormatConditions.Delete      
        Cells(r, s).Borders.LineStyle = True      
    Next r                                             
  Next s                                            
End Sub


如何判断字体是不是粗体，如果是粗体，就保持，该如何做

psxk3535

psxk3535 发表于 2021-2-24 19:37
Sub 非空单元格条件色转背景色加框线()
Sheets("aaa").Select

已经解决，虽然繁琐了点

Dim s As Integer, r As Integer
For s = 1 To Cells(1, 255).End(xlToLeft).Column         
For r = 2 To Cells(65536, 1).End(xlUp).Row              
cl = Cells(r, s).DisplayFormat.Interior.Color           
sl = Cells(r, s).DisplayFormat.Font.Color               
cx = Cells(r, s).DisplayFormat.Font.Bold
xt = Cells(r, s).DisplayFormat.Font.Italic
mz = Cells(r, s).DisplayFormat.Font.Name
zh = Cells(r, s).DisplayFormat.Font.Size
        Cells(r, s).Interior.Color = cl                  
        Cells(r, s).Font.Color = sl                     
        Cells(r, s).Font.Bold = cx
        Cells(r, s).Font.Italic = xt
        Cells(r, s).Font.Name = mz
        Cells(r, s).Font.Size = zh
        Cells(r, s).FormatConditions.Delete            
        Cells(r, s).Borders.LineStyle = True            
    Next r                                               
  Next s                                               

自然970128号

tyc_198 发表于 2013-1-5 16:40
先选中你要处理的表格，Ctrl+c,点击剪贴板右边的小下拉箭头标志，调出剪贴板栏，双击刚刚复制的剪贴板文件 ...

谢谢，一直在找这个方法