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

high马 · 发表于 2021-3-26 09:09

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

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

空心人i · 发表于 2021-3-26 10:25

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

high马 · 发表于 2021-3-26 11:29

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

等大佬等大佬

Ancien · 发表于 2021-3-26 15:30

要不做一个二级下拉菜单

小小涩郎 · 发表于 2021-3-26 18:20

本帖最后由小小涩郎于 2021-3-26 18:30 编辑

空心人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马 · 发表于 2021-3-29 07:35

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

下拉的不太行……

high马 · 发表于 2021-3-29 07:36

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

大佬这个有点专业了……

小小涩郎 · 发表于 2021-3-29 09:11

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

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

xlqin · 发表于 2021-4-13 10:13

放在这个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马 · 发表于 2021-4-15 08:40

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

大神啊我去试试

帐号		自动登录	找回密码
密码			注册[Register]

[讨论] 在EXCEl中 点击不同单元格 在同一区域显示

[讨论] 在EXCEl中点击不同单元格在同一区域显示