输入姓名后，显示值班日期，值班年级

wh72988

输入姓名后，显示值班日期，值班年级

祝洪忠-

工作簿2.rar (9.2 KB, 下载次数: 16)

2024-9-5 10:22 上传

点击文件名下载附件

天堑小舟

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Application.Intersect(ActiveCell, Range("B2:G5")) Is Nothing Then
        Exit Sub
    End If
    Range("B2:G5").Interior.ColorIndex = xlNone      '清除单元格底纹颜色
    Range("B2:G5").Font.Color = RGB(160, 160, 160)   '设置字体颜色为浅灰色
    Dim Rng As Range
    For Each Rng In Range("B2:G5")
        If Rng.Value = ActiveCell.Value Then
            Rng.Interior.Color = RGB(255, 255, 0)    '设置背景色为黄色
            Rng.Font.Color = RGB(0, 0, 0)            '设置字体为黑色
        End If
    Next Rng
End Sub
前几天在《VBA很简单》上学到的示例

沈默00

=LET(x,TOCOL(IF(B2:G5=I2,A2:A5,x),3),y,INDEX($B$2:$G$5,MATCH(x,$A$2:$A$5,),MATCH($K$1:$P$1,$B$1:$G$1,)),HSTACK(x,IF(y=$I$2,y,"")))

wh72988

沈默00 发表于 2024-9-5 13:42
=LET(x,TOCOL(IF(B2:G5=I2,A2:A5,x),3),y,INDEX($B$2:$G$5,MATCH(x,$A$2:$A$5,),MATCH($K$1:$P$1,$B$1:$G ...

能给一个回复好的excel文件吗？公式复制后，显示错误

沈默00

wh72988 发表于 2024-9-6 09:14
能给一个回复好的excel文件吗？公式复制后，显示错误

你的EXCEL版本是多少？？
估计是版本不够，，，这是365函数，，WPS也可以用

沈默00

要不你再试试

wh72988

沈默00 发表于 2024-9-6 09:54
你的EXCEL版本是多少？？
估计是版本不够，，，这是365函数，，WPS也可以用

office 2021

沈默00

wh72988 发表于 2024-9-6 09:56
office 2021

那就不了，，TOCOL和HSTACK都是365函数，，
你用祝版的公式好了，想用新函数就升级EXCEL或用WPS

mjm04

沈默00 发表于 2024-9-5 13:42
=LET(x,TOCOL(IF(B2:G5=I2,A2:A5,x),3),y,INDEX($B$2:$G$5,MATCH(x,$A$2:$A$5,),MATCH($K$1:$P$1,$B$1:$G ...

=LET(x,TOCOL(IF(B2:G5=I2,A2:A5,x),3)~~~~

这里的X用的真好，通过设置一个不符合IF语法的参数，让IF返回一个#NAME的错误值，再用TOCOL的第二参数3来忽略掉，思维路真是绝了，学习啦