精华内容
下载资源
问答
  • VBA示例之 选择指定范围内使用了填充颜色的单元格,供初学者参考,大牛勿进~~~~~~~
  • Sub kuangxian() ...).Select '选择区域 Selection.Borders(xlDiagonalDown).LineStyle = xlNone Selection.Borders(xlDiagonalUp).LineStyle = xlNone With Selection.Borders(xlEdgeLeft)...

    Sub kuangxian()

    Range("A27:C38").Select '选择区域    

    Selection.Borders(xlDiagonalDown).LineStyle = xlNone    

    Selection.Borders(xlDiagonalUp).LineStyle = xlNone    

    With Selection.Borders(xlEdgeLeft)        

    .LineStyle = xlContinuous        

    .Weight = xlThin        

    .ColorIndex = xlAutomatic    

    End With    

    With Selection.Borders(xlEdgeTop)        

    .LineStyle = xlContinuous        

    .Weight = xlThin        

    .ColorIndex = xlAutomatic    

    End With    

    With Selection.Borders(xlEdgeBottom)        

    .LineStyle = xlContinuous        

    .Weight = xlThin        

    .ColorIndex = xlAutomatic    

    End With    

    With Selection.Borders(xlEdgeRight)      

    .LineStyle = xlContinuous        

    .Weight = xlThin        

    .ColorIndex = xlAutomatic    

    End With    

    With Selection.Borders(xlInsideVertical)        

    .LineStyle = xlContinuous        

    .Weight = xlThin        

    .ColorIndex = xlAutomatic    

    End With    

    With Selection.Borders(xlInsideHorizontal)        

    .LineStyle = xlContinuous        

    .Weight = xlThin        

    .ColorIndex = xlAutomatic    

    End With

    End Sub

     

    展开全文
  • 一、复制粘贴固定区域的单元格 因为以下内容都是复制单个或者固定区域的单元格内容,就不多说了,备注上面都有说明。 Option Explicit Sub CopyRange() '复制单元格内容示例1 '注意:单元格的格式、公式、批注...

    本期主要讲讲单元格复制粘贴等操作。

    一、复制粘贴固定区域的单元格

    因为以下内容都是复制单个或者固定区域的单元格内容,就不多说了,备注上面都有说明。

    Option Explicit
    
    Sub CopyRange()
        '复制单元格内容示例1
        '注意:单元格的格式、公式、批注等也会被复制过去哟
        Sheets(1).Range("A1").Copy Sheets(1).Range("B1")
    End Sub
    
    Sub CopyRange2()
        '复制单元格内容示例2,打开了下面2个工作表后,就可以通过工作表的名称进行复制啦
        Workbooks("测试表1.xlsx").Sheets(1).Range("A1").Copy _
        Workbooks("测试表2.xlsx").Sheets(1).Range("A1")
    End Sub
    Sub CopyRange3()
        '复制单元格内容示例3,和上面几乎一样
        Dim rng1 As Range, rng2 As Range
        Set rng1 = Workbooks("测试表1.xlsx").Sheets(1).Range("A1")
        Set rng2 = Workbooks("测试表2.xlsx").Sheets(1).Range("A1")
        rng1.Copy rng2
    End Sub
    Sub CopyRange4()
        '复制单元格内容示例4,复制区域,选择一个单元格进行粘贴
        Sheets(1).Range("A1:D5").Copy Sheets(2).Range("A1")
    End Sub
    Sub MoveRange1()
        '移动(剪切)单元格内容示例1。
        '注意:单元格的格式、公式、批注等也会被剪切过去哟
        '就是把Copy换成了Cut,其他几乎一样
        Sheets(1).Range("A1").Cut Sheets(1).Range("B1")
    End Sub

    二、复制粘贴可变单元格区域

    上面主要是讲的特定区域的,下面讲讲会变动的区域。比如一张表新增了一行,复制区域就改变了,有没有什么比较方便的方式解决呢?

    加个CurrentRegion就可以实现,用法如下。

    Sub CopyCurrentRange()
        '复制范围会变动的表格
        Sheets(1).Range("A1").CurrentRegion.Copy Sheets(2).Range("A1")
    End Sub

     

    从上面的图可以看出,新增了第15行张三点击运行后,仍然能正常复制过去。要复制的表如果有标题、有日期行,或者是筛选后的表格,仍然可以实现复制。

    如果要复制的区域是一个表,就可以用以下方式(感觉更复杂了点,好像没啥实际用途)

    第一,插入表格

    第二,重新命名,咱们插入表格之后,在设计——表名称那重命名一下,命名为Table111

    第三:这么操作就可以把表复制过去啦。

    Sub CopyTable()
        Sheets(1).Range("table111").Copy Sheets(2).Range("A1")
    End Sub

    经过实际使用,发现确实不怎么方便,当然了还有Range的End方法,这个在7月29号的文档里用过。

    Sub RangeEnd()
        '从A10000往上数,遇到有数据的最下面一行
        Debug.Print Sheets(1).Range("A10000").End(xlUp).Row
        '从A1往下数,有数据的最下面一行
        Debug.Print Sheets(1).Range("A1").End(xlDown).Row
        '从Z1往左数,有数据的最右边一列
        Debug.Print Sheets(1).Range("Z1").End(xlToLeft).Column
        '从A1往右边数,有数据的最右边一列
        Debug.Print Sheets(1).Range("A1").End(xlToRight).Column
    End Sub

    咱们表格范围是A1:D17大小的话,上面结果值分别为17,17,5,5。但是需要注意就是,选定单元格的那一行一列别有空值,不然返回的内容可能是空值附近的单元格哟。

    三、调整单元格区域

    用Range.Resize重新调整单元格区域,左边的参数是行数,右边的参数是列数。

    另外需要注意的是,调整后的区域是从原来区域左上角开始框哟。

    比如下面例子开始是框柱B2:D6,重新设置区域后,就从B2往下和往右算行列数。

    Sub RangeResize()
        Dim rng As Range
        Set rng = Range("B2:D6")
        Set rng = rng.Resize(8, 5)
    End Sub

    展开全文
  • VBA获取数据区域的行列数

    千次阅读 2020-10-20 22:12:40
    VBA获取数据区域的行列数方法1方法2 方法1 ActiveSheet.UsedRange.Rows.Count ActiveSheet.UsedRange.Columns.Count 缺点:有时可能会比实际数大一些,原因是如果你把最后几行(列) 数据 清除后(非整行或整列...

    VBA获取数据区域的行列数

    方法1

    ActiveSheet.UsedRange.Rows.Count   
    ActiveSheet.UsedRange.Columns.Count
    

    缺点:把最后几行(列) 数据 清除后(非整行或整列删除),用这个命令仍返回未清除前的值。

    方法2

    ActiveSheet.Range("A65535").End(xlUp).Row
    ActiveSheet.Range("IV1").End(xlToLeft).Column
    

    缺点:只能计算出一列(行)的最后一个 单元格 所在的行(列)数。本例返回第一列(行)的行(列)数。

    展开全文
  • 纲举目张说明代码code 说明 单看这个标题名称 似乎不是很吸睛,如果没有接触过这个功能,可能...如果我们后续在操作时打算快速的选择这片区域,则可以直接在“名称”中选择“R_001”,则完成了对这片区域选择。图如

    说明

    单看这个标题名称似乎不是很吸睛,如果没有接触过这个功能,可能不了解其强大的能力,强烈建议继续读下去,关键时刻很有用,能够节省很多代码。
    在Excel中有一个很隐蔽的功能,就是为某一个或某一片区域进行命名操作,手动操作如下:例如我们选中A1:C5这个区域,然后在编辑框的最左侧的“名称框”中直接输入“R_001”回车,那么就完成了对A1:C5这个区域的命名操作,如果我们后续在操作时打算快速的选择这片区域,则可以直接在“名称框”中选择“R_001”,则完成了对这片区域的选择。图如下:
    红色圈中的就是“名称框”
    在我的实际应用中发现,我处理的数据如果是一行一行的那种数据库型的数据,这个操作基本发挥不了什么作用。但是如果是由若干行数据组成的一组有效内容,那么这个功能就能发挥很大的作用。见下图:
    不同的数据组成形式对比

    代码code

    Sub 区域命名()
      '列举不同命名方式,选择的适合自身的进行使用
      Cells(1, 1).Name = "R_001" '此种方式只能对单个单元格进行命名
      Rows(2).Name = "R_002" '此种方式只能对单个行进行命名
      Rows("3:5").Name = "R_003" '此种方式可以对多行进行命名,但是参数是字符串格式
      Columns(1).Name = "C_001" '此种方式只能对单个列进行命名
      Columns("C:E").Name = "C_002" '此种方式可以对多个列进行命名,但是参数是字符串格式且为字母
      
      'Range则有多种变型
      Range("A6").Name = "R_004"
      Range("A7:C8").Name = "R_005"
      Range(Rows(9), Rows(10)).Name = "R_006"
      Range(Columns(6), Columns(8)).Name = "C_003"
      Range(Cells(10, 10), Cells(12, 12)).Name = "R_007"
    End Sub
    

    使用说明

    为区域命名的操作暂时就介绍到这里,如有意见建议或使用中出现Bug留言,谢谢!

    本系列博文

    1. 神操作之命名单元格或区域(一)——为单元格或区域命名
    2. 神操作之命名单元格或区域(二)——引用命名单元格或区域
    3. 神操作之命名单元格或区域(三)——遍历所有已命名区域名称及删除命名方法
    展开全文
  • columns是当前工作表所有列的集合 Columns(1).select 选择第一列 Columns.Select 选择所有列 上面说到了怎么选择单元格,行,列,区域,都是直接指定的,有明确目标的,但我们学习VBA就是要实现智能化,自动化,...
  • '打开文件选择框选择文件,并获取工作簿对象 Dim aimBook As Workbook With Application.FileDialog(msoFileDialogFilePicker) .AllowMultiSelect = False '单选择 .Filters.Clear '清除文件过滤器 .Filters...
  • VBA为选定的单元格加上边框

    万次阅读 2012-01-04 22:14:34
     '选择区域或单元格居中对齐   Selection.HorizontalAlignment = Excel.xlCenter  固定区域的对齐方式的代码:   Range("A1:D9"). HorizontalAlignment = Excel.xlLeft 字体、字号、字型  '当前...
  • 问题一:在VBA代码中,如何引用当前工作表中的单个单元格(例如引用单元格C3)? 回答:可以使用下面列举的任一方式对当前工作表中的单元格(C3)进行引用。 (1) Range("C3") (2) [C3] (3) Cells(3, 3) ...
  • 目前本人所知道的在CAD中操作图片的是RasterImage对象, 通过选的方法获取到选择集selectionSet对象,但是如何把选择选择集对象转换为RasterImage对象,然后粘贴到Word当中呢?
  • VBA 自定义对话框

    2020-08-17 22:09:45
    inputbox输入框之前已经用过了,但是除了之前VBA中用的inputbox之外,还有Application对象中的方法,这两个是不一样的。 ①VBA中的inputbox函数用法: Dim str As String str = InputBox("请随便输入一串字符串...
  • VBA选择单元格的语句

    万次阅读 2013-08-27 21:11:56
    如何选择当前工作表中的单元格? 例如,可以使用下面的代码选择当前工作表中的单元格D5: ActiveSheet.Cells(5, 4).Select 或:ActiveSheet.Range("D5").Select 如何选择同一工作簿中其它工作表上的单元格? ...
  • Excel VBA Range单元格操作实例

    千次阅读 2020-02-16 21:51:53
    四、Range操作 4.2取得最后一个非空单元格 xlDown/xlToRight/xlToLeft/xlUp ...4.3 复制单元格区域 注意:使用PasteSpecial方法时指定xlPasteAll(粘贴全部),并不包括粘贴列宽 Sub CopyWithSameCol...
  • VBA调用系统文件夹选择的窗口

    千次阅读 2010-11-14 13:59:00
    VBA 文件夹
  • VBA获取筛选后记录数量

    千次阅读 2020-01-28 14:36:59
    这里写自定义目录标题欢迎使用Markdown编辑器新的改变功能快捷键合理的创建标题,有助于目录的生成如何改变文本的样式插入链接与图片如何插入一段漂亮的代码片生成一个适合你的列表创建一个表格设定内容居中、居左、...
  • VBA常用技巧

    2014-12-21 16:39:28
    技巧117 使用RefEdit控件选择区域 12 技巧118 如何注册控件 12 技巧119 遍历控件的方法 12 119-1 使用名称中的变量遍历控件 12 119-2 使用对象类型遍历控件 12 119-3 使用程序标识符遍历控件 12 119-4 使用名称中的...
  • 本代码可以实现在Excel中自动计算熵权法权重,另外可以呈现每一步的计算的结果。...3 出现选择对方时,用鼠标选定表格中数据区域(包括指标行,指标标签行,年份列,已及各个指标值区域),按确定即可
  • Excel VBA 中单元格选取

    万次阅读 2017-05-14 00:34:24
    Option Explicit '1 表示一个单元格(a1) Sub s() Range("a1").Select Cells(1, 1).Select Range("A" & 1).Select Cells(1, "A").Select Cells(1).Select ...'2 表示相邻单元格区域 Sub d() '
  • VBA第2课 复制,选择与删除

    千次阅读 2015-04-29 23:00:08
    Sub 选择方法() Range("a1:a10").Select '因为没有写工作表名,则默认为活动工作表 End Sub Sub 复制方法() Sheet1.Range("a1:a10") = "王小涛_同學" '将值写入到a1----a10区域 Sheet1.Range("a1:a10").Copy Sheet2....
  • Excel VBA中对形状的选择和操作

    千次阅读 2017-11-10 14:44:00
    形状名称和代码名称:形状名称是在工作表中选定该控件时名称中显示的名称;代码名称时在VBA界面属性窗口中的名称。新增添加控件时形状名称和代码名称是一致的默认名称(例如ChechBox1),但后续更改一个的话、另一...
  • 1, 先选择一列,然后按住Ctril+shift+加方向键即可完成。 或 先选择一行,然后按住Ctril+shift+加方向键即可完成。
  • [VBA, Excel] 设置行合并表格的边框 '设置行合并表格的边框 '@Author: kmlxk#yahoo.com.cn '@Date: 2012-05-10 '@Desc: Excel支持行合并功能,但是如何为整行设置边框,并且不显示行内部横...
  • Vba菜鸟教程

    万次阅读 多人点赞 2020-05-02 18:21:15
    文章目录Vba菜鸟教程编辑器宏vba基本语法运算符变量语句简写语句sub语句调用语句退出语句分支语句循环语句判断语句公式与函数在单元格输入公式利用单元格公式返回值调用工作表函数利用vba函数自定义函数操作对象操作...
  • VBA中选中最后一行的下一行: Cells(Rows.Count, 1).End(xlUp).Select
  • VBA常用代码合集

    千次阅读 多人点赞 2020-12-19 11:13:11
    VBA常用代码模版Tp0️⃣—零零散散小功能(持续更新)Tp1️⃣—输出活动页面筛选后的行数Tp2️⃣—创建数组存放数据Tp2-1 静态数组Tp2-2 动态数组Tp3️⃣ 创建字典存放数据Tp4️⃣ 优化代码运行速度 Tp0️⃣—零零散...
  • vba操作规划求解

    2021-09-22 10:28:13
    vba操作规划求解要前期引用用到的函数1,SolverReset2,SolverOk 函数3,SolverAdd 函数4,SolverFinish 函数5,SolverSolve 函数一个简单案例 ...重置 “规划求解参数” 对话框中的所有单元格选定区域和约束 2
  • Initialize() code End Sub Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) code End Sub UserForm_Initialize是窗体初始化函数,对窗体的高度宽度等一系列初始化操作区域。...
  • Excel VBA编程

    万次阅读 多人点赞 2019-04-11 16:45:51
    文章目录如何创建VBAVBA语法规则声明变量给变量赋值让变量存储的数据参与运算关于声明变量的其他知识变量的作用域特殊的变量——数组声明多维数组声明动态数组其他创建数组的方法数组函数利用UBound求数组的最大索引...
  • VBA编程技巧大全

    2013-08-05 09:03:19
    技巧117 使用RefEdit控件选择区域 275 技巧118 如何注册控件 276 技巧119 遍历控件的方法 279 119-1 使用名称中的变量遍历控件 279 119-2 使用对象类型遍历控件 281 119-3 使用程序标识符遍历控件 282 119-4 使用...
  • Range(“a1:a10”).Select '表示选中单元格A1:A10的区域 Range(“a2”).Value = 1 '表示给单元格赋值为1,Range的默认属性就是Value Range(“a1”).Offset(2, 3).Select '以单元格a1为基准,下移2行,右移3列,...

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 2,061
精华内容 824
热门标签
关键字:

vba区域选择框