网站 › 『编程语言讨论求助区』 › 在EXCEl中 点击不同单元格 在同一区域显示

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

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

如图
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

要不做一个二级下拉菜单{:301_978:}

小小涩郎 发表于 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
    = "A"
    Cells.Interior.ColorIndex = 0
    Target.Interior.ColorIndex = 3
   
ElseIf Target.Address(0, 0) Like "B5*" Then
    = "B"
   Cells.Interior.ColorIndex = 0
    Target.Interior.ColorIndex = 4
ElseIf Target.Address(0, 0) Like "B7*" Then
    = "C"
    Cells.Interior.ColorIndex = 0
    Target.Interior.ColorIndex = 5
Else
    = ""
   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 ...

大神啊 我去试试

查看完整版本: 在EXCEl中 点击不同单元格 在同一区域显示