zoukankan      html  css  js  c++  java
  • 操作工作表——Excel之VBA(3)

    Sheet 工作表语句

    示例:

    1): Sheet1

    2): Sheets("1月")

    3): Sheets(1)   注:此处代指第一张表

    Select  语句

    示例:

    Sheets(1).select   注:选中第一张表

    Add、Count 语句

    示例:

    Sheets.Add after := Sheet3, Count:= 3  注:在Sheet3这个表后面插,插3个表  

    Sheets.Add after:=Sheets(Sheets.Count)  注:在最后一张表后面插

    Range 范围语句

    range("a1")

    range("a" & i)  注:选中Ai单元格

    range("a1") = 100  注:当前表的A1格赋值100

    sheet3.range("a1") = 100  注:sheet3表的A1格赋值100

    Name 语句

    Sheet1.Name = "8月"  注:改sheet1表的表名为8月 

    Delete 语句

    Sub shishi()
      Application.DisplayAlerts = False  注:Excel不显示错误警告
      Sheets(12).delete  注:删除表格时 ,Excel会提示是否确认删除,若要批量删除表格可关闭错误警告
      Application.DisplayAlerts = True  注:Excel显示错误警告
    End Sub

    Copy 语句

    Sheet1.copy  注:复制表格到新文件

    Sheet1.copy after :=Sheet3  注:复制到sheet3的后面

    Sheet1.copy after :=Sheets(Sheets.Count)  注:复制到表最后

    续:

  • 相关阅读:
    树的直径
    POJ3264 Balanced Lineup
    [mock]10月11日
    POJ1062 昂贵的聘礼
    POJ3295 Tautology
    [topcoder]TopographicalImage
    POJ1753 Flip Game
    [leetcode]Copy List with Random Pointer
    [leetcode]Candy
    [leetcode]Gas Station
  • 原文地址:https://www.cnblogs.com/zeon/p/13984898.html
Copyright © 2011-2022 走看看