【LuKS】Vba if not c is nothing

2024-01-02 21:18
文章标签 vba nothing luks

本文主要是介绍【LuKS】Vba if not c is nothing,希望对大家解决编程问题提供一定的参考价值,需要的开发者们随着小编来一起学习吧!

在对excel宏调整的时候,发现以下一段代码,在网上查阅资料后,理解如下:

If Not c Is Nothing Then
s = c.Address
source.Cells(c.Row, 7) = "yes"
Set c = source.UsedRange.FindNext(c)
Do While Not c Is Nothing And s <> c.Address
source.Cells(c.Row, 7) = "yes"
Set c = source.UsedRange.FindNext(c)
Loop
End If

1. 常用 算术 比较 逻辑运算符如下:

算术比较逻辑
指数运算 (^)相等 (=)Not
负数 ()不等 (<>)And
乘法和除法 (*/)小于 (<)Or
整数除法 (\)大于 (>)Xor
求模运算 (Mod)小于或相等 (<=)Eqv
加法和减法 (+)大于或相等 (>=)Imp
字符串连接 (&)

Like Is

2. if not c is nothing   先运算 is 比较运算符,再进行not 逻辑非运算。

比较运算符,即Is运算符,可用于判断两个对象变量是否指向同一个对象,其语法为:
    结果=对象1 Is 对象2
如果对象1和对象2都指向同一个对象,其结果为True;否则,结果为False。
还可以用Is运算符来判断一个对象变量是否符合要求,例如,条件判断语句If c Is Nothing Then 表明,如果对象变量objVar没有对象引用,则为True,执行Then后面的语句。


Not 对一个表达式进行逻辑非运算,即如果表达式为True,则Not运算符使该表达式变成False;如果表达式为False,则Not运算符使该表达式变成True;如果表达式为Null,则Not运算符的结果仍然是Null。其语法为:
    结果=Not 表达式
                                     出处---------------《vba编程系列之运算符和表达式》

 

这篇关于【LuKS】Vba if not c is nothing的文章就介绍到这儿,希望我们推荐的文章对编程师们有所帮助!



http://www.chinasem.cn/article/563668

相关文章

Weibull概率分布纸(EXCEL VBA实现)

在学习Weibull分布理论的时候,希望有一张Weibull概率纸,用来学习图解法。但是在度娘上没有找到的Weibull概率纸的电子版。在书上看到的Weibull概率纸,只能复印下来使用。于是萌生了自己制作Weibull概率纸的想法,帮助自己更好地学习。 本人擅长使用各种计算机语言,C,C++,Matlab,Scilab等等,但是始终钟爱与VBA,认为VBA可以实现一切你想要的东西,由于在企业里不

如何在Excel中创建一个VBA宏,并设置一个按钮来执行这个宏

下面是一个详细的步骤指南 步骤1:创建VBA宏 1. 打开Excel并按 `Alt + F11` 打开VBA编辑器。 2. 在VBA编辑器中,选择 `Insert` > `Module` 来插入一个新的模块。 3. 将以下代码粘贴到模块中: ```vba Sub CreateNewSheet()' 声明一个工作表对象Dim newSheet As Worksheet' 添加一个新的工作表S

VBA 调用打印机实战开发

VBA 调用打印机实战开发 Public Type POINTAPIX As LongY As LongEnd Type#If Win64 ThenPublic Declare PtrSafe Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As LongPublic Declare PtrSafe Function Get

VBA 根据单元格改变的值改变对应单元格的值

VBA 根据单元格改变的值改变对应单元格的值 Private Sub Worksheet_Change(ByVal Target As Range)10 On Error GoTo er:20 Application.EnableEvents = False30 If Intersect(Target, Range("I6")) Is Nothing = Fals

VBA Excel 出报表

源数据 目标  PS:调休 以高亮颜色区分 整理一下 CMDBUT命令  VBA代码 Private Sub CommandButton1_Click()Dim ps As IntegerDim pe As IntegerDim srcs As IntegerDim srce As IntegerDim i As IntegerDim j As IntegerD

在VBA中,对Excel单元格的操作方法

在VBA(Visual Basic for Applications)中,对Excel单元格的操作方法非常丰富,包括但不限于赋值、数字格式设置、复制粘贴、自动填充、公式填充、选中单元格、合并和解除合并单元格、排序等。以下是一些具体的操作方法: ‌赋值‌:可以使用Range对象的Value属性给单元格赋值,例如Range("A1").Value = 3.1415。 ‌数字格式‌:通过Numb

批量修改海量cad文件名——vba实现

如果需要修改大量dwg文件名,可将dwg文件放入一个文件夹,采用此dvb插件加载到cad ,输入 vbaman加载插件,输入vbarun运行插件,根据提示选择文件夹,即可一键完成海量文件名的自动复制修改。具体需求可专门代写代码、插件。     部分代码如下:   Sub 批量dwg改名() 'yngqq Dim folderPath As String   Dim counter As In

VBA 学习网站记录

1. VBA Planet         VBA Planet 2. WorksheetsVBA         WorksheetsVBA - Home

VBA字典与数组第十八讲:VBA中静态数组的定义及创建

《VBA数组与字典方案》教程(10144533)是我推出的第三套教程,目前已经是第二版修订了。这套教程定位于中级,字典是VBA的精华,我要求学员必学。7.1.3.9教程和手册掌握后,可以解决大多数工作中遇到的实际问题。 这套字典教程共两册,一共八十四讲,今后一段时间会给大家陆续推出修订后的教程内容。今日的内容是:VBA字典与数组第十八讲:VBA中静态数组的定义及创建 【分享成果,随喜正能量

VBA代码解决方案第十七讲:如何选择一个工作表,选择多个工作表

《VBA代码解决方案》(版权10028096)这套教程是我最早推出的教程,目前已经是第三版修订了。这套教程定位于入门后的提高,在学习这套教程过程中,侧重点是要理解及掌握我的“积木编程”思想。要灵活运用教程中的实例像搭积木一样把自己喜欢的代码摆好。 这套教程共三册,一百四十七讲,内容覆盖较广,也是初级和中级间的过渡教程,改版后的内容主要是提供程序源码文件及代码修正为32位和64位兼用代码。今后一段