怎么用excel表格中的VB编辑器？

答案:2 悬赏:0 手机版

解决时间 2021-04-07 04:03

提问者网友：杀生予夺
2021-04-06 11:09

怎么用excel表格中的VB编辑器？

最佳答案

五星知识达人网友：上分大魔王
2021-04-06 12:14

编写个宏来实现吧，帮你写出来了

Private Sub Worksheet_Change(ByVal Target As Range)
For i = 2 To 1000
If Cells(i, 3) < 31 Then
Cells(i, 4).Interior.ColorIndex = 2
ElseIf Cells(i, 3) < 46 Then
Cells(i, 4).Interior.ColorIndex = 6
ElseIf Cells(i, 3) < 61 Then
Cells(i, 4).Interior.ColorIndex = 9
ElseIf Cells(i, 3) < 91 Then
Cells(i, 4).Interior.ColorIndex = 7
ElseIf Cells(i, 3) < 181 Then
Cells(i, 4).Interior.ColorIndex = 3
End If
Next i
End Sub

怎么用知道吧，在EXCEL里面按Alt＋F11，在VB编辑器中点击sheet1，然后输入以上函数喉退出VB编辑器就行了，在excel上输入任意东西函数就启动。这样算不算例子。。

全部回答

1楼网友：不想翻身的咸鱼
2021-04-06 12:34

Private Sub Worksheet_Change(ByVal Target As Range) 当工作表变更，即工作表单元格更新，这个最常用。
For i = 2 To 1000 设i从2到1000，就是从第二行到1000行有较。
If Cells(i, 3) < 31 Then I是指任意的行，for循环变动。3则是指C列。
Cells(i, 4).Interior.ColorIndex = 2 同理，4是指D例。VBA里一般不用A1定位单元格而是用，cells(行，例) ElseIf Cells(i, 3) < 46 Then 当C例单元格值小于46时
Cells(i, 4).Interior.ColorIndex = 6 D例显示颜色Colorindex为颜色素引，
ElseIf Cells(i, 3) < 61 Then 同理。。。。。。。。。。。
Cells(i, 4).Interior.ColorIndex = 9
ElseIf Cells(i, 3) < 91 Then
Cells(i, 4).Interior.ColorIndex = 7
ElseIf Cells(i, 3) < 181 Then
Cells(i, 4).Interior.ColorIndex = 3
End If 结束if语句
Next i 开始循环i直到1000结束，对C例、D例进行验证并设置颜色。
End Sub--------------------------------------------------------------------------------

我要举报

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息