精华内容
下载资源
问答
  • 今日的内容是“VBA之EXCEL应用”的“第四章 单元格(Range)对象”中第一节“对单元格对象的赋值”。“VBA之EXCEL应用”这套教程从简单的录制宏的讲解,一直到窗体的搭建,内容丰富,案例众多。大家可以非常容易的...

    fd456f51394ffcf83add213a4ee53276.png

    今日的内容是“VBA之EXCEL应用”的“第四章 单元格(Range)对象”中第一节“对单元格对象的赋值”。“VBA之EXCEL应用”这套教程从简单的录制宏的讲解,一直到窗体的搭建,内容丰富,案例众多。大家可以非常容易的掌握相关的知识,这套教程面向初学人员,共三册,十七章,都是我们在利用EXCEL工作过程中需要掌握的知识点,希望大家能掌握利用。

    第一节 给单元格对象赋值

    在EXCEL VBA中,单元格对象是非常重要的一块内容,甚至可以说,任何代码的执行都是和单元格对象相关的。这讲中我们就来认识这个单元格对象。

    1 利用Range语句对单元格赋值实例

    我们看下面的代码:

    Sub mynz() '利用Range语句对单元格赋值实例

    Range("A3").Value = 2

    Range("B1:B4").Value = 5

    Range("C1:C2,D3:D4").Value = 10

    End Sub

    代码截图:

    46e6ab44f90155f1bc3b00d916100261.png

    代码讲解:在上述代码中,我们用了三条语句来给单元格赋值,Range("A3").Value = 2 是仅对一个单元格的赋值;Range("B1:B4").Value = 5 是对"B1:B4"连续的单元格进行赋值;Range("C1:C2,D3:D4").Value = 10是对"C1:C2,D3:D4"非连续区域的单元格进行赋值。大家要记住这些基本的写法,以便在自己的代码中应用。

    代码的执行效果:

    6d8c059c19a41d0d9dfefdd15ea42ee3.png

    2 利用Cell语句对单元格赋值实例

    对于单元格写法,除了Range之外,您还可以使用Cell。当需要遍历范围时,使用Cell特别有用。

    我们看下面的代码:

    Sub mynzA() '利用CELL语句对单元格赋值实例

    Cells(11, 1).Value = 2

    Range(Cells(13, 1), Cells(14, 2)).Value = 5

    End Sub

    代码截图:

    d500f82daa5ecc43531708b6100ca1c9.png

    代码讲解:以上语句利用了Cell语句来表述单元格,第一句Cells(11, 1).Value = 2,是将值2输入到第11行和第1列的交点单元格中;第二句Range(Cells(13, 1), Cells(14, 2)).Value = 5,是将值5输入到第13行和第1列的交点单元格及第14行和第2列的交点单元格中。

    我们看代码的执行效果:

    745a9c16f1a2fb8935307b6d3a1f4b7d.png

    3 声明单元格对象

    我们可以使用关键字Dim和Set来声明一个Range对象。我们仍是看下面的代码:

    Sub mynzB() '声明单元格对象

    Dim TEM As Range

    Set TEM = Range("A19:E25")

    TEM.Value = 8

    End Sub

    代码截图:

    45890475a7cf91c0933419ff51abb440.png

    代码讲解:上述代码首先声明TEM 为Range对象的变量,然后Set TEM = Range("A19:E25")

    是将Range("A19:E25")赋给TEM ,最后利用了TEM.Value = 8给这个单元格对象进行赋值。

    我们看代码的执行:

    d545c5557a5c1f545a8551905666b2bc.png

    4 选择或者激活单元格对象

    在实际应用的时候,为了达到给某个单元格赋值或者其他操作的目的,我们需要激活这个单元格,这个时候用的语句是Select,或者Activate。我们看下面代码:

    Sub mynzC() '选择或者激活单元格

    Dim TEM As Range

    Set TEM = Range("A19:E25")

    'TEM.Select

    TEM.Activate

    End Sub

    代码截图:

    b87ec3b4eb19a178ed90845488948fcc.png

    代码的执行效果:

    3e38a9d2672aa618b22bbc3236406fcd.png

    今日内容回向:

    1) 单元格对象有几种表达方式?如何赋值?

    2) 如何选择或者激活单元格对象?

    af5b52bed823e1918532a142a9330a52.png

    本讲内容参考程序文件:工作簿04.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水平的必须。

    以上各教程学习顺序:7 1 3 2 6 5或者7 4 3 2 6 5。其中第四套是对第一套的视频讲解,所以第一和第四只选其一即可。可以^W^e^C^h^a^t^:VBA6337。

    展开全文
  • 如何对多个不相邻的单元格批量赋予同样的值?我是小白,按照自己的逻辑这样写了,可是不行:Sub ID赋值和日期赋值()Sheet3.Range ("C1")Sheet3.Range ("M1")Sheet3.Range ("W1")Sheet3.Range ("AG1")Sheet3.Range (...

    如何对多个不相邻的单元格批量赋予同样的值?

    我是小白,按照自己的逻辑这样写了,可是不行:

    Sub ID赋值和日期赋值()

    Sheet3.Range ("C1")

    Sheet3.Range ("M1")

    Sheet3.Range ("W1")

    Sheet3.Range ("AG1")

    Sheet3.Range ("AQ1")

    Sheet3.Range ("BA1")

    Sheet3.Range ("BK1")

    Sheet3.Range ("BU1")

    Sheet3.Range ("CE1")

    Sheet3.Range ("CO1")

    Sheet3.Range ("CY1")

    Sheet3.Range ("DI1")

    Sheet3.Range ("DS1")

    Sheet3.Range ("EC1")

    Sheet3.Range ("EM1")

    Sheet3.Range ("EW1")

    Sheet3.Range ("FG1")

    Sheet3.Range ("FQ1")

    Sheet3.Range ("GA1")

    Sheet3.Range ("GK1")

    Sheet3.Range ("C8")

    Sheet3.Range ("M8")

    Sheet3.Range ("W8")

    Sheet3.Range ("AG8")

    Sheet3.Range ("AQ8")

    Sheet3.Range ("BA8")

    Sheet3.Range ("BK8")

    Sheet3.Range ("BU8")

    Sheet3.Range ("CE8")

    Sheet3.Range ("CO8")

    Sheet3.Range ("CY8")

    Sheet3.Range ("DI8")

    Sheet3.Range ("DS8")

    Sheet3.Range ("EC8")

    Sheet3.Range ("EM8")

    Sheet3.Range ("EW8")

    Sheet3.Range ("FG8")

    Sheet3.Range ("FQ8")

    Sheet3.Range ("GA8")

    Sheet3.Range ("GK8")

    Sheet3.Range ("C15")

    Sheet3.Range ("M15")

    Sheet3.Range ("W15")

    Sheet3.Range ("AG15")

    Sheet3.Range ("AQ15")

    Sheet3.Range ("BA15")

    Sheet3.Range ("BK15")

    Sheet3.Range ("BU15")

    Sheet3.Range ("CE15")

    Sheet3.Range ("CO15")

    Sheet3.Range ("CY15")

    Sheet3.Range ("DI15")

    Sheet3.Range ("DS15")

    Sheet3.Range ("EC15")

    Sheet3.Range ("EM15")

    Sheet3.Range ("EW15")

    Sheet3.Range ("FG15")

    Sheet3.Range ("FQ15")

    Sheet3.Range ("GA15")

    Sheet3.Range("GK15") = Sheet1.Range("N3")

    End Sub

    求大神教我

    展开全文
  • 今天文章主要讲解的是宏的单元格赋值,让宏可以给单元格赋值。如上图,查看代码,可以弹出一个源代码的界面,如下图:单元格赋值方法有很多种,今天讲解三种常用的。第一种、在空白处填写源代码:如下:Sub 头条培训...

    今天开始讲解VBA宏语言,能让你的excel更有生命力。上一篇文章介绍了宏界面的打开方法、

    录制宏、宏的基本语法。今天文章主要讲解的是宏的单元格赋值,让宏可以给单元格赋值。

    2fab23e0e2361b95094251a6e8168f58.png

    如上图,查看代码,可以弹出一个源代码的界面,如下图:

    349a78d51814bda5214557897ad66ccf.png

    单元格赋值方法有很多种,今天讲解三种常用的。

    第一种、在空白处填写源代码:如下:

    Sub 头条培训用例1()

    Range("A1").Select

    ActiveCell.FormulaR1C1 = "1"

    End Sub

    Sub定义一个宏的名称,End Sub结束宏,

    Range("A1").Select------选择A1单元格

    ActiveCell.FormulaR1C1 = "1"----选择的单元格值等于1

    edadc85fe3274032ff368e336a4cfd8b.png

    代码填写完毕后,如上图,

    1、选择运行,或者快捷键F5

    2、选择运行,如果有多个宏可以选择你要运行的

    3、就是我们的代码执行结果,因为选择的是A1,所以在A1里面有数字1

    第二种、赋值方法代码如下:

    Cells(2, 2).Value = "税金额"

    其中(2,2)的意思是滴第二行第二列。如下源代码运行结果,如图

    Sub 头条培训用例1()

    Cells(2, 2).Value = "税金额"

    End Sub

    b42eb768be48448430b030adfd253fea.png

    可以看出我们直接在第二行第二列赋值了一个"税金额"三个字,当然也可以是数字,这种就是赋值方法比较直接。

    第三种、是使用Range("A4").Value和Cell很像,代码如下

    Range("A4").Value = "我是A4"

    其中A4就是第一列第四行,直接一点不用想是几行几列了,源代码如下:

    Sub 头条培训用例1()

    Range("A4").Value = "我是A4"

    End Sub

    cea90635a650916fc63c287e367ab0d9.png

    如上图运行完了之后,可以看到左边的运行结果。今天主要是讲解给单元格赋值,后面会继续介绍宏的应用。

    展开全文
  • ▌序在知乎上有很多朋友问VBA如何入门?看着代码密密麻麻看不进去。我想说,我刚开始看也是看着代码也是挠头,但是没办法,要解决批量处理excel的相关问题VBA再好不过。一定要坚持。我理解的入门,是看到问题,立马...

    ▌序

    在知乎上有很多朋友问VBA如何入门?看着代码密密麻麻看不进去。

    764a9e5bccbb9d5537533a5927f93322.png

    我想说,我刚开始看也是看着代码也是挠头,但是没办法,要解决批量处理excel的相关问题VBA再好不过。一定要坚持。

    我理解的入门,是看到问题,立马能想到用哪个VBA知识点来解决。如果在脑袋里还能隐隐约约有那么几句固定格式解决各种问题的代码,那就算是中等水平了。

    其实我觉得很少人用学那么深,并且能解决大多数人遇到的问题的代码就那么几类。都可以通过修修改改来实现自己需要的功能。

    代码太多了,根本不用记,用的时候找出来需要代码拼凑修改一下就可以了。这样的话我觉得对于一般的小白,从入手到中等水平,需要半年吧。毕竟工作一族不可能每天都有充裕时间去学习。

    e24334e04ad4717fcb316013f7e6e68a.png

    关于我自己的几点经验

    ●多看VBA教程

    买本书或者看视频均可(最基础的,循环,数组,字典,正则,事件要没问题,不然修改代码都不知道如何下手),视频找适合自己的,适合就是看得进去的视频。

    如果实在看不下去书和视频,那还是参加专门的培训或者趁早放弃找人代工。

    如果你遇到某个问题,就能想到用什么知识点来解决,那么恭喜你!就算不会代码,你这也算是入门了。不能算小白了。

    这个时候你需要的是,赶紧翻书或者看教程是如何利用这个知识点来解决问题的。并且尝试自己敲出来代码,或者录制宏修改代码。印象会很深刻。

    ●学会积累和修改代码

    举个例子:循环打开多个工作簿

    估计好多人听说VBA是从合并工作簿知道的,合并工作簿是有通用的代码框架的,记住框架,再也不怕对工作簿进行其他操作。

    Sub 循环打开工作簿() Application.ScreenUpdating = False myfile = Dir(ThisWorkbook.Path & "*.xls*") Do While myfile <> "" If myfile <> ThisWorkbook.Name Then Set wb = Workbooks.Open(ThisWorkbook.Path & "" & myfile 我是需要填空的代码 Else End If myfile = Dir Loop Application.ScreenUpdating = True MsgBox "完成"End Sub

    如果你要提取特定内容的单元格,只需要结合find方法,查找内容是“你好”的单元格的行号,并赋值。在空白处填上如下代码即可。

    ThisWorkbook.Worksheets(1).Cells(a, 1) = wb.worksheets(1).Cells.Find("你好
    展开全文
  • 我的目标:让中国的...如下:需要批量给上图中每个部门对应的最高工资的单元格添加批注,批注内容如下:部门名称+最高工资思路如下:1、想要插入批注,必须找到对应的单元格单元格要对应部门的单元格,所以第一...
  • 这是《Excel VBA:办公自动化》教程的第3节,介绍变量。1.变量的基本知识案例:在「单元格B3」输入不同的行号,然后点击「显示答案」按钮,程序就会自动计算右边相应题目的答案,如何实现?[备注]1.题目中F列的数据...
  • ② 在A1单元格处输入通报标题,合并A1:H1单元格,并设置字体大小及排版居中。③ 添加日期下拉输入控件,可直接复制“数据转化”表中已设置好的下拉控件。④ 输入、设置通报正文,例如在B4单元格输入“一、用户规模...
  • NO.1Excel工作表中,如何插入单元格,通常单击鼠标右键可以找到相应快捷键,这是个十分简单的操作。本节主要讲一下Range对象下的Insert方法插入单元格操作。NO.2说明在工作表或宏表中插入一个单元格单元格区域,...
  • 原创: Excel and Python微 XIN 号: 实用办公编程技能前几天,部门的小李说“年终总结报告总算做完了,幸好是会玩Excel让自己事半功倍!”什么日报、周报、月报数据...第一步:定义变量,赋值变量主要是定义文件...
  • 利用批注,我们可以为单元格添加备注信息(如解释、说明),方便表格阅读者了解数据背后的信息。然而,由于不当的使用习惯,我们也经常碰到一些表格,制表人将极其复杂的备注信息写入到批注而非单元格中,导致后期想...
  • Excel VBA工作薄 5.1 按照单元格内容批量创建工作薄 我让你10秒前景提要今天开始我们进入第5序列的学习,本序列我们将要学习的时候关于工作薄的相关知识和各种操作,相信很多的童鞋都已经迫不及待的想要学习这些方面...
  • 大家好,我们今日继续讲解VBA代码解决方案的第113讲内容:VBA数组的深入讲解,数组的批量写入时高效方法利用 一,数组的批量写入实际上用一条语句就可以将数的内容写入单元格区域中,即:单元格区域=数组名代码:Sub ...
  • 单元格赋值示例-------------------示例一Sub test1()Worksheets("Sheet1").Range("A5").Value = 22MsgBox "工作表Sheet1内单元格A5中的值为" _& Worksheets("Sheet1").Range("A5").ValueEnd...
  • VBA给合并单元格黏贴赋值

    千次阅读 2013-11-06 12:33:49
    由于EXCEL中通过剪切板给合并后的单元格赋值时候会出现如下错误 所以在vba中也一定不能了,其实可以通过一种workaround的方式来间接实现这个需求,实现步骤如下 一、拆分合并的单元格 二、给第一个单元格赋值...
  • 利用Value属性给单元格赋值 For Each---Next循环 使用For Each---Next循环的注意事项 利用Value属性给单元格区域赋值 单元格( Range)对象的Address属性 示例: 如图所示,该表为某公司员工的工资表。现公司...
  • VBA赋值给指定单元格

    2019-10-01 15:49:00
    这是一个Range对象基本操作实例,对指定单元格赋值,然后使用弹窗获取值。 代码如下: Sub test1() Worksheets("Sheet1").Range("A5").Value = 22 MsgBox "工作表Sheet1内单元格A5中的值为" _ & ...
  • 1.单元格取值赋值 PrivateSubCommandButton1_Click() Range("A1")="111" Range("A2").Value="2222" Range("A10")=Range("A1") Range("A11")=Cells(2,1).Value Range("A12")=Cells(2,1) Range("...
  • 现在我有一个需求,需要把表1名字改为D1,表2改为D1Result,表3改为D2,表4改为D2Result,以此类推,在此基础上对每一个非Result表格的E4单元格赋值,值是当前表的表名。因为表格太多了,不想一个一个手动改,想由VB...
  • 使用VBA对指定的单元格赋值并填充颜色 ====================================================== 代码区域 ====================================================== Sub row应用() For Each rw In Rows("1:...
  • '先选中要替换的区域,将特定背景的单元格赋值为"√" ' Dim lColor As Long ' 'lColor = InteriorColor(Range("G2"))' lColor = 10213316 Worksheets("dsp3.0 pc").Range("B1").Value = lColor
  • VBA单元格

    2019-06-23 09:40:30
    我们如何对单元格进行公式赋值 dim bookname as string dim sheetname as string dim rangename as string Workbooks(bookname).Worksheets(sheetname).Range(rangename).Formula = "=sum("E1")" 对单元格里面...
  • Range(“a2”).Value = 1 '表示给单元格赋值为1,Range的默认属性就是Value Range(“a1”).Offset(2, 3).Select '以单元格a1为基准,下移2行,右移3列,单元格偏移 Range(“a1”).End '单元格所在区域的边界 Range...
  • VBA 合并单元格 选定单元格添加边框

    千次阅读 2009-08-30 10:10:00
    合并单元格赋值Sub Macro1() Range("A2:A4").Select Application.Left = 82 Application.Top = 124 With Selection .HorizontalAlignment = xlCenter .VerticalAlignment = xlCen

空空如也

空空如也

1 2 3 4 5 ... 7
收藏数 124
精华内容 49
关键字:

vba单元格赋值