文章分类 -  VBA

上一页 1 ··· 5 6 7 8 9 10 11 12 13 ··· 28 下一页
摘要:VBA支持以下连接运算符。 假设变量A=5,变量B=10,则 - 运算符描述示例 + 将两个值添加为变量,其值是数字 A + B = 15 & 连接两个值 A & B = 510 示例1 试试下面的例子来理解VBScript中可用的连接运算符 - Private Sub Constant_demo_ 阅读全文
posted @ 2020-05-24 11:17 天涯海角路 阅读(524) 评论(0) 推荐(0)
摘要:动态类型一时爽,代码重构火葬场。 虽然我并没有很好的理解这句话的意思,不过在经历过的VBA开发过程中,已经体会到了动态类型的可怕之处:明明跑了无数次的代码,突然就报错了,调试模式一看,诶卧槽,这玩意怎么会是这个值,哪里来的?! 今天我就来讲讲VBA的可变类型Variant的一些用法和注意事项。 刚接 阅读全文
posted @ 2020-05-24 11:14 天涯海角路 阅读(3597) 评论(0) 推荐(0)
摘要:想整理下VBA变量的3个问题变量的声明变量的赋值变量的默认值(如果没有赋值,那么默认值就是初值) 1 变量的作用域(生效范围)1.1 变量的作用域跨工作簿变量? 可以跨多个工作簿生效,有这样的变量吗?跨模块变量: 用public 在模块的第1个过程之前声明的变量 (public不能用在过程内)可以在 阅读全文
posted @ 2020-05-24 11:11 天涯海角路 阅读(1614) 评论(0) 推荐(0)
摘要:1.Dim 语句来声明变量 通常会使用 Dim 语句来声明变量。一个声明语句可以放到过程中以创建属于过程的级别的变量。或在声明部分可将它放到模块顶部,以创建属于模块级别的变量。 下面的示例创建了变量 strName 并且指定为 String 数据类型。 Dim strName As String 如 阅读全文
posted @ 2020-05-24 11:10 天涯海角路 阅读(1880) 评论(0) 推荐(0)
摘要:VBA嵌套字典的递归输出(序列化) 作者:AntoniotheFuture 关键词:VBA,字典,Dictionary,嵌套,递归,序列化 开发平台:VBE 平台版本上限:未知 平台版本下限:未知 开发语言:VBA 简介: 用递归的方法将一个VBA的嵌套字典对象全部输出到文本框内。 最近笔者的工作中 阅读全文
posted @ 2020-05-24 10:54 天涯海角路 阅读(1330) 评论(0) 推荐(0)
摘要:Dim sz(0 To 1, 0 To 2)sz(0, 0) = "kjkj"sz(0, 1) = #6/25/2010#sz(0, 2) = 99 阅读全文
posted @ 2020-05-24 10:53 天涯海角路 阅读(155) 评论(0) 推荐(0)
摘要:1 数组嵌套的知识1维数组的嵌套并非2维数组二维数组的嵌套并非三维数组 2 数组的嵌套写法1维数组的嵌套:arr(m)(i)2维数组的嵌套:arr(m)(i,j)Sub test1001() Debug.Print "测试一维数组和其嵌套"'一维数组arr1 = Array(1, 3, 5, 7, 阅读全文
posted @ 2020-05-24 10:46 天涯海角路 阅读(1741) 评论(0) 推荐(0)
摘要:Excel中内嵌VBA开发模块,该模块可自主开发程序,那么对于刚接触VBA的新手来说对VBA中基本对象的了解是必要的,其中最基本的一个对象就是cells对象,下面小编给大家分享一下有关cells的故事吧! 工具/原料 office中的Excel,且内嵌VBA模块 对VB有了解最好 cells的故事 阅读全文
posted @ 2020-05-24 10:35 天涯海角路 阅读(7610) 评论(0) 推荐(0)
摘要:兰色幻想VBA数组入门教程10集 1. 前言:不要把VBA数组想的太神秘,它其实就是一组数字而已。 2. 数组的维数: Sub 数组示例() Dim x As Long, y As Long Dim arr(1 To 10, 1 To 3) '创建一个可以容下10行3列的数组空间 For x = 1 阅读全文
posted @ 2020-05-24 10:33 天涯海角路 阅读(4902) 评论(0) 推荐(0)
摘要:实例. Delete方法删除单元格 Delete方法删除单元格或者单元格区域,其下面的单元格或者右边的单元格会往上或者往左移动进来补充。 示例代码: #001 Public Sub 示例() #002 '复制Sheet2表A1单元格区域数据到Sheet1表A1单元格 #003 Sheets("She 阅读全文
posted @ 2020-05-24 10:25 天涯海角路 阅读(4706) 评论(0) 推荐(0)
摘要:如果要用VBA代码在Excel工作表中删除指定的单元格、行和列,可以使用下面的代码: Sub DeleteCellRowColumn()'删除活动单元格,下方单元格上移ActiveCell.Delete Shift:=xlUp'删除选定的区域,右方单元格左移Selection.Delete Shif 阅读全文
posted @ 2020-05-24 10:19 天涯海角路 阅读(2223) 评论(0) 推荐(0)
摘要:Excel VBA 单元格删除与信息删除 对不需用的单元格常会采用两种方式:一种是彻底删除单元格,另一种是清除单元格的指定信息,但保留单元格。 工具/原料 Excel 2013 单元格删除 1 删除B2 单元格且右侧单元格左移。 Sub 删除后右侧单元格左移() Range("b2").Delete 阅读全文
posted @ 2020-05-24 10:15 天涯海角路 阅读(649) 评论(0) 推荐(0)
摘要:首先需要将显示end(xlup)格式写好,以便可以简单的测试,如下图所示: 2 接下来需要将代码指定到宏中的模块1中,以便能够将代码运行,如下图所示: END 方法/步骤2 1 接下来就是编写代码,Sheet1.Range("A12").End (xlUp)开始与第12行第一列,如下图所示: 2 简 阅读全文
posted @ 2020-05-24 10:13 天涯海角路 阅读(2739) 评论(0) 推荐(0)
摘要:Resize属性用来扩大或者缩小单元格区域。它的左上角和原单元格区域的左上角相同,但行列数可以不同。 Range("d10:f20").Resize(1, 2).Select Resize(1, 2)表示1行2列,这个代码选中的是图中绿色单元格区域,也就是D10:E10,行列都可以省略,但不能同时省 阅读全文
posted @ 2020-05-24 10:11 天涯海角路 阅读(2204) 评论(0) 推荐(0)
摘要:1、不zhidao同版本的CAD操作基本相同,这里使用CAD2019为例,首先点击删除图标,或是输入ERASE命令后,空格。回 2、然后就是要选择要删除答的对象,进行空格。 3、通过上述操作,这样图形就删除了,还有一种方法就是选择对象后,然后直接按Delete也可以进行删除。 阅读全文
posted @ 2020-05-24 10:03 天涯海角路 阅读(2166) 评论(0) 推荐(0)
摘要:1、输入cad修建命令tr,然后按两下回车(记得是两下哦)。 2、此时用鼠标点击想要抄修剪的部分就可以把cad多余百的线删除掉了。 3、此时会看到蓝色线和紫色线还是多余,我们度选择删除工具,cad删除工具快捷键是e 4、鼠标在cad多余的线上单击选中,然后按回车就可以了。 5、此时按esc退出删除工 阅读全文
posted @ 2020-05-24 10:02 天涯海角路 阅读(7707) 评论(0) 推荐(0)
摘要:1、join函数,将数组(只限一维)用“符号”连接起来。 Sub join1() Dim arr(), brr() brr = Array(1, 2, 3, 4, 5, 6) arr = Array("小明", "爱", "吃", "番", "茄") s = join(arr, "/") ss = 阅读全文
posted @ 2020-05-24 09:19 天涯海角路 阅读(488) 评论(0) 推荐(0)
摘要:字典是VBA中一个十分有用的对象。 VBA中的字典和现实中的【新华字典】、【成语字典】功能一样,都是用来储存信息,并利用检索查询信息的强大工具。 字典的声明和创建 1、字典的声明分为两种,一种是前期绑定,一种是后期绑定。不用管太多,记住后期绑定的写法。 2、字典既然是对象,那么就用set语句来设定。 阅读全文
posted @ 2020-05-24 09:17 天涯海角路 阅读(1870) 评论(0) 推荐(1)
摘要:编写VBA字典可以有以下四个动作:增,删,查,改。 1、增:增加字典条目,如将下列商品信息放进字典。 商品名称| 单价 | | 明月刀 |10000 孔雀翎 |8888888 龙泉剑 |6666 伏魔棍 |99999 三角刺 |11111 板凳 |999999999 砖头 |99999999999 阅读全文
posted @ 2020-05-24 09:16 天涯海角路 阅读(1898) 评论(0) 推荐(0)
摘要:字典的特性决定了key必须是唯一的。所以可以用字典来提取唯一值,也就是去除重复。 单列去重复 源数据 Sub 去重复() Dim arr, d As Object, i As Long arr = Range("a1:A" & Cells(Rows.Count, 1).End(xlUp).Row)' 阅读全文
posted @ 2020-05-24 09:14 天涯海角路 阅读(1505) 评论(0) 推荐(0)

上一页 1 ··· 5 6 7 8 9 10 11 12 13 ··· 28 下一页