精华内容
下载资源
问答
  • 今日的内容是“初识VBA代码及应用VBA代码”的第六节“VBA表示单元格样式A1、R1C1和R[1]C[1]之间的区别”,“VBA之EXCEL应用”从简单的录制宏实现一直讲到窗体的搭建,大家可以非常容易的掌握相关的知识,这套教程...

    27c614fd8bb714e5029e5f8dbf07f858.png

    今日的内容是“初识VBA代码及应用VBA代码”的第六节“VBA中表示单元格样式A1、R1C1和R[1]C[1]之间的区别”,“VBA之EXCEL应用”从简单的录制宏实现一直讲到窗体的搭建,大家可以非常容易的掌握相关的知识,这套教程面向初学人员,共三册,十七章,都是我们在利用EXCEL工作过程中需要掌握的知识点,希望大家能掌握利用。

    第六节 VBA中表示单元格样式A1、R1C1和R[1]C[1]之间的区别

    大家好,我们继续讲解VBA的相关知识。这讲的内容是“VBA中表示单元格样式A1、R1C1和R[1]C[1]之间的区别”。在VBA中A1、R1C1和R[1]C[1]均表示单元格。这在我们录制VBA时是随处可见的,通过这讲的学习,我们要掌握这三种单元格表示方法的意义。

    1 以“A1”样式表示单元格

    我们在工作表上放置一个运行按钮,并关联上以下的过程代码(A1样式):

    Sub mynzA()

    Range("D4").Formula = "=B3*10"

    End Sub

    代码截图:

    1f40612934bc654175f1aad1f0e6b4c7.png

    代码的解读:

    Range("D4").Formula = "=B3*10" 意义就是在单元格“D4”中录入公式“=B3*10”,这里对于单元格的表示用的是“B3”,是一种绝对单元格的表示方式。

    我们来看运行的结果:

    bcc700e3509fc50ca8df6d935c9a2503.png

    2 以“R1C1”样式表示单元格

    我们在工作表上放置一个运行按钮,并关联上以下的过程代码(R1C1样式):

    Sub mynzB()

    Range("D5").FormulaR1C1 = "=R3C2*10"

    End Sub

    代码截图:

    051d4b72bfb884081cce2bc63d1b3c75.png

    代码解读:

    Range("D5").FormulaR1C1 = "=R3C2*10" 表示在“D5”的单元格中录入公式:"=R3C2*10"

    其中R3C2表示的是第三行第二列的单元格即B3单元格,这种表示是单元格的另外一种表示方式。

    代码的运行结果:

    546b2afaf400584e17c21432771e1e27.png

    3 以“R[1]C[1]”样式表示单元格

    我们在工作表上放置一个运行按钮,并关联上以下的过程代码(R[1]C[1]样式):

    Sub mynzC()

    Range("D6").FormulaR1C1 = "=R[-3]C[-2]*10"

    End Sub

    代码截图:

    e5736b7bc00d309e951a2584584805e3.png

    代码解读:

    Range("D6").FormulaR1C1 = "=R[-3]C[-2]*10" 的意思是在"D6"这个单元格中录入公式:"=R[-3]C[-2]*10"。其中R[-3]C[-2]指的是对于"D6"这个单元格行是向上3行,列是向左2列的单元格,仍是B3单元格,的引用。这是一个相对引用。

    代码的运行结果:

    883363a4034db400a4298f155f042424.png

    以上是在录制宏的过程中经常会看到的录制结果,大家要认真掌握。

    今日内容回向:

    1) 单元格的引用样式在录制宏时的表现有哪些?

    2) 这些样式中哪个是绝对引用,哪个是相对引用?

    3) 对于单元格相对引用来讲,行列的位置是如何规定的?

    bd87c36b8440ae4a25af784be8e4c339.png

    本讲内容参考程序文件:工作簿01.xlsm

    分享成果,随喜正能量

    VBA的应用范围及学习方法:

    VBA是利用Office实现个人小型办公自动化的有效手段(工具)。这是我对VBA的应用界定。在取代OFFICE新的办公软件没有到来之前,谁能在数据处理方面做到极致,谁就是王者。其中登峰至极的技能非VBA莫属!

    我记得20年前自己初学VBA时,那时的资料甚少,只能看源码自己琢磨,真的很难。20年过去了,为了不让学习VBA的朋友重复我之前的经历,我根据自己多年VBA实际利用经验,推出了七部VBA专门教程。

    第一套:VBA代码解决方案 是VBA中各个知识点的讲解,教程共147讲,覆盖绝大多数的VBA知识点,提供的程序文件更是一座不可多得的代码宝库,是初学及中级人员必备教程;目前这套教程提供的版本是修订第二版,程序文件通过32位和64位两种OFFICE系统测试。

    第二套:VBA数据库解决方案 数据库是数据处理的专业利器,教程中详细介绍了利用ADO连接ACCDB和EXCEL的方法和实例操作,适合中级人员的学习。目前这套教程提供的是修订第一版教程,程序文件通过32位和64位两种OFFICE系统测试。

    第三套:VBA数组与字典解决方案 数组和字典是VBA的精华,字典是VBA代码水平提高的有效手段,值得深入的学习,是初级及中级人员代码精进的手段。目前这套教程提供的版本是修订第一版,程序文件通过32位和64位两种OFFICE系统测试。

    第四套:VBA代码解决方案之视频 是专门面向初学者的视频讲解,可以快速入门,更快的掌握这门技能。这套教程是第一套教程(修订一版)的视频讲解,视频更易接受。

    第五套:VBA中类的解读和利用是一部高级教程,讲解类的虚无与肉身的度化,类的利用虽然较少,但仔细的学习可以促进自己VBA理论的提高。这套教程的领会主要是读者的领悟了,领悟一种佛学的哲理。目前这套教程提供的版本是修订第一版,程序文件通过32位和64位两种OFFICE系统测试。

    第六套教程:VBA信息获取与处理,是一部高级教程,涉及范围更广,实用性更强,面向中高级人员。教程共二十个专题,包括:跨应用程序信息获得、随机信息的利用、电子邮件的发送、VBA互联网数据抓取、VBA延时操作,剪切板应用、Split函数扩展、工作表信息与其他应用交互,FSO对象的利用、工作表及文件夹信息的获取、图形信息的获取以及定制工作表信息函数等等内容。程序文件通过32位和64位两种OFFICE系统测试。

    第七套教程:VBA之EXCEL应用 这是一部初级教程这部教程共三册,从从创建宏、对话框、工作簿和工作表对象、单元格对象等基础内容讲起,到循环结构、错误处理、字符串操作、日期和时间、事件、数组应用,函数过程等方面,一直讲解到控件和窗体对象的应用都是我们提高自己EXCEL水平的必须。

    以上各教程学习顺序:713265或者743265。其中第四套是对第一套的视频讲解,所以第一和第四只选其一即可。可以WeChat:VBA6337(或者NZ9668),两个对象是都是可以的。

    展开全文
  • VBA中引用单元格与区域

    千次阅读 2018-01-29 22:14:51
    在Visual Basic中,Range对象既可表示单个单元格,也可表示单元格区域。  引用 含义 Range("A1") 单元格A1 Range("A1:B5")   从单元格A1单元格B5的区域 Range("C5:D9,G9:H16") 多块选定区域 Range...

    在Visual Basic中,Range对象既可表示单个单元格,也可表示单元格区域。

       引用   含义

    Range("A1")        单元格A1

    Range("A1:B5")    从单元格A1到单元格B5的区域

    Range("C5:D9,G9:H16")    多块选定区域

    Range("A:A")       A列

    Range("1:1")                      第一行

    Range("A:C")                     从A列到C列的区域

    Range("1:5")                     从第一行到第五行的区域

    Range("1:1,3:3,8:8")          第1、3 和8行

    Range("A:A,C:C,F:F")         A、C 和F列

    通过使用行列编号来引用单元格,可用Cells来引用单个单元格。该属性返回代表单个单元格的Range对象

    cells(行数,列数)

    因为可用变量替代编号,所以Cells属性非常适合于在单元格区域中循环,例如:

    Sub CycleThrough()
     Dim Counter As Integer
     For Counter = 1 To 20
      Worksheets("Sheet1").Cells(Counter, 3).Value = Counter
     Next Counter
    End Sub

    如果对工作表应用Cells属性时不指定编号,该属性将返回代表工作表上所有单元格的Range对象。下述Sub过程清除活动工作簿中Sheet1上的所有单元格的内容。

    Sub ClearSheet()
    Worksheets("Sheet1").Cells.ClearContents
    End Sub

    引用行和列

    可用Rows属性或Columns属性来处理整行或整列。这两个属性返回代表单元格区域的Range对象。下面举例说明了使用Rows和Columns属性的一些行和列的引用;

    引用    含义
    Rows(1)                   第一行
    Rows                       工作表上所有的行
    Columns(1)             第一列
    Columns("A")         第一列
    Columns                工作表上所有的列

    用快捷记号引用单元格

    可用方括号将A1引用样式或命名区域括起来,作为Range属性的快捷方式。这样就不必键入单词“Range”或使用引号,如下例所示。

    Sub SetValue()
     [A1].Value = 30
    End Sub

    展开全文
  • Excel VBA单元格对象

    2020-06-18 15:08:38
    Range(“A1”)方式——表示A1单元格 Cells(1,1)方式——表示A1单元格(cells属性返回单元格区域中指定行和列相交的单元格) Cells(1,“A”)方式——表示A1单元格Cells(2,1)方式——表示A2单元格 [A1]方式——表示A1...

    多种方法引用单元格

    Range(“A1”)方式——表示A1单元格
    Cells(1,1)方式——表示A1单元格(cells属性返回单元格区域中指定行和列相交的单元格)
    Cells(1,“A”)方式——表示A1单元格Cells(2,1)方式——表示A2单元格
    [A1]方式——表示A1单元格

    注意:①列标不区分大小写 ②VBA中字符用加双引号"",数字和变量无需加双引号""。所以,Cells(1,“A”)方式很好理解了。

    多种方法引用单元格区域

    Range(“A1:B2”)方式——表示A1到B2的单元格区域,包括4个单元格
    [A1:B2]方式——表示A1到B2的单元格区域,包括4个单元格
    以下三种方式等同:
    Range(Cells(1, 1), Cells(10, 5))
    Range(“A1”, “E10”)
    Range(Range(“A1”), Range(“E10”))
    均表示工作表中A1:E10单元格区域

    优缺点讨论:Cells(1,1)缺点是形式不支持引用区域,不支持成员列表;[A1]形式不支持循环,不支持成员列表;Range(“A1”)形式支持循环,支持引用区域,支持自动列出属性,方法等成员。

    引用整行或者整列

    Range(3:3)——表示引用第三行
    Range(2:5)——表示引用第二到第五行
    Range(“D:D”)——表示引用D列(D不区分大小写)
    Rows(3)——表示引用第三行
    Rows(“3”)——表示引用第三行
    Rows(“3:5”)——表示引用第三到第五行
    Columns(3)——表示引用第三列
    Columns(“C”)——表示引用第三列
    Columns(“C:D”)——表示引用C到D列

    属性

    offset
    作用:返回Range对象,它代表位于指定单元格区域的一定的偏移量位置上的区域。
    语法
    Range.Offset(RowOffset, ColumnOffset)

    RowOffset:区域偏移的行数(正数、负数或 0(零))。正数表示向下偏移,负数表示向上偏移。默认值是 0。
    ColumnOffset:区域偏移的列数(正数、负数或 0(零))。正数表示向右偏移,负数表示向左偏移。默认值是 0。

    Resize
    语法
    Range.Resize(RowSize, ColumnSize)

    RowSize:新区域中的行数。如果省略该参数,则该区域中的行数保持不变。
    ColumnSize:新区域中的列数。如果省略该参数。则该区域中的列数保持不变。

    Range(“a1”).Resizt(3, 2).Select
    在这里插入图片描述
    End
    作用:返回一个 Range 对象,该对象代表包含源区域的区域尾端的单元格。等同于按键 End+
    ↑、End+ ↓、End+ ←或 End+ →。
    语法
    Range.End(Direction)
    Direction:所要移至的方向。(包括以下四种情况)
    xlDown 向下
    xlToLeft 向左
    xlToRight 向右
    xlUp 向上

    我们一般用end属性获取某列的最后一个非空单元格的行号
    Cells(Rows.Count, “A”).End(xlUp).row

    Address
    作用:返回单元格地址。
    MsgBox Range(“a1”).Address
    在这里插入图片描述

    Value
    作用:表示单元格里面的内容,默认属性,可省略

    常用方法

    Select
    相当于我们点住鼠标左键圈选一个单元格区域
    Range(“a1:a10”).Select

    copy
    复制内容到指定目的地的作用。
    Range(“a1”).Copy Range(“b1”) ’ 将A1单元格内容复制到B1
    Worksheets(1).Range(“a1”).Copy Worksheets(2).Range(“b1”)'将表1中A1单元格内容复制到表2单元格B1中

    Union
    将多个非连续区域连接起来成为一个区域,从而可以实现对多个非连续区域一起进行操作。
    Union(Worksheets(1).Range(“A1:D4”), Worksheets(1).Range(“E5:H8”)).Select
    在这里插入图片描述
    union方法一般结合find方法,在依次找到特定的单元格区域之后,联合选择然后做统一的操作。

    Clear
    清除单元格的内容
    Sub test()
    Range(“a:a”).Clear '清除A列单元格,包括数据内容和格式
    Range(“a:a”).ClearContents '如果不想清楚单元格颜色等格式,只清除A列单元格内容用ClearContentsRange(“a:a”).ClearComments '清除批注
    Range(“a:a”).ClearFormats’清除格式
    End Sub

    SpecialCells
    在Excel中使用定位对话框可以选中工作表中特定的单元格区域,而在VBA中则使用SpecialCells方法。下面这个例子实现选中含有公式的单元格。

    Sub test()
    Dim rng As Range
    Set rng = Sheet1.Range(“a1:x100”).SpecialCells(xlCellTypeFormulas)'选中A1:X100单元格区域中包含公式的单元格
    rng.Select
    End Sub
    在这里插入图片描述
    除了可以选中包含公式的单元格,我们还可以选中含有注释的单元格区域、含有相同格式的单元格区域等等。

    上述代码中xlCellTypeFormulas替换为下表中值即可
    在这里插入图片描述
    我们如果要仅复制筛选后的数据,就可以用
    SpecialCells(xlCellTypeVisible).copy

    如果判断A1:B10单元格区域若存在空格,则隐藏所在行[A1:B10].SpecialCells(xlCellTypeBlanks).Rows.Hidden =True

    整理空行工具
    Sub s()
    row1 = InputBox(“请输入需要整理空行的列(英文)”, “提示信息”)
    Range(row1 & “:” & row1).SpecialCells(xlCellTypeBlanks).Rows.Hidden = True
    End Sub

    展开全文
  • NO.1Excel合并单元格操作,相对简单,快捷工具栏里有按钮可以方便执行。本节讲一下使用vba代码如何合并单元格。合并单元格其针对项目为单元格以及...也可以这样来表示:Range("A1:F10").Merge此例表示A1到F1单...

    NO.1

    Excel合并单元格操作,相对简单,快捷工具栏里有按钮可以方便执行。

    本节讲一下使用vba代码如何合并单元格。

    e405186750c6a8dac2630f3c1de50593.png

    合并单元格其针对项目为单元格以及单元格内容来进行。

    基于Range对象的Merge方法来完成,其语法只有一个参数Across。

    语法

    Range.Merge(Across)

    Range是一个单元格区域对象变量。

    也可以这样来表示:

    Range("A1:F10").Merge

    此例表示将A1到F1单元格进行合并,合并后单元格的值为A1单元格值。

    NO.2

    下图为合并单元格列子。

    cf77f9e6e2cf8bd65832a7b940e72cea.png

    方法介绍

    Range.Merge(Across) 方法:

    功能:从指定的Range对象创建合并单元格。

    值:合并区域的值在该区域左上角的单元格中指定。

    参数Across:

    如果设置为 True,则将指定区域中每一行的单元格合并为一个单独的合并单元格。 默认值为 False。

    a5607b4503abdac789a55ee8a1e485f7.png

    NO.3

    既然有合并单元格,就会有一个逆向操作,取消合并。

    UnMerge方法,也是基于Range对象的一个方法。

    此方法功能是,将合并区域分解为独立的单元格。

    语法:Range.UnMerge

    这里的Range是一个单元格对象变量。

    9d30bd42dc5f8bd98b0fecb820cd25ac.png

    例如:Range("C5").UnMerge

    将包含单元格 C5 的合并区域进行分解。

    如果在代码中使用UnMerge方法之前,要首先对MergeCells属性进行判断。

    MergeCells为True说明该区域包含合并单元格,False说明不包含合并区域,也就不需要进行分解单元格操作。

    如下代码:

    With Range("A5")  if .MergeCells then'包含合并单元格    .MergeArea.UnMerge'分解单元格  Else    MsgBox "没有合并单元"  End IfEnd With

    NO.4

    总得来说,合并和拆分单元格操作,相对简单,但是在应用过程中可能有点不方便.

    因为,对于一些表格位置要有一个清晰的定位,不然,拆分和合并就会显得有些乱.会出很多错误,其单元格内的值也会变得不正确.

    ---End---

    欢迎关注、收藏

    展开全文
  • vba基础单元格 选取1 表示一个单元格(a1)2 表示选相邻单元格区域... Sub s()//这里每一行都表示a1单元格 Range("a1").Select Cells(1, 1).Select Range("A" & 1).Select Cells(1, "A").Select Cells(1).Select
  • Range(“a1:a10”).Select '表示选中单元格A1:A10的区域 Range(“a2”).Value = 1 '表示单元格赋值为1,Range的默认属性就是Value Range(“a1”).Offset(2, 3).Select '以单元格a1为基准,下移2行,右移3列,...
  • Excel VBA单元格选取

    万次阅读 2017-05-14 00:34:24
    '1 表示一个单元格(a1) Sub s() Range("a1").Select Cells(1, 1).Select Range("A" & 1).Select Cells(1, "A").Select Cells(1).Select [a1].Select End Sub '2 表示相邻单元格区域 Sub d() '
  • 目录 单元格对象的Value属性 单元格对象的Text属性 ...如获取A1单元格的值,可以用: Range("A1").Value Value属性为单元格对象的默认属性,当需要获取某个对象的默认属性时,可以直接用对象表示。 非特...
  • '1 表示一个单元格(a1) Sub s() Range("a1").Select Cells(1, 1).Select Range("A" & 1).Select Cells(1, "A").Select Cells(1).Select [a1].Select End Sub ...
  • 使用 Visual Basic 的普通任务是指定单元格单元格...在 Visual Basic 中,Range 对象既可表示单个单元格,也可表示单元格区域。下列主题说明了标识和处理 Range 对象最常用的方法。用 A1 样式记号引用单元格单元格
  • 90 Then ‘判断A1单元格的值是否大于90,如果大于90MsgBox”优秀”,vbinformation,”提示” ‘弹出信息提示框,显示优秀End If优秀语法:If 条件1 Then 语句1Elseif 条件2 Then 语句2End If例如:If Cells(1,1...
  • 一、单元格单元格的基本表示方法'三种基本表示方法range("A1")cells(1,2) '第一行第二列,即B1单元格[A1]区间range("a1:c10")range("a1:c"&i)'可用参数[D1:H8]'不能用参数cells(1,2)'不能用来表示区间单元格循环...
  • Excel VBA:Range对象

    2020-01-13 15:28:50
    Range("A1:C5")或Range("A1","C5")表示A1:C5区域; Range(cells(i,j),cells(m,n))表示第i行第j列的单元格到第m行n列的单元格区域,有时cells前需加worksheets("sheet1").之类; 2.表示不连续区域 Range("A1:B2...
  • EXCEL VBA 备忘录

    2018-02-06 09:25:30
    最最基础的什么录制,加快捷键,被禁用宏,……等基本操作直接过滤,这些还不会的,请百度。...range(“A1”).select select表示a1单元格上执行选择 public sub mysub()  magbox "hello world!" ‘m
  • EXCEL VBA笔记

    2018-05-08 19:04:51
    Range(“A1”).Select ‘选取单元格,Range表示区域 ActiveCell.FormulateR1C1=”1” ‘对选中的单元格赋值(R1C1相对位置赋值,此处赋值 ’按文本格式)ActiveCell 表示当前单元格 Cells(2,4)=3‘对D2赋值,此处...
  • VBA编程基础

    2009-02-26 19:32:00
    使用 Visual Basic 的普通任务是指定单元格单元格...在 Visual Basic 中,Range 对象既可表示单个单元格,也可表示单元格区域。下列主题说明了标识和处理 Range 对象最常用的方法。用 A1 样式记号引用单元格单元格
  • 学习VBA的记录

    2016-11-22 21:19:20
    1、cell和range的区别:cell代表一个单元格,如:cells(1,1)只能表示A1;Range可以表示一个单元格(range("A1"),也可以表示一个区域(range("A1:A10") 2、
  • Range(“A1:D1”)是对单元格A1:D4的引用(也可以用[A1:D4]代替),可以表示值range().value,也可以表示单元格的宽和高等属性 我们加入循环语句,条件为A1:D4的和是否等于E1 Do Until Application.Sum(Ran
  • 8 excel vba 往多行写入数据

    千次阅读 2018-02-06 15:31:47
    比如我们要往单元格 A1 写入数据, 可以用 range("A1") ,来表示单元格A1 . 那么如果我们要表示多个单元格该用什么语句呢? 1, 比如我们有如下的表格.我们要在每行的单元格里写上美元两个字 我们知道,range...
  • VBA学习记录一

    2021-02-25 16:51:21
    1、for循环 dim i as integer for i = 10 to 1 step -1 ...2、range表示单元格: range(“a”& i)、sheet1.range(“a1”) 3、IF语句 用if判断是否退出for循环,关键字:exit for If...Then Elseif...Then
  • EXCEL-VBA-- Range 对象

    2020-01-12 22:06:01
    Range对象是工作表中一个或多个单元格表示形式,是Excel VBA最重要的对象。本章概述了Range对象的属性和方法。属性是对象拥有的(它们描述对象),而方法做的(它们对对象执行操作) Range示例 在工作表上放置...
  • Excel VBA 学习笔记(陆续更新)

    千次阅读 2013-05-08 10:48:03
    1.什么是宏:宏就是一系列固定动作的集合。 2.VBA窗口:工程资源窗口包含了当前在...3.对象:Application对象的workbooks集合的mysheet工作表的单元格区域A1:D10按照如下方式表示:Application.Workbooks("mysheet
  • 在第七节中,我给大家简单结束了一下range对象,让大家知道了range拥有一个value属性,...一、range的多种引用方法假设我们要引用A1单元格,除了可以用range(“A1″), cells(1,1),还有一种方法,就是把cells的第1列...
  • vba中的查找匹配函数

    万次阅读 2015-09-29 10:42:52
    最朴树的find例子:Range("G4") = Range("B:B").Find(Range(...Find(Range(“G3”))表示要查找G3单元格中的值 Row返回查找到的位置的行数工作表函数Match例子Range("A1") = application.WorksheetFunction.Match(Ran
  • 'Application.Intersect 方法'返回一个 Range 对象,该对象表示两个或多个区域重叠的矩形区域。 PS:Is Nothing 用于判断对象是否存在,对象可以是工作簿,工作表,单元格区域等 教学代码: 1 Sub test() 2 ...
  • 其实不是你的错只是代码迷路了,有时候我写代码为了缩短代码长度总是会简单,比如写单元格代码,[a1] 这样来简写表示单元格,可有时候代码忘记它是谁了,这个时候它就会出错,就会提示找不到工程或库,我们就应该...
  • Names对象应用程序或工作簿中的所有**Name** 对象的集合。每一个 Name 对象都代表一...RefersTo 参数必须以 A1 样式表示法指定,包括必要时使用的美元符 ($)。 例如,如果在 Sheet1 上选定了单元格 A10,并且通过将 ...
  • Names对象应用程序或工作簿中的所有**Name** 对象的集合。每一个 Name 对象都代表一...RefersTo 参数必须以 A1 样式表示法指定,包括必要时使用的美元符 ($)。 例如,如果在 Sheet1 上选定了单元格 A10,并且通过将 ...
  • 目标是用户可以使用来自单元格的数据并最终更改数据字段项而不必按任何内容(即,如果 A1 表示 "Hello" ,它将取消选择数据字段中的所有其他项并选择 "Hello" 数据字段项目) .从录制我的宏,到在透视字段中更改我的枢...
  • evaluate函数

    2018-03-24 11:05:00
    2. Evaluate还可以将文本形式的对象名称转换成对象,例如Evaluate("A1")的结果是引用名为“A1”的单元格对象 含义就是说VBA里,两边加双引号的excel 公式会被认为是一段字符串,不会被计算。而Evaluate函数可以将这...

空空如也

空空如也

1 2
收藏数 40
精华内容 16
关键字:

vba表示a1单元格