求助：如何解决删除单元格条件格式但保留填充的颜色

arno61361

求论坛各位老师帮忙解决清除复制的表格中“c6:ag7"单元格中所设置的条件格式，但保留条件格式所填充的颜色。代码如下：
Sub AutoCopySheets()
Dim i, j As Integer, value, formatconditions
i = 1
j = 1
For i = 1 To 1   
j = j + 1
    Sheets("今日工作日志").Copy After:=Sheets(Sheets.Count)           
    Sheets(Sheets.Count).Name = Year(Now()) & "年" & month(Now()) & "月" & Day(Now()) & "日"              
    Sheets(Sheets.Count).range("c6:ag7").value = range("c6:ag7").value     
    Sheets(Sheets.Count).range("c6:ag7").Columns.formatconditions(1).Interior.Color = range("c6:ag7").Columns.formatconditions(1).Interior.Color       '去除复制表格的条件格式但保留填充的颜色（PS:该代码不知错在何处，不起作用）
    Sheets(Sheets.Count).range("f1:h5").value = range("f1:h5").value   
If j Mod 7 = 5 Or j Mod 7 = 6 Then   
    With ActiveWorkbook.Sheets(Sheets.Count).Tab
      .Color = 255                              
      .TintAndShade = 0
    End With
  End If
  Next
With Sheets("今日工作日志")
    .range("f8:h8") = ""
    .range("j8:l8") = ""
    .range("n8:p8") = ""
    .range("s8:t8") = ""
    .range("x8:ag8") = ""
    .range("f10:v10") = ""
    .range("aa10:ab10") = ""
    .range("f11:v11") = ""
    .range("f12:v12") = ""
    .range("aa12:ab12") = ""
    .range("c15:ag39") = ""
    .range("c42:ag67") = ""
    .range("f72:ag77") = ""
    .range("f81:ag86") = ""
    .range("c89:ag96") = ""
    .range("f97:q97") = ""
  End With
End Sub

爱疯

广新中央城案场工作日志3.rar (101.17 KB, 下载次数: 3)

2019-1-17 14:32 上传

点击文件名下载附件

    Sheets(Sheets.Count).range("c6:ag7").formatconditions.Delete


只加了这1句，其它没动

爱疯

建议上次附件

arno61361

爱疯 发表于 2019-1-16 08:59
建议上次附件

您好！附件来了。主要两个问题，一是请帮忙解决复制后表格的天气预报超链接但保留天气信息；二是取消日期星期当日颜色凸显的条件格式保留颜色。谢谢！

爱疯

1.rar (15.01 KB, 下载次数: 5)

2019-1-16 15:23 上传

点击文件名下载附件

根据需要，自行修改下吧




Sub test()
    Call sskd([w4:ad4])
End Sub

'双色刻度
Sub sskd(rng As Range)
    Dim cs As ColorScale    '色阶条件格式规则
    rng.FormatConditions.Delete
    Set cs = rng.FormatConditions.AddColorScale(ColorScaleType:=2)
    '最小值
    With cs.ColorScaleCriteria(1)
        .Type = xlConditionValueLowestValue
        .FormatColor.Color = RGB(167, 217, 113)
    End With
    '最大值
    With cs.ColorScaleCriteria(2)
        .Type = xlConditionValueHighestValue
        .FormatColor.Color = RGB(250, 191, 143)
        '        .FormatColor.TintAndShade = 0.4    '避免太亮，设阴影深浅
    End With
End Sub

arno61361

爱疯 发表于 2019-1-16 15:25
根据需要，自行修改下吧

版主您好！您给的这个方案太复杂了，而且思路好像与我的初衷有些偏差，更大的问题是我是个初学者，整合不来呀。不过，还是要感谢您的帮忙！

爱疯

range("c6:ag7").Columns.formatconditions(1).Interior.Color

改为

range("c6:ag7").formatconditions.delete




这样呢？

arno61361

爱疯 发表于 2019-1-16 16:13
range("c6:ag7").Columns.formatconditions(1).Interior.Color

改为

版主，这个代码出现类型不匹配。主要是DELETE问题，该如何解决？

爱疯

广新中央城案场工作日志2.rar (214.12 KB, 下载次数: 4)

2019-1-16 16:36 上传

点击文件名下载附件

不如事先准备一个空表（不填数据），每次要添加就复制该空表，而不去复制已有数据的工作表。

这样，不就省得每次做清除吗？

arno61361

爱疯 发表于 2019-1-16 16:41
不如事先准备一个空表（不填数据），每次要添加就复制该空表，而不去复制已有数据的工作表。

这样， ...

谢谢版主，如果要复制空白表格，再填写，那倒是简单，我只要修改下“For i = 1 To 1   ”的变量，一次性可以复制N多，但不符合让基层工作尽量冗余的想法