[已解决]有关在指定单元格填入数字，指定单元格就自动填充内容和背景颜色。高手请出招！谢谢

coolzyman

有关在指定单元格填入数字，指定单元格就自动填充内容和背景颜色

最佳答案

月排行榜 / 总排行榜

大灰狼1976

2017-3-29 13:52

汉字数字改为阿拉伯数字方便处理。

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. If Target.Count > 1 Then Exit Sub
   
3. If Target.Address <> [e1].Address Then Exit Sub
   
4. Dim arr, i&
   
5. ReDim arr(1 To Target.Value * 2 - 1)
   
6. For i = 1 To UBound(arr) Step 2
   
7.   arr(i) = "第" & (i + 1) / 2 & "组"
   
8. Next i
   
9. [d4:iv5].Clear
   
10. [d4].Resize(, UBound(arr)) = arr
    
11. For i = 4 To UBound(arr) + 3 Step 2
    
12.   Cells(5, i).Interior.Color = vbYellow
    
13. Next i
    
14. End Sub

复制代码

跳转到最佳答案楼层

大灰狼1976

汉字数字改为阿拉伯数字方便处理。

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. If Target.Count > 1 Then Exit Sub
   
3. If Target.Address <> [e1].Address Then Exit Sub
   
4. Dim arr, i&
   
5. ReDim arr(1 To Target.Value * 2 - 1)
   
6. For i = 1 To UBound(arr) Step 2
   
7.   arr(i) = "第" & (i + 1) / 2 & "组"
   
8. Next i
   
9. [d4:iv5].Clear
   
10. [d4].Resize(, UBound(arr)) = arr
    
11. For i = 4 To UBound(arr) + 3 Step 2
    
12.   Cells(5, i).Interior.Color = vbYellow
    
13. Next i
    
14. End Sub

复制代码

coolzyman

谢谢大灰狼1976 ，解决我的一个大问题，再次感谢您的付出。