VBA常用技巧代码解析

luanyu6688

请问yuanzhuping 楼主，我的这个窗体怎么修改呢，请你帮忙 科目汇总表4.rar (31.57 KB, 下载次数: 242)

2009-4-16 12:29 上传

点击文件名下载附件

我做了一窗体，在录入会计科目代码或助记码时若录入正确，回车后就会转变为相应的会计科目，若不正确，就会出现一个多列列表的窗体，以供选择，双击或按回车健选中的会计科目，此会计科目就会写入用EXCEL做凭证录入表相应的位置，请大虾帮我修改一下1、怎样才能在录入错误时自动出现窗体，2、怎样才能双击或按回车健选中的会计科目，此会计科目写入凭证录入表的相应位置

gadflyhou

预留待以后用

fdd

原帖由 yuanzhuping 于 2009-3-19 10:12 发表
技巧88         禁用工作表右键菜单
       有时并不希望用户使用工作表中的右键菜单对工作表进行操作，那么可以使用下面的代码禁用工作表右键菜单。#001  Sub DisBar()
#002      Dim myBar As CommandBar
#003      Fo ...

EXCEL中图片上的右键菜单在哪里可以找到（通过代码）？上述“禁用工作表右键菜单”的代码好像不能禁止此类菜单！（我用的是2007）。烦请版主赐教哟！

lsls

已经下载，正在学习中，十分感谢楼主，知识无穷呀

lsls

无法用语言表示感谢之情呀

qiuzisiyu

真是太感谢楼主了。

frank_miracle

楼主太强大了,谢谢你经验的分享

yuanzhuping

技巧124         标签文字垂直居中对齐
       在使用标签控件为其他控件作题注时，只能设置题注文字在水平方向的对齐方式，不能设置为垂直居中。要达到题注文字垂直居中的效果，可以使用两个标签控件组合来完成。
       步骤1，在窗体中添加一个标签控件Label1，将Caption属性设置为空，再设置需要的背景颜色及边框颜色。
       步骤2，添加一个标签控件Label2，将Caption属性设置为需要的标题；AutoSize属性设置为True，BackStyle属性设置为0，TextAligh属性设置为fmTextAlignCenter，其它属性不改变。
       AutoSize属性规定对象是否自动调整大小以显示其完整的内容，语法如下：
object.AutoSize [= Boolean]
       参数object是必需的，一个有效对象。
       参数Boolean是可选的，是否自动调整大小。设置为True控件可自动调整大小以显示其完整的内容，设置为False控件尺寸保持不变。如果内容超出了控件的区域，内容将被剪裁（默认）。
       BorderStyle属性指定控件或窗体的边框类型，语法如下：
object.BorderStyle [= fmBorderStyle]
       参数object是必需的，一个有效对象。
       参数fmBorderStyle是可选的，指定边框类型，设置值如表格所示。

       TextAligh属性定义控件中文本的对齐方式，语法如下：
object.TextAlign [= fmTextAlign]
       参数object是必需的，一个有效对象。
       参数fmTextAlign是可选的，控件中文本的对齐方式，设置值如表格所示。

       步骤3，同时选中两个标签控件，在右键弹出菜单中选择“统一尺寸”→“宽度相同”，再右击选择“对齐”→“左对齐”，重新右键“对齐”→“中间对齐”。
       步骤4，最后同时选中两个标签控件，在右键弹出菜单中选择“生成组”，就达到标题为垂直居中的效果了，如图中左边的标签所示。

vendetta

真的是好人啊！

vendetta

由衷的说声谢谢，祝福楼主！