在EXCEl中 点击不同单元格 在同一区域显示

high马

如图
ABC 是点击的区域
D是固定显示区域


想实现的效果：
1、点击ABC有不同的内容显示
2、点击ABC的单元格有相应的颜色的显示，其他单元格是同一颜色
3、点击区域外 单元格  恢复原始状态

空心人i

@小小涩郎 等这位大佬的出现

high马

空心人i 发表于 2021-3-26 10:25
@小小涩郎 等这位大佬的出现

等大佬 等大佬

Ancien

要不做一个二级下拉菜单

小小涩郎

空心人i 发表于 2021-3-26 10:25
@小小涩郎 等这位大佬的出现

额~~~来了   这个就是个简单的单元格点击触发吧
在这个基础上  修改一下就行了

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Row = 3 And Target.Column = 2 Then
        Range("C3").Value = "A"
    ElseIf Target.Row = 5 And Target.Column = 2 Then
        Range("C3").Value = "B"
    ElseIf Target.Row = 7 And Target.Column = 2 Then
        Range("C3").Value = "C"
    End If
End Sub

high马

Ancien 发表于 2021-3-26 15:30
要不做一个二级下拉菜单

下拉的不太行……

high马

小小涩郎 发表于 2021-3-26 18:20
额~~~来了   这个就是个简单的单元格点击触发吧
在这个基础上  修改一下就行了

大佬 这个有点专业了……

小小涩郎

high马 发表于 2021-3-29 07:36
大佬 这个有点专业了……

额 还好吧   很简单的几个if判断

xlqin

放在这个sheet里
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address(0, 0) Like "B3*" Then
    [C3] = "A"
    Cells.Interior.ColorIndex = 0
    Target.Interior.ColorIndex = 3
   
ElseIf Target.Address(0, 0) Like "B5*" Then
    [C3] = "B"
   Cells.Interior.ColorIndex = 0
    Target.Interior.ColorIndex = 4
ElseIf Target.Address(0, 0) Like "B7*" Then
    [C3] = "C"
    Cells.Interior.ColorIndex = 0
    Target.Interior.ColorIndex = 5
Else
    [C3] = ""
   Cells.Interior.ColorIndex = 0
End If
End Sub

high马

xlqin 发表于 2021-4-13 10:13
放在这个sheet里
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address ...

大神啊 我去试试