精华内容
下载资源
问答
  • VBA 输入输出对话框

    千次阅读 2020-03-25 13:40:31
    inputbox prompt:=提示文字 title:=最上面的那个字 default:=默认值,如果你啥都不写,那就是这个默认值 xpos:=左端与屏幕左端的距离 ypos:=顶端与屏幕顶端的距离 在输入对话框VBA中有两种形式,分别是: ...

    inputbox

    prompt:=提示文字
    title:=最上面的那个字
    default:=默认值,如果你啥都不写,那就是这个默认值
    xpos:=左端与屏幕左端的距离
    ypos:=顶端与屏幕顶端的距离

    在这里插入图片描述

    在输入对话框在VBA中有两种形式,分别是:

    • InputBox
    • Expression.InputBox

    二者在大致功能上基本相同,个人认为二者重点差异为:

    • 后者有 Type 参数,可以限制输入类型,同时可以引用单元格 ;
    • 二者输入时, 空值、取消 的返回值不同。

    也就是多了一个type参数,这也就代表了后者的东西更多一点东西,前面的input输出的也就是一个str罢了,但是后面的东西输出的东西可以限制,也可以直接用在单元格上,也就是升级版吧。

    MSGBOX函数

    prompt:=“中午妈的”
    buttons:=图标和按钮
    title:=“就是弹出框上面的那个“
    在这里插入图片描述
    按钮
    在这里插入图片描述
    在这里插入图片描述
    在这里插入图片描述
    图标
    在这里插入图片描述
    在这里插入图片描述
    在这里插入图片描述
    两个都要设置的时候,就用+把这两个代码链接在一起

    默认值
    在这里插入图片描述
    依然的buttons属性,只要和上面一样,在后面弄个+号就行了

    选择不同的值,处理不同的结果
    在这里插入图片描述

    展开全文
  • VBA 自定义对话框

    2020-08-17 22:09:45
    今天主要讲讲自定义对话框这一章,中间鸽了一小部分的函数过程,WindowsAPI、连接数据库的内容还没学,后续再更新。 一、inputbox inputbox输入框之前已经用过了,但是除了之前VBA中用的inputbox之外,还有...

    今天主要讲讲自定义对话框这一章,中间鸽了一小部分的函数过程,WindowsAPI、连接数据库的内容还没学,后续再更新。

    一、inputbox

    inputbox输入框之前已经用过了,但是除了之前VBA中用的inputbox之外,还有Application对象中的方法,这两个是不一样的。

    ①VBA中的inputbox函数用法:

        Dim str As String
        str = InputBox("请随便输入一串字符串")

    VBA中的inputbox函数完整方法:

    InputBox(prompt、[ title ]、[ default ]、[ xpos ]、[ ypos ]、[HelpFile、Context])

    prompt:必填,也就是要显示的提示信息,最多1024个字符,回车(chr(13))、换行(chr(10))

    title:可选,输入框的标题。不写的话就是上图的“Microsoft Excel”。

    default:可选,指定一个初始值,用户输入前就会有个内容

    xpos:可选,提示框距离屏幕左侧位置(单位缇:1缇相当于1/15像素,按照现在的屏幕分辨率,起码上千才能到屏幕中间)

    ypos:可选,提示框距离屏幕上侧位置(单位缇)

    HelpFile:帮助文件

    Context:帮助主题

    也可以这样操作:

    str = InputBox(prompt:="请输入", Title:="提示框", Default:="默认内容")

    ② EXCEL中inputbox方法用法:

    InputBox(Prompt, Title, Default, Left, Top, HelpFile, HelpContextId,Type)

    Prompt:必填,也就是要显示的提示信息,可以是字符串、数字、日期、布尔值,当然了,显示的时候都会被强制转换为String类型。

    Title:可选,输入框的标题。不写的话就是上图的“Microsoft Excel”。

    Default:可选,指定一个初始值,用户输入前就会有个内容

    Left:可选,提示框距离屏幕左侧位置(单位磅:1磅相当于1/72 英寸,约等于1/2.8mm,总之按照现在的屏幕分辨率,起码上千才能到屏幕中间)

    Top:可选,提示框距离屏幕上侧位置(单位磅)

    HelpFile:帮助文件

    HelpContextId:帮助主题

    Type:可选的参数,返回数据类型的代号

    type和之前的函数比是多出来的,参数可以直接写数字,也可以写公式(例如4+4),有以下几种:

    说明

    0

    公式

    1

    数字

    2

    文本(字符串)

    4

    逻辑值(True 或 False)

    8

    Range 对象形式的单元格引用

    16

    错误值,如 #N/A

    64

    数值数组

    例如需要用户输入单元格区域,可以这样操作:

    str = Application.InputBox(prompt:="请输入单元格区域", Type:=8)

    type的好处是会自动判断用户输入的数据类型。

     

     

    二、VBA中的Msgbox

    MsgBox (prompt, [ buttons, ] [ title, ] [ helpfile, context ])

    prompt:必填,也就是要显示的提示信息,最多1024个字符,回车(chr(13))、换行(chr(10))

    buttons :可选。 数值表达式,用于指定要显示按钮的类型。

    title:可选,输入框的标题。不写的话就是上图的“Microsoft Excel”。

    HelpFile:帮助文件

    Context:帮助主题

    buttons 参数设置如下:

    二、VBA中的Msgbox

    说明

    MsgBox (prompt, [ buttons, ] [ title, ] [ helpfile, context ])

    0

    仅显示“确定”按钮。

    prompt:必填,也就是要显示的提示信息,最多1024个字符,回车(chr(13))、换行(chr(10))

    1

    显示“确定”和“取消”按钮。

    buttons :可选。 数值表达式,用于指定要显示按钮的类型。

    2

    显示“中止”、“重试”和“忽略”按钮。

    title:可选,输入框的标题。不写的话就是上图的“Microsoft Excel”。

    3

    显示“是”、“否”和“取消”按钮。

    HelpFile:帮助文件

    4

    显示“是”和“否”按钮。

    Context:帮助主题

    5

    显示“重试”和“取消”按钮。

    buttons 参数设置如下:

    16

    显示“关键消息”图标。

    vbQuestion

    32

    显示“警告查询”图标。

    vbExclamation

    48

    显示“警告消息”图标。

    vbInformation

    64

    显示“信息消息”图标。

    vbDefaultButton1

    0

    第一个按钮是默认按钮。

    vbDefaultButton2

    256

    第二个按钮是默认按钮。

    vbDefaultButton3

    512

    第三个按钮是默认按钮。

    vbDefaultButton4

    768

    第四个按钮是默认按钮。

    vbApplicationModal

    0

    应用程序模式;用户在继续在当前应用程序中工作前必须响应消息框。

    vbSystemModal

    4096

    系统模式;在用户响应消息框前,所有应用程序都挂起。

    vbMsgBoxHelpButton

    16384

    在消息框中添加“帮助”按钮。

    vbMsgBoxSetForeground

    65536

    将消息框窗口指定为前景窗口。

    vbMsgBoxRight

    524288

    文本右对齐。

    vbMsgBoxRtlReading

    1048576

    指定文本在希伯来语和阿拉伯语系统中应从右到左显示。

    下面两句意思一样

        str = MsgBox("请进行选择", 4)
        str = MsgBox("请进行选择", vbYesNo)

    根据上面的各种Msgbox的按钮类型,可以得到以下几种用户点击的返回结果:

    常量

    说明

    vbOK

    1

    确定

    vbCancel

    2

    Cancel

    vbAbort

    3

    中止

    vbRetry

    4

    重试

    vbIgnore

    5

    忽略

    vbYes

    6

    vbNo

    7

    三、Excel文件和文件名获取方法

    ①GetOpenFilename (FileFilter, FilterIndex, Title, ButtonText, MultiSelect)

    显示标准的 “打开” 对话框,并获取用户文件名,而不必真正打开任何文件。

    FileFilter:可选,指定文件筛选条件的字符串。

    FilterIndex:可选,指定默认文件筛选条件的索引号,编号从 1 直到 FileFilter 中指定的筛选器编号。 如果此参数被省略或大于存在的筛选器数,使用的是第一个文件筛选器。

    Title:可选,指定对话框的标题。 如果此参数被省略,标题为“打开”。

    ButtonText:可选,仅限 Macintosh。

    MultiSelect:可选,允许选择多个文件名。 若为 False,仅允许选择一个文件名。

    不写参数用法:

    Sub demo()
        Dim fileName As String
        fileName = Application.GetOpenFilename
        MsgBox fileName
    End Sub

    此时只能选择一个文件,输出文件路径和名称

     

    指定文件类型用法(比如指定EXCEL和WORD文件),默认选定为word文件,可以多选:

    Sub demo()
        Dim fileName As Variant
        Dim filt As String
        Dim msg As String
        Dim i As Integer 
        msg = ""
        filt = "excel文件,*.xls*,word文件,*.doc*,所有文件,*.*"
        fileName = Application.GetOpenFilename(filt, 2, , , True)
        If IsArray(fileName) Then
            For i = LBound(fileName) To UBound(fileName)
                msg = msg + fileName(i)
            Next
        Else
            msg = fileName
        End If
        MsgBox msg
    End Sub

    需要注意的是,文件类型的选择上每一个类型要写两个内容,一个是文本提示,一个是后缀名。例如"excel文件,*.xls*,只写了后缀是会报错的。

    LBound 函数:返回包含指定的数组维度的最小可用下标的Long数据类型。

    UBound 函数:返回包含指定的数组维度的最大可用下标的Long数据类型。

     

    ② GetSaveAsFilename (InitialFilename, FileFilter, FilterIndex, Title, ButtonText)

    显示标准的“另存为”**** 对话框,获取用户文件名,而无须真正保存任何文件

    InitialFilename:指定建议的文件名。 如果省略该参数,Microsoft Excel 使用活动工作簿的名称。

    FileFilter:指定文件筛选条件的字符串。 最大长度为 255 个字符,否则该方法返回错误 2015。

    FilterIndex:指定默认文件筛选条件的索引号,范围为 1 到 FileFilter 指定的筛选条件数。 如果此参数被省略或大于存在的筛选器数,使用的是第一个文件筛选器。

    Title:指定对话框的标题。 如果省略该参数,则使用默认标题。

    ButtonText:仅限 Macintosh。

     

    ③FileDialog (fileDialogType):获得目录的名称可以使用这个

    返回一个 FileDialog 对象,它表示文件对话框的实例。 提示输入目录名称

    fileDialogType:必需,文件对话框的类型。共以下几种:

    msoFileDialogFilePicker。 允许用户选择文件。

    msoFileDialogFolderPicker。 允许用户选择文件夹。

    msoFileDialogOpen。 允许用户打开文件。

    msoFileDialogSaveAs。 允许用户保存文件。

    用法如下:

    Sub demo2()
        Dim str As String
        With Application.FileDialog(msoFileDialogFilePicker)
            .InitialFileName = "C:\"
            .Title = "选择一个文件夹"
            .Show
            If .SelectedItems.Count = 0 Then
                MsgBox "啥也没选"
            Else
                MsgBox .SelectedItems(1)
            End If
        End With
    End Sub

     

     

    展开全文
  • EXCEL VBA 选择文件对话框

    万次阅读 2013-08-20 15:13:53
    本方法返回选定的文件名或用户输入的名称。返回的名称可能包含路径说明。如果 MultiSelect 为 True ,则返回值将是一个包含所有选定文件名的数组(即使仅选定了一个文件名)。如果用户取消了对话框,则该值为 ...
    Sub XXX()
        Dim arr()
        arr = Application.GetOpenFilename("所有支付文件 (*.xls;*.xlsx;*.csv),*.xls;*.xlsx;*.csv,Excel 文件 (*.xls),*.xls,Excel2007 文件 (*.xlsx),*.xlsx,CSV 文件 (*.csv),*.csv", , "选择文件", , True)
        For i = LBound(arr) To UBound(arr)
            Cells(i, 1).Value = arr(i)
        Next
    End Sub
    

    以上例子为文件多选

    以下是MICROSOFT的原文

    Application.GetOpenFilename 方法
    显示标准的 “打开”对话框,并获取用户文件名,而不必真正打开任何文件。

    语法

    表达式.GetOpenFilename(FileFilter, FilterIndex, Title, ButtonText, MultiSelect)

    表达式   一个代表 Application 对象的变量。

    参数

    名称必选/可选数据类型描述
    FileFilter可选Variant一个指定文件筛选条件的字符串。
    FilterIndex可选Variant指定默认文件筛选条件的索引号,取值范围为 1 到由 FileFilter 所指定的筛选条件数目。如果省略该参数,或者该参数的值大于可用筛选条件数,则使用第一个文件筛选条件。
    Title可选Variant指定对话框的标题。如果省略该参数,则标题为“打开”。
    ButtonText可选Variant仅限 Macintosh。
    MultiSelect可选Variant如果为 True,则允许选择多个文件名。如果为 False,则只允许选择一个文件名。默认值为 False

    返回值
    Variant

    说明

    FileFilter 参数中传递的该字符串由文件筛选字符串对以及后跟的 MS-DOS 通配符文件筛选规范组成,中间以逗号分隔。每个字符串都在“文件类型”下拉列表框中列出。例如,下列字符串指定两个文件筛选 - 文本和加载宏:“文本文件 (*.txt),*.txt,加载宏文件 (*.xla),*.xla”。

    要为单个文件筛选类型使用多个 MS-DOS 通配符表达式,需用分号将通配符表达式分开。例如:“Visual Basic 文件 (*.bas; *.txt),*.bas; *.txt”。

    如果省略 FileFilter,则此参数默认为“所有文件 (*.*),*.*”。

    本方法返回选定的文件名或用户输入的名称。返回的名称可能包含路径说明。如果 MultiSelectTrue,则返回值将是一个包含所有选定文件名的数组(即使仅选定了一个文件名)。如果用户取消了对话框,则该值为 False

    本方法可能更改当前驱动器或文件夹。

    展开全文
  • VBA-使用inputbox方法

    千次阅读 2020-03-04 13:34:04
    在前面已经将结果VBA中inputbox函数的使用,但是当输入数据类型不匹配时,运行过程中会出现错误,为了避免这种错误,这里可以使用inputbox方法获取用户的输入。 该方法的格式为:expression.InputBox(Prompt, ...

    1、输入指定类型的数据

    在前面已经将结果VBA中inputbox函数的使用,但是当输入的数据类型不匹配时,运行过程中会出现错误,为了避免这种错误,这里可以使用inputbox方法获取用户的输入。

    该方法的格式为:expression.InputBox(Prompt, Title, Default, Left, Top, HelpFile, HelpContextId, Type)

    • prompt:必选项,作为对话框消息显示的字符串表达式
    • title:可选项,作为显示在对话框标题栏中的字符串表达式
    • default:可选项,在对话框显示时出现在文本框中的初始值
    • left:可选项,指定对话框相对于屏幕左上角的 x 坐标
    • top:可选项,指定对话框相对于屏幕左上角的 y 坐标
    • helpfile、HelpContextId:可选项, 为对话框提供上下文相关的帮助和编号,如果提供了其中一个参数,则必须提供另一个参数,两者缺一不可
    • type:可选项,指定返回的数据类型。如果省略 Type 参数,对话框将返回文本

    inputbox方法和函数的最大区别就在于最后一个参数type,通过该参数可以指定返回的数据类型,以及如何对内置的出错处理如下:

    数值期望的返回值
    0公式
    1数字
    2文本(字符串)
    4逻辑值
    8单元格引用
    16错误值
    64数组
    Sub test()
        Dim a As Integer
        a = Application.InputBox("请您输入一个整数", Type:=1)
        If a <> False Then
            Sheet1.Range("a1").Value = a
        Else
            MsgBox "你已取消了输入!"
        End If
    End Sub
    

    2、获得单元格区域的地址

    该方法相对于函数的第二个优点是可以获取单元格的位置,如下代码:

    Sub test1()
        Dim rng As Range
        On Error GoTo line
        Set rng = Application.InputBox("请使用鼠标选择单元格区域:", Type:=8)
        rng.Interior.ColorIndex = 10
    line:
    End Sub
    
    展开全文
  • 数据类型判断、转化,对话框(弹框输入、提示,返回文件路径、文件夹),空的一些情况,正则表达式语法,其他常用语句。
  • 目录 例 ... 使用InputBox函数提供一个可以输入信息的弹出对话框提示,并使用一个变量接受用户的输入值。 Option Explicit Sub 输入对话框() Dim sInput As String sInput = InputBox("输入...
  • 自定义函数 一、函数使用 自定义的函数如果要在 excel 表格中直接引用的话,需要在模块中定义,实测工作表和工作簿中...vba 函数可以返回数组,只要将函数名变量赋值为数组即可 二、函数参数 支持选择参数 支持...
  • 在使用Excel 的过程中,如果需要用户输入简单的数据,作为“已知数”,那么可以使用inputbox 函数显示一个对话框,供用户在对话框输入数据。 Inputbox 函数语法在一对话框来中显示提示,等待用户输入正文或按下...
  • 目录 码1 Application.GetOpenFilename方法 码2 FileDialog对象 FileDialog对象的常用属性 使用FileDialog对象... 调用内置对话框后,相当于从菜单或者功能区打开了该对话框,期间的每个操作都将影响工作表中的数据
  • 1.VBA输入输出

    千次阅读 2013-11-02 13:13:04
    常用输入/输出语句结构化程序设计中使用的基本控制结构有3种:顺序结构、选择结构和循环结构。顺序结构就是按照语句的书写顺序从上到下、逐条语句地执行。执行时,编写在前面的代码先执行,编写在后面的代码后执行。...
  • excel vba 数据分析

    千次阅读 2019-01-20 12:20:00
    VBA(Visual Basic for Application)是Microsoft Office系列软件的内置编程语言,其语法结构与Visual Basic编程语言互相兼容,采用的是面向对象的编程机制和可视化的编程环境。 第一节 标识符 一.定义 标识符是一...
  • vba完整的例子,有用户窗口操作,选择文件操作,读取文件,进行逻辑计算,获得结果,输出到excel表中。贪心算法,欧几里得定律。
  • 在日常工作中,经常会遇到需要实时记录数据录入的时间问题。 有朋友会说了,用快捷键啊,按Ctrl+;(分号)可以返回当前的系统日期,按Ctrl+Shift+;(分号)可以返回当前的系统时间。 但是如果需要同时返回日期和...
  • 利用VBA开发数据汇总工具通常在日常工作中总会用到Excel并且经常会遇到Excel将多个表格进行汇总。经过工作中的实践,发现用VBA开发具有一定重复性的功能,能够极大提高工作效率。最近,将本人曾开发的的Excel数据...
  • step2: 在 录制宏 对话框输入宏的名称,点击确定。选中 使用相对引用命令 ,接下来我们就可以执行表格操作啦! 插入按钮自动执行宏: 录制宏 step1: 在第二条工资信息前插入两行空行; step2: 将第一行内容...
  • 工作中,需要多次用到“自定义自动筛选方式”对话框,所以想到通过编写宏代码,以提高工作效率。在Excel Home上([如何用宏自定义自动筛选方式的快捷键](http://club.excelhome.net/thread-1117437-1-1.html ""))找到...
  • Excel使用VBA读取实时WebService股票数据

    万次阅读 多人点赞 2017-08-03 18:05:05
    采用的是腾讯提供的股票接口,例如:http://qt.gtimg.cn/q=sh600016,返回输入如下: v_sh600016="1~民生银行~600016~8.58~8.68~8.67~886218~499700~386518~8.58~772~8.57~6361~8.56~8593~8....
  • VBA输入框

    千次阅读 2017-11-23 17:28:37
    VBA输入框 InputBox函数帮助用户从用户得到值。输入值时,如果用户点击OK按钮或键盘上按下ENTER后,InputBox函数将返回在文本框中的文本。如果用户点击取消按钮,该函数会返回一个空字符串(“”)。 语法 InputBox...
  • 如果消息框只是提醒用户,并不需要获取用户的输入,那么使用可以自动关闭的消息提示框,可以避免程序暂停挂起,无法继续执行的问题,但是VBA中提供的MsgBox无法实现自动关闭的功能。下面介绍一个未公开的Windows API...
  • 在一对话框来中显示提示,等待用户输入正文或按下按钮,并返回包含文本框内容的 String。 如果用户单击 Cancel,则此函数返回一个长度为零的字符串 ("")。 2 inputbox的后续处理 2.1把inputbox返回的值,处理为...
  • 由于VBA源代码位于Excel文件(二进制文件)中,因此我需要使用来导入,导出和管理VBA源代码版本每次您打开或关闭Excel工具vba-regex-world-dev.xlsm ,都会有会显示一个对话框,添加用于导入和导出VBA源的信息。...
  • VBA+批处理实现WORD转EXCEL数据分析开发日志WORD程序转EXCEL并处理数据项目目的开发日志2020-09-01(批处理)开发日志V1.2.1 2020-09-05业务流程分以下几步:当前版主要的问题当前版次要的问题技术小结2020-09-05 ...
  • EXCEL--如何做多选对话框

    千次阅读 2013-05-25 00:02:49
    给添加的这些控件改名字:选中checkbox1过两秒之后再点击checkbox1,删除原来的名字“checkbox1” 输入“A” 剩下的几个一样改完名字之后如下图 接下来就开始写代码了 双击确定按钮弹出如下图   ...
  • 前几期为大家介绍了基于VBA二次开发的CATIA软件焊点坐标数据导出应用程序编写以及焊点小球生成工具应用程序的编写,本期再来为大家介绍一下基于VBA二次开发的Excel焊点坐标数据导入与生成点数模的应用程序编写。...
  • 他的操作也不难,在这里跟大家分享2中方法,下面就让我们来看一下他是如何操作的一、使用vba对于这种自动填充颜色的功能,最简单有效的方法就是使用vba来实现这样的操作,首先我们点击工作表的名...
  • 在制造业公司的生产管理,经营管理,采购管理,财务管理等工作中,都有大量的数据处理的任务,通过繁复的excel手工运算...以下通过一些案例,展示利用excel公式和VBA进行自动化数据分析,数据汇总,网页表单自动提...
  • Vba菜鸟教程

    万次阅读 多人点赞 2020-05-02 18:21:15
    文章目录Vba菜鸟教程编辑器宏vba基本语法运算符变量语句简写语句sub语句调用语句退出语句分支语句循环语句判断语句公式与函数在单元格输入公式利用单元格公式返回值调用工作表函数利用vba函数自定义函数操作对象操作...
  • 选择【设置控件格式】对话框的【控制】选项卡,如下图所示,在【单元格链接】的地址框中输入数据存入的单元格地址,一般用绝对地址,即单元格地址的行和列前都加上“$”符号,或者单击【单元格链接】文本框右侧的...

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 2,283
精华内容 913
关键字:

vba输入数据对话框