excel高级应用vba实验题目解析

excel高级应用vba实验题目解析

ID:33601473

大小:302.00 KB

页数:14页

时间:2019-02-27

excel高级应用vba实验题目解析_第1页
excel高级应用vba实验题目解析_第2页
excel高级应用vba实验题目解析_第3页
excel高级应用vba实验题目解析_第4页
excel高级应用vba实验题目解析_第5页
资源描述:

《excel高级应用vba实验题目解析》由会员上传分享,免费在线阅读,更多相关内容在教育资源-天天文库

1、Esy021、选定sheet1工作表,合并A1:C1单元格,并输入“TEST”,背景颜色设置为浅黄色,字体颜色设置为红色,字体大小设置为10磅。SubMacro1()'Macro1Macro'宏由xu录制,时间:2013/3/26'Application.Left=201.25Application.Top=61.75Range("A1:C1").SelectWithSelection.HorizontalAlignment=xlCenter.VerticalAlignment=xlBottom.WrapText=False.Orientation=0.AddIndent=

2、False.IndentLevel=0.ShrinkToFit=False.ReadingOrder=xlContext.MergeCells=FalseEndWithSelection.MergeRange("A1:C1").SelectActiveCell.FormulaR1C1="TEST"Range("A1:C1").SelectWithSelection.HorizontalAlignment=xlCenter.VerticalAlignment=xlCenter.WrapText=False.Orientation=0.AddIndent=False.Inden

3、tLevel=0.ShrinkToFit=False.ReadingOrder=xlContext.MergeCells=TrueEndWithWithSelection.Font.Name="宋体".FontStyle="常规".Size=10.Strikethrough=False.Superscript=False.Subscript=False.OutlineFont=False.Shadow=False.Underline=xlUnderlineStyleNone.ColorIndex=3EndWithWithSelection.Interior.ColorInd

4、ex=6.Pattern=xlSolid.PatternColorIndex=xlAutomaticEndWithEndSub2在sheet1上创建“窗体”命令按钮并指定“宏”代码sy22,补充代码完成:从键盘输入一个整数n,输出如下图形。其中每个“*”在单元格中水平和垂直方向都要求居中。nSubsy22()DimnAsInteger,iAsInteger,jAsInteger'第1空n=InputBox("输入行数")'从键盘输入数据并存放到变量nSheets("Sheet1").Cells.ClearContents'清除sheet1工作表中单元格的内容Fori=1To

5、n'循环打印,输出n行"*"Forj=1To2*i-1'每行输出奇数(2*i-1)个"*",如:1,3,5个Cells(i,n-i+j).Value="*"NextjNextiCells(1,n).Activate'激活A列N行的单元格ActiveCell.CurrentRegion.Select'选定单元格所在的当前区域WithSelection.Font.Size=16'字体大小.Font.Bold=True'字体加粗.HorizontalAlignment=xlCenter'水平方向居中.VerticalAlignment=xlCenter'垂直方向居中EndWith

6、EndsubEsy031.调用EXCEL的RAND和INT内部函数,在A列的1—10行输入序号1—10,在B列的1—10行填入0—1之间的随机数,在C列的1—10行填入两位正整数,最后在C列的11行求出该列的最大数(调用MAX函数)。'请参照程序上下文补充完整的语句Subsy31()DimkAsIntegerDimaAsString,bAsString,cAsStringFork=1To10a="A"&kb="B"&kc="C"&kRange(a).Value=k'在A列的1-10行输入序号1-10Range(b).Value=Rnd()'在B列的1-10行填入0-1之间的

7、随机数Range(c).Value=10+Int(90*Rnd())'在C列的1-10行填入两位正整数NextkSetmyr=Worksheets("Sheet1").Range("C1:C10")Range("c11")=WorksheetFunction.Max(myr)'在C列的11行求出该列的最大数(调用MAX函数)EndSubEsy04输入一个字符,判断该字符是字母字符、数字字符还是其他字符,并用Msgbox函数输出结果。分析:用IF语句实现Subpdzi()DimstrCAsString'定义变量str

当前文档最多预览五页,下载文档查看全文

此文档下载收益归作者所有

当前文档最多预览五页,下载文档查看全文
温馨提示:
1. 部分包含数学公式或PPT动画的文件,查看预览时可能会显示错乱或异常,文件下载后无此问题,请放心下载。
2. 本文档由用户上传,版权归属用户,天天文库负责整理代发布。如果您对本文档版权有争议请及时联系客服。
3. 下载前请仔细阅读文档内容,确认文档内容符合您的需求后进行下载,若出现内容与标题不符可向本站投诉处理。
4. 下载文档时可能由于网络波动等原因无法下载或下载错误,付费完成后未能成功下载的用户请联系客服处理。