精华内容
下载资源
问答
  • 数据类型判断、转化,对话框(弹框输入、提示,返回文件路径、文件夹),空的一些情况,正则表达式语法,其他常用语句。

    VBA数据类型判断转化、对话框、空、正则表达式语法

    这里整理下自己觉得VBA可能会比较有用的一些内容,主要涉及到数据类型的判断、转化,对话框的使用,关于‘空’的阐述以及正则表达式的基本语法。


    一些常用的语句

    • 取消当前工作表所有超链接
    Cells.Hyperlinks.Delete
    
    • 刷新透视表
    ActiveSheet.PivotTables("数据透视表1").PivotCache.Refresh
    
    • 结束exit语句
    exit do	' 结束do循环
    eixt for	   ' 结束for循环
    exit sub	' if condition then ~~~ : end	end是结束整个程序。exit sub只是结束这个过程。
    
    • 循环语句
    for循环:
    exit for	表实结束for循环,可以结合if判断结束循环。
    for i = 1 to n
    ......
    next
    ______________________________
    for each var in list
    ......
    next
    _____________________________
    do循环类型1:
    do while	+条件 	while表示符合条件时执行循环
    .....
    loop
    do循环类型2:
    do until + 条件	until表示当符合条件时跳出循环
    ......
    loop
    do循环类型3:	
    使用if + exit do 结束循环。
    do
    if + 条件
    exit do
    end if
    loop
    do循环4:
    do
    ......
    loop until+ 条件	while和until灵活使用,一个符合条件执行循环,一个符合条件跳出循环。
    
    • 格式刷
    .Range("a6:at6").Copy
    .Range("a7:a7").PasteSpecial Paste:=xlPasteFormats
    
    • shell打开txt文件
    Shell "Notepad.exe " & f, vbNormalFocus	' f:txt文件完整路径
    
    • 选择性粘贴为值
    With ActiveSheet.UsedRange
        .Copy
        .PasteSpecial Paste:=xlPasteValues
        Application.CutCopyMode = False		'复制后要清空剪切板,不然再操作复制,会出错。
    End With
    
    • 错误相关
    on error resume next		' 遇到错误忽略继续
    on error goto line		' 遇到错误跳转
    on	error goto 0		' 遇到错误报错。可以再on error resume next 后调用恢复报错。
    ' goto是跳转语句,也可以结合判断使用
    If VBA.IsError(Range("A1").Value) = True Then		' 判断单元公式返回的是否是错误值
    
    • 插入批注
    ActiveCell.AddComment ("Hello")  
    
    • 自动调整列宽
    Range("a1:h1").EntireColumn.AutoFit
    
    • 公式自动向下填充
    Cells(2, 3).Formula = "=a2&b2"	输入公式
    Range(Cells(2, 3), Cells(Cells(Rows.Count, 1).End(xlUp).Row, 3)).FillDown	' 使用filldown公式向下填充
    range("a2:b" & usedrange.rows.count).filldown   ' 假设分别在a1和b1单元格输入公式的情况下,下面单元格自动填充
    
    • 隐藏excel网格线,隐藏行列
    ActiveWindow.DisplayGridlines = False     ' 隐藏网格线
    Range("C:C,E:E").EntireColumn.Hidden = True   ' 隐藏列
    ' 取消行列隐藏
    Cells.EntireColumn.Hidden = False 
    Cells.EntireRow.Hidden = False
    
    • 背景颜色索引
    range("a1").Interior.ColorIndex = xlNone   ' 取消背景颜色
    range("a1").Interior.ColorIndex =3    ' 红色
    Range("h:l,o:o,r:s,aa:ab").Interior.Color = vbGreen  ' 也可以直接设置color
    

    在这里插入图片描述

    • 判断字符串是否包含xx字符:instr
    index = instr("who you are","are")
    

    数据类型的判断、转化

    • 类型判断:返回bool值
      • typename(i) :判断数据格式
      • IsNumeric:判断变量的值是否为数值
      • isdate:判断变量的值是否为日期
      • isnull:判断变量的值是否包含任何有效数据
      • isempty:判断变量的值是否为空
      • IsArray : 判断出变量是否为一个数组。
      • IsError:判断变量是否返回的是一个错误值
      • IsObject:判断变量是否表示对象变量

    • 类型转化
      很多时候在判断时候,数据类型不一致会带来干扰,这时候可以使用类型转化函数。
      • CBool :Boolean
      • CDate :Date 任何有效的日期表达式。可以使用isdate判断date是否可以被转化为日期或时间。
      • CInt :Integer -32,768 至 32,767,小数部分四舍五入。
      • CLng :Long -2,147,483,648 至 2,147,483,647,小数部分四舍五入。
      • CSng :Single 负数为 -3.402823E38 至 -1.401298E-45;正数为 1.401298E-45 至 3.402823E38。
      • CStr :String 依据 expression 参数返回Cstr。
      • CVar :Variant 若为数值,则范围与 Double 相同;若不为数值,则范围与 String 相同。
      • Val :将数字转化为值value。
      • int: 转化为整数。比如int(“10”)

    关于“空”

    • variant
      A = Null '一个variant变量可以赋值为Null
      IsNull(A) '判断一个varint变量是否为Null
      一个尚未初始化的variant变量是empty
      a = empty
      A 等于 Empty, 因为尚未初始化的“不定型变量”都等于 Empty。
      '但如果检测 A = “” 或 A = 0, 也都可以得到 True 值。
    • string
      判断一个string变量为""(空字符串)
      a = “”
    • integer
      定义一个integer变量后,它自动初始化为0
      a = 0
    • object
      定义一个object变量后,它自动初始化为nothing。对象要使用is判断
      a is nothing

    对话框的使用

    这里主要涉及到inputbox输入框、msgbox弹出框、以及选择文件、文件夹对话框

    • Application.inputbox(prompt,title,default,left,top,helpfile,helpcontextid,type)

      • prompt:提示信息 - 必选参数
      • title:标题
      • default:输入框内默认显示内容
      • Left:指定对话框相对于屏幕左上角的 X 坐标(以磅为单位)
      • Top:指定对话框相对于屏幕左上角的 Y 坐标(以磅为单位)
      • HelpFile:此输入框使用的帮助文件名, 如果有 HelpFile 和 HelpContextID 参数,对话框中会显示帮助按钮
      • HelpContextID:HelpFile 中帮助主题的上下文 ID 号
      • Type:指定返回的数据类型, 如果省略此参数,则对话框返回文本
        • type参数: {0:公式,1:数字,2:文本,4:逻辑值,8:range单元格引用,16:错误值,64:数值数组}
    • inputbox和Application.inputbox区别:
      点击取消,前者返回是空。后者返回是false,用以区分返回输入是空还是点击了取消;后者可以限定输入的数据类型,如果输入数据类型与要求不符合会报错。

      Sub inputbox()
      '通过inputbox传入单元格
      Dim inputbx
      On Error GoTo 100
      Set inputbx = Application.inputbox("请选择单元格", "Title", "点击工作表单元格", , , , , 8)
      inputbx.Interior.Color = vbGreen
      100:
      End Sub
      

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

      • 参数
        • prompt - 必需的参数。在对话框中显示为消息的字符串。提示的最大长度大约为1024个字符。 如果消息扩展为多行,则可以使用每行之间的回车符(Chr(13))或换行符(Chr(10))来分隔行。
        • buttons - 可选参数。一个数字表达式,指定要显示的按钮的类型,要使用的图标样式,默认按钮的标识以及消息框的形式。如果留空,则按钮的默认值为0。
        • title - 可选参数。 显示在对话框的标题栏中的字符串表达式。 如果标题留空,应用程序名称将被放置在标题栏中。
        • helpfile - 可选参数。一个字符串表达式,标识用于为对话框提供上下文相关帮助的帮助文件。
        • Context - 可选参数。一个数字表达式,用于标识由帮助作者分配给相应帮助主题的帮助上下文编号。 如果提供上下文,则还必须提供helpfile。
      • Buttons参数
        该参数可以是用过数字或者英文标志,同时也可以多个一起使用,中间使用‘+’号连接。
        • 0 vbOKOnly - 仅显示“确定” 按钮。
        • 1 vbOKCancel - 显示“确定” 和“取消” 按钮。
        • 2 vbAbortRetryIgnore - 显示“中止”,“重试”和“忽略” 按钮。
        • 3 vbYesNoCancel - 显示“是”,“否”和“取消” 按钮。
        • 4 vbYesNo - 显示“是”和“否”按钮。
        • 5 vbRetryCancel - 显示“重试”和“取消”按钮。
        • 16 vbCritical - 显示严重消息图标。
        • 32 vbQuestion - 显示警告查询图标。
        • 48 vbExclamation - 显示警告消息图标。
        • 64 vbInformation - 显示信息消息图标。
        • 0 vbDefaultButton1 - 第一个按钮是默认的。
        • 256 vbDefaultButton2 - 第二个按钮是默认的。
        • 512 vbDefaultButton3 - 第三个按钮是默认的。
        • 768 vbDefaultButton4 - 第四个按钮是默认的。
        • 0 vbApplicationModal 应用程序模式 - 当前的应用程序将不会工作,直到用户响应消息框。
        • 4096 vbSystemModal 系统模式 - 所有的应用程序将不会工作,直到用户响应消息框。
      • MsgBox函数返回值
        • vbOK - 确定 按钮被点击。
        • vbCancel - 取消 按钮被点击。
        • vbAbort - 中止 按钮被点击。
        • vbIgnore - 忽略 按钮被点击。
        • vbYes - 是 按钮被点击。
        • vbNo - 否 按钮被点击。
      msb = MsgBox("选择是、否或取消", vbYesNoCancel + vbInformation, "标题")
      

      在这里插入图片描述


    • 返回文件完整路径:fullname
      可以调用改对话框选择文件,再打开对应的文件。
      Application.GetOpenFilename(文件类型筛选规则,优先显示第几个类型的文件,标题,是否允许选择多个文件名)
      • 限制文件为excel文件:
      f = Application.GetOpenFilename("Excel文件,*.xls")
      
      • 打开多种文件类型(word和excel):
      f = Application.GetOpenFilename("Excel2003文件,*.xls,Word文件,*.doc")
      
      • 打开多种文件类型,默认显示word文件(最后的参数2表示根据前边的选项,默认打开第几个):
      f = Application.GetOpenFilename("Excel2003文件,*.xls,Word文件,*.doc,文本文件,*.txt", 2)
      
      • 设置对话框名称:
      f = Application.GetOpenFilename("Excel2003文件,*.xls,Word文件,*.doc,文本文件,*.txt", 2, "选择要汇总的文件")
      
      • 选择多个文件,并以数组形式返回:
      Dim f
      ChDrive "E"
      ChDir Application.Path
      f = Application.GetOpenFilename("Excel2003文件,*.xls,Word文件,*.doc,文本文件,*.txt", 1, MultiSelect:=True)
      MsgBox f(1)		'返回数组第一个
      

    • 选择并返回文件夹:FileDialog
    • FileDialog属性和方法:
      • AllowMultiSelect 如果允许用户从文件对话框中选择多个文件,则返回 True。Boolean 类型,可读写
      • SelectedItems 选取的多个文件集合
      • InitialFileName 属性:设置初始路径和文件名称
      • InitialView 属性 :可以设置初始文件的显示样多
      • show 可以判断用户是否点击了取消按钮,如果点击取消会返回0,否则返回-1
      Sub test()
      On Error Resume Next
      Dim dig As Object
      Set dig = Application.FileDialog(msoFileDialogFolderPicker)
      With dig
      .InitialFileName = "d:\"		'对话框初始从d盘选择文件夹
      	.Show
      	MsgBox .SelectedItems(1)
      End With
      Set dig = Nothing
      On Error GoTo 0
      End Sub
      

    正则表达式

    • 常用属性
      • Global: 如果值为True,则搜索全部字符;如果值为False,则搜索到第1个即停止
      • IgnoreCase:bool类型,是否区分大小写
      • Pattern:正则表达式
      • Multiline:字符串是不是使用了多行,如果是多行,$(表示以…结尾)适用于每一行的最后一个

    • 常用方法

      • replace:替换
        replace(string,replace_str)
      Sub test()
          Dim regexp As Object
          Dim sr
      	Set regexp = CreateObject("vbscript.regexp")
          sr = "苹果12斤"
          With reg
            .Global = True
            .Pattern = "[\u4e00-\u9fa5]"
            Debug.Print .Replace(sr, "")		'把文字替换成空,取出数字
          End With
        End Sub
      
      • test方法: 正则表达式是否能在字符串匹配到,返回bool值;test(string)

      • Execute:执行返回一个 MatchCollection (集合)对象,该对象包含每个成功匹配的 Match 对象,如果只匹配一个的话,可以用数组m(0)直接返回匹配结果。如果有使用小括号“()”分组匹配,可以使用MatchCollection对象的SubMatches获取分组的内容,再使用数组切片到对应内容。

      Sub test()
      Dim regexp As Object
      Dim sr
      Dim collections As Object
      Dim submat
      Dim m
      
      sr = "5月2号销售量15,销售金额30,5月3号销售量20,销售金额40;"
      Set regexp = CreateObject("vbscript.regexp")
      With regexp
          .Global = True
          .Pattern = "销售量(\d+).+?销售金额(\d+)"
          If .test(sr) Then		'如果能匹配到再输入
              Set collections = .Execute(sr)
              For Each m In collections
                  Debug.Print m
                  For Each submat In m.submatches
                      Debug.Print submat
                  Next
              Next
          End If
          Debug.Print collections(0).submatches(1)   '我们也可以直接切片,比如第一个匹配对象的第二个分组
      End With
      End Sub
      

      在这里插入图片描述


      • MatchCollection对象的属性
        • FirstIndex : 匹配内容在整个字符串中的起始位置
        • Length : 匹配长度
        • Value:匹配的值
        • count:匹配对象的数量
        • item:匹配对象,如上使用集合或者对象索引切片,比如:collections(0)
      • SubMatches对象属性
        • count:匹配的分组数量
        • value:匹配的值
        • item:使用对象的索引切片,比如:collections(0).submatches(1)
          -

    关于正则的语法各编程语言基本一致,这里就不再多赘述了,有需要mina就网上搜罗吧~~~
    关于程序调试,以及查看对象的属性,查看VBE的本地窗口变量的变化及详情会是个不错的选择,此外,VBA帮助有中文译本,阅读容易,遇到问题可以查找官方文档。以下为官方文档链接:
    https://docs.microsoft.com/zh-cn/office/client-developer/excel/excel-home

    正则表达式测试工具分享:
    链接:https://pan.baidu.com/s/1Smn65HVXcpS6H3Bes9VjvQ
    提取码:6j6w

    参考:《兰色幻想》VBA教程

    展开全文
  • 在使用Excel 的过程中,如果需要用户输入简单的数据,作为“已知数”,那么可以使用inputbox 函数显示一个对话框,供用户在对话框输入数据。 Inputbox 函数语法在一对话框来中显示提示,等待用户输入正文或按下...

    b9d3098d2e93fdddfa36849c164f89b6.png

    在使用Excel 的过程中,如果需要用户输入简单的数据,作为“已知数”,那么可以使用inputbox 函数显示一个对话框,供用户在对话框中输入数据。
    Inputbox 函数语法在一对话框来中显示提示,等待用户输入正文或按下按钮,并返回包含文本框内容的字符串。
    第一讲:简单介绍里面的参数,以及判断用户选择了那个按钮。

        InputBox(prompt[, title] [, default] [, xpos] [, ypos] [, helpfile, context]) 


    InputBox 函数的语法具有以下 几个命名参数:

    Prompt 必需的
    作为对话框消息出现的字符串表达式。Prompt 的最大长度大约是 1024 个字符,由所用字符的宽度决定。如果 Prompt 包含多个行,则可在各行之间用回车符 (Chr(13))、换行符 (Chr(10)) 或回车换行符的组合 (Chr(13) & Chr(10)) 来分隔。
    Title 可选的
    显示对话框标题栏中的字符串表达式。如果省略 Title,则把应用程序名放入标题栏中。
    Default 可选的。
    显示文本框中的字符串表达式,在没有其它输入时作为缺省值。如果省略 Default,则文本框为空。其它参数省略,请参见Excel帮助文件。

    4013c62cce3841ca3150113d5c0ea564.png

    知道了Inputbox函数说明后,则需要进一步得知,用户在选择不同按钮后会有什么反应。即要知道在单击[取消]或[关闭]或[确定]按钮的返回值。

    例子#1: 加载简单判断的输入框

    Sub Zhihuinputbox()
    
    Dim Inp As String
    
    '如果需要赋值时,请在函数内添加括号()
    Inp = InputBox("这是在知乎专栏的分享", "知乎", "VBA inputbox 用法")  
    
    ' 如果按了【取消】或者【关闭】 则返回VbNullstring, 则strptr(Inp)=0
    If StrPtr(Inp) <> 0 Then    
    
        If Len(Trim(Inp)) > 0 Then   '取消输入框里的所有空格,并计算其字符长度
            [a1].Value = Inp
        else
            MsgBox "你没有输入任何内容!"  '等于0,则便是输入为空值
        End If
    
    Else
        MsgBox "你取消并放弃了输入!"   '表示你按了【取消】/【关闭】这俩个间任意一个按钮
    End If
    
    End sub
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    

    MsgBox "你取消并放弃了输入!" '表示你按了【取消】/【关闭】这俩个间任意一个按钮

    展开全文
  • 一说到文字提醒,大家首先想到的就是使用【数据验证】,或者是使用批注、VBA等等。除了这些方法,你还会使用其他方法吗?比如在使用excel输入某些信息时,单元格里有灰色字体提示,当输入内容...

    305b35088ad1e86e076df4586dac009a.png

    d2399e62e383b2bd94640b57d47ead57.gif

    国庆惊喜大促狂欢大放价

    23门原创教程,原价168,限时87元!!

    国庆狂欢,优惠不等人,早买早便宜 

    点击了解

    支持微信公众号+小程序+APP+PC网站多平台学习

    51291910314e2a8f6a411b7e6399f156.png

    在使用excel制表时,经常会用到文字提醒功能。一说到文字提醒,大家首先想到的就是使用【数据验证】,或者是使用批注、VBA等等。除了这些方法,你还会使用其他方法吗?比如在使用excel输入某些信息时,单元格里有灰色字体提示,当输入内容后,灰色字体提示自动消失,这一神奇的效果是怎么在excel表中实现的呢?一、自定义格式+条件格式680246d2a5a2795582a65ece7fc0dc84.png操作步骤:选中要设置的单元格C2:C3,按键调出【设置单元格格式】对话框【数字】-【自定义】-【类型输入:G/通用格式;[=0]必填】,点【确定】370ba35ea238eb6e967c8a23b3949e5a.png在单元格里输入0,效果如下:89e5187c916d8354f0a4fe6325da261e.png【开始】-【条件格式】-选择【突出显示单元格规则】-选择【等于】f22079047b3bd3521d335c0952f410cf.png在弹出的【等于】对话框中,设置为选择【自定义格式】,在弹出的【设置单元格格式】对话框中点【字体】,选择字体颜色(灰色)4621a1f4246647dd96f580bce637785f.png点【确定】后效果如下:d296886695ace2c02c0c2082dffe6ad8.png843fae649a531959e0c6dd39b5bb1843.gif二、通过列宽进行设置99576cf3a637ca247c9bf1540b2438af.png操作步骤:在C2单元格输入:请输入您的真实姓名在C3单元格输入:请输入18位身份证号码选中单元格C2:C3,设置字体颜色为灰色选中C列,设置列宽为0.1(将列宽设置为一个较小的值)在单元格里输入内容,当字符数超出列宽且后面单元格里是空白时,内容会显示到后面单元格里。利用这单元格的特性,能轻松实现这一效果!06ef4cb036201b537e8d34a8cd1184ae.gif

    今天的分享就到这,如果教程对大家有用,希望大家多多分享点赞支持小编哦!你的每一次点赞和转发都是支持小篇坚持原创的动力。

    推荐学习★★★★★

    23a7501157d4eaf828024101f2b89e7d.gif

    请扫码下载O(∩_∩)O哈哈~

    48bf70478f2550a38c3b7c56a6d13d87.gif

    83835ff6c94a0e32e004cc715219abb3.gif

    展开全文
  • 第二步:(1)在Excel(03)中-"数据"-"导入数据"-"新建数据库查询"-然后选择之前建立的ODBC源-..(这里几个对话框可以直接关闭) -"Micorsoft Query"界面-"SQL"按钮(因为我是用sql语句查询)-输入sql语句-关...

    第一步:配置ODBC数据源-"控制面板"-"管理工具"-"ODBC数据源"-"用户DSN"。如 "Reports.DSN" (可以查资料)

    第二步:(1)在Excel(03)中-"数据"-"导入数据"-"新建数据库查询"-然后选择之前建立的ODBC源-..(这里几个对话框可以直接关闭)
        -"Micorsoft Query"界面-"SQL"按钮(因为我是用sql语句查询)-输入sql语句-关闭(或者选择"将数据返回Excel"按钮)
        (2)在Excel(07)中-"数据"-"自其它数据源"-"来自Microsoft Query"-...其他与03差不多
        至此数据源,连接到excel中。其中一些步骤,写的有点模糊,大致OK

    第三步:VBA代码--主要是利用 QueryTable 对象

    '--利用 QueryTable
    Sub QureyForMonth()
        Dim qTable As QueryTable, sql As String
        Dim curMonth As Date, firstDay As Date, lastDay As Date
        Dim i As Integer, num As Integer, j As Integer
        
        On Error GoTo hErr
        With ActiveSheet      '--sheet1 表
            If IsDate(.Range("B1").Value) Then
                curMonth = CDate(.Range("B1").Value)                               '--当前月份
                firstDay = CDate(Year(curMonth) & "-" & Month(curMonth) & "-1")                                     '--第一天
                lastDay = DateAdd("m", 1, firstDay)                                                                 '--下月第一天
                lastDay = CDate(Year(curMonth) & "-" & Month(curMonth) & "-" & DateDiff("d", firstDay, lastDay))    '--最后一天
                
                Set qTable = .QueryTables.Item("QUERY")           
               
                qTable.sql = "SELECT A.InvoiceNo, A.InvDate, A.InvSeqNo, A.VNumber, A.PickDate, A.CustPO AS [Cust P.O.], A.ItemID, A.Enduser, A.EMS," & _
                      " A.OEM, A.CustItemID,A.Category, A.Qty AS [Inv.Qty], A.Currency, A.Price, B.Quantity, B.Warehouse,B.Location, " & _
                      " B.CustID, B.CustPO, B.PurchPO, B.InvoiceNO AS [B.Inv No.],B.VMINo " & _
                      " FROM VMISalesInvX A LEFT OUTER JOIN  VMIStockIOX B ON A.VID = B.VID " & _
                      " WHERE (A.WareHouse IN ('H02', 'H03')) AND (A.InvDate BETWEEN '" & firstDay & "' AND '" & lastDay & "') AND (A.InvoiceNo <> '') " & _
                      " ORDER BY A.InvDate, A.InvoiceNo, A.InvSeqNo, B.ID"
                qTable.Refresh False
                
                '--设置格式
                .Columns(2).NumberFormat = "yyyy-MM-dd"
                .Columns(5).NumberFormat = "yyyy-MM-dd"
                .Range("B1").NumberFormat = "YYYY-MM"
                .Cells.Select
                .Cells.EntireColumn.AutoFit
                .Range("B1").Select
                MsgBox "WMI Sales Stock IO Details Updated!", vbInformation, "UPDATE"
            Else
                .Range("B1").Select
                MsgBox "Input Date Error", vbCritical, "ERROR"
            End If
        End With
        Exit Sub
        '--查询结束
    hErr:
        MsgBox "Error Number : " & Err.Number & vbCrLf & _
               "Error Source : " & Err.Source & vbCrLf & _
               "Error Description :  " & Err.Description, vbCritical, "ERROR"
        
    End Sub
    

     

    转载于:https://www.cnblogs.com/xbj-hyml/p/3302648.html

    展开全文
  • NO.157-NO.158内容是:NO.157:如何对MsgBox对话框的内容进行排版,达到美观的效果NO.158:使用InputBox函数显示一个对话框供用户在对话框输入数据VBA过程代码157:如何对MsgBox对话框的内容进行排版,达到美观...
  • VBA-使用inputbox函数

    2020-02-29 21:05:10
    Excel 的使用过程中,有时需要用户输入简单的数据,此时可以使用 InputBox 函数显示一个对话框,供用户在对话框输入数据信息,其格式为:InputBox(prompt[, title] [, default] [, xpos] [, ypos] [, helpfile, ...
  • VBA常用技巧

    2014-12-21 16:39:28
    76-1 输入指定类型的数据 12 76-2 获得单元格区域地址 12 技巧77 内置对话框 12 77-1 调用内置的对话框 12 77-2 获取选定文件的文件名 12 77-3 使用“另存为”对话框 12 技巧78 调用操作系统“关于”对话框 12 第7章...
  • Excel_VBA教程

    2014-09-22 11:36:34
    32往工作表输入数据 73 33返回工作表中的信息 74 34单元格格式 74 35移动,复制和删除单元格 74 36操作工作簿和工作表 75 37操作窗口(WINDOWS) 76 38管理EXCEL应用程序 76 39接下来…… 77 第三章 了解变量,数据...
  • ExcelVBA之InputBox函数

    2020-06-05 11:25:31
    InputBox函数显示一个信息提示用户输入数据,这个对话框有两个按钮——“确定”和“取消”,当你点击确定时,InputBox函数返回用户输入在信息框里的信息;当你点击取消时,函数则返回空字符串(” ”)。InputBox...
  • 在Excel中,选择菜单“编辑”——“查找(F)…”命令...在ExcelVBA中使用与该功能对应的Find方法,提供了一种在单元格区域查找特定数据的简单方式,并且比用传统的循环方法进行查找的速度更快。1. Find方法的作用Fin...
  • [Office] VBA Practice

    千次阅读 2013-12-11 17:49:37
    VBA中默认的User Form的Toolbox中的控件并不包含DateTimePicker,是接受时间相关数据输入,在Toolbox上右击“Additional Controls”,在弹出的对话框中选择“Microsoft Date and Time Picker Control 6.0” ...
  • Excel VBA 的基本操作

    2018-05-06 22:03:54
    一、宏的录制(一)背景上学时有成绩单,工作是有工资条,不论是成绩单还是工资条的各项内容标题,一次次的输入工作量很大,浪费了人力时间,很得不偿失,而Excel在VBA的环境中却能够很快实现。(二)具体操作(以...
  • VBA编程技巧大全

    2013-08-05 09:03:19
    76-1 输入指定类型的数据 180 76-2 获得单元格区域地址 182 技巧77 内置对话框 183 77-1 调用内置的对话框 183 77-2 获取选定文件的文件名 186 77-3 使用“另存为”对话框 188 技巧78 调用操作系统“关于”对话框 ...
  • ExcelVBA程序设计.doc

    2011-04-05 21:32:51
    32往工作表输入数据 73 33返回工作表中的信息 74 34单元格格式 74 35移动,复制和删除单元格 74 36操作工作簿和工作表 75 37操作窗口(WINDOWS) 76 38管理EXCEL应用程序 76 39接下来…… 77 第三章 了解变量,数据...
  • 中文版Excel.2007高级VBA编程宝典 1/2

    热门讨论 2012-04-06 16:00:16
    本书将介绍如何定制Excel 用户窗体、开发新实用程序、用VBA 处理图表及数据透视表,以及创建事件处理应用程序。还将介绍如何使用VBA 子过程和函数过程、与其他应用程序轻松交互、构建用户友好的工具栏、菜单和帮助...
  • 中文版Excel.2007高级VBA编程宝典 2/2

    热门讨论 2012-04-06 16:41:38
    本书将介绍如何定制Excel 用户窗体、开发新实用程序、用VBA 处理图表及数据透视表,以及创建事件处理应用程序。还将介绍如何使用VBA 子过程和函数过程、与其他应用程序轻松交互、构建用户友好的工具栏、菜单和帮助...
  • Excel VBA 基础教程

    2019-01-01 18:51:06
    运算符....................................................................................................................................1 第三节 数据类型................................................
  • 04132通过数组向单元格区域一次性输入数据 04133向单元格区域输入连续值 04134向单元格区域输入连续的日期 04135向单元格区域输入连续的字符 04136向单元格输入公式(A1格式) 04137向单元格输入公式(R1C1格式) ...
  • 本人本次实践的目标是数据查询。具体实现方式应该是: 使用窗体及其他控件做查询的条件的输入 使用excel作为查询结果的输出 从桌面上看应该是,前面一个窗口输入查询条件,然后点确定,后面有个excel显示结果。 ...
  • 在Excel中,选择菜单“编辑”——“查找(F)…”命令...在ExcelVBA中使用与该功能对应的Find方法,提供了一种在单元格区域查找特定数据的简单方式,并且比用传统的循环方法进行查找的速度更快。1. Find方法的作用Fin...
  • EXCEL编程VBA高级教程

    2015-04-16 11:40:55
    第三节数据类型................................................................................................................................1 第四节变量与常量...........................................
  • 学习Excel技术,关注微信公众号:excelperfect引子:本文改编著自Microsoft很久以前的一篇技术文章,虽然年代已久,但完全不过时。文章以完整的示例详细介绍了用户...能够使用用户窗体来显示所输入数据,甚至能...
  • 一、设置数据格式在Excel中输入数字后,选中单元格,在"开始"选项卡中单击"数字"组右下角对话框启动按钮,弹出"设置单元格格式"对话框,在"数字"选项"分类"列表中选中"特殊",在右边"类型"框中根据需要选择"中文大写...
  • 具体做法是在“工具”菜单“宏”-“宏”弹出的对话框输入宏名,然后按“创建”按钮会打开visual basic编辑器,你就可以编程了,这个就是宏。学会它会有很多乐趣的。玩过街机模拟器的人肯定有体会,在格斗游戏中,用...
  • VBA程序中,数据输入输出是通过函数实现的,其实现的方式是通过对话框的形式表示出来的。例如MsgBox,Inputbox等,不要误认为是输入输出语句的关键字,其实仅仅是一个普通函数而已。 【MsgBox函数】 【Tips】 ...
  • 按alt+F11 键(部分电脑是 Fn+alt+F11)打开VBA编辑器,找到 Thisworkbook 双击,在弹出的代码框输入代码3.上面代码复制后,点击对话框菜单中的运行,点击运行子过程/用户窗体,关闭弹框,回到数据表,数据表中内容...
  • 检测同列重复值工具

    2005-12-02 10:36:26
    能在用户输入任何一个数据后即时进行检测,如发现该列中已有相同数据则发出警告,以达到避免在同一列中输入相同数据的目的。 <P><P> 安装方法:先将本压缩包中的CCheck21P.xla解压至Office的安装目录下的...

空空如也

空空如也

1 2 3 4 5
收藏数 91
精华内容 36
关键字:

vba输入数据对话框