下列示例使用 SetSelection 方法将 CodePanes(1) 第二行第四个字符之后（即第五个字符）到第三行第十五个字符之间的文本选择起来。 Application.VBE.CodePanes(1).SetSelection 2,4,3,15...

用 vba 代码 ：把a5：a100 里15位的 身份证 号转换为18位 =IDCODE(a1)（假设A1单元格存放的是原15位号码）（自定义函数） Public Function IDCode(sCode15 As String) As String Dim i, num As Integer Dim code As String num = 0 IDCode = Left(sCode15, 6) + 19 + Right(...

操作指南：菜单栏视图工具栏控件工具箱（出现控件工具箱浮动工具栏）点里面的命令按钮或其他直接在页面绘图（一个按钮就出来了）关闭控件工具箱； 二、点按钮工具栏插入超链接（按钮是地球和一节链）链接到（左侧）： 这里面有几个选择，要链接到另一表可有： 1、不同工作簿...

cnn1.ConnectionString = driver={SQL Server}; _ server=bigsmile;uid=sa;pwd=pwd;database=pubs Connection对象的主要属性 1、 CursorLocation,它的取值有两个，一个是adUseClient,一个是adUseServer（默认），从其英语本身的含义就可以看出，前者是使用客户端的游标，而...

在技巧102 中，我们在TextBox1、TextBox2中输入完数据后，利用文本框的Change事件使TextBox3显示其两者相乘的金额，但是如果窗体中有多个文本框，需要在每一个文本框的Change事件中写上相同的重复代码，因此使用类模块可以简化代码。 在附件的窗体有七个文本框，其中六个用...

在使用文本框输入数据时，可能希望限制能输入的字符长度，即只能输入一定长度的字符，超过设置数值就不能输入，这时可以通过设置文本框的MaxLength属性来实现，如下面的代码所示。 复制内容到剪贴板 代码: #001Private Sub Worksheet_Activate() #002 Me.TextBox1.MaxLength...

文本框在用来输入数据时，除了限制输入的数据类型外，还可以设置文本框的数据格式，如下面的代码所示。 复制内容到剪贴板 代码: #001Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) #002 TextBox1 = Format(TextBox1, 0.00) #003End Sub #004Private Su...

文本框在用来输入数据时，除了限制输入的数据类型外，还可以设置文本框的数据格式，如下面的代码所示。 复制内容到剪贴板 代码: #001Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) #002 TextBox1 = Format(TextBox1, 0.00) #003End Sub #004Private Su...

在使用使用文本框显示或录入一段很长的文本时，需要将文本框设置成多行显示，否则文本内容只能在一行中显示，示例代码如下： #001Private Sub UserForm_Initialize() #002 With TextBox1 #003 .WordWrap = True #004 .MultiLine = True #005 .Text = Space(4) VBA(Visual Ba...

在用文本框往工作表录入数据时，一般会在录入到工作表前验证输入的数据是否正确，如果错误，则清空文本框内容，提示用户重新输入。但此时光标已经不在文本框中，需要重新选择文本框才能输入。 可以在Exit事件中可以设置Cancel参数值使光标停留在当前文本框中，如下面的代码...