软件:EXCEL
版本:2007
目标：
依据特定储存格改变设定成条件，执行不同的VBA
问题：
我是VBA新手...没办法写出来T_T
一直执行失败
资料型态：条件+执行目标
[条件]
X1 X2 X3 X4 X5
0/1 0/1 0/1 0/1 0/1
五个变量都可以是0或1，
目前把他code成连续的 ex. 00000 或 01001 etc
再转成代号A,B,C等等，呈现在储存格A2，从A到M
[执行目标]
行 5:15
[VBA]
若A2="A"，隐藏5:5
="B"，隐藏6:6
="C"，隐藏5:6
="D"，隐藏5:5,7:7
逗点后面都没问题，这个简单简单的
目前问题：
1. 我姑狗后找到Cells.Item(1, "A")，还有get value等
不知道要用哪种才适合让他进VBA做判定？我怎么写都跳错误...
2. VBA是否可以用dim让他变得简洁一点？
我目前的想法是
dim hiderange
if 1A="A", then hiderange="5:5"
elseif 1A="B", then hiderange="6:6"
end if
Range(hiderange).Select
这样有通吗?
感觉要写好长啊到M，而且我if 1A="A"这边我怎么写都失败T_T
3. 是否有写法可以让宏中执行其他宏？(宏A和B还有其他自己本身的之类的这样)
谢谢!!

1.是希望将那五个变量合并吗？判定是指转成代号吗？2.简洁是指简写吗？如果是的话可google excel vba dim 简写3.执行其他宏，如果其他模组内没有程序时，就直接打程序名就可以如果其他模组内没有同名的程序时dim hiderange 型态看来是字串，上面的宣告为什么要定义是variant呢？

应该是我乱用吧OTZ 说实话我连您的问题都看不懂了T_T

1A是变量吗？这样的变量命名规则是不正确的

我希望这个变量可以代指 依据条件变化的不同的行数1A是储存格1A，目前我是写If Cell(1, "A").Value = "A"这样不通，然后google可能找不到正确的搜寻字都没结果有的是搜寻指标下的格子内容，大多都是填到指定储存格没看到有读取指定储存格进VBA的...爬文有爬到可以实行但该文没有写说怎么运作....所以卡死了OTZ

不通，cell(1,"A")这是不正确，应为cells(1,"A") 有一个s想到可用vlookup参照的方式抓进要隐藏的列号

这部分我可以做到，但是我不知道抓到之后要怎么导入VBA让他可以自动隐藏有了耶!!!!!!!!!!!太感动了!!!!!英文代码根本不用嘛!!谢谢大人!! 太感激了，原来就是多绕了一圈根本不该绕下去的我决定把这个宏名称用大大的名字做为纪念!!(喂

^^