不懂VBA也编程

xpm130

老师的"为工作簿添加目录"的思路真是妙.3个实例,层层深入.
但是一旦插入新的sheet,却回不到目录上去了.估计这个问题在老师手中也不成问题吧.

另外,想请问一下,编写代码的开头一句如何确定,有什么规律与语法要求.像您在134楼写的代码首句各表示什么意思,能注释一下吗_____还未入门呵,见笑了
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)

[ 本帖最后由 xpm130 于 2008-12-8 22:15 编辑 ]

qi91151

“山菊花”是我久仰的诲人不倦的大师！ 跟着学习了！

山菊花

原帖由 xpm130 于 2008-12-8 22:00 发表 (138楼)
但是一旦插入新的sheet,却回不到目录上去了.估计这个问题在老师手中也不成问题吧.

不是问题。
解决的办法有三个。
1、选择新工作表的一个单元格，输入“返回目录”，然后再用键盘或鼠标选择它。
2、在VBE窗口中，按Ctrl+G打开立即窗口，输入：
Sheets("目录").visible=1
回车。
3、如下图所示，在VBE的工程管理器中，选择“目录”模块，按F4打开属性窗口，修改Visible属性值为-1。

原帖由 xpm130 于 2008-12-8 22:00 发表 (138楼)
另外,想请问一下,编写代码的开头一句如何确定,有什么规律与语法要求.像您在134楼写的代码首句各表示什么意思,能注释一下吗_____还未入门呵,见笑了
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)

当用键盘或鼠标选择新的单元格区域时，触发工作表的SelectionChange事件，运行“Private Sub Worksheet_SelectionChange(ByVal Target As Range)”至“End Sub”之间的程序。
在VBE窗口右上角，有个帮助窗口，输入“SelectionChange”，回车，可查询有关帮助内容。

关于事件，请参考帖子：
VBA入门之三《夏夜，我们看萤火虫》：http://club.excelhome.net/thread-183192-1-1.html

hsshi

学习 学习 。

xpm130

老师真是诲人不倦,您在昨夜11点多了还回贴指导,深深感动.当加倍努力学习!

luoyuyun

跟着学习了！

夜郎

山版主真是个好淫啊

yql4688

不错，虽然已近60，还是觉的学学不但有用，而且有趣，呵呵，请山菊花继续提供好的东西

weihong445

我仅知道Excel的一点函数皮毛，同事们就称我为“高手”，我心里也知道自己桶里仅有一点水，只是在晃动，别人看起来好象很多。工作中很多问题是需要VBA来解决的，本人也曾买过此类的书，但看不懂。而别人又经常问这问那我也没有办法解决。今天一口气全部下载，回去慢慢消化。所以要非常地谢谢！
本人目前就遇到类似目录的查找问题，用函数一直没有解决。我的目录是关于人事的数据库，总人数、男、女各多少、年龄分组等，另列一个查找，结果遇到同名同姓的就没有办法了.。真要好好学习。

xzf8109

学习学习