请教各位大神一个专业的问题，跪谢了！！！

王德银1230 · 发表于 2018-6-26 14:19

vba里设计根据一个根据excel表里的一个单元格的值来确定另一个单元格的值隐藏或显示，这个程序自动执行，怎么写的？谢谢了！！！

笑着...两年过去 · 发表于 2018-6-26 16:07

这个单元格的值，是手工输入的？另一个单元格的值，你希望怎样隐藏？

王德银1230 · 发表于 2018-6-29 14:16

笑着...两年过去发表于 2018-6-26 16:07
这个单元格的值，是手工输入的？另一个单元格的值，你希望怎样隐藏？

这个单元格的值，是手工输入的，然后另一行整行隐藏。比方说if a1=1 then a10隐藏，；；；if a1=2 then a11隐藏，这个程序如何写？？？如何让这个程序自动执行，而不是按一个控件按钮

笑着...两年过去 · 发表于 2018-7-2 12:37

王德银1230 发表于 2018-6-29 14:16
这个单元格的值，是手工输入的，然后另一行整行隐藏。比方说if a1=1 then a10隐藏，；；；if a1=2 then ...

见附件。。。。

工作簿1.zip (11.33 KB, 下载次数: 2)

王德银1230 · 发表于 2018-7-2 17:10

笑着...两年过去发表于 2018-7-2 12:37
见附件。。。。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If [a1] < 2000 Then
      Rows("10:11").EntireRow.Hidden = True
      Rows("13:13").EntireRow.Hidden = True
ElseIf [a1] >= 5000 Then
      Rows("10:11").EntireRow.Hidden = False
      Rows("13:13").EntireRow.Hidden = False
      ElseIf [a1] >= 2000 And [a1] < 5000 Then
      Rows("11:11").EntireRow.Hidden = True
      Rows("10:10").EntireRow.Hidden = False

      Rows("13:13").EntireRow.Hidden = False
End If
End Sub

王德银1230 · 发表于 2018-7-2 17:11

笑着...两年过去发表于 2018-7-2 12:37
见附件。。。。

程序写出来了，我嵌入到Excel服务器里总是报错，想问下大神，对Excel服务器了解吗

笑着...两年过去 · 发表于 2018-7-3 12:28

王德银1230 发表于 2018-7-2 17:11
程序写出来了，我嵌入到Excel服务器里总是报错，想问下大神，对Excel服务器了解吗

了解啊，以前也做过EXCEL服务器的项目

		自动登录	找回密码
密码			免费注册