返回列表 上一主題 發帖

如何拆解個人薪資

ML089

帖子
2025 
主題
13 
精華
0 
積分
2053 
點名
0  
作業系統
WIN7 
軟體版本
Office2007 
閱讀權限
100 
性別
男 
來自
台北市 
註冊時間
2011-3-2 
最後登錄
2024-3-14 

論壇榮譽勳章論壇贊助勳章熱烈參與勳章2014馬年全勤獎章2015羊年全勤獎章2016猴年全勤獎章
1# 跳轉到 »
發表於 2017-6-18 18:09 | 顯示全部帖子
回復 3# jsc0518

我是WIN7-64 及 OFFICE2007-32，原來執行也是有問題，後來更新電腦系統後就可以正常執行了。

更新檔案為 Microsoft .NET Framework 4.7
{...} 表示需要用 CTRL+SHIFT+ENTER 三鍵輸入公式

TOP

ML089

帖子
2025 
主題
13 
精華
0 
積分
2053 
點名
0  
作業系統
WIN7 
軟體版本
Office2007 
閱讀權限
100 
性別
男 
來自
台北市 
註冊時間
2011-3-2 
最後登錄
2024-3-14 

論壇榮譽勳章論壇贊助勳章熱烈參與勳章2014馬年全勤獎章2015羊年全勤獎章2016猴年全勤獎章
2#
發表於 2017-6-18 18:35 | 顯示全部帖子
回復 1# jsc0518
  1. Sub 每人資料另存新檔()
  2.     Dim x表頭區 As Range, x資料區 As Range
  3.     Dim xWB As Workbook, xWS As Worksheet

  5.     Set xWS = ThisWorkbook.Sheets("Sheet1")
  6.     Set x表頭區 = xWS.Range("A3:AI4")
  7.     Set x資料區 = xWS.Range("A5:AI8")

  9.     Application.DisplayAlerts = False '停止系統的警示 - 是否覆蓋舊檔
  10.     Do While x資料區(1, 1) <> ""
  11.         With Workbooks.Add
  12.             x表頭區.Copy .Sheets(1).Range("A3")
  13.             x資料區.Copy .Sheets(1).Range("A5")
  14.             .SaveAs "D:\" & x資料區(1, 2) & ".xlsx"
  15.             .Close
  16.         End With
  17.         Set x資料區 = x資料區.Offset(4)
  18.     Loop
  19.     Application.DisplayAlerts = True '恢復系統的警示

  21. End Sub
複製代碼
{...} 表示需要用 CTRL+SHIFT+ENTER 三鍵輸入公式

TOP

        靜思自在 : 難行能行，難捨能捨，難為能為，才能昇華自我的人格。
返回列表 上一主題