精华内容
下载资源
问答
  • 打开一个Excel文件,选择菜单栏上的"Tools"选项->Macro->Visual Basic Editor,打开VBA编辑器。在Modules文件夹下的csMain文件中,写下如下VB格式的代码:Public Sub Source做成()'声明Excel相关Dim xlApp As ...

    打开一个Excel文件,选择菜单栏上的"Tools"选项->Macro->Visual Basic Editor,打开VBA编辑器。

    在Modules文件夹下的csMain文件中,写下如下VB格式的代码:

    Public Sub Source做成()

    '声明Excel相关

    Dim xlApp As Excel.Application

    Dim xlBook As Excel.Workbook

    Set xlApp = New Excel.Application

    '获取指定excel文件

    Set xlBook = xlApp.Workbooks.Open("C:\test.xls")

    Dim sheet As Excel.Worksheet

    '获取指定sheet

    Set sheet = xlBook.Worksheets(2)

    Dim ss As String

    '获取指定单元格的内容

    ss = sheet.Cells(2, 2)

    '内容显示

    MsgBox (ss)

    End Sub

    测试效果:弹出一个信息框,显示的内容是C盘下test.xls文件的第2个sheet的(2,2)单元格中的内容。

    分享到:

    18e900b8666ce6f233d25ec02f95ee59.png

    72dd548719f0ace4d5f9bca64e1d7715.png

    2009-08-24 16:57

    浏览 18952

    评论

    展开全文
  • VBA之活动单元格

    千次阅读 2019-09-26 00:37:05
    不论你点击一个单元格还是选择一个区域,你最先点击的单元格就是活动单元格 1 '活动单元格:activecell,工作表中活动单元格只有一个 ... 4 Cells(2, 3).Activate '激活指定单元格 5 End Sub 6 7 's...

    不论你点击一个单元格还是选择一个区域,你最先点击的单元格就是活动单元格

     1 '活动单元格:activecell,工作表中活动单元格只有一个
     2 Sub activecells()
     3 a = activecell.Address  '取得活动单元格地址
     4 Cells(2, 3).Activate    '激活指定单元格
     5 End Sub
     6 
     7 'selection光标所选区域
     8 Sub 光标所选区域()
     9     Selection = 1 '把所选的区域都赋值为1
    10 End Sub
    11 
    12 Sub 在selection中的改变活单元格() '在一个区域里逐个激活单元格
    13 For i = 1 To Selection.Count '利用 for循环 和 区域.count
    14     Selection(i).Activate '没什么用
    15 Next
    16 End Sub
    17 Sub 运用()
    18 Dim i As Range
    19 For Each i In Selection
    20     If i = "" Or i = "缺勤" Then
    21         i = "×"
    22     End If
    23 Next i
    24 End Sub
    25 
    26 '小结:selection的好处在于,可以很自由灵活选择你想要处理的单元格区域
    27 
    28 
    29 
    30 Sub 自己写()
    31 Dim text As Range
    32 For Each text In Selection 'for each in 真正的有用,可以改单元格内容
    33     If text = "" Or text = "缺勤" Then
    34     text = "x"
    35     End If
    36     Next
    37 End Sub

     

    转载于:https://www.cnblogs.com/gilgamesh-hjb/p/7363699.html

    展开全文
  • 打开一个Excel文件,选择菜单栏上的"Tools"选项->Macro->Visual Basic Editor,打开VBA编辑器。 在Modules文件夹下的csMain文件中,写下如下VB格式的代码:

    打开一个Excel文件,选择菜单栏上的"Tools"选项->Macro->Visual Basic Editor,打开VBA编辑器。

    在Modules文件夹下的csMain文件中,写下如下VB格式的代码:

    Public Sub Source做成()
    
    '声明Excel相关
        Dim xlApp As Excel.Application
        Dim xlBook As Excel.Workbook
        
        Set xlApp = New Excel.Application
    '获取指定excel文件
        Set xlBook = xlApp.Workbooks.Open("C:\test.xls")
    
        Dim sheet As Excel.Worksheet
    '获取指定sheet
        Set sheet = xlBook.Worksheets(2)
        
        Dim ss As String
    '获取指定单元格的内容
        ss = sheet.Cells(2, 2)
        
    '内容显示
        MsgBox (ss)
      
    End Sub


    展开全文
  • Range.Merge 方法:由指定的Range对象创建合并单元格 (一)对选择的区域进行合并 Sub 合并单元格() Selection.Merge '对选中的单元格区域执行此段代码,进行合并,仅保留左上角值 End Sub ******************...

    Range.Merge 方法:由指定的Range对象创建合并单元格

    (一)对选择的区域进行合并

    Sub 合并单元格()

           Selection.Merge              '对选中的单元格区域执行此段代码,进行合并,仅保留左上角值

    End Sub

    **********************

    (二)对相同相邻单元格进行合并

    原料如下:

    部门 职工 职级
    1部门 张小跳 5
    1部门 李大刀 7
    1部门 王老虎 8
    1部门 陈麻子 6
    2部门 董小花 9
    2部门 马大海 10
    2部门 胡斑马 8
    2部门 赵小鱼 4
    3部门 魏小跑 9
    3部门 于大脑 10
    3部门 罗青蛙 8
    3部门 刘兔子 4

    Sub 合并单元格实例()       

    Dim er%, rng%, rg As Range             '定义变量

    Application.DisplayAlerts = False       '关掉提示窗口,其内容是“仅保留左上角单元格值”

    er = Application.CountA([a:a])            '数出A列的非空单元格,我们这里是14个

    For rng = er To 2 Step -1                    '执行从第14行到第2行,以-1为步长的循环

           Set rg = Range("a" & rng)            'a14单元格对象赋给rg,那rg就变成了单元格对象

           If rg = rg.Offset(-1) Then rg.Offset(-1).Resize(2).Merge   

    '判断a14单元格,如果该单元格=向上偏移一格的值,那么扩展最后一个单元格的尺寸为2,也就是a13到a14的合并。

    '在下一个循环里,判断a13单元格是否等于向上偏移一格的值(a12),逐一合并单元格,这里a13(连着a14)要和a12合并。

    Next

    Application.DisplayAlerts = True

    End Sub

    执行代码后的效果如下:

    部门 职工 职级
    1部门 张小跳 5
    李大刀 7
    王老虎 8
    陈麻子 6
    2部门 董小花 9
    马大海 10
    胡斑马 8
    赵小鱼 4
    3部门 魏小跑 9
    于大脑 10
    罗青蛙 8
    刘兔子 4

    VBA也太好用了叭!

    (三)取消合并单元格并保留原来的数据

    与合并单元格有关的属性

    Range.MergeArea 属性:返回的是一个Range对象,该对象代表包含指定单元格的合并区域。

    Range.UnMerge 方法:取消合并单元格,将合并区域分解为独立的单元格

    Sub test()

    a = Range("a1").MergeArea.Count       '与a1单元格合并在一起的单元格个数,包括 a1 在内哦。

    [a1].UnMerge                                         '取消合并a1单元格

    End Sub

    举个小栗子叭,如下表所示,原始表格里a1、a2、a3单元格都合并在一起了,所以这里的 a = 3.

      A B
    1 1 2
    2 2
    3 2

    Sub 取消单元格合并后保留原来的数据()

    Dim b%, ad$, rng As Range                '声明变量

           For Each rng In Selection             '对于选中的每一个单元格范围进行一个循环

           ad = rng.Address                          '循环的第一个单元格地址是a2

           b = rng.MergeArea.Count             '计算出来与a2合并在一起的单元格一共有4个

           rng.UnMerge                                 '取消与a2单元格合并的区域

           rng.Resize(b) = rng                       '取出取消合并后单元格行数,此处为5,将变量rng的值全部赋给这5行

           Next

    End Sub

    把这段代码执行到【部门-职工-职级】的工作表内(先选中第一列的这14行单元格再执行代码),运行后效果如下:

    部门 职工 职级
    1部门 张小跳 5
    1部门 李大刀 7
    1部门 王老虎 8
    1部门 陈麻子 6
    2部门 董小花 9
    2部门 马大海 10
    2部门 胡斑马 8
    2部门 赵小鱼 4
    3部门 魏小跑 9
    3部门 于大脑 10
    3部门 罗青蛙 8
    3部门 刘兔子 4

    周五快乐朋友们!

    展开全文
  • 应用场景1、对之前文章《Excel-VBA对工作表按指定列一键拆分》的补充2、增加选择项:可根据指定列内容拆分成:当前工作薄的工作表或相同路径的工作薄附:视频知识要点1、Sheets.Add2、Workbooks.Add3、Msg = MsgBox...
  • VBA示例之 选择指定范围内使用了填充颜色的单元格,供初学者参考,大牛勿进~~~~~~~
  • 原创:用VBA实现将鼠标选择单元格按照指定格式合并并复制到剪切板 一、主要实现以下功能:1、用鼠标选择单元格(可谓连续单元格,也可为不连续的)后,按照要求格式“证件号码:+选定内容+“,”+”选定内容...
  • 在excel中通过点击按钮来读取选择的CSV文件,并从CSV中取出相关数据,然后填入excel中的指定单元格内。 **详细说明** : 1.csv文件有固定的命名,可以放在任意路径下,而不是固定的路径。因此需要通过选择路径来...
  • 通过改变一个单元格的内容,出发一个事件,根据改变的内容,进行相应的处理。 具体内容是,有一个单元个,里面的内容可以选择,分别是”1 选择;2填空;3读程序;4写代码“ 这里,实现的功能是,选择部分的列 (注:...
  • EXCEL如何选中指定单元格的上面和下面一格? 一、效果展示 处理数据时,常常会出现所要获取的单元格信息里没有统一的关键字,而在 但是我要一起选中这些单元格的上面一格(每个选中单元格的上面一格)。或者是和向上...
  • 确定sheet页:worksheets(“sheet1”) “sheet1”为页名称,对应写下你设置好的名称即会定位到你选择的sheet页。 确定单元格:range("$A$1")这即表明定位到A列第一行,如果想用变量来定义则可以写成range(“A”&...
  • Python 操作 Excel 教程(1) | 向单元格写入数据今天,我们开始学习使用 Python 来操作 Excel 表格,我在前面的文章写过,Go语言的Excelize,还有Python语言的OpenpyXl、Pandas和xlwings都可以作为 VBA 的替代,来...
  • 君子之交淡若水,小人之交甘若醴,君子淡以...技巧一、批量输入相同内容比如我们想在指定区域输入相同内容,我们可以这样做1、选择数据区域2、输入内容3、按Ctrl+Enter填充技巧二、批量快速求和选择需要求和的区域,...
  • 单元格的选取和赋值,都是有规则,后续肯定是要专门写一个赋值和区域选择的内容。 简单的区域选择和赋值 Sub 单元格复制() Range("H8").Resize(5, 3).Value = Range("A1").Resize(5, 3).Value End Sub Resize...
  • 可以把下面的代码直接复制到VBA编辑器里测试Sub 生成随机手机号()r = Selection.Row ‘获取当前选择单元格的行号,如果选择的是一个区域则返回左上角第一个单元格的行号col = Selection.Column '获取当前选择的...
  • n = Cells(i, a) '指定单元格的内容为n If n = "" Then GoTo aa '空格时跳到最后 Set fs = Application.FileSearch '设置模糊搜索文件夹 With fs .LookIn = t '路径为T .Filename = n " *.jpg" '文件名为n或者n+...
  • 一、简单演示和代码展示本期宏的触发方式,选择事件触发——只要B1单元格的内容有变化,就会执行宏。沿用上期的数据库,增加了用变量去匹配数据的方式,并且保留了上期指定匹配的方式进行对比。在采取变量去匹配的...
  • 一、背景及需求:上一...由于程序会对选中的每个单元格进行索引,如果直接Ctrl+A全选或者只选择上下或者左右的话,程序会由于一直进行excel单元格的索引而进入无限索引,最终导致电脑卡死!!!): Sub wrj() Dim rng
  • vba_按钮

    2019-10-01 03:05:51
    1. 新建项目及其编程 运行office excel,按Alt + F11,出现Microsoft Virtual Basic 编辑器,点击 插入--à模块。... 选择指定单元格(以灰色为例) 1.2. 按下Alt+F11 1.3. 按下F5,编译程序 1.4. 程序编译...
  • 前景提要(文末提供源码下载)昨天我们分享了如何将多个Excel工作薄按照指定列合并的方法,我们只需要手工选择需要合并单元格的表头就可以了,但是有小伙伴们在运用的过程中表示,有时候需要合并的表头的列并不是连续...
  • VBA常用技巧

    2014-12-21 16:39:28
    技巧3 获得指定行、列中的最后一个非空单元格 12 技巧4 定位单元格 12 技巧5 查找单元格 12 5-1 使用Find方法 12 5-2 使用Like运算符 12 技巧6 替换单元格内字符串 12 技巧7 复制单元格区域 12 技巧8 仅复制数值到另...
  • 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 1-4 使用Offset属性 5 1-5 使用Resize属性 6 1-6 使用Union方法 7 1-7 使用...
  • VBA编程技巧大全

    2013-08-05 09:03:19
    技巧3 获得指定行、列中的最后一个非空单元格 17 技巧4 定位单元格 20 技巧5 查找单元格 21 5-1 使用Find方法 21 5-2 使用Like运算符 25 技巧6 替换单元格内字符串 26 技巧7 复制单元格区域 27 技巧8 仅复制数值到另...
  • VBA for Excel(四)

    2020-03-05 16:37:14
    VBA for Excel(四) 本文涉及到的问题 ...注意一切没指定从属对象的对象都使用默认对象,range("a1")其实就是一种简写,它等价于ActiveWorkbook.ActiveSheet.Range ("a1"),当你跨表时一定要指明表...
  • Range.Find 方法,在该Range类对象代表的单元格区域中,搜索含有指定内容的单元格。Find只返回第一个找到的结果,例找374这个数字:Range(“B2,G14”).Find(374),返回Range(”C4”) Range.Find(What,After,Look...
  • Excel_VBA教程

    2014-09-22 11:36:34
    29选择单元格的其它方法 72 30选择行和列 73 31获取工作表信息 73 32往工作表输入数据 73 33返回工作表中的信息 74 34单元格格式 74 35移动,复制和删除单元格 74 36操作工作簿和工作表 75 37操作窗口(WINDOWS) 76...

空空如也

空空如也

1 2 3 4 5 6
收藏数 115
精华内容 46
关键字:

vba选择指定单元格