VBA,如何用按钮事件向单元格填入：如果左边的单元格为W,则填入"我",如果为N则填入"不"等等,一共有二十种

显示全部楼层 · 2012-9-5 10:36:26

Sub abc()Dim Y As Range
Set Y = ActiveCell ''为了方便把Y赋给激活单元格，ActiveCell可改成你需要的具体单元格，例如：Y=RANGE("B1")
Select Case Y.Offset(0, -1) ''Y单元格左边单元格的值的情况
Case "W"
''值="W"则执行Y="我"
Y = "我"
Case "N"
''值="N"则执行Y="不"
Y = "不"''依样做出余下的情况
End SelectEnd Sub...

千问 · 2012-9-5 10:36:26

用select case
case 1 ...case 2 ...case 20...end select 或者建一个对照表，用Dlookup函数...