[已解决]这个问题不知道怎么形容，请老师看附件，谢谢了

1003136666

麻烦老师抽空看下，谢谢了

最佳答案

月排行榜 / 总排行榜

这儿有肥猫

2014-9-30 11:19

1. Private Sub worksheet_change(ByVal target As Range)
   
2. If target.Row <> 1 Or target.Column <> 1 Then Exit Sub
   
3. target.Offset(3, 0).Value = target.Value
   
4. target.Offset(3, 0).Interior.ColorIndex = target.Interior.ColorIndex
   
5. End Sub
   

复制代码

跳转到最佳答案楼层

这儿有肥猫

1. Private Sub worksheet_change(ByVal target As Range)
   
2. If target.Row <> 1 Or target.Column <> 1 Then Exit Sub
   
3. target.Offset(3, 0).Value = target.Value
   
4. target.Offset(3, 0).Interior.ColorIndex = target.Interior.ColorIndex
   
5. End Sub
   

复制代码

鱼儿飘1

如果只为突出某一样的字体，用条件格式-突出显示单元格规则

1003136666

这儿有肥猫 发表于 2014-9-30 11:19

老师，你好，代码我贴了，为什么填充的颜色不跟着变化呢

1003136666

鱼儿飘1 发表于 2014-9-30 11:44
如果只为突出某一样的字体，用条件格式-突出显示单元格规则

谢谢你，不过不是这意思

1003136666

这儿有肥猫 发表于 2014-9-30 11:19

可以了，原来是要先选颜色