精华内容
下载资源
问答
  • VBA-定位单元格

    2020-12-14 19:51:52
    在Excel自带功能中,即带有根据特殊格式定位的功能:【开始】→【查找与选择】→【定位条件】。可以根据需要定位查找“标注”、“常量”、“公式”、“空值”、“可见单元格”等。 二、使用VBA的SpecialCells 方法...
  • VBA示例之 选择指定范围内使用了填充颜色的单元格,供初学者参考,大牛勿进~~~~~~~
  • 1、筛选指定列获取数据 For Each Rng In Sheets("目录").Range("b1:B23") Debug.Print Rng.Value If Rng.Value = "个人" Then n = n + 1 Sheets("备注").Cells(n, "g").Resize(1, 5) = Rng.Offset(0, -1)....

    1、筛选指定列获取数据

    For Each Rng In Sheets("目录").Range("b1:B23")
        Debug.Print Rng.Value
        If Rng.Value = "个人" Then
            n = n + 1
            Sheets("备注").Cells(n, "g").Resize(1, 5) = Rng.Offset(0, -1).Range("a1:e1").Value
            Sheets("备注").Cells(n, "g").Resize(1, 5) = Rng.EntireRow.Range("a1:e1").Value
        End If
    Next

    2、获取指定杭内容

    
    
    
    'On Error Resume Next
    Application.ScreenUpdating = False
    'MP = ActiveWorkbook.Path
    MP = "C:\Users\HONORS\Desktop\(安智)杭实物联网进出库汇总表 总.xlsx" '工作簿路径
    'MN = Dir(MP & "\" & "*.xlsx") '工作簿路径
    ' Set Wb = Workbooks.Open(MP & "\" & MN)
     Set Wb = Workbooks.Open(MP)
     
     For i = 1 To Wb.Sheets.Count
    'Cells(i, 1) = Sheets(i).Name
    Debug.Print Wb.Sheets(i).Name '获取表名
    Next
     
     
     With Wb.Sheets("总账(诸暨库)")
        lr = .Cells(Rows.Count, 1).End(xlUp).Row '获取最后一行
        Set rngs = .Range("A1:A" & lr) '确认列
        For Each Rng In rngs
    '        Debug.Print Rng.Value
                If Rng.Value Like "2021/11/24" Then
                    n = n + 1
                    ThisWorkbook.Sheets("测试").Cells(n, "a").Resize(2, 25) = Rng.EntireRow.Range("a1:y1").Value
                    ThisWorkbook.Sheets("测试").Cells(n, "z").Value = ActiveSheet.Name
                End If
        Next
    End With
    
    
    

    3、调整按模块输出内容:

    进出库

    Dim k%
    'On Error Resume Next
    Application.ScreenUpdating = False
    'MP = ActiveWorkbook.Path
    
    Name = "(安智)杭实物联网进出库汇总表 总"
    Dtransport = "2021/12/17"
    MP = "C:\Users\HONORS\Desktop\原始数据\储运数据\" & Name & ".xlsx" '工作簿路径
    'MN = Dir(MP & "\" & "*.xlsx") '工作簿路径
    ' Set Wb = Workbooks.Open(MP & "\" & MN)
     Set Wb = Workbooks.Open(MP)
    
     
    '-----------
    ' For i = 1 To Wb.Sheets.Count
    '    'Cells(i, 1) = Sheets(i).Name
    '    Debug.Print Wb.Sheets(i).Name '获取表名
    'Next
     '-----------
     last_row_clear = ThisWorkbook.Sheets("进出库").Cells(Rows.Count, 1).End(xlUp).Row '最后一行位置
     Debug.Print "行数" & last_row_clear
     ThisWorkbook.Sheets("进出库").Rows("5:" & last_row_clear).Delete
    '-----------
    ' For i = last_row_clear To 5 Step -1
    'ThisWorkbook.Sheets("进出库").Rows(i).Delete
    'Debug.Print "删除" & i & "行"
    'Next
     '-----------
    stockName = Array("总账(镇江库)", "总账(衢州库)", "总账(诸暨库)", "总账(昆山库)", "总账(泉州库)", "总账(武汉库)", "总账(泗阳库)", "总账(全椒库)")
    For i = 0 To UBound(stockName)
    'Debug.Print i
    '        If i = 0 Then
    '             Wb.ActiveSheet.Range("a1:Y3").Copy ThisWorkbook.Sheets("测试").Cells(1, 1)  '复制标题
    '             ThisWorkbook.Sheets("测试").Cells(1, 1).Resize(3, 1) = 1
    '        End If
        With Wb.Sheets(stockName(i))
              Wb.Sheets(stockName(i)).Activate '当前工作表激活
                lr = .Cells(Rows.Count, "A").End(xlUp).Row '获取最后一行
                Set rngs = .Range("A1:A" & lr) '确认列
                For Each Rng In rngs
        '            Debug.Print Rng.Value
                        If Rng.Value Like Dtransport Then
                            k = k + 1 '记录条目
                            Debug.Print "条目" & k & ":" & Rng.Value & ActiveSheet.Name '输出当前工作表内容
                            last_row = ThisWorkbook.Sheets("进出库").Cells(Rows.Count, 1).End(xlUp).Row '最后一行位置
        '                       n = n + 1 '判断行数
                                ThisWorkbook.Sheets("进出库").Cells(last_row, "a").Resize(2, 25) = Rng.EntireRow.Range("a1:y1").Value  '获取对应条目内容
                                ThisWorkbook.Sheets("进出库").Cells(last_row, "z").Value = ActiveSheet.Name  '写入表格名称
                        End If
                Next
            End With
    Next
        ThisWorkbook.Sheets("进出库").Range("A:L").RowHeight = 15 '行高
    '    ThisWorkbook.Sheets("进出库").Range("C:C").ColumnWidth = 35 '列宽
       Wb.Close False '关闭工作簿

    4、获取规定条目内容:

    运输

    Dim k%
    On Error Resume Next
    Application.ScreenUpdating = False
    'MP = ActiveWorkbook.Path
    Name = "脚手架运输台账(热联&安智)12.18"
    Dtransport = "2021/12/17"
    MP = "C:\Users\HONORS\Desktop\原始数据\储运数据\" & Name & ".xlsx" '工作簿路径
    'MN = Dir(MP & "\" & "*.xlsx") '工作簿路径
    ' Set Wb = Workbooks.Open(MP & "\" & MN)
     Set Wb = Workbooks.Open(MP)
    '-----------
    ' For i = 1 To Wb.Sheets.Count
    '    'Cells(i, 1) = Sheets(i).Name
    '    Debug.Print Wb.Sheets(i).Name '获取表名
    'Next
     '-----------
     
      last_row_clear = ThisWorkbook.Sheets("运输").Cells(Rows.Count, 1).End(xlUp).Row '最后一行位置
     Debug.Print "行数" & last_row_clear
     ThisWorkbook.Sheets("运输").Rows("3:" & last_row_clear).Delete
     
     
    stockName = Array("热联")
    'For i = 0 To UBound(stockName)
    Debug.Print i
    '        If i = 0 Then接下来的货量,货量预计;
        With Wb.ActiveSheet 'Wb.Sheets(stockName(0))
    '          Wb.Sheets(stockName(0)).Activate '当前工作表激活
                lr = .Cells(Rows.Count, "A").End(xlUp).Row '获取最后一行
                Set rngs = .Range("D1:D" & lr) '确认列
                For Each Rng In rngs
        '            Debug.Print Rng.Value
                        If Rng.Value Like Dtransport Then
                            k = k + 1 '记录条目
                            Debug.Print "条目" & k & ":" & Rng.Value & ActiveSheet.Name '输出当前工作表内容
                            last_row = ThisWorkbook.Sheets("运输").Cells(Rows.Count, 1).End(xlUp).Row '最后一行位置
        '                       n = n + 1 '判断行数
                                ThisWorkbook.Sheets("运输").Cells(last_row, "a").Resize(2, 147) = Rng.EntireRow.Range("a1:EQ1").Value  '获取对应条目内容
                                ThisWorkbook.Sheets("运输").Cells(last_row, "ER").Value = ActiveSheet.Name  '写入表格名称
                        
                        End If
                Next
            End With
             ThisWorkbook.Sheets("运输").Range("A:L").RowHeight = 15 '行高
    '         ThisWorkbook.Sheets("运输").Range("C:C").ColumnWidth = 35 '列宽
             
    'Next
    
       Wb.Close False '关闭工作簿

    展开全文
  • VBA锁定指定单元格

    千次阅读 2019-05-14 17:41:00
    If rs.RecordCount > 0 Then .Range("AF4").Value = pjno MsgBox "This project number does exists Please create a new one !", 16 .Range("A1:AH56").L...
    If rs.RecordCount > 0 Then
                    .Range("AF4").Value = pjno
                    MsgBox "This project number does exists Please create a new one !", 16
                    .Range("A1:AH56").Locked = False
                    .Range("F6:M6").Locked = True
                    ActiveSheet.Protect Password:="locked"
                    Exit Sub
    Else
                   
                    
                    .Range("AF4").Value = pjno
                
    End If

     

    转载于:https://www.cnblogs.com/luoye00/p/10863536.html

    展开全文
  • VBA示例之 获取一个单元格中有指定字体颜色部份数据,供初学者参考,大牛勿进~~~~~~~
  • 打开一个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

    展开全文
  • 意思就是当前应用程序(excel)下面的已经打开的第一个工作薄下面的第一个工作表里面的A1单元格,但一般情况下我们不需要这么麻烦,如果我们只对当前的表格操作,前面的都可以省略,只需要写range(“A1

    ​EXCEL是由很多的对象组成,每个对象都有他的属性和方法,所谓的对象可以理解为所有存在的东西,在同一个程序里的对象之间是存在关系的,比如说上下级关系或同级关系,上下级关系之间用英文句点“.”连接。

    例如:

    application.workbooks(1).worksheets(1).range(“A1”)

    意思就是当前应用程序(excel)下面的已经打开的第一个工作薄下面的第一个工作表里面的A1单元格,但一般情况下我们不需要这么麻烦,如果我们只对当前的表格操作,前面的都可以省略,只需要写range(“A1”)就可以了,如果我们在工作表1中要对同一个工作薄里的工作表2进行操作就要指明工作表,但不需要指定工作薄名,不指定工作薄默认是在同一个工作薄,不指定工作表,默认在同一个工作表,如果我们在第一个工作薄要去操作第二个工作薄就要指定第二个工作薄。除了可以使用数字去指定第几个工作薄或第几个工作表,我们还可以直接指定其名称,这样可以更直接知道是对哪个工作薄或工作表进行操作,前提是要知道它的名称。比如:

    workbooks(“2019年销售记录”).worksheets(“一月份销售记录”).range(“A1”)

    代表一个名为“2019年销售记录”的工作薄里面的一个名为"一月份销售记录"的工作表的A1单元格

    每个对象都有它的属性和方法,对象和属性或方法之间也是用英文的句点“.”连接,比如说一个单元格,宽度多少,高度多少,对齐方式是什么,有没边框,边框是单实线、双实线、还是虚线,有没背景色,什么背景色等,这些都是单元格的属性。我们可以对这些属性进行设置。

    例如:

    rows(1).rowheight=20 指定当前工作表第一行的行高为20磅,所以这个连接的英文句点“.”可以理解为:什么“的”什么。

    对于刚刚开始学习VBA的朋友,建议在VBA代码编辑器的立即窗口中进行练习,进入立即窗口的方法在EXCEL中同时按ALT+F11,打开代码编辑器,如果在打开的编辑器里没看到立即窗口可以按Ctrl+G或点击菜单栏的“视图”》“立即窗口”,就可以打开立即窗口,建议把代码编辑器窗口调节成下图一样,方法及时看到运行结果。

    输入代码并回车会在对应区域中显示结果
    如果当前的活动工作表是打开的第一个工作薄里的第一个工作表,那么下面这几行代码效果是完全一样的。

    Cells(1,1).value

    Range(“A1”).value

    sheets(1).cells(1,1).value=1

    worksheets(1).cells(1,1).value=1

    workbooks(1).worksheets(1).cells(1,1).value=1

    application.workbooks(1).worksheets(1).cells(1,1).value=1

    其中worksheets可以简写成sheets

    如上面的sheets(1).cells(1,1).value=1和worksheets(1).cells(1,1).value=1是完全一样的

    工作表格是EXCEL的基础,那么VBA的基础就是怎么使用VBA对表格进行操作,知道了怎么使用VBA操作当前工作表,以后再要操作其它的工作表或工作薄就容易了。以下是本人对一些基本操作的总结。都是以当前活动工作表为例。

    在指定的区域上进行写入,删除,复制,粘贴,写入公式,填充公式等等,这些都是最基本的操作。这样看来要在表格上干什么都要先指定一个区域,整个表格是表格中最大的一个区域,单元格就是表格中最小的区域,区域可以用range(“区域对象”)来表示。

    比如:

    Range(“A1”).Select 选择A1单元格

    Range(“A1:F10”).Select选择A1到F10区域

    Range(Cells(1, 1), Cells(3, 3)).select 选择A1:C3区域

    Range(“A:A”).Select选择A列

    Range(“A:F”).Select选择A-F列

    RANGE(“A1:D5,F2:G2,H:H”).Select同时选择A1:D5,F2:G2,H列三个指定区域

    Range(“1:1”).Select 选择第一行

    Range(“1:1,8:8,12:12”).Select同时选择第1,第8,第12行

    Range可以用英文中括号[]代替,可以是下面的格式

    Range(“A1”) 可以简写成 [A1]

    Range(“A2:B2”) 可以简写成 [A2:B2]

    但是:

    Range(“1:1,8:8,12:12”) 不能简写成 [“1:1,8:8,12:12”]

    Range(Cells(1, 1), Cells(3, 3)) 不能简写成 [Cells(1, 1), Cells(3, 3)]

    一个工作表由很多的单元格组成,所有的单元格集合在一起用cells表示,所以cells也代表就代所有的单元格,如果要指定某一个单元格只需要在cells后面指定行和列就可以,如:cells(1,1),就代表第一行第一列交叉的单元格A1,后面不指定单元格就代表所有单元格,如cells.select就是选择当前工作表的所有单元格,工作表除了是由单元格组成,同时也是由行或列组成,因此选择单元格或行或列还有都可以有多种,一行或一列也是一个区域,所以也是可以使用range指定的。

    比如下面几种单元格的选择方法

    cells(10).select 选择整个表格里的第10个单元格,顺序是从左到右,再从上到下,这个用法用到的机会并不多

    Cells(1, 1).Select 选择第一行第一列交叉的单元格,就是A1

    Cells使用方法和range使用方法是不一样的,range(“A1”)是以列号字母加行号代表,列号在前行号在后,要以英文双引号""括起来,意味是字符串的形式,cells(1,1),以索引号行号加列号,行号在前列号在后,中间用英文逗号隔开,不用加英文双引号,意味着里面的数字就是数值。

    其实cells还有一个用法,cells(1,“A”).select也是选择A1,这个就有点混血儿的感觉了。前面是行号,数值1,后面是字符列号"A",在编写程序的时候使用cells比使用range更灵活。可以方便使用变量替换.

    cells是不能像range一样直接指定区域的,但可以配合Resize属性指定区域,Resize属性是调整指定区域的大小。

    比如:

    Cells(1, 1).Resize(4, 4).Select 意思是第一行第一列交叉的单元格(就是A1)为左上角第一个单元格向右下调整成一个4*4的单元格区域。相当于range(“A1:D4”)

    Rows是当前工作表所有行的集合,因此也可以使用rows来指定行

    比如:

    Rows(1).select 选择第一行

    Rows.select 选择所有行,和Cells.Select 及 Columns.Select 是同样的效果,相当于选择表格上所有单元格。

    columns是当前工作表所有列的集合

    Columns(1).select 选择第一列

    Columns.Select 选择所有列

    上面说到了怎么选择单元格,行,列,区域,都是直接指定的,有明确目标的,但我们学习VBA就是要实现智能化,自动化,这样的我们就要用到变量来代替,那么怎么用变量来选择区域呢?

    上面的例子有提到,使用range(“A1”)这样的方法来选择是要加英文双引号的,代表是字符串类型,使用cells(1,1)这样的方法来选择的时候是不加双引号的,代表是数值类型。而变量可以代表任意类型,当然也可以手动指定变量是什么类型。如果不指定,那么变量是一个可变的类型,会根据情况自适应类型。不指定类型使用起来好像方便,但可能会存在一些情况。

    一是占用的存储占用空间大,二是运行速度会慢一些,毕竟它每次运行的时候还要判断一下自己应该是哪个类型。三是在给变量赋值的时候它不会检查是否符合类型要求,可能会存在一些未知的错误或冲突,查找起错误的原因会比较困难。比如有两个文本型的数字变量a=“2”,b=“3”,那么可以在立即窗口中分别使用msgbox a + b,msgbox a - b,msgbox a * b,msgbox a / b,看一下结果分别是什么,你会发现,两个变量相减,相乘,相除都是和数值计算一样,但相加就不一样的,a+b结果是23,而不是5,因为+号在VBA中可以用于连接两个字符串。如果你不指定变量的类型,一开始给这个本应该是数值型的变量赋值了一个字符型的数值,在运行的过程中系统不会提示任何错误,这样在发生错误的时候你可以不知道,或发现错误,但查找起来要花费很多时间。

    回到正题,和变量配合使用,要使用符号&进行连接,变量无论是什么类型都是不需要再双引号的。

    使用变量选择Range的方法示例:

    X = 2

    y = 3

    Cells(X, y).Select 选择第2行第3列交叉的单元格

    Range(“a” & X).Select 选择A2单元格

    Range(“a” & X & “:c5”).Select 选择A2:C5区域

    Range(“a1:” & “c” & y).Select 选择A1:C3区域

    Range(“a” & X & “:” & “b” & y).Select 选择A2:B3选择

    下面介绍一下几个Range对象最常用的属性和方法:

    Range.value属性,返回返设置range对象的内容

    如:

    a=Range(“A1”).value 返回单元格A1的值给变量a

    Range(“A1”).value=“姓名” 把A1单元格内容设置为 “姓名”,注意,设置的内容为字符串时需要用英文双引号括起来,数值或变量等其它类型是不用双引号的。

    要把内容设置为公式,要在公式前加一个=号,如下所示,在E2单元格加入求和公式,里面使用了变量来指定求和区域

    Range(“E2”).value = “=sum(A” & t & “😄” & t & “)”

    range.row属性,返回对象的行号,如果是一个区域返回左上角第一个单元格的行号

    如:a=Range(“D10”).row 返回单元格D10所在的行号10给变量a

    range.column属性,返回对象的列号,如果是一个区域返回左上角第一个单元格的列号

    如:b=Range(“B2:F5”).column 返回指定区域左上角第一个单元格b2所在的列号给变量b,注意这里返回的是数值列号不是字母列号,B就是第2列,所以返回的是2

    Range.Select 方法 选择对象

    range(“A1”).select 选择A1单元格

    Range.Clear 方法 清除对象,可使用具体参数指定只清除内容或公式或格式等

    Range(“A1:G37”).Clear 清除A1:G37 单元格区域的内容、公式和格式设置等。

    Range.Copy 方法将单元格区域复制到指定的区域或剪贴板中。如果没指定目标区域将复制到剪贴板。

    下例所示把区域A1:D4复制到 E5开始的同等大小区域。就是复制到E5:H8,可以使用具体参数设置复制粘贴的类型,比如仅复制公式,仅复制值等。

    Range(“A1:D4”).CopyRange(“E5”)

    Range.Delete 方法 删除对象

    RANGE(“A1:D5,F2:G2”).delete 同时删除A1:D5,F2:G2,两个指定区域

    Range(“1:1,8:8,12:12”).delete 同时删除第1,第8,第12行

    Range.Insert 方法 插入

    Range(“1:1,8:8,12:12”).Insert 同时在第1,第8,第12行上面插入一行空白行

    以上列举了小部分常用的对象、属性和方法,每个对象都有不同的属性和方法,不同的属性和方法可能会有多个参数,想要获得详情的属性和方法参数只考帮助文档,在VBA代码编辑器中按F1可打开VBA帮助文档。

    展开全文
  • 从上一篇文章我们可以获取到指定单元格的数据,并判断出类型。 这次要做的就是,如果这个单元格数据类型是字符串,我们就去进行子字符串的匹配,说的简单点就是判断指定单元格有没有我们需要找的字符串。 例如:...
  • VBA示例之 求人不如自已动手 取得单元格指定字符前的字符,供初学者参考,大牛勿进~~~~~~~
  • VBA-选定Excel单元格区域的方法

    千次阅读 2020-02-23 14:13:34
    VBA 中一般使用 Select 方法选定单元格单元格区域,格式为:.select。但是需要注意的是在使用该函数之前保证单元格所在工作表为活动工作表。 Sub test1() Range("a1:d4").Select Sheet2.Activate '激活工作表...
  • VBA选择单元格的语句

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

    千次阅读 2016-12-20 09:19:00
    使用VBA指定单元格赋值并填充颜色 ====================================================== 代码区域 ====================================================== Sub row应用() For Each rw In Rows(&...
  • 工作中经常遇到对word的批量操作,如果重复的操作达到上百甚至更多后,也是不小的工作量,在此可以使用word的宏来自动执行重复的操作,提高办公效率,特写文档举列说明具体使用
  • VBA之活动单元格

    千次阅读 2019-09-26 00:37:05
    不论你点击一个单元格还是选择一个区域,你最先点击的单元格就是活动单元格 1 '活动单元格:activecell,工作表中活动单元格只有一个 ... 4 Cells(2, 3).Activate '激活指定单元格 5 End Sub 6 7 's...
  • VBA示例之 求人不如自已动手 改变指定单元格的指定字符的颜色,供初学者参考,大牛勿进~~~~~~~
  • VBA赋值给指定单元格

    2019-10-01 15:49:00
    这是一个Range对象基本操作实例,对指定单元格赋值,然后使用弹窗获取值。 代码如下: Sub test1() Worksheets("Sheet1").Range("A5").Value = 22 MsgBox "工作表Sheet1内单元格A5中的值为" _ & ...
  • 'Upload File to the specific folder Sub ...Call UploadImages("9", "AD37:AH40") End Sub 标签:VBA,End,Sub,oWK,UploadImages,image,单元格,Call,图片 来源: https://www.cnblogs.com/luoye00/p/10496271.html
  • 确定当前单元格所在的页数_Excel VBA应用.rar,在Excel的分页预览模式下,用户可以非常容易地查看当前单元格所在的页数,但是在普通视图模式下,就无法那么容易地知道了。本例的代码可以实现在工作表中选中任何一个...
  • Sub d() Cells.Interior.Pattern = xlNone Selection.EntireRow.Interior.Color = RGB(250, 230, 200) Selection.EntireColumn.Interior.Color = RGB(250, 230, 200) End Sub 图例:
  • 整个表格的内容由填写序号的单元格引发变化,每变化一次另存为pdf,并将其中一个单元格的值作为pdf的文件名 一、错误写法 Sub 另存并重命名PDF() Dim i As Integer Dim n As String For i = 1 To 10 Sheets(...
  • VBA示例之 在特定的区域内查找文本,返回值是包含查找文本的单元格,供初学者参考,大牛勿进~~~~~~~
  • Excel VBA单元格格式

    2020-06-03 13:38:03
    你的VBA过程可能需要查明某个具体单元格的格式。我们可以使用NumberFormat属性来找回单元格格式: ?Range("A1").NumberFormat 在立即窗口输入上面的问题后,Excel显示“General” Range("A1").NumberFormat =...
  • 我们可以换个思路,把单元格的内容体现在窗体文本框中,通过文本框来选择要操作的部分内容。如下图所示在文本框中选择要添加的部分内容,然后选择要添加的XML标签,单击”开始添加”即可在选中...
  • 最近做了个小工具,根据id将一个表的数据导入另一个表的指定字段,但是运行速度极慢,总共导入6000个左右的单元格,居然要花两分钟。 做了很多的修改尝试也没有用,例如使用dictionary代替暴力搜索等。 最后发现,...
  • Value是单元格的数字内容 Text是文本内容 Formula是最原本的,输入内容 Sub 宏3() '测试,就不去定义变量类型了 a = Range("b1").Value b = Range("b1").Text c = Range("b1").Formula End Sub ...

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 4,784
精华内容 1,913
关键字:

vba选择指定单元格