ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 Excel Home精品图文教程库
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
300集Office 2010微视频教程 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
楼主: yuanzhuping

VBA常用技巧代码解析

    [复制链接]

TA的精华主题

TA的得分主题

发表于 2009-3-23 13:34 | 显示全部楼层
本帖已被收录到知识树中,索引项:开发帮助和教程
真的谢谢您,版主!不过关于超连接的代码没有写呀?

TA的精华主题

TA的得分主题

发表于 2009-3-23 13:56 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册

太帅了 谢谢

太帅了 谢谢

TA的精华主题

TA的得分主题

发表于 2009-3-23 14:09 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助

此问题的超连接

引用:
原帖由 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

TA的精华主题

TA的得分主题

发表于 2009-3-23 15:35 | 显示全部楼层
LZ真是大好人啊,谢谢了,学习ING

TA的精华主题

TA的得分主题

发表于 2009-3-23 16:13 | 显示全部楼层

TA的精华主题

TA的得分主题

 楼主| 发表于 2009-3-23 16:16 | 显示全部楼层
原帖由 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
复制代码

TA的精华主题

TA的得分主题

发表于 2009-3-23 16:28 | 显示全部楼层

感谢袁版主

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

TA的精华主题

TA的得分主题

 楼主| 发表于 2009-3-23 19:11 | 显示全部楼层

第7部分 菜单和工具栏

技巧95         禁用工具栏的自定义
       在Excel中,用户可以通过依次单击菜单“视图”→“工具栏”→“自定义”,显示“自定义”选项卡来调整菜单栏和工具栏,如图所示。
Snap1.jpg
Snap2.jpg
       如果不希望用户使用“自定义”选项卡来调整菜单栏和工具栏,可以禁用工具栏的自定义功能,如下面的代码所示。
  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过程,禁用工具栏的自定义对话框,自定义菜单项消失,如图所示。
Snap3.jpg

技巧95 禁用工具栏的自定义.rar

6.64 KB, 下载次数: 1081

TA的精华主题

TA的得分主题

发表于 2009-3-23 21:25 | 显示全部楼层
学习精彩,,对版主的无私致敬

TA的精华主题

TA的得分主题

发表于 2009-3-23 22:52 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
学习中^^^^^^^^^^^^^^^^^^
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2024-3-29 20:07 , Processed in 0.045348 second(s), 6 queries , Gzip On, Redis On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:李志群律师

快速回复 返回顶部 返回列表