精华内容
下载资源
问答
  • PAGE 84 PAGE 93 第8章 函数的使用 范例119 使用时间和日期函数 119-1 计算程序运行时间 Sub MyTime) Dim i As Integer Dim StartTime As Single Dim EndTime As Single StartTime = Timer For i = 1 To 10000 Cells...
  • IsEmpty 函数

    千次阅读 2013-06-10 16:06:20
    IsEmpty(expression) 必要的 expression 参数是一个 Variant,包含一个数值或字符串表达式。但是,因为 IsEmpty 被用来确定个别变量是否已初始化,所以expression参数通常是单一变量名。 说明 如果变量未初始...



    示例

    返回 Boolean 值,指出变量是否已经初始化。

    语法

    IsEmpty(expression)

    必要的 expression 参数是一个 Variant,包含一个数值或字符串表达式。但是,因为 IsEmpty 被用来确定个别变量是否已初始化,所以expression参数通常是单一变量名。

    说明

    如果变量未初始化或已明确设置为 Empty,则 IsEmpty 返回True;否则返回 False。如果expression 含有多个变量,则 IsEmpty 总是返回 FalseIsEmpty 只返回对 variant 表达式有意义的信息。


     

    IsEmpty 函数示例

    本示例使用 IsEmpty 函数检查变量是否已经初始化。

    Dim MyVar, MyCheck

    MyCheck = IsEmpty(MyVar)   ' 返回 True。MyVar = Null   ' 赋以 Null。

    MyCheck = IsEmpty(MyVar)   ' 返回 False。MyVar = Empty   ' 赋以 Empty。

    MyCheck = IsEmpty(MyVar)   ' 返回 True。


     

    相关基础知识:

     

    变量

    命名的存储位置,包含在程序执行阶段修改的数据。每一变量都有变量名,在其范围内可唯一识别。可以指定数据类型,也可以不这样做。

    变量名必须以字母字符开头,在同一范围内必须是唯一的,不能超过 255 个字符,而且中间不能包含句点或类型声明字符。

     

    参数

    传递给一个过程的常数、变量或表达式。

     

    Variant 数据类型

    一种特殊的数据类型,可以包含数值、字符串或日期数据,还包含自定义类型和特殊数值Empty NullVariant 数据类型有 16 字节的数值存储大小,可以包含的数据可达Decimal 的范围,或 22- 字节( 加上字符串长度 ) 的字符存储大小,而且可存储任何字符文本。VarType 函数定义了如何处理 Variant 中的数据。对所有变量,如果没有明确声明它们是其它数据类型,则它们都变成 Variant 数据类型。

     

    字符串表达式

    任何其值为一连串字符的表达式。字符串表达式的元素可包含返回字符串的函数、字符串文字、字符串常数、字符串变量、字符串Variant 或返回字符串 Variant (VarType 8) 的函数。

     

    Empty

    指出尚未对 Variant 变量指定初始值。用数值表示时,以 0 表示 Empty 变量,在字符串表示时,则以零长度字符串 ("") 表示它。

     

    variant 表达式

    表达式,其值为数值、字符串或日期数据以及特殊数值EmptyNull

     

    展开全文
  • VBS---IsNull() 和 IsEmpty() 的区别

    万次阅读 2014-07-24 16:10:42
    Null 与 Empty 不同,Null 值指出变量不包含有效数据,Empty 指出变量未经初始化。  Null 与零长度字符串("")也不同,... 参数 expression 可以是任意表达式,然而由于 IsEmpty() 函数用于判断一个变量是否已被初

    Null 与 Empty 不同,Null 值指出变量不包含有效数据,Empty 指出变量未经初始化。
      Null 与零长度字符串("")也不同,零长度字符串往往指的是空串。
    IsEmpty(expression):

      该函数返回 Boolean 值指明变量是否已被初始化。
      参数 expression 可以是任意表达式,然而由于 IsEmpty() 函数用于判断一个变量是否已被初始化,故 expression 参数常是一个变量名。
      如果变量未初始化或显式地设为 Empty,则 IsEmpty() 函数返回 True,否则返回 False。
      如果 expression 参数包含一个以上的变量,该函数总返回 False。

      典型示例:

    Dim MyVar,MyCheck
    MyCheck=IsEmpty(MyVar)  '返回 True
    MyVar=Null              '赋为 Null
    MyCheck=IsEmpty(MyVar)  '返回 False
    MyVar=Empty             '赋为 Empty
    MyCheck=IsEmpty(MyVar)  '返回 True

    IsNull(expression):
      该函数返回 Boolean 值,指明 expression 是否包含任何有效数据(Null)。
      参数 expression 可以是任意表达式。
      如果 expression 为 Null,则 IsNull() 函数返回 True,即表达式不包含任何有效数据,否则返回 False。
      如果表达式由多个变量组成,则任何组成变量中的 Null 都会使整个表达式返回 Null。
      使用 IsNull() 函数可以判断表达式是否包含 Null 值。任何包含 Null 的表达式本身就为 Null。

      典型示例:

    Dim MyVar,MyCheck
    MyCheck=IsNull(MyVar)  '返回 False
    MyVar=Null             '赋为 Null
    MyCheck=IsNull(MyVar)  '返回 True
    MyVar=Empty            '赋为 Empty
    MyCheck=IsNull(MyVar)  '返回 False

    ---------------------------------------------------------------------------

    str = InputBox("Enter astring")
    MsgBox TypeName(str)

    当没有输入字符直接按“确定”时输出String,而按“取消”时输出Empty。于是,似乎可以这样来判断到底是“确定”还是“取消”:

    IsEmpty()函数

    展开全文
  • isEmpty(str)判断为空 等价于 str == null || str.length == 0。 isBlank(str)判断为空,算空格 等价于 str == null || str.length == 0 || str.trim().length == 0。 而且 str.length > 0 && str.trim()....

    StringUtils中有很多判断字符串是否为空的方法,其中

    isNotEmpty(str)判断不为空

    等价于 str != null && str.length > 0。
    

    isNotBlank(str)判断不为空,且长度不为0,且不由空白符(whitespace)构成

    等价于 str != null && str.length > 0 && str.trim().length > 0。
    

    isEmpty(str)判断为空

    等价于 str ==  null || str.length  == 0。
    

    isBlank(str)判断为空,算空格

    等价于 str ==  null || str.length  == 0 || str.trim().length == 0。
    而且 str.length > 0 && str.trim().length > 0。
    
    展开全文
  • vba 队列实现

    2020-11-30 16:12:02
    Private Sub class_initialize() Set head = emptyNode Set last = emptyNode n = 0 End Sub Public Function isEmpty() As Boolean isEmpty = head.getNext Is Nothing End Function Public Property Get size() As...

    总觉得不够完善,先记录下来,在使用中慢慢修改

    ' 只能硬模仿java
    
    Private ne As Node
    
    '只搜集ID
    Private item As Variant
    
    
    Property Let letNext(ByRef n As Node)
        Set ne = n
    End Property
    
    Property Let letItem(ByRef i As Variant)
        assign item, i
    End Property
    
    Property Get getNext()
     Set getNext = ne
    End Property
    
    Property Get getItem()
        assign getItem, item
    End Property
    
    
    Private Sub assign(ByRef x, ByVal y)
    
        If IsObject(y) Then
            Set x = y
        Else
            x = y
        End If
    
    End Sub
    
    
    ' 队列实现,FIFO模式
    
    ' 一直都是哨兵节点
    Private head As Node
    
    ' 指向尾节点
    Private last As Node
    
    ' 队列数量
    Private n As Integer
    
    '哨兵节点
    Private emptyNode As New Node
    
    
    ' 勉强当构造函数使用
    Private Sub class_initialize()
    
        Set head = emptyNode
        Set last = emptyNode
        n = 0
    End Sub
    
    
    Public Function isEmpty() As Boolean
        isEmpty = head.getNext Is Nothing
    End Function
    
    Public Property Get size() As Integer
        size = n
    End Property
    
    '获取首部元素,即最先进入队列的元素,但是并不移除,仅仅查看
    Public Function peek() As String
        If isEmpty() Then Err.Raise 404, "Queue.peek", "请先添加在查看"
        
        peek = head.getNext.getItem
        
    End Function
    
    '添加元素
    Public Sub enqueue(ByRef s As Variant)
    ' 添加元素应该从尾部添加
        Dim newNode As New Node
        
        newNode.letItem = s
        
        last.letNext = newNode
        
        assign last, newNode
        
        n = n + 1
    
    End Sub
    
    '获取应该出列的元素,并删除其元素
    Public Function dequeue() As Variant
        
        Dim first As Node
        
        
        assign first, head.getNext
        
        assign dequeue, first.getItem
    
         head.letNext = first.getNext
        
        n = n - 1
        
        ' 如果全部取出,必须回归到稳定状态,即初始化状态
        ' 思考:有没有一种办法,避免判断,可以借用哨兵节点
        If isEmpty() Then assign last, emptyNode
        
    End Function
    
    Public Function hasNext() As Boolean
        hasNext = Not isEmpty()
    End Function
    
    Private Sub assign(ByRef x, ByVal y)
    
        If IsObject(y) Then
            Set x = y
        Else
            x = y
        End If
    
    End Sub
    
    
    
    
    
    
    展开全文
  • VBA数据类型与转换

    2021-04-21 05:25:29
    '1 数据类型综述'在VBA中的数据类型有整数、文本、对象等类型。这些不同的类型有着特定的作用,在进行运算时也会占用'不同大小的内存,所以我们在编写程序时为了提高运行效率,一般都要定义数据的类型。'2 数据类型...
  • 1. IsEmpty() IsEmpty()是Java中用于判断某种容器是否有元素的系统库函数。如用来判断 ArrayList,HashSet,HashMap是否有元素等。可以用isEmpty();判断一个顺序 容器ArrayList里面是否有元素,如果有的话返回一个...
  • IsEmpty函数和IsNull函数之间的区别 IsEmpty 函数 返回 Boolean 值指明变量是否已初始化。主要判断变量是否被初始化!!! IsEmpty(expression) expression 参数可以是任意表达式。然而,由于 ...
  • 辨析Empty,Null和Nothing在VBA中变量一般都是强类型的,即总声明成Integer,Long,Single,Double,String或Date等类型,这些强类型的值毋需考虑Empty、Null和Nothing。有时我们需要定义一种能包含所有类型的变量,...
  • IsEmpty 函数 返回 Boolean 值,指出变量是否已经初始化。 【语法】 IsEmpty(expression) 必要的 expression 参数是一个 Variant,包含一个数值或字符串表达式(实际上还可以是单元格)。但是,因为 IsEmpty 被...
  • vba regexp

    千次阅读 2016-07-01 08:25:11
    IsEmpty(x) - 是否为Empty, 返回Boolean结果。 IsArray(x) - 指出变量是否为一个数组。 IsError(expression) - 指出表达式是否为一个错误值。 IsNull(expression) - 指出表达式是否不包含任何有效数据 (Null)。 ...
  • '行読込:ReadText(adReadLine) '全文読込:ReadText(adReadAll) lineBuffer = ts.ReadText(adReadLine) If (IsNull(lineBuffer) Or IsEmpty(lineBuffer) Or lineBuffer = "") Then Else lvArr = Split(lineBuffer, ...
  • 我在网上查过,有说用isarray,isempty函数的。我实验了下,前真后假,没法判断。后来发现用 (not arr)是否为-1(if (not arr)<>-1 ) 这个方法可以,但具体不是很懂其原理,自己找相关资料又找不到。 因此,...
  • =indirect() 引用的空单元格,会自动返回0 5 VBA里所谓的 “空值” 或者 " 置空变量" 具体是什么,则和变量类型有关 1 数值型的变量 默认 0 2 字符串 string 默认 “” 就是空。 3 Variant类型变量 默认用 null 但...
  • 文章目录VBA基础一.了解VBA1.进入vba2.认识宏二. VBA编程1.hello world2.调出立即窗口和本地窗口3.debug显示4.注释5.数据类型5.变量的生命周期和定义域6.判断语句7.不等于<> , switch case 条件判断8.循环do ...
  • intTimeZone) If IsEmpty(strTime) Or Not IsDate(strTime) Then strTime = Now If IsEmpty(intTimeZone) Or Not IsNumeric(intTimeZone) Then intTimeZone = 0 ToUnixTime = DateAdd("h", -intTimeZone, strTime) ...
  • 目录 例 码 易失性函数 例 在Excel中,经常需要得知某列最后一个非空单元格的行号,以确定数据的数量。编写自定义函数以实时计算某单元格所在的列最后非空单元格的行号。 员工编号 姓名 .....
  • VBA爬网页数据

    2021-03-31 16:04:53
    方法1 :CreateObject(“InternetExplorer.Application”) Sub 方法1() LinkStr = "https://www.csdn.net/" Set ie = CreateObject("InternetExplorer.Application") ...链接: VBA 网页提取特定内容 - 网抓实践总结.
  • Excel VBA(WPS专业版)安装及代码编写

    万次阅读 多人点赞 2018-04-14 11:37:29
    > 以前用的wps是需要自己单独再安装vba插件的,现在更新的wps都是自带vba的,在菜单栏>开发工具可以看到,因而这里简单给出wps版本的说明 > 此次更新将在wps2019教育版上重新做一遍,耗时巨大; 时隔两年,已经做了...
  • VBA基础知识

    千次阅读 2019-11-12 14:18:36
    VBA入门学习笔记本关键词:VB、VBA、Microsoft office、excel、access、PowerPoint1.VBA的基本概念2 数据类型2.1 VBA基本数据类型2.2 VBA自定义的数据类型3 VBA常量3.1 VBA系统定义常量3.2 VBA固有常量3.2 VBA符号...
  • # Excel VBA编程常用语句300句 * 本文转自:**http://blog.sina.com.cn/codelee** 博主:**代码农夫** 感谢大佬总结并分享出来~ ************** # * VBA 语句集 * * (第 1 辑) * ************** ***************...
  • VBA初试

    2021-01-15 16:36:53
    为了爬取基金数据做下研究,就研究了一下如何用VBA爬取数据并展示在表格里,以下是成果: Sub zq() Dim url As String, tt As String, bondcode As String, n As Integer ' If Not IsEmpty(ActiveSheet....
  • 最近因某项目的客户需求,需要使用vba,监听某工作簿的某工作表内单元格的值是否发生变化(在已有值上手动修改或者在空白处添加新值),如果有变化设置变化后的单元格的字体为红色。 作为初学vba的小白,在网上查了...
  • Excel VBA简单语法

    万次阅读 2019-06-13 00:26:20
    该文为想要学习VBA编程的会计和编程同学有一定的个性化定制Excel操作提供参考 1. VBA编程是什么 VBA 究竟是什么?更确切地讲,它是一种自动化语言,它可以使常用的程序自动化,可以创建自定义的解决方案.90 年代早期,...
  • 【Excel】VBA自动化更新数据表格

    万次阅读 2018-09-30 11:38:08
    VBA自动化更新数据表格
  • VBA 程序语言中的内置函数

    千次阅读 2018-03-06 23:10:39
    IsEmpty(x) 是否为 Empty, 返回 Boolean 结果, TrueorFalse IsArray(x) 指出变量是否为一个数组 IsError(expression) 指出表达式是否为一个错误值 IsNull(expression) 指出表达式是否不包含任何有效数据 IsObject...
  • VBA代码记录1

    2019-09-18 08:59:14
    需求: 1.根据一定条件进行筛选,把筛选的结果放到新的工作表中 ...第一次用VBA,现查现用, Sub 宏1() ' 宏1 宏 0 1 Selection.AutoFilter //开启筛选 ActiveSheet.Range("$A$1:$N$65536").AutoFilt...
  • 这里整理下自己觉得VBA可能会比较有用的一些内容,主要涉及到数据类型的判断、转化,对话框的使用,关于‘空’的阐述以及正则表达式的基本语法。 一些常用的语句 取消当前工作表所有超链接 Cells.Hyperlinks.Delete ...
  • 12、使用InputBox函数进行输入 语法如下: InputBox(prompt [,title] [,default] [,xpos] [,ypos] [,helpfile,context]) 参数说明: prompt为提示内容,必选;... default为对话框中缺省的文字内容;...

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 656
精华内容 262
关键字:

isemptyvba