VBA常用技巧代码解析

luanyu6688 · 发表于 2009-4-16 12:29

请问yuanzhuping 楼主，我的这个窗体怎么修改呢，请你帮忙

科目汇总表4.rar (31.57 KB, 下载次数: 245)

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

gadflyhou · 发表于 2009-4-16 14:53

预留待以后用

fdd · 发表于 2009-4-16 15:44

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

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

lsls · 发表于 2009-4-16 17:38

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

lsls · 发表于 2009-4-16 18:38

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

qiuzisiyu · 发表于 2009-4-16 21:01

真是太感谢楼主了。

frank_miracle · 发表于 2009-4-16 22:32

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

yuanzhuping · 发表于 2009-4-17 08:08

技巧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 · 发表于 2009-4-17 11:52

真的是好人啊！

vendetta · 发表于 2009-4-17 13:38

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

		自动登录	找回密码
密码			免费注册

VBA常用技巧代码解析

第8部分控件与用户窗体

点评

VBA常用技巧代码解析

第8部分 控件与用户窗体

点评

第8部分控件与用户窗体