在VBA中,通常使用InputBox函数来显示一个简单的对话框以获取用户输入。然而,标准的InputBox函数并不直接支持密码显示功能(即将输入字符替换为星号)。为了实现这一功能,你需要使用Windows API来创建一个自定义的输入对话框。 创建自定义密码输入对话框: 使用Windows API函数(如FindWindow、SendMessage等)来创建一个自定...
在VBA窗口中，选中窗体上的文本框，在左侧属性窗口中将文本框的passwordChar属性，输入一个星号就行了.这样，在代码运行时，文件框中的输入内容会变星号。
建议你使用自定义用户窗体，添加一个 TextBox，修改它的属性：PasswordChar ="*" ，然后就可以轻松实现你的要求了！
每天一个VBA小技巧 姓名中间批量插入星号 郑广学VBA代码助手, 视频播放量 538、弹幕量 0、点赞数 4、投硬币枚数 0、收藏人数 0、转发人数 0, 视频作者 郑广学办公自动化教学, 作者简介 VBA代码助手作者 VBA/JSA/VSTO课程咨询v : EXCEL880B,相关视频:每天一个VBA小技巧 文
1. 打开一个新工作簿，并且切换到VB编辑器窗口 2. 激活立即窗口并敲入下述代码：CurDir 当你按下回车，VB就显示当前文件夹名称，例如：C:\ 如果你有第二个硬盘（或者光驱）的话，你可以获取D盘上的当前文件夹，例如：CurDir(“D:\”)如果你提供了一个并不存在的驱动字母的话，VB就将显示下述错误信息：“设备...
S= InputBOX(s1,s2,”Access”)’s是用于获取对话框中输入的内容 End sub Access的根对象 对象名 说明 Appllcation 应用程序对象,即Access环境 DBEngine 数据库管理系统对象,其中表、查询、记录、字段等都是它的子对象 Debug 立即窗口对象,在调试过程中,可使用Print方法在该窗口中显示输出信息 ...
InputBox"输入必须为奇数,请重新:") GoTo Rerun End If vlv = (level + 1) /2 For i = To level Debug.Print String((vlv - i), " ") &String(level - 2 * Abs(vlv - i), "*") & String(Abs(vlv - i), " ") Next i End Sub 2019-06-20 回复 jicai ...
学习资料 https://www.yiibai.com/vba/vba_input_box.html输入框 InputBox函数说明提示用户输入值。当输入值后,如果用户单击确定 按钮或按下键盘上的ENTER 键,InputBox函数将返回文本框中的文本。如果用户单击“取消” 按钮,该函数将返回一个空字符串("")。函数用法InputBox(prompt[,title][,default][,xpo ...
shtFilter = Application.InputBox("请输入工作表过滤字符(没有指定的话输入星号*) : ","InputBox", , , , , , 2) IfshtFilter =FalseThenshtFilter ="" head = Application.InputBox("请输入表头行数","InputBox", , , , , , 1) Ifhead =FalseThenhead = 0 ...
3 我们打开 开发工具中的Visual Basic，将下列代码复制到编辑框中:Sub 取消合并单元格并填充空白单元格() Dim j Dim k, l k = InputBox("请输入合并单元格所在列") l = Cells(Rows.Count, k).End(xlUp).Row Columns(k).UnMerge l = Cells(...