ExcelTip.Net留存知识帖 ---【注：附件之前被网盘供应商清空后，现已修复-现已修复-现已修复为本地下载！】
现在位置：首页 > 我的测验 > Excel VBA > 罗刚君VBA免费课作业题】之第18课作业

罗刚君VBA免费课作业题】之第18课作业

作者：绿色风 分类： 时间：2022-08-18 浏览：165
楼主
罗刚君		 提示：此题目是“VBA入门免费教学群”（群号:30729794）的课后作业
请未参与听课者绕道，谢谢配合。
_____________________________________________________

1.假设工作簿中有工作表、图表、宏表，请用代码计算图表与宏表的数量之和。
2.假设工作簿中有一个“汇总表”，请用代码判断该表是处于显示状态还是隐藏状态。
3.用代码新建一个工作表，取名为“汇总表”，且将此表放在所有工作表之前。
4.请用代码创建一个矩形，矩形刚好覆盖B2:F5区域。

_____________________________________________________
补充：“VBA入门免费教学群”（群号:30729794）每周三上课一次，有兴趣者皆可报名，永远免费。
请提交作业时注明在免费听课群的昵称。三次不交作业者，将踢出群，让出空间让更多的人进来听课，请大家配合。


答案：
Sub 第18课课后作业答案()
    MsgBox Sheets.Count - Worksheets.Count
    MsgBox IIf(Worksheets("汇总表").Visible, "显示", "隐藏")
    Worksheets.Add(before:=Worksheets(1)).Name = "汇总表"
    ActiveSheet.Shapes.AddShape msoShapeRectangle, Range("b2:f5").Left, Range("b2:f5").Top, Range("b2:f5").Width, Range("b2:f5").Height
End Sub
2楼
kcxs		 客城小生的作业
1、
  1. Sub 用代码计算图表与宏表的数量之和()
  2.   MsgBox "代码计算图表与宏表的数量之和:" & Sheets.Count - Worksheets.Count
  3. End Sub
2、
  1. Sub 判断该表是处于显示状态还是隐藏状态()
  2. If Worksheets("汇总表").Visible = xlSheetVisible Then
  3.     MsgBox "该表处于显示状态"
  4. End If
  5. If Worksheets("汇总表").Visible = xlSheetHidden Then
  6.     MsgBox "该表处于隐藏状态"
  7. End If
  8. If Worksheets("汇总表").Visible = xlSheetVeryHidden Then
  9.     MsgBox "该表处于深度隐藏状态"
  10. End If
  11. End Sub
3、
  1. Sub 新建工作表()
  2.   Dim sht As Worksheet
  3.   Set sht = Worksheets.Add(before:=Worksheets(1))
  4.   sht.Name = "汇总表"
  5. End Sub
4、
  1. Sub 创建一个矩形刚好覆盖B2F5区域()
  2.     Range("b2:f5").Select
  3.     ActiveSheet.Shapes.AddShape(msoShapeRectangle, ActiveCell.Left, ActiveCell.Top, Selection.Width, Selection.Height).Select
  4. End Sub
3楼
wendel		 Sub test()
    MsgBox Charts.Count + Excel4MacroSheets.Count
End Sub

Sub test1()
    MsgBox IIf(Sheets("汇总表").Visible < 0, "汇总表可见", "汇总表已被隐藏")
End Sub

Sub test2()
    Worksheets.Add(before:=Sheets(1)).Name = "汇总表"
End Sub



Sub test3()
     ActiveSheet.Shapes.AddShape(msoShapeRectangle, Range("b2:f5").Left, Range("b2:f5").Top, Range("b2:f5").Width, Range("b2:f5").Height).Select
End Sub
4楼
hustclm		 1. msgbox "所有图表数为：" sheets.count
2.不太会
3.sht.add before:= worksheets(1)
   sht.name = "汇总表"
4.ActiveSheet.Shapes.AddShape(msoShapeRectangle, 52.5, 15.75, 271.5, 49.5)

飞翔的石头
5楼
静思雨
  1. 1、第一种方法：
  2. Sub test()
  3. MsgBox Charts.Count + Excel4MacroSheets.Count
  4. End Sub
  1. 第二种方法：
  2. Sub test()
  3. Dim Sht
  4. Dim i As Integer
  5. For Each Sht In Sheets
  6.   If Sht.Type = xlExcel4MacroSheet Or Sht.Type = xlchart Then
  7.    i = i + 1
  8.   End If
  9. Next
  10. MsgBox "宏表和图表的数量之和为" & i
  11. End Sub
  1. 2、
  2. Sub aa()
  3. Dim sht
  4. On Error Resume Next
  5.     Set sht = Sheets("汇总表")
  6.     If sht.Visible = True Then
  7.       MsgBox "汇总表处于可见状态"
  8.     Else
  9.       MsgBox "汇总表处于隐藏状态"
  10.     End If
  11. End Sub
  1. 3、
  2. Sub AddWorksheet()
  3.       On Error Resume Next
  4.       Worksheets.Add(Before:=Sheets(1)).Name = "汇总表"
  5. End Sub
  1. 4、
  2. Sub a()
  3.      ActiveSheet.Shapes.AddShape(msoShapeRectangle, Range("b2:f5").Left, Range("b2:f5").Top, Range("b2:f5").Width, Range("b2:f5").Height).Select
  4. End Sub
6楼
冰淇林的冬天		 Sub 宏表图表数量和()   '第一题
    MsgBox ActiveWorkbook.Sheets.Count - ActiveWorkbook.Worksheets.Count
End Sub

Sub 工作表状态()  '第二题
    If Worksheets("汇总表").Visible = False Then
        MsgBox "汇总表是影藏的", vbOKOnly
    Else
        MsgBox "汇总表是可见的", vbOKOnly
    End If
End Sub


Sub 创建工作表()   '第三题
    Worksheets.Add before:=Sheets(1), Count:=1, Type:=xlWorksheet
    Sheets(1).Name = "汇总表"
End Sub


Sub 创建矩形()  '第四题
    Dim l As Byte
    Dim t As Byte
    Dim h As Integer
    Dim w As Integer
    l = Range("B1").Left
    t = Range("b2").Top
    w = Range("g5").Left
    h = Range("f6").Top
    ActiveSheet.Shapes.AddShape msoShapeRectangle, l, t, w - l, h - t
End Sub
7楼
冰淇林的冬天		 6楼
群号：30729794
名称：冰淇林的冬天
又忘记发名字了

8楼
endend1980
  1. Sub t1()
  2.     MsgBox Sheets.Count - Charts.Count - Worksheets.Count
  3. End Sub
  4. Sub t2()
  5.     Dim sht As Worksheet
  6.     Set sht = Worksheets("汇总表")
  7.     If sht.Visible = xlSheetVisible Then
  8.     sr = "显示"
  9.     Else
  10.     sr = "隐藏"
  11.     End If
  12.     MsgBox sr
  13. End Sub
  14. Sub t3()
  15.     Worksheets.Add Worksheets(1)
  16. End Sub
  17. Sub t4()
  18.     ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, [b2].Left, [b2].Top, [b2:f2].Width, [b2:b5].Height).Select
  19. End Sub
  20. 群ID:End
9楼
ch_liu2000		 ☆浪迹天涯☆_第十八课_作业.rar
10楼
manuel442		 QQ：智山仁水
1、msgbox sheets.count-worksheets.count
2、msgbox iif(sheets("汇总表").visible=-1,"显示","隐藏"）
3、 Sub a()
     Dim sht As Worksheet
     Set sht = Worksheets.Add(before:=Worksheets(1))
      sht.Name = "汇总表"
      End Sub
4、
Sub 宏2()

    ActiveSheet.Shapes.AddShape(msoShapeRectangle, [b2].Left, [b2].Top, [b2:f5].Width, [b2:f5].Height).Select

End Sub
11楼
398829134		 QQ昵称：Dumbledore
  1. Option Explicit

  3. Sub 问题一()
  4.     '1.假设工作簿中有工作表、图表、宏表，请用代码计算图表与宏表的数量之和。
  5.     MsgBox "工作表对象数量：" & Worksheets.Count _
  6.             & vbCrLf & "图表对象数量：" & Charts.Count _
  7.             & vbCrLf & "宏表对象数量：" & Excel4MacroSheets.Count _
  8.             & vbCrLf & "对话框对象数量：" & DialogSheets.Count _
  9.             & vbCrLf & "★本题答案" _
  10.             & vbCrLf & "图表与宏表的数量之和：" & Charts.Count + Excel4MacroSheets.Count, _
  11.             vbInformation, "罗老师辛苦了"
  12. End Sub

  14. Sub 问题二()
  15.     '2.假设工作簿中有一个“汇总表”，请用代码判断该表是处于显示状态还是隐藏状态。
  16.     If Worksheets("汇总表").Visible = xlSheetVisible Then _
  17.             MsgBox "“汇总表”当前处于“显示”状态", vbInformation, "罗老师辛苦了" Else _
  18.             MsgBox "“汇总表”当前处于“隐藏”状态", vbInformation, "罗老师辛苦了"
  19. End Sub

  21. Sub 问题三()
  22.     '3.用代码新建一个工作表，取名为“汇总表”，且将此表放在所有工作表之前。
  23.     Worksheets.Add(Worksheets(1)).Name = "汇总表"
  24. End Sub

  26. Sub 问题四()
  27.     '4.请用代码创建一个矩形，矩形刚好覆盖B2:F5区域。
  28.     ActiveSheet.Shapes.AddShape msoShapeRectangle, Range("B2:F5").Left, Range("B2:F5").Top, Range("B2:F5").Width, Range("B2:F5").Height
  29. End Sub
12楼
wouimk1		 一、
Sub 表对象数量()
  MsgBox "图表和宏表数量之和:" & Sheets.Count - Worksheets.Count
End Sub

二、
Sub 隐藏测试()
  If Worksheets("汇总表").Visible = -1 Then
      MsgBox "汇总表是显示的"
  Else
      MsgBox "汇总表是隐藏的"
  End If
End Sub

三、
Sub 新建工作表()
  Worksheets.Add
  ActiveSheet.Name = "汇总表"
  Worksheets("汇总表").Move before:=Worksheets(1)
End Sub

最后一题不会，第一次听课，见谅
.oοΟΟοo.<
13楼
manuel442		 QQ：智山仁水
1、msgbox sheets.count-worksheets.count
2、msgbox iif(sheets("汇总表").visible=-1,"显示","隐藏"）
3、 Sub a()
     Dim sht As Worksheet
     Set sht = Worksheets.Add(before:=Worksheets(1))
      sht.Name = "汇总表"
      End Sub
4、
Sub 宏2()

    ActiveSheet.Shapes.AddShape(msoShapeRectangle, [b2].Left, [b2].Top, [b2:f5].Width, [b2:f5].Height).Select

End Sub
14楼
健康快乐123		 第一题：
sheets.count-worksheets.count
第二题：
sub pd()
dim rng as range
set rng=worksheets("汇总表").visible
if rng>0 then
msgbox 汇总表隐藏
else
msgbox 汇总表显示
end if
end sub
第三题：
sub 新建工作表
dim sht as worksheet
on error resume next
set sht=sheets("汇总表")
if  err=0 then exit sub
sheets.add(before:=sheets(1)).name="汇总表"
end sub
第四题：
不会
c05:水上漂123
15楼
百宝箱		 测试一下
16楼
百宝箱		 测试一下
17楼
manuel442		 QQ：智山仁水
1、msgbox sheets.count-worksheets.count
2、msgbox iif(sheets("汇总表").visible=-1,"显示","隐藏"）
3、 Sub a()
     Dim sht As Worksheet
     Set sht = Worksheets.Add(before:=Worksheets(1))
      sht.Name = "汇总表"
      End Sub
4、
Sub 宏2()

    ActiveSheet.Shapes.AddShape(msoShapeRectangle, [b2].Left, [b2].Top, [b2:f5].Width, [b2:f5].Height).Select

End Sub
18楼
paoge		 骑着钓箱看世界
1、
Sub 计算图表与宏表之和()
   Dim i As Integer
   i = Sheets.Count - Worksheets.Count
   MsgBox "图表与宏表之和是：" & Chr(13) & i
End Sub
2、
Sub 判断表隐藏()
     If Sheets("汇总表").Visible = True Then         
         MsgBox "汇总表未隐藏"
         Else
         MsgBox "汇总表已隐藏"   
     End If
End Sub
3.Sub 新建表()
         Worksheets.Add before:=Worksheets(1)
         ActiveSheet.Name = "汇总表"   
End Sub
4.
Sub 新建一个矩形()
    Dim p As Range
    Dim myshape As Shape
    Set p = Range("b2:f5")
    Set myshape = ActiveSheet.Shapes.AddShape(msoShapeRectangle, 1, 1, 1, 1)
         With myshape
                .Rotation = 0
                .Top = p.Top
                .Left = p.Left
                .Width = p.Width
                .Height = p.Height
         End With
End Sub
19楼
天空的雨		 第十八课作业-工作表、图对象-免费听课群-天空答.rar
20楼
liaozhifa33		 回复人：宁静致远（173754260）

1.假设工作簿中有工作表、图表、宏表，请用代码计算图表与宏表的数量之和。

MsgBox "图表数量:" & Charts.Count

找不到宏表的表达式，正在学习中，老师谅解!_!

2.假设工作簿中有一个“汇总表”，请用代码判断该表是处于显示状态还是隐藏状态。

If Sheets("汇总表").Visible = False Then MsgBox "【汇总表】处于: " & "隐藏" & "状态！" Else: MsgBox "【汇总表】处于: " & "显示" & "状态！"

3.用代码新建一个工作表，取名为“汇总表”，且将此表放在所有工作表之前。

Sheets.Add(before:=WorkSheets(1)).Name = "汇总表"

4.请用代码创建一个矩形，矩形刚好覆盖B2:F5区域。

Sub 建立矩形覆盖指定区域()

ActiveSheet.Shapes.AddShape(msoShapeRectangle, 1, 1, 1, 1).Select
   
With Selection
     .ShapeRange.LockAspectRatio = msoFalse
     .Placement = xlMoveAndSize
     .ShapeRange.Left = Range("b2 ").Left
     .ShapeRange.Top = Range("b2 ").Top
     .ShapeRange.Height = Range("b2:b5 ").Height
     .ShapeRange.Width = Range("b2:f2 ").Width
End With
   
End Sub
21楼
ynzsvt		 1.假设工作簿中有工作表、图表、宏表，请用代码计算图表与宏表的数量之和。
sheets.count-worksheets.count

2.假设工作簿中有一个“汇总表”，请用代码判断该表是处于显示状态还是隐藏状态。
if worksheets("汇总表").visible=-1 then msgbox "处于显示状态" else msgbox "处于隐藏状态"

3.用代码新建一个工作表，取名为“汇总表”，且将此表放在所有工作表之前。
Worksheets.Add before:=Sheets(1)
ActiveSheet.Name = "汇总表"

4.请用代码创建一个矩形，矩形刚好覆盖B2:F5区域。
Sub Macro1()
    activesheet.Shapes.AddShape(msoShapeRectangle, [B2:F5].Left, [B2:F5].Top, [B2:F5].Width, [B2:F5].Height).Select
End Sub
22楼
一片叶子
  1. @小鱼
  2. 1.Sub 图表与宏表对象数量()
  3.   MsgBox "图表与宏表对象数量:" & Sheets.Count - Worksheets.Count
  4. End Sub
  5. 2.Sub 创建新表()
  6.     For i = 1 To Sheets.Count
  7.      sht = "汇总表"
  8.       If Sheets(i).Name = sht Then
  9.         Application.DisplayAlerts = False
  10.         Sheets(sht).Delete
  11.         Application.DisplayAlerts = True
  12.        Exit For
  13.       Else
  14.         Sheets.Add.Name = sht
  15.         Sheets(sht).Move before:=Worksheets(1)
  16.      End If
  17.     Exit Sub
  18. Next i
  19. End Sub
  20. 3.Sub 隐藏()
  21.        MsgBox Worksheets("汇总表").Visible
  22. End Sub
23楼
本人号被盗，		 罗老师我尽力做。但是试验后只有2个可以成的。
1\
sub 统计表数量（）
MsgBox "表对象数量:" & Sheets.Count- Worksheets.Count"
end sub
2、
Sub 判断汇总表是否隐藏()
  If Worksheets("汇总表").Visible = xlSheetVeryHidden Then MsgBox "深度隐藏"
  ElseIf Worksheets("汇总表").Visible = xlSheetHidden Then MsgBox "隐藏"
  ElseIf Worksheets("汇总表").Visible = xlSheetVisible Then MsgBox "显示"
  End If
End Sub
3、
Sub 创建汇总表1()
Dim sht As Worksheet

Set sht = Worksheets.Add(before:=Worksheets(1))
Worksheets(1).Name = "汇总表1"
End Sub
4、
Sub 创建矩形()
Dim SHP As Shapes
shp.AddShape(msoShapeRectangle,48#, 0.6, 24,0.6)
End Sub
24楼
无言的人		 无言的人
  1. Rem 1.假设工作簿中有工作表、图表、宏表，请用代码计算图表与宏表的数量之和。

  3. Sub WkShtSum()
  4.     Dim ShCou As Integer, Cou As Integer
  5.     For ShCou = 1 To Sheets.Count
  6.         With Sheets(ShCou)
  7.             If .Type = -4109 Or .Type = 4 Or .Type = 3 Then
  8.                Cou = Cou + 1
  9.             End If
  10.         End With
  11.     Next ShCou
  12.     MsgBox "该工作簿中总共包含有图表与宏表的数量之和为" & Cou
  13. End Sub

  15. Rem 2.假设工作簿中有一个“汇总表”，请用代码判断该表是处于显示状态还是隐藏状态。

  17. Sub WSVis()
  18.     MsgBox Sheets("汇总表").Visible
  19. End Sub

  21. Rem 3.用代码新建一个工作表，取名为“汇总表”，且将此表放在所有工作表之前。

  23. Sub AddMoveSht()
  24. Dim Sht As Integer
  25.     For Sht = 1 To Sheets.Count
  26.        If Sheets(Sht).Name = "汇总表" Then End
  27.     Next Sht
  28.     With Worksheets.Add
  29.          .Name = "汇总表"
  30.          .Move Before:=Sheets(1)
  31.     End With
  32. End Sub

  34. Rem 4.请用代码创建一个矩形，矩形刚好覆盖B2:F5区域。

  36. Sub AddShape()
  37.    ActiveSheet.Shapes.AddShape(msoShapeRectangle, Range("B2").Left, Range("F2").Top, Range("B2:F2").Width, Range("B2:F5").Height).Select
  38. End Sub
25楼
gaoshuichang1		 1、假设工作簿中有工作表、图表、宏表，请用代码计算图表与宏表的数量之和。
Sub 图表与宏表的数量之和1()
    MsgBox "图表与宏表的数量之和为:" & Sheets.Count - Worksheets.Count
End Sub
Sub 图表与宏表的数量之和为2()
MsgBox "图表与宏表的数量之和为:" & Charts.Count + Excel4MacroSheets.Count
End Sub
2.假设工作簿中有一个“汇总表”，请用代码判断该表是处于显示状态还是隐藏状态。
Sub 判断()
    If Worksheets("汇总表").Visible = xlSheetVisible Then
        MsgBox "汇总表处于显示状态"
    ElseIf Worksheets("汇总表").Visible = xlSheetHidden Then
        MsgBox "汇总表处于一般隐藏状态"
    ElseIf Worksheets("汇总表").Visible = xlSheetVeryHidden Then
        MsgBox "汇总表处于深度隐藏状态"
    End If
End Sub
3.用代码新建一个工作表，取名为“汇总表”，且将此表放在所有工作表之前。
Sub 新建工作表()
Worksheets.Add before:=Sheets(1)
ActiveSheet.Name = "汇总表"
End Sub
4.请用代码创建一个矩形，矩形刚好覆盖B2:F5区域。
不会做，只能录一段宏滥竽充数了。
Sub 宏1()

    ActiveSheet.Shapes.AddShape(msoShapeRectangle, 32.25, 14.25, 270, 57).Select
    Selection.ShapeRange.ShapeStyle = msoShapeStylePreset1
End Sub
26楼
爱情和面包		 MsgBox Comments.Count + Shapes.Count

If Sheets("汇总表").Visible = False Then MsgBox "隐藏" Else MsgBox "显示"

Sub X()
Sheets.Add After:=Sheets(Sheets.Count)
    i = Sheets.Count
    Sheets(i).Name = "汇总表"
    Sheets(i).Move Before:=Sheets(1)
End Sub

Sub XX()
Set p = Shapes.AddShape(msoShapeRectangle, 130.5, 69, 72, 72)
    p.Left = [b2].Left
    p.Top = [b2].Top
    p.Width = [b2:f5].Width
    p.Height = [b2:f5].Height
End Sub
27楼
ynzsvt		 1.假设工作簿中有工作表、图表、宏表，请用代码计算图表与宏表的数量之和。
sheets.count-worksheets.count

2.假设工作簿中有一个“汇总表”，请用代码判断该表是处于显示状态还是隐藏状态。
if worksheets("汇总表").visible=-1 then msgbox "处于显示状态" else msgbox "处于隐藏状态"

3.用代码新建一个工作表，取名为“汇总表”，且将此表放在所有工作表之前。
Worksheets.Add before:=Sheets(1)
ActiveSheet.Name = "汇总表"

4.请用代码创建一个矩形，矩形刚好覆盖B2:F5区域。
Sub Macro1()
    activesheet.Shapes.AddShape(msoShapeRectangle, [B2:F5].Left, [B2:F5].Top, [B2:F5].Width, [B2:F5].Height).Select
End Sub
28楼
ynzsvt		 我记得好像答过了，怎么回答会丢失？
29楼
mmice		 1.        假设工作簿中有工作表、图表、宏表，请用代码计算图表与宏表的数量之和。
Sub count()
Dim i%
i=Sheets.count-WorkSheets.counts
End sub
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
2.        假设工作簿中有一个“汇总表”，请用代码判断该表是处于显示状态还是隐藏状态。
Sub show()
If Worksheets("汇总表").Visible = False Then
MsgBox "汇总表被隐藏"
Else
MsgBox "汇总表隐藏"
End If
End Sub
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
3.        用代码新建一个工作表，取名为“汇总表”，且将此表放在所有工作表之前。
Sub shtadd()
   Worksheets.Add before:=Worksheets(1)
   ActiveSheet.Name = "汇总表"
End Sub
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
4.        请用代码创建一个矩形，矩形刚好覆盖B2:F5区域。
Sub shp（）
    ActiveSheet.Shapes.AddShape msoShapeRectangle 54, 13.5, 272.25, 55.5
End Sub



群名片：小白
30楼
独孤求财		 1.假设工作簿中有工作表、图表、宏表，请用代码计算图表与宏表的数量之和。
MsgBox Excel4MacroSheets.Count + Charts.Count
2.假设工作簿中有一个“汇总表”，请用代码判断该表是处于显示状态还是隐藏状态。
MsgBox Sheets("汇总表").Visible
3.用代码新建一个工作表，取名为“汇总表”，且将此表放在所有工作表之前。
Sheets.Add
ActiveSheet.Name = "汇总表"
Sheets("汇总表").Move before:=Sheets("sheet1")
  MsgBox Sheets("汇总表").Visible
4.请用代码创建一个矩形，矩形刚好覆盖B2:F5区域。
ActiveSheet.Shapes.AddShape msoShapeRectangle, Range("b2:f5").Left, Range("b2:f5").Top, Range("b2:f5").Width, Range("b2:f5").Height
31楼
hjsky		 四川-幺幺的作业，谢谢老师！辛苦了！
四川-幺幺的作业.rar
32楼
qing33670000		 群名：初学VBA

1、Sheets.Count - Worksheets.Count

2、Sub aa()
    On Error Resume Next
    Sheets("汇总表").Select
    If Err = 1004 Then
        MsgBox "汇总表是隐藏的"
    Else
        MsgBox "汇总表是没隐藏"
    End If
End Sub

3、Sub ab()
Sheets.Add before:=Sheets(1)
ActiveSheet.Name = "汇总表"
End Sub

4、
33楼
twozisan		 ID-板橋 大劉
1===
Sub 表物件與工作表物件數量()
  MsgBox "表物件數量:" & Sheets.Count & Chr(13) & "工作表物件數量:" & Worksheets.Count
End Sub

2===
Sub汇()
Dim sht As Worksheet
For Each sht In Sheets
If sht.Name <> "汇总表" Then
MsgBox "顯示狀態"
Else
MsgBox "隱藏狀態"
Next sht
End Sub

3===
Sub用代码新建一个工作表
Sheets.add before:= sheets(1)
sheets(1).name=”彙總表”
End sub
34楼
jsrgsunny		 QQ:1975225261江苏-阳光明媚
1、Sub 图表对象与宏表对象数量()
  MsgBox "图表对象数量:" & Charts.Count & Chr(13) & "宏表对象数量:" & AddIns.Count
End Sub
3、Sub 新建表()
    Worksheets.Add , Count:=1
    Sheets("Sheet4").Name = "汇总表"
    Sheets("汇总表").Select
    Sheets("汇总表").Move Before:=Sheets(1)
End Sub

35楼
一点点
  1. Sub 表对象与工作表对象数量()
  2.   MsgBox "表对象数量:" & Sheets.Count & Chr(13) & "工作表对象数量:" & Worksheets.Count & Chr(13) & "图表数量：" & Charts.Count
  3. End Sub

  5. Sub 显示所有工作表()
  6.     If Sheets("汇总").Visible = 1 Then
  7.     Debug.Print "未隐藏"
  8.     End If
  9.   End Sub

  11. Sub 新建()
  12.     Worksheets.Add before:=Sheets(1)
  13.     ActiveSheet.Name = "汇总表"
  14. End Sub
36楼
lb425319789		 1.假设工作簿中有工作表、图表、宏表，请用代码计算图表与宏表的数量之和。
Sub 表对象与工作表对象数量()
   dim a as byte
    a=Sheets.Count - Worksheets.Count
   MsgBox "图表与宏表之和:" & a
   End Sub
2.假设工作簿中有一个“汇总表”，请用代码判断该表是处于显示状态还是隐藏状态。
Sub 判断()
    dim a as worksheet
    set a=Worksheets("汇总表").Visible
     if a=xlSheetHidden
       then msgbox "汇总表处于隐藏状态"
    else  if a=xlSheetVeryHidden
            then msgbox"汇总表处于深度隐藏状态"
    else  if a=xlSheetVisible
            then msgbox"汇总表处于显示状态"
End Sub
3.用代码新建一个工作表，取名为“汇总表”，且将此表放在所有工作表之前。
Sub 新建工作表()
    Worksheets.Add
    dim a as string
    a="汇总表"
    Worksheets(a).Move before:=Worksheets(1)
End Sub
4.请用代码创建一个矩形，矩形刚好覆盖B2:F5区域。
Sub 矩形()
    dim a as shape
    a.type=msoAutoShape
    set a =  ActiveSheet.Shapes.AddShape
End Sub
37楼
杭州小菜02		 '作业题1
Sub 计算图表与宏表的数量之和()
    MsgBox "本工作薄中图表与宏表数量之和是：" & Charts.Count + Excel4MacroSheets.Count
   
End Sub

'作业题2
Sub 判断汇总表的显示状态()
    MsgBox "如果返回值为-1那么工作表为显示状态，否则为隐藏状态。" & Chr(10) & "该返回值为：" & Sheets("汇总表").Visible
End Sub

'作业题3
Sub 新建工作表为汇总表并放在所有工作表之前()
   Worksheets.Add Count:=1, Before:=Worksheets(1): ActiveSheet.Name = "汇总表"
End Sub
Sub 作业题4()
    ActiveSheet.Shapes.AddShape msoShapeRectangle, Range("B2:F5").Left, Range("B2:F5").Top, Range("B2:F5").Width, Range("B2:F5").Height
End Sub
38楼
nocturne		 nocturne
18课作业-nocturne.zip

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素， 经与ExcelTip.Net站长Apolloh商议并征得其同意， 现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示， 供有需要的人士查询使用，也慰缅曾经的论坛时代。 所示各个帖子的原作者如对版权有异议， 可与本人沟通提出，或于本站点留言，我们会尽快处理。 在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一

猜您喜欢
评论列表
搜索

鄂ICP备2021011689号-2

powered by emlog pro Theme By 蓝叶

sitemap