excel vbr的一个问题

答案:4 悬赏:80 手机版

解决时间 2021-03-05 02:02

提问者网友：我没有何以琛的痴心不悔
2021-03-04 13:03

一个excel的vbr
如果单元值=给定值
则单元格底色变为红色+计数1
否则结束
结束

最佳答案

五星知识达人网友：山君与见山
2021-03-04 14:00

Excel中的应该是VBA，语法格式如下
如果单元值=给定值则
  单元格底色变为红色
  计数1
结束翻译成VBA如下
If Range("A1")=10 Then
  Range("A1").Interior.Color = vbRed
  n = n + 1
End If

全部回答

1楼网友：不如潦草
2021-03-04 17:10

将以下代码放在工作表中： Private Sub Worksheet_Change(ByVal Target As Range) Dim i As Integer 'i用来计数 If Target = "给定值" Then '给定值可改成你需要的值 Target.Interior.Color = RGB(255, 0, 0) i = i + 1 End If End Sub

2楼网友：躲不过心动
2021-03-04 17:00

if cells(1,1)=1 then cells(1,1).Interior.ColorIndex =vbred n=n+1 end if 再看看别人怎么说的。

3楼网友：等灯
2021-03-04 15:23

Sub valueTest() Dim rowid As Integer Dim colid As Integer Dim count Dim value rowid = 1 colid = 1 count = 0 value = 2 If Worksheets("Sheet1").Cells(rowid, colid).value = value Then Worksheets("Sheet1").Cells(rowid, colid).Interior.Color = 255 count = count + 1 End If End Sub

我要举报

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

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