VBA常用技巧代码解析

ykx042907

真的谢谢您，版主！不过关于超连接的代码没有写呀？

wanyang

太帅了 谢谢

ykx042907

引用:
原帖由 ykx042907 于 2009-3-23 10:22 发表
yuan版主：您好！您真是太辛苦了。请教一个问题：若将技巧27 自动建立工作表目录的工作表名称从E6：J6向下排放，怎么写代码呀？谢谢！
针对上面的问题，编写如下的代码，是不可以的。请问版主怎么写代码呀？谢谢！
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim R As Integer
    Dim i As Integer
    R = Sheet12.[A65500].End(xlUp).Row
    On Error Resume Next
     For i = 5 To 10
    If Target.Count = 1 Then
   
        If Target.Column = i Then
        Next
            If Target.Row > 5 And Target.Row <= R Then
                Sheets(Target.Value).Select
                Sheets(Target.Value).Range("e6").Select
               
            End If
            
        End If
    End If
   
End Sub

unseenkiller

LZ真是大好人啊，谢谢了，学习ING

十六点四十四

再次像楼主敬礼！
大声说声“谢谢！”

yuanzhuping

原帖由 ykx042907 于 2009-3-23 13:34 发表
真的谢谢您，版主！不过关于超连接的代码没有写呀？

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2.     Dim R As Integer
   
3.     R = Sheet1.[E65500].End(xlUp).Row
   
4.     On Error Resume Next
   
5.     If Target.Count = 1 Then
   
6.         If Not Application.Intersect(Target, Range("E6:J" & R)) Is Nothing Then
   
7.             Sheets(Target.Value).Select
   
8.         End If
   
9.     End If
   
10. End Sub
    

复制代码

ykx042907

十分感谢您百忙之中给予回答！您的无私奉献和执着精神非常值得我们国人学习！向您致敬！
为何我这个初学者，自己怎么连个简单的代码都不会编写呀？？？

yuanzhuping

技巧95         禁用工具栏的自定义
       在Excel中，用户可以通过依次单击菜单“视图”→“工具栏”→“自定义”，显示“自定义”选项卡来调整菜单栏和工具栏，如图所示。


       如果不希望用户使用“自定义”选项卡来调整菜单栏和工具栏，可以禁用工具栏的自定义功能，如下面的代码所示。

1. #001  Sub nCustomize()
   
2. #002      Application.CommandBars.DisableCustomize = True
   
3. #003  End Sub

复制代码

代码解析：
       nCustomize 过程禁用工具栏的自定义功能，应用于CommandBars 集合对象的DisableCustomize属性设置是否禁用工具栏的自定义。如果禁用，返回True，否则返回False。
       用于启用工具栏的自定义的代码是：

1. #001  Sub yCustomize()
   
2. #002      Application.CommandBars.DisableCustomize = False
   
3. #003  End Sub

复制代码

运行nCustomize过程，禁用工具栏的自定义对话框，自定义菜单项消失,如图所示。

lvshuijin

学习精彩,,对版主的无私致敬

tclgb

学习中^^^^^^^^^^^^^^^^^^