步骤一:添加控件。 在Power Point中,单击“开发工具”/“控件”组的Text Box控件 命令,在幻灯片右边,添加控件TextBox控件。 步骤二:设置属性。 选定Text Box控件,单击“开发工具”/“控件”组的“属性”命令按钮,打开“属性”对话框,设置 Multiline属性值为“True”,可以进行多行显示;设置Scroll Bars属性值为“2...
If Application.InputBox("请输入密码:") = 1234 Then [A1] = 1 '密码正确时执行 Else MsgBox "密码错误,即将退出!" '此行与第2行共同设置密码 End If '本示例为设置密码窗口 (1) X = MsgBox("是否真的要结帐?", vbYesNo) If X = vbYes Then Close '本示例为设置工作表密码 ActiveSheet.Protect ...
十五、SET 表示把一个对象赋值给变量 十六、DIR 指定一个文件路径,其文件路径下有这个文件,返回文件名,没有这个文件,返回空 十七、VBA中的查找 十八、数组 十九、ActiveX控件 二十、窗体 二十一、Msgbox详解 二十二、Inputbox详解 二十三、GetOpenFilename与Dialogs 二十四、使用ADO连接外部Excel数据源 二十五、Shape对象...
("TextBox1").Object.Value, "yyyy-mm-dd") End With 反之,如果要想工作表中的文本框显示单元格中的日期...,可使用下面的代码: With Worksheets("Sheet3") .OLEObjects("TextBox1").Object.Value = Format(.Cells(8, 2), "yyyy-mm-dd...看着有点简单,但主要是理解工作表中的ActiveX控件是如何...
If Application.InputBox("请输入密码:") = 1234 Then [A1] = 1 '密码正确时执行 Else: MsgBox "密码错误,即将退出!" '此行与第2行共同设置密码 End If 本示例为设置密码窗口 (1) X = MsgBox("是否真的要结帐?", vbYesNo) If X = vbYes Then ...
6.Textbox(文本框控件) 常见属性: Enabled 可用性 Value 返回值 Visible 可见性 PasswordChar 密码字符 即保护用户输入信息掩码 TabIndex 按下Tab键时的切换顺序,多个控件之间用Tab键切换,可在属性设置 注意值为0开始 举例事件:输入账号密码的文本框事件举例 7. ComboBox复合框控件(下拉框) 常用属性: Enable Value...
(跳到第一次输入密码 Textbox myPW = "chijanzen" '假设密码 chijanzen Application.SendKeys myPW, True '输入密码 Application.SendKeys "{TAB}", True 'TAB 键(跳到第二次输入密码 Textbox Application.SendKeys myPW, True '输入密码 Application.SendKeys "{ENTER}", True '按确定钮(预设值) ...
ActiveSheet.Range("k2") = TextBox1.Value '将文字框内容写进k列 ActiveSheet.Range("l2") = TextBox2.Value '将文字框内容写进l列 TextBox1.Value = "" '清空文字框内容 TextBox2.Value = "" '清空文字框内容 Worksheets("打印信息").Range("a2").Value = 1 '给指定表的单元格写入数据 ...
If Application.InputBox("请输入密码:") = 1234 Then [A1] = 1 '密码正确时执行 Else: MsgBox "密码错误,即将退出!" '此行与第2行共同设置密码 End If 本示例为设置密码窗口 (1) X = MsgBox("是否真的要结帐?", vbYesNo) If X = vbYes Then ...
就是在word空白文档中用控件制作两个文本框TextBox1和TextBox2用VBA实现两文本框 就是在word空白文档中用控件制作两个文本框TextBox1和TextBox2用VBA实现两文本框自动链接,1文本框中写满后光标自动到2文本桩。... 就是在word空白文档中用控件制作两个文本框TextBox1和TextBox2用VBA实现两文本框自动链接,1...