返回列表 上一主題 發帖

[發問] 針對EXCEL VBA　儲存格欄位個數新增分頁

s13983037

帖子
60 
主題
26 
精華
0 
積分
93 
點名
0  
作業系統
Windows 
軟體版本
Windows 7 
閱讀權限
20 
註冊時間
2014-9-8 
最後登錄
2020-4-15 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2014-11-22 23:22 | 顯示全部帖子

[發問] 針對EXCEL VBA　儲存格欄位個數新增分頁

本帖最後由 s13983037 於 2014-11-22 23:23 編輯

大大們你們好 我想請問一下 我想針對 工作表的儲存格從A欄的資料 建立一個一個的分頁
可以去針對A欄有幾個資料就建立幾個分頁嗎 想把紅色的部分改成類似成Worksheets.Count
不然每次都會跳出 如圖附件2 感謝幫忙

----想修改----
Dim I as Integer
    For I = 1 To 100
        Sheets.Add after:=Sheets(Sheets.Count)
        Sheets(Sheets.Count).Name = Sheets(1).Range("A" & I)
    Next
----想修改----

-----相關範例-----
For i = 1 To Worksheets.Count
Cells(i, 1) = Sheets(i).Name
Next i

Q7.png (8.69 KB)

附件1

Q7.png

Q8.png (12.97 KB)

附件2

Q8.png

收藏 分享

s13983037

帖子
60 
主題
26 
精華
0 
積分
93 
點名
0  
作業系統
Windows 
軟體版本
Windows 7 
閱讀權限
20 
註冊時間
2014-9-8 
最後登錄
2020-4-15 
2#
發表於 2014-11-23 10:55 | 顯示全部帖子
回復 2# luhpro


    大大您好 我想請問一下 如果我想批次修改工作表 Sheets.Add(after:=Sheets(Sheets.Count))這個部份是否要更改成某個函數??還是或者 我可以抓到A欄的項目個數
當我去抓A欄的項目個數 會變成 數字可以抓 但如果是字串抓不了 這有其他解決方式嗎 麻煩了 感謝
Worksheets(1).Range("A:A").Select
RowCounts = Application.Count(Selection)

Dim lRow&
  lRow = 1
  Do While Cells(lRow, 1) <> ""
    With Sheets.Add(after:=Sheets(Sheets.Count))
      .Name = Sheets(1).Cells(lRow, 1)
      lRow = lRow + 1
    End With
  Loop

TOP

        靜思自在 : 小事不做、大事難成。
返回列表 上一主題