墙上那一串串红辣椒-数组入门讲座.doc
《墙上那一串串红辣椒-数组入门讲座.doc》由会员分享,可在线阅读,更多相关《墙上那一串串红辣椒-数组入门讲座.doc(8页珍藏版)》请在咨信网上搜索。
1、墙上那一串串红辣椒数组入门讲座写个学习数组的帖子,送给初学的朋友。1、什么是数组数组就是把数据组合起来以方便管理,在程序中运用数组可简化程序、提高效率。学习数组并不难。我奶奶就是玩数组的高手,她到地里,用根红绳子将采下的辣椒一只一只串起来带回家挂在门前那墙上,她把这串辣椒称为“红绳子”,墙上还有“大串”、“初一”、“五儿”,现在我才明白,那是数组名。中午,奶奶要我把红绳子第5颗辣椒摘下来,我不知道奶奶为什么要摘第5颗,反正我照办就是,奶奶说,她要我摘“红绳子(5)”是想考考我数数的能力,晕,一二三四五,上山打老虎,我还能数错吗?那年我已经四岁了。奶奶说话总喜欢用数组,好比“尚云嫂她家那七个孩子
2、啊就是有出息!”,你知道奶奶用哪个数组说话?如果还不知道,等会再告诉你。2、用Array创建数组今天,我们在Excel上来玩个串辣椒的游戏。新建一Excel文件,按Alt+F11打开VBE窗口,如图所示打开本地窗口备用。此主题相关图片如下:插入一新的模块,在代码窗口中写入代码:Sub test()红绳子 = Array(辣1, 辣2, 辣3, 辣4, 辣5, 辣6, 辣7, 辣8, 辣9, 辣10)End Sub按F8,逐行运行代码,如图所示,我们可以看到,程序成功创建了一个数组,数组名称是“红绳子”,辣1, 辣2, 辣3, 辣4, 辣5, 辣6, 辣7, 辣8, 辣9, 辣10是数组元素。此
3、主题相关图片如下:用Array()创建数组,各元素之间用逗号隔开。元素如果是文本,要用半角引号作定界符。练习,创建两个数组:数组名为cName,数据为8个同学的姓名:林思明、曾玉婷、曾国文、林伟权、林兴发、刘卓怀、曾仙婷、林平数组名为cj,数据为8个数值:99, 85, 92.5, 70, 78.5, 65, 84, 100参考答案:数组入门01.xls点击浏览该文件此贴子已经被作者于2006-10-27 9:37:51编辑过2006-10-26 16:07:37举报帖子 推荐:ExcelHome技术论坛的最佳学习方法 山菊花 等级:超级版主威望:12文章:6539EH币:13536积分:65
4、精华:6查看:主题帖 精华帖注册:2005年6月10日第 3 楼 短信 好友 档案 贴子 邮件 -3、像和尚数念珠一样把数组玩转我们已经初步认识了数组,数组是把一组数保存到一个数组变量中,它有两个重要特征。它是一个变量,对一组数进行统一管理带来方便。上面建立的姓名数组,我们要把它写入到工作表区域A1向右连续8个单元格中,可用命令:Range(“a1:h1”)=cname我们认识的这类数组,称为一维数组,一维数组是一个水平数组,相当于工作表中的行。如果要把姓名按垂直方向填充到单元格,可转置命令。如,把这个数组写入到A1:A8单元格中:Range(“a1:a8”)= WorksheetFuncti
5、on.Transpose(cname)练习:把数组cname分别写入到单元格C4:J4、D8:D15。答案:数组入门02.xls点击浏览该文件第二个重要的特征,是数组元素的有序性,一组数据有序地保存到数组变量中。数组中,用数组名加序号(称索引值)构成唯一的名称对元素进行引用。元素与序号一一对应,根据序号,可以修改和读取指定位置上的元素。把一串姓名保存到数组cName中,数据在数组中按顺序保存,默认从0开始,依次是1、2、3,用cName(0)表示第一个姓名、cName(1)表示第二个姓名,等等。在工作表中插入一个按钮,点击按钮,把姓名填入单元格A1:A8中:Private Sub Comman
6、dButton1_Click() cname = Array(林思明, 曾玉婷, 曾国文, 林伟权, 林兴发, 刘卓怀, 曾仙婷, 林平)For i = 1 To 8 Range(a & i) = cname(i - 1)NextEnd Sub数组序号(索引值)默认从0开始,也可以通过命令OPTION BASE 1修改为从1开始。该命令写在模块的前面。如果设定索引值从1开始,则上面的代码修改为:Private Sub CommandButton1_Click() cname = Array(林思明, 曾玉婷, 曾国文, 林伟权, 林兴发, 刘卓怀, 曾仙婷, 林平)For i = 1 To 8
7、 Range(a & i) = cname(i ) 工作表行号与数组序号相吻合NextEnd Sub参考:数组入门03.xls点击浏览该文件此贴子已经被作者于2006-11-1 18:38:09编辑过2006-10-26 16:08:50举报帖子 参加论坛竞赛,赚积分,赢奖励! 山菊花 等级:超级版主威望:12文章:6539EH币:13536积分:65精华:6查看:主题帖 精华帖注册:2005年6月10日第 4 楼 短信 好友 档案 贴子 邮件 -4、想起瑞士军刀Array()很好用,但有时Split()更好用,我们取出这瑞士军刀的第二利器。Split()把一个文本,根据指定的分隔符,建立一个
8、数组。看一个实例:单元格A1中有一串姓名:朱清燕(女),林鑫,林秋静(女),林永鑫,林云艳(女),林嘉惠(女),曾文婷(女),林悦,陈诚,林伟健,赖紫岚(女),曾雁(女),赖文强,钟娟(女),张琪(女),林文彬,黄晓婷(女),李朕,林依婷(女),林佳利(女),曾德福要求:用Split(),把这串文本创建为一个数组:Sub test()XM = Split(Range(a1), ,)End Sub同样可以用本地窗口检查转换结果。注意,Split()函数把文本转换成数组,并不受Option Base的影响,索引号总是从0开始。很自然想知道,A1单元格中有多少个姓名?创建的数组有多少个元素?瑞士军刀
9、中有把小尺子,可以量一量:Ubound()返回数组的最大下标。Sub test()xm = Split(Range(a1), ,)MsgBox 数组最大下标是 & UBound(xm) & Chr(13) _& 数组共有 & UBound(xm) + 1 & 个元素End Sub参考:数组入门04.xls点击浏览该文件5、三维表示一个空间,四维、五维、六维呢?三维已经可以代表宽广无垠的宇宙,而数组却允许声明为4维、5维、6维,直至60维。这是一个什么样的概念?我曾经打过一个这样的比方:6、由工作表区域创建数组。与Array()和Split()相比,由工作表区域创建数组更加直观而简易,一个等号便
10、解决问题:如:用Sheet2工作表A1:E83的数据创建一个数组:Private Sub CommandButton1_Click()arr = Sheet2.Range(a1:e83)End Sub如果把该数据复制到Sheet1工作表相同区域,用数组操作,代码如下:Private Sub CommandButton1_Click()arr = Sheet2.Range(a1:e83)Range(a1:e83) = arrEnd Sub共两句,前一句把数据保存到数组,第二句,把数组内容写入到工作表。选择第3行代码,按F9设置断点。点击按钮运行代码,到该行,程序自动中断,此时,可从本地窗口中观察
11、到运行结果,一个83行2列的数组已经创建。此主题相关图片如下:也可以按F8逐行运行代码,查看数组创建的结果。参考:数组入门05.xls点击浏览该文件7、随心所欲创建数组以上几种办法都是根据已有的数据创建数组。实际使用中,更多时候,程序需要先创建数组,然后对数组进行赋值和修改。Private、Public、Dim、Static,这些语句都可声明数组变量,区别在于声明的数组的使用范围,可查看各语句的帮助。新建一个过程:Sub 声明数组()Dim MyArray(10) 在过程中间声明一个数组,过程结束,本数组将被释放。MyArray(1) = 100 给数组赋值MyArray(5) = 90End
12、 Sub按F8逐行运行程序,在本地窗口中可以看到数组MyArray()已成功创建。此主题相关图片如下:Dim是声明变量的语句;MyArray是数组名称;10是数组最大下标。当Option Base 0的模式下,数组的序号(索引值)从0到10,表示数组有11个元素,当Option Base 1的模式下,数组的索引值从1到10,该语句创建的数组共有10个元素。上面声明的数组是一维数组,数组最大可以定义60维。多维数组的表示方法,维与维之间用逗号相隔。Sub 声明数组b()Dim Data(10,5) 声明一个二维数组Data (1,1) = “A001” 给数组赋值Data (1,2) = 90D
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 墙上 一串串 红辣椒 数组 入门 讲座
1、咨信平台为文档C2C交易模式,即用户上传的文档直接被用户下载,收益归上传人(含作者)所有;本站仅是提供信息存储空间和展示预览,仅对用户上传内容的表现方式做保护处理,对上载内容不做任何修改或编辑。所展示的作品文档包括内容和图片全部来源于网络用户和作者上传投稿,我们不确定上传用户享有完全著作权,根据《信息网络传播权保护条例》,如果侵犯了您的版权、权益或隐私,请联系我们,核实后会尽快下架及时删除,并可随时和客服了解处理情况,尊重保护知识产权我们共同努力。
2、文档的总页数、文档格式和文档大小以系统显示为准(内容中显示的页数不一定正确),网站客服只以系统显示的页数、文件格式、文档大小作为仲裁依据,平台无法对文档的真实性、完整性、权威性、准确性、专业性及其观点立场做任何保证或承诺,下载前须认真查看,确认无误后再购买,务必慎重购买;若有违法违纪将进行移交司法处理,若涉侵权平台将进行基本处罚并下架。
3、本站所有内容均由用户上传,付费前请自行鉴别,如您付费,意味着您已接受本站规则且自行承担风险,本站不进行额外附加服务,虚拟产品一经售出概不退款(未进行购买下载可退充值款),文档一经付费(服务费)、不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
4、如你看到网页展示的文档有www.zixin.com.cn水印,是因预览和防盗链等技术需要对页面进行转换压缩成图而已,我们并不对上传的文档进行任何编辑或修改,文档下载后都不会有水印标识(原文档上传前个别存留的除外),下载后原文更清晰;试题试卷类文档,如果标题没有明确说明有答案则都视为没有答案,请知晓;PPT和DOC文档可被视为“模板”,允许上传人保留章节、目录结构的情况下删减部份的内容;PDF文档不管是原文档转换或图片扫描而得,本站不作要求视为允许,下载前自行私信或留言给上传者【fq****56】。
5、本文档所展示的图片、画像、字体、音乐的版权可能需版权方额外授权,请谨慎使用;网站提供的党政主题相关内容(国旗、国徽、党徽--等)目的在于配合国家政策宣传,仅限个人学习分享使用,禁止用于任何广告和商用目的。
6、文档遇到问题,请及时私信或留言给本站上传会员【fq****56】,需本站解决可联系【 微信客服】、【 QQ客服】,若有其他问题请点击或扫码反馈【 服务填表】;文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“【 版权申诉】”(推荐),意见反馈和侵权处理邮箱:1219186828@qq.com;也可以拔打客服电话:4008-655-100;投诉/维权电话:4009-655-100。