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

第17课课后作业 开帖

作者：绿色风 分类： 时间：2022-08-18 浏览：109
楼主
罗刚君		 1、隐藏所有计算结果为错误值的公式
2、只复制D、E列标题区域以外的数据到A、B列的数据之后
2楼
kcxs		 客城小生的作业

1、隐藏所有计算结果为错误值的公式
  1. Sub 隐藏所有计算结果为错误值的公式()
  2.     Cells.SpecialCells(xlCellTypeFormulas, 16).Select
  3.     Selection.FormulaHidden = True
  4.     ActiveSheet.Protect
  5. End Sub
2、只复制D、E列标题区域以外的数据到A、B列的数据之后，该如何修改代码
  1. Sub 复制()
  2.     Range(Range("d2"), Cells(Rows.Count, 5).End(xlUp)).Copy Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
  3. End Sub
3楼
静思雨		 老师辛苦

1、
  1. Sub HideFormulas()
  2.    With ActiveSheet
  3.       .Unprotect
  4.       .Cells.SpecialCells(xlCellTypeFormulas, xlErrors).FormulaHidden = True
  5.       .Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
  6.     End With
  7. End Sub
2、
  1. Sub test()
  2.   Range(Range("d2"), Cells(Rows.Count, 5).End(xlUp)).Copy Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
  3. End Sub
4楼
渊缘怨		 Sub 复制()
  Range(Range("d2"), Cells(Rows.Count, 5).End(xlUp)).Copy Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
End Sub
5楼
小志就是我了		 （1）
Sub 出错值隐藏()
Dim sht As Worksheet
Set sht = ActiveSheet
sht.UsedRange.SpecialCells(xlCellTypeFormulas, 16).Font.ThemeColor = xlThemeColorDark1
End Sub

（2）
Sub 复制()
  Intersect(Range(Range("d1"), Cells(Rows.Count, 5).End(xlUp)), Range(Range("d1"), _
    Cells(Rows.Count, 5).End(xlUp)).Offset(1, 0)).Copy _
    Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
End Sub
6楼
一点点
  1. 作业
  2. 1、隐藏所有计算结果为错误值的公式

  4. 答：
  5. Sub 作业1隐藏错误公式()
  6.     Cells.SpecialCells(xlCellTypeFormulas, 16).Select
  7.     Selection.FormulaHidden = True
  8.     ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
  9. End Sub



  13. 2、只复制D、E列标题区域以外的数据到A、B列的数据之后，该如何修改代码

  15. Sub 复制()
  16. '[A:B].ClearContents
  17. Range("a1:b1") = Range("d1:e1").Value
  18.   Range(Range("d1"), Cells(Rows.Count, 5).End(xlUp)).Offset(1, 0).Copy Range("A" & Range("a" & Rows.Count).End(xlUp).Row + 1)
  19. End Sub
7楼
一片叶子
  1. @小鱼
  2. 1.Sub 复制()
  3.   Range(Range("d2"), Cells(Rows.Count, 5).End(xlUp)).Copy Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
  4. End Sub
  5. 2.Sub 隐藏工作表中的所有值为错误的公式()
  6. 'Cells.SpecialCells(xlCellTypeFormulas, 16).ClearContents
  7. 'Cells.SpecialCells(xlCellTypeFormulas, 16).EntireRow.Hidden = True
  8. Cells.SpecialCells(xlCellTypeFormulas, 16).Font.ColorIndex = 2
  9. End Sub
8楼
manuel442		 QQ昵称：智山仁水
第一题： sub a()
            Cells.SpecialCells(xlCellTypeFormulas, 16).Select   
                Selection.FormulaHidden = True
           end sub

第二题：Sub 复制()
  Range(Range("d2"), Cells(Rows.Count, 5).End(xlUp)).Copy Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
End Sub
9楼
manuel442		 QQ昵称：智山仁水
第一题： sub a()
            Cells.SpecialCells(xlCellTypeFormulas, 16).Select   
                Selection.FormulaHidden = True
           end sub

第二题：Sub 复制()
  Range(Range("d2"), Cells(Rows.Count, 5).End(xlUp)).Copy Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
End Sub
10楼
498429525		 excel 混混
Sub all_formulahidden()
'隐藏所有计算结果为错误值的公式
Selection.SpecialCells(xlCellTypeFormulas, 16).formulahidden = True
   ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub
Sub copy_part()
'复制除标题以外的内容到A1单元格

With Selection.SpecialCells(xlCellTypeConstants, 1)
    .Offset(0, -1).Resize(.Rows.Count, ActiveSheet.UsedRange.Columns.Count).Copy [a1]
   
   
End With
End Sub
11楼
wendel		 第一题作业答案：
Sub test()
    With Worksheets("sheet1")
        .Unprotect
        .UsedRange.SpecialCells(xlCellTypeFormulas, xlErrors).FormulaHidden = True
        .Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
    End With
End Sub


第二题作业答案：
Sub 复制()
  Range(Range("d2"), Cells(Rows.Count, 5).End(xlUp)).Copy Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
End Sub
12楼
qing33670000		 群名字：初学VBA
第一题：Range("A1:A10").SpecialCells(xlCellTypeFormulas, 16).Font.ColorIndex = 2
第二题：Range(Range("d2"), Cells(Rows.Count, 5).End(xlUp)).Copy Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
13楼
冰淇林的冬天		 1、
Sub 隐藏计算结果为错误值得公式()
    Cells.SpecialCells(xlCellTypeFormulas, xlErrors).FormulaHidden = True
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub
求教：Cells.SpecialCells(xlCellTypeFormulas, xlErrors).FormulaHidden = True   这一句，当把cells改为range时会报错，是什么原因
2、
Sub 第二题()
Intersect(Range("D1").CurrentRegion, Range("D1").CurrentRegion.Offset(1, 0)).Copy _
Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
End Sub
14楼
冰淇林的冬天		 1、
Sub 隐藏计算结果为错误值得公式()
    Cells.SpecialCells(xlCellTypeFormulas, xlErrors).FormulaHidden = True
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub
求教：Cells.SpecialCells(xlCellTypeFormulas, xlErrors).FormulaHidden = True   这一句，当把cells改为range时会报错，是什么原因
2、
Sub 第二题()
Intersect(Range("D1").CurrentRegion, Range("D1").CurrentRegion.Offset(1, 0)).Copy _
Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
End Sub
重新发一次，刚才忘记写上群号和名字了
群号：30729794  
冰淇淋的冬天
15楼
gaoshuichang1
  1. 1、Sub 隐藏工作表中的所有值为错误的公式()
  2. Cells.SpecialCells(xlCellTypeFormulas, 16).Font.ColorIndex = 2
  3. End Sub
  4. 2、Sub 复制1()
  5.   Range(Range("d1").Offset(1, 0), Cells(Rows.Count, 5).End(xlUp)).Copy Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
  6. End Sub


  9. Sub 复制2()
  10.   Range(Range("d1").Offset(1, 0), Cells(Rows.Count, 5).End(xlUp)).Copy Cells(1, 1).End(xlDown).Offset(1, 0)
  11. End Sub
16楼
天空的雨		 第17课作业-免费听课群-天空答.rar
17楼
lb425319789		 1、隐藏所有计算结果为错误值的公式
Sub 删除工作表中的所有值为错误的公式()
     Cells.SpecialCells(xlCellTypeFormulas, 16).ClearContents
End Sub

18楼
wh_china2010		 1. 隐藏所有计算结果为错误值的公式
答：
  1. Sub 删除公式值为错误的单元格()
  2.   On Error GoTo noFound                              '错误处理过程
  3.   Cells.SpecialCells(xlCellTypeFormulas, 16).Select  '选择错误值
  4.   Selection.Delete Shift:=xlToLeft                   '删除选中单元格区域，然后右侧单元格左移
  5.   Exit Sub
  6. noFound:
  7.   MsgBox "未找到错误值", , "查找结果"                '未查找到错误值时显示
  8. End Sub
2. 只复制D、E列标题区域以外的数据到A、B列的数据之后
答：
  1. Sub 复制选定区域到指定位置()
  2.   Intersect(Range(Range("d1"), Cells(Rows.Count, 5).End(xlUp)), Range(Range("d1"), Cells(Rows.Count,5).End(xlUp)).Offset(1,0)).CopyCells(Rows.Count,1).End(xlUp).Offset(1, 0)
  3. End Sub
19楼
天天向上up		 湖南-布吉岛
第一题:
Sub text()

'Cells.SpecialCells(xlCellTypeFormulas, 16).EntireRow.Hidden = True
'1.隐藏行

'Cells.SpecialCells(xlCellTypeFormulas, 16).NumberFormatLocal = ";;;"
'2.隐藏单元格,但错误值无效

Cells.Locked = False
Cells.SpecialCells(xlCellTypeFormulas, 16).Locked = True
ActiveSheet.Protect contents:=True
'3.保护工作表

End Sub



第二题:Sub text2()
Range(Range("d2"), Cells(Rows.Count, "e").End(xlUp)).Copy _
Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
End Sub
20楼
kiss被注册		 题一解:
Sub a()
    Dim a As Range
    Set a = Cells.SpecialCells(xlCellTypeFormulas, 16)
    a.Font.ColorIndex = 2
End Sub
21楼
杭州小菜02		 作业题1：
Sub 隐藏所有计算结果为错误值的公式()
Dim rng As Range
On Error Resume Next
With ActiveSheet.UsedRange
    For Each rng In ActiveSheet.UsedRange
        Set rng = .SpecialCells(xlCellTypeFormulas, 16)
        rng.Font.Color = rng.Interior.Color
    Next
End With
End Sub
作业题2：
Range(Cells(1, 1).Offset(1, 0), Cells(Rows.Count, 2).End(xlUp).Offset(1, 0)).Clear
Range(Range("d1").Offset(1, 0), Cells(Rows.Count, 5).End(xlUp)).Copy Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
22楼
ynzsvt		 依汎，晚了噢。
17.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