再说“启用宏”

yl1991

版主，excel2010、2012能行不？

yl1991

yuanzhuping 发表于 2009-6-8 09:23
我是用工作表深度隐藏的方法，在工作簿的BeforeClose事件中将除了一张空白工作表外的所有工作表的Visible属 ...

excel2010、2012能行不？

rifl

留下记号，以后学习

神奇网格

谢谢山菊花版主的好思路。有个问题
思路2：借用数据有效性控制，下载了附件测试后，无任何关于 宏启用与否的提示？我自己修改了下，打开可提示已经启用了宏。
但是 sheet1表的代码不起作用了。不解中？？？
还有对sheet1表的代码的注释对吗？不确定
If Target.Count > 1 Then                  '选定格不止一个
        Target.Range("a1").Select             '始终没出现此种运行结果？？？？？

山菊花

神奇网格 发表于 2013-11-4 21:53
谢谢山菊花版主的好思路。有个问题
思路2：借用数据有效性控制，下载了附件测试后，无任何关于 宏启用与否 ...

被你删去了一个字符：
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Count > 1 Then                  '选定格不止一个
        Target.Range("a1").Select             '始终没出现此种运行结果？？？？？
    ElseIf Target.Row = 1 Then
        Range("a2").Select
    ElseIf Target.Column > 6 Then             '超出F列时
        Range("a" & Target.Row + 1).Select
    ElseIf WorksheetFunction.CountA(Range("a" & Target.Row - 1).Resize(1, 6)) < 6 Then   '选中单元格所在行输入数据<6,
        Target.Offset(-1).Select                               '向左偏移一格
    ElseIf Target.Column > 1 Then
        If Target.Offset(, -1) = "" Then Target.Offset(, -1).Select   '选中单元格左边-1为空，则再向左偏移
    End If
End Sub

神奇网格

山菊花 发表于 2013-11-4 22:27
被你删去了一个字符：
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target. ...

哦，测试时候老选不中，故意让她失效了。后来再看时忘了。谢谢。

walle666

学习啦，谢谢！