ExcelHome技术论坛»论坛 › Excel 技术交流与问答 › Excel VBA程序开发 › 求大神帮忙指点一下

EH技术汇-专业的职场技能充电站	妙哉！函数段子手趣味讲函数	Excel服务器-会Excel,做管理系统	Excel Home精品图文教程库
HR薪酬管理数字化实战	Excel 2021函数公式学习大典	Excel数据透视表实战秘技	打造核心竞争力的职场宝典
300集Office 2010微视频教程	数据工作者的案头书	免费直播课集锦	ExcelHome出品 - VBA代码宝免费下载
	用ChatGPT与VBA一键搞定Excel	WPS表格从入门到精通	Excel VBA经典代码实践指南

查看: 414|回复: 0

求大神帮忙指点一下

[复制链接]

YFbig18

TA的精华主题

TA的得分主题

发表于 2018-11-12 17:14 | 显示全部楼层 |阅读模式

[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件 ★免费下载 ★ ★ 使用帮助★

基本实现目标如下：
Sub hidden()
If Sheet2.Range("F1").Value = "国美小微" Then
      Sheet2.Rows("15:24").EntireRow.hidden = False
End If
If Sheet2.Range("F1").Value = "苏宁小微" Then
   Sheet2.Rows("15:24").EntireRow.hidden = False
End If
If Sheet2.Range("F1").Value = "整体汇总" Then
      Sheet2.Rows("15:24").EntireRow.hidden = False
End If
If Sheet2.Range("F1").Value = "自建小微" Then
      Sheet2.Rows("15:24").EntireRow.hidden = True
End If
If Sheet2.Range("F1").Value = "TOP小微" Then
      Sheet2.Rows("15:24").EntireRow.hidden = True
End If
If Sheet2.Range("F1").Value = "京东小微" Then
      Sheet2.Rows("15:24").EntireRow.hidden = True
End If
If Sheet2.Range("F1").Value = "阿里小微" Then
      Sheet2.Rows("15:24").EntireRow.hidden = True
End If
If Sheet2.Range("F1").Value = "商超小微" Then
      Sheet2.Rows("15:24").EntireRow.hidden = True
End If
If Sheet2.Range("F1").Value = "拓展项目组" Then
      Sheet2.Rows("15:24").EntireRow.hidden = True
End If
End Sub

需要在下拉列表框中选择的时候激活这段代码，求大神帮忙指点一下谢谢
附件如下

大神, 帮忙, 指点, 一下