返回列表 上一主題 發帖

請問各位大大 在excel中如何以撰寫VBA使得自動以某特定儲存格內容命名並另存新檔

luhpro

帖子
835 
主題
6 
精華
0 
積分
915 
點名
0  
作業系統
Win 10,7 
軟體版本
2019,2013,2003 
閱讀權限
50 
性別
男 
註冊時間
2010-5-3 
最後登錄
2025-7-5 
1# 跳轉到 »
發表於 2010-9-10 00:14 | 顯示全部帖子
本帖最後由 luhpro 於 2010-9-10 00:41 編輯

如果你急著要得到相關數據的話,我提供一個較簡單的方式 :

以下敘述中儲存格 H ~ M 分別對應到 Sheets(Sheet2) 的 2 ~ 7 列所代表的城市

H2=POWER(POWER(($F2-Sheet2!$B$2),2)+POWER(($G2-Sheet2!$C$2),2),0.5)*110
I2=POWER(POWER(($F2-Sheet2!$B$3),2)+POWER(($G2-Sheet2!$C$3),2),0.5)*110
.
.
.
M2==POWER(POWER(($F2-Sheet2!$B$7),2)+POWER(($G2-Sheet2!$C$7),2),0.5)*110

Mark H2 ~ M2 後再往下複製即可得到你要的所有城市間的距離(公里數)



至於 VBA 程式的方式大致上妳已經將關鍵的部分秀出來了,
存檔的話可以用
  for iI = 1 To 6

    此處計算公里數並放進相關的儲存格內

    sFileName = Sheets("Sheet2").Cells(iI + 1 , 1) '假設以 Sheets("Sheet2").[A2]  ~ [A7] 內容為檔名

    With Sheets("Sheet1")
      Application.DisplayAlerts = False
      .Copy
      With ActiveWorkbook
         .SaveAs sFileName
         .Close
      End With
      Application.DisplayAlerts = True
    End With
  Next iI
應該不會有什麼問題才是

TOP

        靜思自在 : 每天無所事事，是人生的消費者，積極、有用才是人生的創造者。
返回列表 上一主題