彰化一整天的論壇

 找回密碼
 立即註冊
12
返回列表 發新帖
樓主: luckysan

如何一次依序產生多個指定名稱的格式工作表在活頁簿

[複製鏈接]
發表於 2020-12-31 15:38:56 | 顯示全部樓層
luckysan 發表於 2020-12-31 15:17
有的,但索引頁籤如何超連結每個對應客戶工作表?
如下圖片
超連結對應工作表
  1. Sub SheetAdd_修改過()

  2.     ' 暫停四個容易拖慢的 Excel 功能
  3.     Application.Calculation = xlCalculationManual
  4.     Application.ScreenUpdating = False
  5.     Application.DisplayStatusBar = False
  6.     Application.EnableEvents = False

  7.     Dim i As Long
  8.    
  9.     Dim n As Long
  10.    
  11.     n = Sheets(1).Range("A" & Rows.Count - 1).End(xlUp).Row - 1
  12.    
  13.    
  14.             
  15.     For i = 3 To n
  16.         
  17.         Sheets("格式").Copy After:=Sheets(Sheets.Count)
  18.         
  19.         Sheets(Sheets.Count).Name = Sheets(1).Cells(i, 1).Value
  20.         
  21.         Sheets(Sheets.Count).Range("F1").Value = Sheets(1).Cells(i, 2).Value
  22.         
  23.         Sheets(Sheets.Count).Range("U1").Value = Sheets(1).Cells(i, 1).Value
  24.         
  25.         Sheets(Sheets.Count).Range("N1").Value = Sheets(1).Cells(i, 5).Value
  26.         
  27.         LinkName = Sheets(1).Cells(i, 1).Value
  28.         
  29.         Sheets(1).Cells(i, 1).Hyperlinks.Add Anchor:=Sheets(1).Cells(i, 1), Address:="", SubAddress:= _
  30.         LinkName & "!A1", TextToDisplay:=LinkName
  31.     Next
  32.    
  33.     MsgBox "創建工作表完成!"
  34.    
  35.     ' 恢復四個容易拖慢的 Excel 功能
  36.     Application.Calculation = xlCalculationAutomatic
  37.     Application.ScreenUpdating = True
  38.     Application.DisplayStatusBar = True
  39.     Application.EnableEvents = True

  40. End Sub
複製代碼

客代號一次建立多個工作表-修1_20201231.xlsm

465.32 KB, 下載次數: 2

售價: 1 金錢  [記錄]

回復 支持 反對

使用道具 舉報

 樓主| 發表於 2020-12-31 20:13:41 | 顯示全部樓層

謝謝imingho大大, ~~~受益良多!
回復 支持 反對

使用道具 舉報

您需要登錄後才可以回帖 登錄 | 立即註冊

本版積分規則

 ㄚ母滴雞湯
 員林香純滴雞精

Archiver|手機版|小黑屋|彰化一整天的論壇(Excel,Office)

GMT+8, 2021-9-21 02:10 , Processed in 0.114458 second(s), 17 queries .

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回復 返回頂部 返回列表