精华内容
下载资源
问答
  • 希望了解VBA中的EXCEL中的页数,类似于某个单元格中的属性,例如:ROW代表行,COLUNN代表列。如果了解EXCEL中的页数,那么就可以通过ADD和SHEET两个函数做页增加,通过DELETE和SHEET两个函数做页删除。
  • Range.Resize 属性 调整指定区域大小。返回 Range 对象,该对象代表调整后区域。 语法 表达式.Resize(RowSize, ColumnSize) 表达式一个返回 Range 对象表达式。 参数 名称 必选/可选 数据类型 ...

    Range.Resize 属性

    调整指定区域的大小。返回 Range 对象,该对象代表调整后的区域。

    语法

    表达式.Resize(RowSize, ColumnSize)

    表达式   一个返回 Range 对象的表达式。

    参数

    名称 必选/可选 数据类型 说明
    RowSize 可选 Variant 新区域中的行数。如果省略该参数,则该区域中的行数保持不变。
    ColumnSize 可选 Variant 新区域中的列数。如果省略该参数。则该区域中的列数保持不变。

    返回值
    区域

    示例

    本示例调整 Sheet1 中选定区域的大小,使之增加一行和一列。

    Worksheets("Sheet1").Activate
    numRows = Selection.Rows.Count
    numColumns = Selection.Columns.Count
    Selection.Resize(numRows + 1, numColumns + 1).Select

    本示例假定在 Sheet1 中有一个包含标题行的表。本示例选定该表,但不选定标题行。运行本示例之前,活动单元格必须处于该表中。

    Set tbl = ActiveCell.CurrentRegion
    tbl.Offset(1, 0).Resize(tbl.Rows.Count - 1, _
        tbl.Columns.Count).Select

    source:VBA Help

    展开全文
  • 先抛出问题:VBA中该如何获取某列所有已使用单元格?这里直接给出常用语句:Sub 选中A列已使用内容()Intersect(ActiveSheet.UsedRange, Columns(1)).SelectRange("a1:a" & Cells(Rows.Count, 1).End(xlUp).Row...

    先抛出问题:

    VBA中该如何获取某列所有已使用的单元格?

    这里直接给出常用语句:

    Sub 选中A列已使用内容()Intersect(ActiveSheet.UsedRange, Columns(1)).SelectRange("a1:a" & Cells(Rows.Count, 1).End(xlUp).Row).SelectEnd Sub

    分别用到了两个知识点:

    ■Intersect方法

    ■End属性

    ❶Intersect方法

    Intersect方法:返回两个或多个单元格重叠的部分。下面截图是他所实现的效果。

    8310e2ee7a0d92e5d109f4b6ac153007.png

    截图中单元格底色是我为了方便理解,自己加的/双击查看大图

    这里顺带讲一下Union方法:用于联合同一个工作表中多个单元格区域,生成一个整体单元格区域。

    22b05813d92edfe34d3456a35c4868f4.png

    代码运行完的效果如上图所示/双击查看大图

    根据这个思路,来回答群友问的问题:选中某列已使用的单元格。我们知道,已使用的单元格区域,可以用UsedRange来表示。

    05e96ea68a66a4543ea1ce543041e9b9.png

    Intersect结合UsedRange使用实例

    注意:上述案例有个前提,每一列行数一致,如果不一致,无法使用此方法。会出现以下错误。可以看到,这不是我们想要的结果。

    End属性

    Range.End 属性 :返回一个 Range 对象,该对象代表源区域的区域尾端的单元格。

    一般我们这么来用:单元格表达式.End (Direction)

    a7bff84d9340aceecdc6707ba7118374.png

    我们来看个实例:

    光标起始放在A1单元格,同时按下Ctrl+↓之后,光标跑到了A列已使用的最后一个单元格。

    314ce6bb92e1f45183ce268a0b311bdf.gif

    ·利用这个特性,我们就可以寻找A列已使用的最大行号:

    Cells(Rows.Count, 1).End(xlUp).Row

    还有我们开头的问题,选择A列已使用的所有单元格:

    Range("a1:a" & Cells(Rows.Count, 1).End(xlUp).Row).Select

    展开全文
  • 如果你是将二维数组赋值给Listbox.rowsource话,当需要取得listbox某行某列值时,会报属性索引值无效等错误。 看官方文档,文档,文档。得到并记住以下一点,就不在茫然了。 如果listbox是多列情况下,...

    vba里的listbox是一个既需要用又十分恶心的控件。


    如果你是将二维数组赋值给Listbox.rowsource的话,当需要取得listbox中某行某列的值时,会报属性索引值无效等错误。


    看官方文档,文档,文档。得到并记住以下一点,就不在茫然了。


    如果listbox是多列的情况下,将listbox.column属性看作一个二维数组使用,比如获取第一行第一列的值 listbox.column(0,0),单列就是一维数组。


    或者定义一个variant型变量,然后将listbox.list赋值给它,也会得到一个数组。



    以上,备注


    展开全文
  • 在上一讲我们讲了利用Address属性实现控制触发事件方案,今日讲解第二方案,就是利用Column属性和Row属性的方法,哪种方法好呢?这就要靠写代码人员偏好了,有人喜欢第一种,有人喜欢第二种,我自己偏好...

    5103a036d1fe9765b6273c547f3bcad3.png

    大家好,我们今日继续讲解VBA代码解决方案的第115讲内容:工作表事件中,根据Target参数不同,实现精准控制触发事件的VBA代码第二方案。在上一讲中我们讲了利用Address的属性实现控制触发事件的方案,今日讲解第二方案,就是利用Column属性和Row属性的方法,哪种方法好呢?这就要靠写代码人员的偏好了,有的人喜欢第一种,有的人喜欢第二种,我自己偏好第二种,就是今天讲的这种了。

    使用单元格的Column属性和Row属性可以将触发条件限制在某一区域内,下面有一个程序供大家参考。

    Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    Columns("B:B").ClearContents

    If Target.Column = 1 And Target.Row < 80 Then

    Target.Offset(0, 1) = Val(Target)

    End If

    End Sub

    代码窗口:

    5acfd00f6f8870c1668fc61a52ececf3.png

    代码解析:当点击工作表的A1到A80单元格时,将在对应的B列显示A列的数值。

    第3行代码使用Column属性将触发条件限制在第1列,使用Row属性将触发条件限制在第80行以内,也就是A1到A80的区域范围内。

    运行,我们在工作表中A列和C列事先录入同样的数字,并把列的字体设置为白色隐藏,点击A列就会在B列出现A列的数字,类似于游戏效果。

    503c2ab8d28b74ec58e953c579311b54.png

    二 为了实现根据单元格选中范围精准的控制选择触发事件,我们需要对代码进一步优化。例如:当我们选中的是两个或两个以上连续单元格,而且是在一列时才能执行后续的代码(可以为两个连续个单格,也可以是多个连续单元格,但必须是为同一列),其它情况时则 Exit Sub 跳出过程,该如何写代码呢?

    Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    If Target.Count > 1 Then

    If Target(1).Resize(Target.Count).Address = Target.Address Then

    MsgBox "可以执行你的以下代码"

    Else

    Exit Sub

    End If

    End If

    End Sub

    代码窗口:

    6a6b6c550a74857f50c251d852f304ec.png

    代码解析: Target(1).Resize(Target.Count).Address 为以Target(1)扩展后的区域;如果和 Target.Address 一样就可以说明是一列的连续区域了。

    备考:利用Resize属性对单元格进行扩张时,是以原单元格为起始点但包括原单元格本身的扩张。Resize属性的语法为:

    Range对象.Resize(RowSize,ColumnSize)扩展特定的单元格,返回一个由参数RowSize和ColumnSize指定行列数的单元格区域。

    其中:参数RowSize指定新单元格区域的行数。若省略该参数,则新单元格区域的行数与原来相同。Range('A1').Resize(1, 3).Select等价于代码(省略了第一个参数):Range('A1').Resize(, 3).Select都将选择单元格区域A1:C1。

    参数ColumnSize指定新单元格区域的列数。若省略该参数,则新单元格区域的列数与原来相同。

    运行:

    6214f92dbf95fa08b84c18ff8f436550.png

    今日内容回向:

    1 如何利用Column属性和Row属性实现精准的触发事件?

    2 如何判断连续的单元格在整行或整列呢?

    《VBA代码解决方案》终于可以和大家见面了,是我将一些非常实用的VBA内容结集成册,PDF文件,可以从中直接查找到你想要解决问题的思路和方法,可以复制文中的VBA代码直接使用。有需要的朋友微信联络我NZ9668。

    68a02f0efb861370ef013927350ddeee.png

    2557175ff792a376ecd7ca467d7fd141.png

    dc3e4dfd00b40313874152edb6179c58.png
    展开全文
  • 在上一讲我们讲了利用Address属性实现控制触发事件方案,今日讲解第二方案,就是利用Column属性和Row属性的方法,哪种方法好呢?这就要靠写代码人员偏好了,有人喜欢第一种,有人喜欢第二种,我自己偏好...
  • 在一些其他公司应用软件也是可以用VBA的,例如Corel Draw。这里举几个例子来说明VBA的使用。  如果有数十个文档需要合并为一个文档,逐个打开、拷贝是件麻烦事,可以用宏来完成。 例一:合并文档。新建一个...
  • VBA常用技巧

    2014-12-21 16:39:28
    20-2 使用Column属性和Row属性 12 20-3 使用Intersect方法 12 第2章 Worksheet(工作表)对象 12 技巧21 引用工作表方式 12 21-1 使用工作表名称 12 21-2 使用工作表索引号 12 21-3 使用工作表代码名称 12 ...
  • 在上一讲我们讲了利用Address属性实现控制触发事件方案,今日讲解第二方案,就是利用Column属性和Row属性的方法,哪种方法好呢?这就要靠写代码人员偏好了,有人喜欢第一种,有人喜欢第二种,我自己偏好...
  • 学习资源:《Excel VBA从入门到进阶》第57集 by兰色幻想本节讲述列表框和组合框。如下图所示,列表框,顾名思义...一、组合框显示显示多列内容rowsource属性:可以从工作表导入数据 。Columnheads属性:显示列标...
  • EXCEL VBA常用技巧

    2010-02-09 22:28:27
    VBA常用技巧 目录 第1章 Range(单元格)对象 3 技巧1 单元格引用方法 3 1-1 使用Range属性 3 1-2 使用Cells属性 4 1-3 使用快捷记号 4 ...20-2 使用Column属性和Row属性 56 20-3 使用Intersect方法 56
  • VBA编程技巧大全

    2013-08-05 09:03:19
    20-2 使用Column属性和Row属性 63 20-3 使用Intersect方法 63 第2章 Worksheet(工作表)对象 65 技巧21 引用工作表方式 65 21-1 使用工作表名称 65 21-2 使用工作表索引号 65 21-3 使用工作表代码名称 66 ...
  • 1,删除第8页方块下落控制模块中的无效代码“AddScore (TempBlock.SmallBoxInCurrentBlock(1).Row)” 2,修复第9页游戏满行判断错误 For TempColumn = 1 To Column IsFullRow = IIf(Range("GameArea").Cells(Row...
  • 给组合框或列表框添加元素一、RowSource属性添加元素二、为工作表中的ActiveX控件中的列表框添加元素三、使用list属性添加元素四、使用additem方法添加列表项五、列表框的其他属性 一、RowSource属性添加元素 ...
  • 01037设置最近使用的文件清单中的最多文件数 01038设置新工作簿中的工作表个数 01039设置文件的默认位置 01040设置保存自动恢复文件的时间间隔和保存位置 01041停止屏幕刷新 01042使事件无效 01043使取消键无效 ...
  • 学习资源:《Excel VBA从入门到进阶》第57集 by兰色幻想本节讲述列表框和组合框。如下图所示,列表框,顾名思义...一、组合框显示显示多列内容rowsource属性:可以从工作表导入数据 。Columnheads属性:显示列标...
  • 参考 VBA 中的解决方式: 很多 VBA 与 VBScript 的解决方法都是通用的,尤其是针对 Excel 的时候, 所以,我们先来看下 VBA 中,常用的3中方法: '从页面最后一行,按 Ctrl + Up 箭头 LastRow = sht.Cells(sht....
  • <br />ListBox列表框,是OFFICE软件之...   第一种方法:使用RowSource属性 您能将列表框直接与工作表上的一个单元格区域相链接。在该区域中的数据变化将会引发列表框数据产生相应的变化;但在
  • MYSQL中文手册

    2013-03-11 21:21:34
    6.12. 多服务器复制中的Auto-Increment 7. 优化 7.1. 优化概述 7.1.1. MySQL设计局限与折衷 7.1.2. 为可移植性设计应用程序 7.1.3. 我们已将MySQL用在何处? 7.1.4. MySQL基准套件 7.1.5. 使用自己的基准 ...
  • 6.12. 多服务器复制中的Auto-Increment 7. 优化 7.1. 优化概述 7.1.1. MySQL设计局限与折衷 7.1.2. 为可移植性设计应用程序 7.1.3. 我们已将MySQL用在何处? 7.1.4. MySQL基准套件 7.1.5. 使用自己的基准 7.2. 优化...
  • mysql5.1中文手册

    2008-01-09 09:54:20
    多服务器复制中的Auto-Increment 7. 优化 7.1. 优化概述 7.1.1. MySQL设计局限与折衷 7.1.2. 为可移植性设计应用程序 7.1.3. 我们已将MySQL用在何处? 7.1.4. MySQL基准套件 7.1.5. 使用自己...
  • 学习Excel技术,关注微信公众号:excelperfect在Excel VBA中,可以使用End属性来获取最后一行,例如语句:Range("A" &Rows.Count).End(xlUp).Row可以获得列A中最后一行,即从底向上最后一个含有内容单元格所在...
  • 可以读写文件中的宏,使用XLSReadWriteII可以为控件比如:按钮、组合框等添加宏 导入及导出 从下列导入数据… Open Office Calc文档 CSV文件以及其他可以自动识别分隔符、小数分隔符和文本引用字符的文本文件 ...
  • xlsreadwriteII 4.0.0.52

    2011-06-27 09:31:15
    可以读写文件中的宏,使用XLSReadWriteII可以为控件比如:按钮、组合框等添加宏 导入及导出 从下列导入数据… Open Office Calc文档 CSV文件以及其他可以自动识别分隔符、小数分隔符和文本引用字符的文本文件 ...
  • 可以读写文件中的宏,使用XLSReadWriteII可以为控件比如:按钮、组合框等添加宏 导入及导出 从下列导入数据… •Open Office Calc文档 •CSV文件以及其他可以自动识别分隔符、小数分隔符和文本引用字符的文本...
  • VBA窗体帮助信息查询】:窗体相关的VBA帮助查询,包括事件、方法、属性、对象、集合与控件 【函数运算符符语法查询】:VBA函数以及运算符相关帮助查询 【反向选择】:选择当前区域未选择区域 【千年日历】:...
  • 4.4.2AO中的标注 4.5如何与地图进行互动 4.5.1产生新Geometry的Feedback对象 4.5.2移动几何形体对象上的节点 4.5.3移动整个对象 4.5.4其他DisplayFeedback介绍 5Arcobjects的控件 5.1MapControl控件 5.1.1MapControl...
  • VBA窗体帮助信息查询】:窗体相关的VBA帮助查询,包括事件、方法、属性、对象、集合与控件 【函数运算符符语法查询】:VBA函数以及运算符相关帮助查询 【反向选择】:选择当前区域未选择区域 【千年日历】:工...

空空如也

空空如也

1 2
收藏数 36
精华内容 14
关键字:

vba中的row属性