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

《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=Fal

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

3、ter.WrapText=False.Orientation=0.AddIndent=False.IndentLevel=0.ShrinkToFit=False.ReadingOrder=xlContext.MergeCells=TrueEndWithWithSelection.Font.Name="宋体".FontStyle="常规".Size=10.Strikethrough=False.Superscript=False.Subscript=False.OutlineFont=False.Shadow=False.

4、Underline=xlUnderlineStyleNone.ColorIndex=3EndWithWithSelection.Interior.ColorIndex=6.Pattern=xlSolid.PatternColorIndex=xlAutomaticEndWithEndSub2在sheet1上创建“窗体”命令按钮并指定“宏”代码sy22，补充代码完成：从键盘输入一个整数n，输出如下图形。其中每个“*”在单元格中水平和垂直方向都要求居中。nSubsy22()DimnAsInteger,iAsInteger,jA

5、sInteger'第1空n=InputBox("输入行数")'从键盘输入数据并存放到变量nSheets("Sheet1").Cells.ClearContents'清除sheet1工作表中单元格的内容Fori=1Ton'循环打印，输出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'选定单元格

6、所在的当前区域WithSelection.Font.Size=16'字体大小.Font.Bold=True'字体加粗.HorizontalAlignment=xlCenter'水平方向居中.VerticalAlignment=xlCenter'垂直方向居中EndWithEndsubEsy031.调用EXCEL的RAND和INT内部函数，在A列的1—10行输入序号1—10，在B列的1—10行填入0—1之间的随机数，在C列的1—10行填入两位正整数，最后在C列的11行求出该列的最大数（调用MAX函数）。'请参照程序上下文补充

7、完整的语句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之间的随机数Range(c).Value=10+Int(90*Rnd())'在C列的1-10行填入两位正整数NextkSetmyr=Worksheets("Sheet1").Range("C1:C10")Ra

8、nge("c11")=WorksheetFunction.Max(myr)'在C列的11行求出该列的最大数（调用MAX函数）EndSubEsy04输入一个字符，判断该字符是字母字符、数字字符还是其他字符，并用Msgbox函数输出结果。分析：用IF语句实现Subpdzi()DimstrCAsString'定义变量str