菜鸟谈VBA最最基础入门《原创》

ggsmart

是这样吗？试做了一个，但不全面。

1. 
   
2. Private Sub Worksheet_Change(ByVal Target As Range)
   
3. If Target.Value = "" Then Exit Sub
   
4. On Error Resume Next
   
5. Dim sh As Worksheet
   
6. Set sh = Sheets(Target.Value)
   
7. If sh Is Nothing Then Worksheets.Add(after:=Sheet1).Name = Target.Value
   
8. Worksheets(Target.Value).Select
   
9. End Sub
   

复制代码

草根糖

原帖由 ggsmart 于 2009-10-14 17:02 发表
是这样吗？试做了一个，但不全面。
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Value = "" Then Exit Sub
On Error Resume Next
Dim sh As Worksheet
Set sh = Sheets(Target.Value)
...

谢谢老师。只需要限定A列。回头我自己改~

ggsmart

不知道是不是这样，匆忙之中做了一个，供参考！

TRD08

很详尽，非常感谢！

trustwxq

Private Sub Worksheet_Change(ByVal Target As Range)
Dim sh As Worksheet
If Target.Count > 1 Then
    Exit Sub
End If
If Target.Column = 1 And Target <> "" Then
    For Each sh In Worksheets
        If Target.Value = sh.Name Then
            Sheets(Target.Value).Activate
            Exit Sub
        End If
    Next
    Worksheets.Add(after:=Sheet1, Count:=1).Name = Target.Value
    Sheets(2).Activate
End If
End Sub

zznjcs

原帖由 ggsmart 于 2009-10-14 17:35 发表
不知道是不是这样，匆忙之中做了一个，供参考！

  楼主太厉害了, 代码我研究了半天才看懂, 原来一个范围还可以这样写的Range("a" & Target.Row & ":g" & Target.Row),又学了一招,.  
还有EXIT SUB, 可以用来结束这段代码, 本来想用,可是想不起来怎么写的了. 又学了一招. 一天两招够 了.
可是我还是不明白我前面的代码里为什么IF 和ENDIF同是配好的,怎么就会出错呢?

zznjcs

还有点小问题,我把我的代码里的条件target.row>x删除了,好象就好了,为什么加了这个条件反到出了很多问题呢.   是不是因为每一次改变都会造成X值的变化,比如删除一行或加一行,才会出那么多问题.

草根糖

谢谢 trustwxq 兄的帮忙！
我今晚加班了，下班后一切搞清后，刚才试着改了改。
也实现了。
=============================
今天发现一个怪事。
附件在家里电脑的盗版excel上面运行完好。
但是在公司的正版excel上面，不能实现其功能。

必须要把附件的“exit for”改成“exit sub”，而且把“if sh.name=worksheets(target.value).name”改成“if sh.name=target.value”才行。
真是怪哉！~

[ 本帖最后由 草根糖 于 2009-10-15 08:16 编辑 ]

CailynZhou

一步一脚印
我得作品
不好意思，还停留在欢迎界面
呵呵

阿龙168

可能要好长时间不能来了，做个标记先，75页---741楼。