[發問] 工作表選取 VBA語法

各位先進好,

我在許多範例中看到的,都是從第N個工作表開始起算至最後一個,不知是否有以下的方式可用的語法?
2種選取的類型的語法,要如何寫法?
1. 從Sheets("2")的工作表名稱(不是從第2個工作表開始數),一直到最後一個工作表選取起來
2. 從Sheets("2")開始至Sheet("總表")結束,之間的起迄範圍工作表選取起來
然後將Range(B2:C3)值化(讓公式變成值)

樓主熱帖

PJChen

　暱稱: PJ

大學生 Rank: 4

帖子: 913
主題: 150
精華: 0
積分: 1089
點名: 0
作業系統: win10
軟體版本: office 2019
閱讀權限: 50
性別: 女
註冊時間: 2011-8-28
最後登錄: 2023-7-19

論壇榮譽勳章論壇贊助勳章

2^#

發表於 2019-5-26 21:38 | 顯示全部帖子

回復 2# GBKEE

G大好,
目前我先測試第一個程式,從工作表2一直到最後一個工作表的選取,並且加上一些我需要的功能:
1. 工作表以數字命名的為1~31,但其中也有用文字命名的,我需要讓程式自動判讀數字命名的工作表,當月份沒有31日(or 例如2月沒有29~31時),可以先將多餘的工作表刪除(但要略過文字命名的工作表)
2. 再將指定的範圍值化
但執行時出現"執行階段錯誤13,型態不符合",請問我需要修改什麼地方?

Sub 選取工作表() '**1. 從Sheets("2")的工作表名稱(不是從第2個工作表開始數),一直到最後一個工作表選取起來
Dim W As Workbook, xSh As Worksheet, Sh As Worksheet, Ar, M As String
Set W = Workbooks("Bifido_八堵 _6月.xlsx")
Set xSh = W.Sheets("31")
xSh.Delete
For Each Sh In Sheets
If Sh.Name = "2" Then
M = Sh.Name
ElseIf M <> "" Then
M = M & "," & Sh.Name
End If
'**Range(B2:C3)值化(讓公式變成值)
If M <> "" Then Sh.Range("B2") = Sh.Range("B2").Value
Next
Ar = Split(M, ",")
Sheets(Ar).Select
End Sub

複製代碼

TOP

PJChen

　暱稱: PJ

大學生 Rank: 4

帖子: 913
主題: 150
精華: 0
積分: 1089
點名: 0
作業系統: win10
軟體版本: office 2019
閱讀權限: 50
性別: 女
註冊時間: 2011-8-28
最後登錄: 2023-7-19

論壇榮譽勳章論壇贊助勳章

3^#

發表於 2019-5-27 18:27 | 顯示全部帖子

[版主管理留言]

GBKEE(2019/5/28 05:39): 這附檔中沒有程式碼

回復 4# GBKEE

G大好,

程式測試結果:
1.可以將B2值化,但無法將多餘工作表刪除
2. 另外,每月會提前做下個月的工作表(例如:現在就要預做6月份),所以我修改以下,並同時測試,Month(6) + 1無論有無加1,都同樣結果,無法將多餘工作表刪除
請再幫忙看下程式,感謝....
xday(2) = Day(DateSerial(Year(Date), Month(6) + 1, 0)) '**指定月,月底日

萊爾富_五股.rar (170.2 KB)

TOP

PJChen

　暱稱: PJ

大學生 Rank: 4

帖子: 913
主題: 150
精華: 0
積分: 1089
點名: 0
作業系統: win10
軟體版本: office 2019
閱讀權限: 50
性別: 女
註冊時間: 2011-8-28
最後登錄: 2023-7-19

論壇榮譽勳章論壇贊助勳章

4^#

發表於 2019-5-28 15:45 | 顯示全部帖子

回復 5# PJChen

G大好,
我將路徑的資料夾+程式檔已附上

測試用.rar (207.44 KB)

TOP