返回列表 上一主題 發帖

[發問] (已解決)工作表名稱的方式

[發問] (已解決)工作表名稱的方式

本帖最後由 freeffly 於 2012-2-22 17:05 編輯

我想問一下如果我想讓vba代日期近去工作表名稱要如何設
如0321資料  0322資料
資料名不動可是前面的日期會依當天去改
字典兩各字 還真難理解

回復 1# freeffly
Sheet1.Name = Format(Date, "mmdd")

TOP

回復 2# GBKEE


    答案好像快出來了
     後面如果要再加其他字眼
    如"資料"或是"總表" 要用什麼方式?
字典兩各字 還真難理解

TOP

回復 2# GBKEE


    試出來了
      謝謝喔
字典兩各字 還真難理解

TOP

回復 2# GBKEE

   還有一個問題
  一般我如果增加以支的工作表名稱
   如下面
   sheets.add.name="0322資料"
    就可以直接選取
   sheets("0322資料")
   那下面這各方式要怎麼選取?

    Sheet1.Name = Format(Date, "mmdd")&"資料"
   用這種方是新增工作表不只一個
  請問有什麼方式嗎
字典兩各字 還真難理解

TOP

回復 5# freeffly
Sheet1.Name = Format(Date, "mmdd")&"資料"   是指定工作表名稱
要新增工作表如下
  1. Sub Ex()
  2.     With Sheets.Add   '新增工作表
  3.         .Name = Format(Date, "mmdd") & "資料"
  4.     End With
  5. End Sub
複製代碼

TOP

回復 6# GBKEE


    我的意思是對該新增的工作表作業
    大大的意思是要將作業的程式碼弄到with裡面嗎
字典兩各字 還真難理解

TOP

回復 7# freeffly
sheets.add.name="0322資料"   語法錯誤
用 WITH  是便於處裡  WITH 物件的屬性, 方法.
Sub Ex()
    With Sheets.Add
        .Name = "0322資料"
        .Range("A1:C1") = Array(1, 2, 3)
        .Range("A1:C1").Select
     End With
End Sub
同上
Sub Ex()
    Sheets.Add
    ActiveSheet.Name = "0322資料"
    ActiveSheet.Range("A1:C1") = Array(1, 2, 3)
    ActiveSheet.Range("A1:C1").Select
End Sub

TOP

回復 8# GBKEE


    了解
   謝謝
字典兩各字 還真難理解

TOP

sheets.add.name="0322資料"

這程式碼是最短的「新增工作表並命名」,唯須先檢查「0322資料」工作表是否存在

語法有無錯誤,我不知道,但一直以來都這樣用...
diabo

TOP

        靜思自在 : 能善用時間的人,必能掌握自己努力的方向。
返回列表 上一主題