21:10 提问
vb编程，excel单元格中内容怎么筛选遍历到xml文件中？
如excel单元格内容：
需要把大标题与1、2、3标题遍历显示到xml文件中，把a\b\c的内容不显示，请问各位前辈，这个怎么实现，谢谢了！
准确详细的回答，更有利于被提问者采纳，从而获得C币。复制、灌水、广告等回答会被删除，是时候展现真正的技术了！
其他相关推荐VB 如何设置excel单元格属性为数值型_百度知道
VB 如何设置excel单元格属性为数值型
如题，在线等！~~~~
我有更好的答案
Range(&a1&).NumberFormatLocal = &0,000.000_ &后边引号里边可以更改是否要千位分隔符、小数点后几位
采纳率：40%
貌似概念上应该是设置单元格的值为数值型，而不是range设为数值型
为您推荐：
其他类似问题
您可能关注的内容
excel的相关知识
换一换
回答问题，赢新手礼包
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。某个单元格的值人工输入，其它单元格的值根据另一个工作表中的这个单元格的值自动填充
[问题点数：40分]
本版专家分：11
结帖率 96.97%
CSDN今日推荐
本版专家分：13887
2016年3月 VB大版内专家分月排行榜第一2015年1月 VB大版内专家分月排行榜第一2014年12月 VB大版内专家分月排行榜第一
2015年4月 VB大版内专家分月排行榜第二2015年3月 VB大版内专家分月排行榜第二2014年11月 VB大版内专家分月排行榜第二2014年10月 VB大版内专家分月排行榜第二
2014年4月 VB大版内专家分月排行榜第三
本版专家分：11
结帖率 96.97%
本版专家分：13887
2016年3月 VB大版内专家分月排行榜第一2015年1月 VB大版内专家分月排行榜第一2014年12月 VB大版内专家分月排行榜第一
2015年4月 VB大版内专家分月排行榜第二2015年3月 VB大版内专家分月排行榜第二2014年11月 VB大版内专家分月排行榜第二2014年10月 VB大版内专家分月排行榜第二
2014年4月 VB大版内专家分月排行榜第三
本版专家分：51683
2018年5月 VB大版内专家分月排行榜第一2018年4月 VB大版内专家分月排行榜第一2018年3月 VB大版内专家分月排行榜第一2018年2月 VB大版内专家分月排行榜第一2018年1月 VB大版内专家分月排行榜第一2017年9月 VB大版内专家分月排行榜第一2017年8月 VB大版内专家分月排行榜第一2017年7月 VB大版内专家分月排行榜第一2017年6月 VB大版内专家分月排行榜第一2017年5月 VB大版内专家分月排行榜第一2017年4月 VB大版内专家分月排行榜第一2016年11月 VB大版内专家分月排行榜第一2016年8月 VB大版内专家分月排行榜第一2016年7月 VB大版内专家分月排行榜第一2013年12月 VB大版内专家分月排行榜第一2013年10月 VB大版内专家分月排行榜第一2013年9月 VB大版内专家分月排行榜第一2008年5月 VB大版内专家分月排行榜第一
2017年12月 VB大版内专家分月排行榜第二2017年11月 VB大版内专家分月排行榜第二2017年3月 VB大版内专家分月排行榜第二2016年12月 VB大版内专家分月排行榜第二2016年10月 VB大版内专家分月排行榜第二2013年11月 VB大版内专家分月排行榜第二
2016年3月 VB大版内专家分月排行榜第三2012年9月 VB大版内专家分月排行榜第三
本版专家分：51683
2018年5月 VB大版内专家分月排行榜第一2018年4月 VB大版内专家分月排行榜第一2018年3月 VB大版内专家分月排行榜第一2018年2月 VB大版内专家分月排行榜第一2018年1月 VB大版内专家分月排行榜第一2017年9月 VB大版内专家分月排行榜第一2017年8月 VB大版内专家分月排行榜第一2017年7月 VB大版内专家分月排行榜第一2017年6月 VB大版内专家分月排行榜第一2017年5月 VB大版内专家分月排行榜第一2017年4月 VB大版内专家分月排行榜第一2016年11月 VB大版内专家分月排行榜第一2016年8月 VB大版内专家分月排行榜第一2016年7月 VB大版内专家分月排行榜第一2013年12月 VB大版内专家分月排行榜第一2013年10月 VB大版内专家分月排行榜第一2013年9月 VB大版内专家分月排行榜第一2008年5月 VB大版内专家分月排行榜第一
2017年12月 VB大版内专家分月排行榜第二2017年11月 VB大版内专家分月排行榜第二2017年3月 VB大版内专家分月排行榜第二2016年12月 VB大版内专家分月排行榜第二2016年10月 VB大版内专家分月排行榜第二2013年11月 VB大版内专家分月排行榜第二
2016年3月 VB大版内专家分月排行榜第三2012年9月 VB大版内专家分月排行榜第三
本版专家分：11
结帖率 96.97%
匿名用户不能发表回复！|
CSDN今日推荐拒绝访问 | www.excelpx.com | 百度云加速
请打开cookies.
此网站 (www.excelpx.com) 的管理员禁止了您的访问。原因是您的访问包含了非浏览器特征(42f4b21ae26f3ab8-ua98).
重新安装浏览器，或使用别的浏览器(151) Application.StatusBar=&请等待&&& &将文本写到状态栏Application.StatusBar=&请等待&&& & Percent & &% Completed& &更新状态栏文本，以变量Percent代表完成的百分比Application.StatusBar=False &将状态栏重新设置成正常状态(152) Application.Goto Reference:=Range(&A1:D4&) &指定单元格区域A1至D4，等同于选择&编辑&&定位&，指定单元格区域为A1至D4，不会出现&定位&对话框(153) Application.Dialogs(xlDialogFormulaGoto).Show &显示&定位&对话框，但定位条件按钮无效(154) Application.Dialogs(xlDialogSelectSpecial).Show &显示&定位条件&对话框(155) Application.Dialogs(xlDialogFormatNumber).show &显示&单元格格式&中的&数字&选项卡Application.Dialogs(xlDialogAlignment).show &显示&单元格格式&中的&对齐&选项卡Application.Dialogs(xlDialogFontProperties).show &显示&单元格格式&中的&字体&选项卡Application.Dialogs(xlDialogBorder).show &显示&单元格格式&中的&边框&选项卡Application.Dialogs(xlDialogPatterns).show &显示&单元格格式&中的&图案&选项卡Application.Dialogs(xlDialogCellProtection).show &显示&单元格格式&中的&保护&选项卡注：无法一次显示带选项卡的&单元格格式&对话框，只能一次显示一个选项卡。(156) Application.Dialogs(xlDialogFormulaGoto).show Range("b2"), True &显示&引用位置&的默认单元格区域并显示引用使其出现在窗口左上角(注：内置对话框参数的使用)(157) Application.CommandBars(1).Controls(2).Controls(16).Execute &执行&定位&话框，相当于选择菜单&编辑&&定位&命令(158) Application.Transpose(Array(&Sun&,&Mon&,&Tur&,&Wed&,&Thu&,&Fri&,&Sat&)) &返回一个垂直的数组(159) Application.Version &返回使用的Excel版本号(160) Application.Cursor = xlNorthwestArrow &设置光标形状为北西向箭头Application.Cursor = xlIBeam &设置光标形状为Ⅰ字形Application.Cursor = xlWait &设置光标形状为沙漏(等待)形Application.Cursor = xlDefault &恢复光标的默认设置(161) Application.WindowState &返回窗口当前的状态&& Application.WindowState = xlMinimized &窗口最小化Application.WindowState = xlMaximized &窗口最大化Application.WindowState = xlNormal &窗口正常状态(162) Application.UsableHeight &获取当前窗口的高度Application.UsableWidth &获取当前窗口的宽度(163) Application.ActiveCell.Address &返回活动单元格的地址(注:返回的是绝对地址)(164) Application.ActivePrinter &返回当前打印机的名称(165) Application.ActiveSheet.Name &返回活动工作表的名称(166) Application.ActiveWindow.Caption &返回活动窗口的标题(167) Application.ActiveWorkbook.Name &返回活动工作簿的名称(168) Application.Selection.Address &返回所选区域的地址(169) Application.ThisWorkbook.Name &返回当前工作簿的名称(170) Application.CalculationVersion &返回Excel计算引擎版本(右边四位数字)及Excel版本(左边两位数字)(171) Application.MemoryFree &以字节为单位返回Excel允许使用的内存数(不包括已经使用的内存)(172) Application.MemoryUsed &以字节为单位返回Excel当前使用的内存数(173) Application.MemoryTotal &以字节为单位返回Excel可以使用的内存数(包括已使用的内存,是MemoryFree和MemoryUsed的总和)(174) Application.OperatingSystem &返回所使用的操作系统的名称和版本(175) Application.OrganizationName &返回Excel产品登记使用的组织机构的名称(176) Application.FindFormat &查找的格式种类&& Application.ReplaceFormat &替换查找到的内容的格式种类ActiveSheet.Cells.Replace What:=& &, _Replacement:=& &,SearchFormat:=True,ReplaceFormat:=True &替换查找到的格式(177) Application.Interactive=False &忽略键盘或鼠标的输入(178) Application.Evaluate("Rate") &若在工作表中定义了常量0.06的名称为&Rate&,则本语句将返回值0.06(179) Application.OnUndo &Undo Option&,&Undo Procedure& &选择UndoOption后，将执行Undo Procedure过程*******************************************************Range对象(180) Range(A1:A10).Value=Application.WorksheetFunction.Transpose(MyArray) &将一个含有10个元素的数组转置成垂直方向的工作表单元格区域(A1至A10)注：因为当把一维数组的内容传递给某个单元格区域时，该单元格区域中的单元格必须是水平方向的，即含有多列的一行。若必须使用垂直方向的单元格区域，则必须先将数组进行转置，成为垂直的。(181) Range(&A65536&).End(xlUp).Row+1 &返回A列最后一行的下一行(182) rng.Range(&A1&) &返回区域左上角的单元格(183) cell.Parent.Parent.Worksheets &访问当前单元格所在的工作簿(184) Selection.Font.Bold=Not Selection.Font.Bold &切换所选单元格是否加粗(185) ActiveSheet.Range("A:B").Sort Key1:=Columns("B"), Key2:=Columns("A"), _Header:=xlYes &两个关键字排序，相邻两列，B列为主关键字，A列为次关键字，升序排列(186) cell.Range(&A1&).NumberFormat &显示单元格或单元格区域中的第一个单元格的数字格式(187) cell.Range(&A1&).HasFormula &检查单元格或单元格区域中的第一个单元格是否含有公式或cell.HasFormula &工作表中单元格是否含有公式(188) Cell.EntireColumn &单元格所在的整列&& Cell.EntireRow &单元格所在的整行(189) rng.Name.Name &显示rng区域的名称(190) rng.Address &返回rng区域的地址(191) cell.Range(&A1&).Formula &返回包含在rng区域中左上角单元格中的公式。注：若在一个由多个单元格组成的范围内使用Formula属性，会得到错误；若单元格中没有公式，会得到一个字符串，在公式栏中显示该单元格的值。(192) Range(&D5:D10&).Cells(1,1) &返回单元格区域D5:D10中左上角单元格(193) ActiveCell.Row &活动单元格所在的行数&& ActiveCell.Column &活动单元格所在的列数(194) Range("A1:B1").HorizontalAlignment = xlLeft &当前工作表中的单元格区域数据设置为左对齐(195) ActiveSheet.Range(&A2:A10&).NumberFormat=&#,##0& &设置单元格区域A2至A10中数值格式(196) rng.Replace & &,&0& &用0替换单元格区域中的空单元格*******************************************************Collection与object(197) Dim colMySheets As New CollectionPublic colMySheets As New Collection &声明新的集合变量(198) Set MyRange=Range(&A1:A5&) &创建一个名为MyRange的对象变量(199) &object&.Add Cell.Value CStr(Cell.Value) &向集合中添加惟一的条目(即将重复的条目忽略)*******************************************************Windows API(200) Declare Function GetWindowsDirectoryA Lib &kernel32& _(ByVal lpBuffer As String,ByVal nSize As Long) As Long &API函数声明。返回安装Windows所在的目录名称，调用该函数后，安装Windows的目录名称将在第一个参数lpBuffer中，该目录名称的字符串长度包含在第二个参数nSize中(201) Set objExcel = CreateObject("Excel.Application")objExcel.Workbooks.Add &创建Excel工作簿(202) Application.ActivateMicrosoftApp xlMicrosoftWord '开启Word应用程序(203) Application.TemplatesPath &获取工作簿模板的位置(204) Application.Calculation = xlCalculationManual &设置工作簿手动计算Application.Calculation = xlCalculationAutomatic &工作簿自动计算(205) Worksheets(1).EnableCalculation = False &不对第一张工作表自动进行重算(206) Application.CalculateFull '重新计算所有打开的工作簿中的数据(207) Application.RecentFiles.Maximum = 5 '将最近使用的文档列表数设为5(208) Application.RecentFiles(4).Open '打开最近打开的文档中的第4个文档(209) Application.OnTime DateSerial()+TimeValue(&16:16:16&),&BaoPo& &在日的16:16:16开始运行BaoPo过程(210) Application.Speech.Speak ("Hello" & Application.UserName) &播放声音，并使用用户的姓名问候用户(211) MsgBox Application.PathSeparator '获取"\"号(212) MsgBox Application.International(xlCountrySetting) '返回应用程序当前所在国家的设置信息(213) Application.AutoCorrect.AddReplacement "葛洲坝", "三峡" '自动将在工作表中进行输入的"葛洲坝"更正为"三峡"(214) Beep '让计算机发出声音(215) Err.Number &返回错误代码(216) MsgBox IMEStatus '获取输入法状态(217) Date = #6/6/2006#Time = #6:16:16 AM# '将系统时间更改为日上午6时16分16秒(218) Application.RollZoom = Not Application.RollZoom '切换是否能利用鼠标中间的滑轮放大/缩小工作表(219) Application.ShowWindowsInTaskba = True &显示任务栏中的窗口,即各工作簿占用各自的窗口(220) Application.DisplayScrollBars = True &显示窗口上的滚动条(221) Application.DisplayFormulaBar = Not Application.DisplayFormulaBar '切换是否显示编辑栏(222) Application.Dialogs(xlDialogPrint).Show &显示打印内容对话框(223) Application.MoveAfterReturnDirection = xlToRight '设置按Enter键后单元格的移动方向向右(224) Application.FindFile '显示打开对话框(225) ThisWorkbook.FollowHyperlink&&&打开超链接文档(226) ActiveWorkbook.ChangeFileAccess Mode:=xlReadOnly '将当前工作簿设置为只读(227) ActiveWorkbook.AddToFavorites '将当前工作簿添加到收藏夹文件夹中(228) ActiveSheet.CheckSpelling '在当前工作表中执行"拼写检查"(229) ActiveSheet.Protect userinterfaceonly:=True &保护当前工作表(230) ActiveSheet.PageSetup.LeftHeader = ThisWorkbook.FullName &在当前工作表的左侧页眉处打印出工作簿的完整路径和文件名(231) Worksheets("Sheet1").Range("A1:G37").Locked = FalseWorksheets("Sheet1").Protect'解除对工作表Sheet1中A1:G37区域单元格的锁定'以便当该工作表受保护时也可对这些单元格进行修改(232) Worksheets("Sheet1").PrintPreview '显示工作表sheet1的打印预览窗口(233) ActiveSheet.PrintPreview Enablechanges:=False &禁用显示在Excel的&打印预览&窗口中的&设置&和&页边距&按钮(234) ActiveSheet.PageSetup.PrintGridlines = True '在打印预览中显示网格线ActiveSheet.PageSetup.PrintHeadings = True '在打印预览中显示行列编号(235) ActiveSheet.ShowDataForm '开启数据记录单(236) Worksheets("Sheet1").Columns("A").Replace _What:="SIN", Replacement:="COS", _SearchOrder:=xlByColumns, MatchCase:=True '将工作表sheet1中A列的SIN替换为COS(237) Rows(2).Delete '删除当前工作表中的第2行Columns(2).Delete '删除当前工作表中的第2列(238) ActiveWindow.SelectedSheets.VPageBreaks.Add before:=ActiveCell '在当前单元格左侧插入一条垂直分页符ActiveWindow.SelectedSheets.HPageBreaks.Add before:=ActiveCell '在当前单元格上方插入一条垂直分页符(239) ActiveWindow.ScrollRow = 14 '将当前工作表窗口滚动到第14行ActiveWindow.ScrollColumn = 13 '将当前工作表窗口滚动到第13列(240) ActiveWindow.Close '关闭当前窗口(241) ActiveWindow.Panes.Count '获取当前窗口中的窗格数(242) Worksheets("sheet1").Range("A1:D2").CreateNames Top:=True '将A2至D2的单元格名称设定为A1到D1单元格的内容(243) Application.AddCustomList listarray:=Range("A1:A8") '自定义当前工作表中单元格A1至A8中的内容为自动填充序列(244) Worksheets("sheet1").Range("A1:B2").CopyPicture xlScreen, xlBitmap '将单元格A1至B2的内容复制成屏幕快照(245) Selection.Hyperlinks.Delete &删除所选区域的所有链接Columns(1).Hyperlinks.Delete &删除第1列中所有的链接Rows(1).Hyperlinks.Delete&& &删除第1行中所有的链接Range("A1:Z30").Hyperlinks.Delete &删除指定范围所有的链接(246) ActiveCell.Hyperlinks.Add Anchor:=ActiveCell, _Address:="C:\Windows\System32\Calc.exe", ScreenTip:="按下我，就会开启Windows计算器", TextToDisplay:="Windows计算器" '在活动单元格中设置开启Windows计算器链接(247) ActiveCell.Value = Shell("C:\Windows\System32\Calc.exe", vbNormalFocus) '开启Windows计算器(248) ActiveSheet.Rows(1).AutoFilter &打开自动筛选。若再运行一次，则关闭自动筛选(249) Selection.Autofilter &开启/关闭所选区域的自动筛选(250) ActiveSheet.ShowAllData &关闭自动筛选(251) ActiveSheet.AutoFilterMode &检查自动筛选是否开启，若开启则该语句返回True(252) ActiveSheet.Columns("A").ColumnDifferences(Comparison:=ActiveSheet. _Range("A2")).Delete '在A列中找出与单元格A2内容不同的单元格并删除(253) ActiveSheet.Range("A6").ClearNotes '删除单元格A6中的批注，包括声音批注和文字批注(254) ActiveSheet.Range("B8").ClearComments '删除单元格B8中的批注文字(255) ActiveSheet.Range("A1:D10").ClearFormats '清除单元格区域A1至D10中的格式(256) ActiveSheet.Range("B2:D2").BorderAround ColorIndex:=5, _Weight:=xlMedium, LineStyle:=xlDouble '将单元格B2至D2区域设置为蓝色双线(257) Range("A1:B2").Item(2, 3)或Range("A1:B2")(2, 3) &引用单元格C2的数据Range("A1:B2")(3)&& &引用单元格A2(258) ActiveSheet.Cells(1, 1).Font.Bold = TRUE &设置字体加粗ActiveSheet.Cells(1, 1).Font.Size = 24 &设置字体大小为24磅ActiveSheet.Cells(1, 1).Font.ColorIndex = 3 &设置字体颜色为红色ActiveSheet.Cells(1, 1).Font.Italic = TRUE &设置字体为斜体ActiveSheet.Cells(1, 1).Font.Name = "Times New Roman" &设置字体类型ActiveSheet.Cells(1, 1).Interior.ColorIndex = 3 &将单元格的背景色设置为红色(259) ActiveSheet.Range("C2:E6").AutoFormat Format:=xlRangeAutoFormatColor3 '将当前工作表中单元格区域C2至E6格式自动调整为彩色3格式(260) Cells.SpecialCells(xlCellTypeLastCell) &选中当前工作表中的最后一个单元格(261) ActiveCell.CurrentArray.Select '选定包含活动单元格的整个数组单元格区域.假定该单元格在数据单元格区域中(262) ActiveCell.NumberFormatLocal = "0.000; [红色] 0.000" '将当前单元格数字格式设置为带3位小数,若为负数则显示为红色(263) IsEmpty (ActiveCell.Value) '判断活动单元格中是否有值(264) ActiveCell.Value = LTrim(ActiveCell.Value) '删除字符串前面的空白字符(265) Len(ActiveCell.Value) '获取活动单元格中字符串的个数(266) ActiveCell.Value = UCase(ActiveCell.Value) '将当前单元格中的字符转换成大写(267) ActiveCell.Value = StrConv(ActiveCell.Value, vbLowerCase) '将活动单元格中的字符串转换成小写(268) ActiveSheet.Range("C1").AddComment '在当前工作表的单元格C1中添加批注(269) Weekday(Date) '获取今天的星期,以数值表示,1-7分别对应星期日至星期六(270) ActiveSheet.Range("A1").AutoFill Range(Cells(1, 1), Cells(10, 1)) '将单元格A1的数值填充到单元格A1至A10区域中(271) DatePart("y", Date) '获取今天在全年中的天数(272) ActiveCell.Value = DateAdd("yyyy", 2, Date) '获取两年后的今天的日期(273) MsgBox WeekdayName(Weekday(Date)) '获取今天的星期数(274) ActiveCell.Value = Year(Date) '在当前单元格中输入今年的年份数ActiveCell.Value = Month(Date) '在当前单元格中输入今天所在的月份数ActiveCell.Value = Day(Date) '在当前单元格中输入今天的日期数(275) ActiveCell.Value = MonthName(1) '在当前单元格中显示月份的名称,本句为显示"一月"(276) ActiveCell.Value = Hour(Time) '在当前单元格中显示现在时间的小时数ActiveCell.Value = Minute(Time) '在当前单元格中显示现在时间的分钟数ActiveCell.Value = Second(Time) '在当前单元格中显示现在时间的秒数(277) ActiveSheet.Shapes(1).Delete '删除当前工作表中的第一个形状(278) ActiveSheet.Shapes.Count '获取当前工作表中形状的数量(279) ActiveSheet.Shapes(1).TextEffect.ToggleVerticalText '改变当前工作表中第一个艺术字的方向(280) ActiveSheet.Shapes(1).TextEffect.FontItalic = True '将当前工作表中第一个艺术字的字体设置为斜体(281) ActiveSheet.Shapes.AddTextEffect(msoTextEffect21, "三峡",&& _"Arial Black", 22#, msoFalse, msoFalse, 66#, 80).Select '在当前工作表中创建一个名为"三峡"的艺术字并对其进行格式设置和选中(282) ActiveSheet.Shapes.AddLine(BeginX:=10, BeginY:=10, EndX:=250, _EndY:=100).Select '在当前工作表中以(10,10)为起点(250,100)为终点画一条直线并选中(283) ActiveSheet.Shapes.AddShape(Type:=msoShapeRightTriangle, _Left:=70, Top:=40, Width:=130, Height:=72).Select '在当前工作表中画一个左上角在(70,40),宽为130高为72的三角形并选中(284) ActiveSheet.Shapes.AddShape(Type:=msoShapeRectangle, _Left:=70, Top:=40, Width:=130, Height:=72).Select '在当前工作表中画一个以点(70,40)为起点,宽130高72的矩形并选中(285) ActiveSheet.Shapes.AddShape(Type:=msoShapeOval, _Left:=70, Top:=40, Width:=130, Height:=72).Select '在当前工作表中画一个左上角在(70,40),宽为130高为72的椭圆(286) ActiveSheet.Shapes(1).Line.ForeColor.RGB = RGB(0, 0, 255) '将当前工作表中第一个形状的线条颜色变为蓝色(287) ActiveSheet.Shapes(2).Fill.ForeColor.RGB = RGB(255, 0, 0) '将当前工作表中第2个形状的前景色设置为红色(288) ActiveSheet.Shapes(1).Rotation = 20 '将当前工作表中的第1个形状旋转20度(289) Selection.ShapeRange.Flip msoFlipHorizontal '将当前选中的形状水平翻转Selection.ShapeRange.Flip msoFlipVertical '将当前选中的形状垂直翻转(290) Selection.ShapeRange.ThreeD.SetThreeDFormat msoThreeD1 '将所选取的形状设置为第1种立体样式(291) ActiveSheet.Shapes(1).ThreeD.Depth = 20 '将当前工作表中第一个立体形状的深度设置为20(292) ActiveSheet.Shapes(1).ThreeD.ExtrusionColor.RGB = RGB(0, 0, 255) '将当前工作表中第1个立体形状的进深部分的颜色设为蓝色(293) ActiveSheet.Shapes(1).ThreeD.RotationX = 60 '将当前工作表中的第1个立体形状沿X轴旋转60度ActiveSheet.Shapes(1).ThreeD.RotationY = 60 '将当前工作表中的第1个立体形状沿Y轴旋转60度(294) Selection.ShapeRange.ThreeD.Visible = msoFalse '将所选择的立体形状转换为平面形状(295) Selection.ShapeRange.ConnectorFormat.BeginDisconnect '在形状中让指定的连接符起点脱离原来所连接的形状(296) ActiveSheet.Shapes(1).PickUp '复制当前工作表中形状1的格式(297) ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, 260, 160, 180, 30). TextFrame.Characters.Text = "fanjy.blog.excelhome.net" '在工作簿中新建一个文本框并输入内容(298) ActiveSheet.Shapes.AddLabel(msoTextOrientationHorizontal, 20, 80, 100, 200). TextFrame.Characters.Text = "fanjy.blog.excelhome.net" '在当前工作表中建立一个水平文本框并输入内容(299) ActiveSheet.Shapes.AddPicture "d:\sx.jpg", True, True, 60, 20, 400, 300 '在当前工作表中插入一张d盘中名为sx的图片(300) ActiveChart.ApplyCustomType xl3DArea '将当前图表类型改为三维面积图
阅读(...) 评论()