当前位置:首页 > 办公设计 > Office教程 > 借助循环语句为数组赋值

借助循环语句为数组赋值

1年前 (2025-05-24)Office教程1420

本文为《别怕,Excel VBA其实很简单(第3版)》随书问题参考答案

1、将1到100的自然数存入数组arr

Sub 将1到100的数存入数组()
Dim Arr(1 To 100) As Integer, i As Byte
For i = 1 To 100
Arr(i) = i
Next
End Sub

 

2、将活动工作表A1:A100中的数据存入数组brr

Sub 将区域中的数据存入数组()
Dim Brr(1 To 100), i As Byte
For i = 1 To 100
Brr(i) = Cells(i, "A").Value
Next i
End Sub

扫描二维码推送至手机访问。

欢迎转载或分享本篇文章。

本文链接:https://www.jcba123.com/article/1394

分享给朋友:

“借助循环语句为数组赋值” 的相关文章

IF嵌套函数制作Excel合同日期到期自动提醒表,表格文字变色突出显示

IF嵌套函数制作Excel合同日期到期自动提醒表,表格文字变色突出显示

许多公司的业务都是与客户签订合同,而合同往往都是有期限的,比如,1年、2年等。客户的合同,什么时候到期,我们需要提前了解,以便让用户续签。有什么好办法能够让我们提前知晓快到期的合同呢? 这里,小汪老师就来教大家用Excel制作一份合同日期到期提醒表,距离合同到期前30天自动突显,这样,我们就能...

Excel算年龄,这些公式会不会?

Excel算年龄,这些公式会不会?

如下图所示,希望根据B列的出生日期和C列的统计截至日期,来计算两个日期之间的间隔,希望得到的结果是xx年xx个月xx天的形式。 要计算两个日期之间的间隔,那就非DATEDIF函数莫属了。这个函数的写法为: =DATEDIF(开始日期,结束日期,返回的间隔类型) 第1参数和第2参数,可以引...

PPT将形状设置为创意图片

PPT将形状设置为创意图片

1.单击工具栏插入下的形状,在形状下选择圆角矩形。 2.插入一个矩形后,单击黄色小图形,拉动到中间,制作出一个圆形矩形。 3.复制粘贴处五个同样的圆形矩形,选中所有矩形,单击绘图工具下的组合,在下拉菜单当中选择组合。 4.组合后选择图片或纹理填充,图片来源选...

数据有效性的几个典型应用,看看你是哪一级

数据有效性的几个典型应用,看看你是哪一级

今天和小伙伴们一起分享数据有效性的几个典型应用。 普通青年这样用 步骤简要说明: 选中区域,设置数据验证,允许条件选择序列,输入要在下拉菜单中显示的内容: 男,女 注意不同选项要使用半角的逗号隔开。   初级青年这样用 步骤简要说明: 选中数据区域,设置数据验证,在【输入信息】选项卡下...

Excel函数与公式2.0时代,享受革新带来的便利

Excel函数与公式2.0时代,享受革新带来的便利

01 Excel函数与公式的江湖排名 你们知道,Excel座下猛将如云, 最厉害的四大金刚分别是函数与公式、数据透视表、图表和Power Query,还有一位大长老VBA,以及去年新加入的客座长老Python。 对于用户来说, 最常用的,最核心的, 最容易上手又最难进步的, 最需要...

数据可视化PPT图表制作

数据可视化PPT图表制作

第一步:在PPT工具栏中选择“插入”,然后插入一个圆环和6个细长矩形,设置它们的填充色为深蓝色(RGB: 0,9,66)。将细长矩形均匀地分布在圆环周围。选中圆环和所有矩形,然后在工具栏中选择“形状格式” -> “合并形状” -> “拆分”,并移除多余的形状部分,基础的表格样式就...

发表评论

访客

看不清,换一张

◎欢迎参与讨论,请在这里发表您的看法和观点。