返回列表 上一主題 發帖

[發問] 自動複製指定名稱的檔案資料

luhpro

帖子
824 
主題
6 
精華
0 
積分
904 
點名
0  
作業系統
Win 10,7 
軟體版本
2019,2013,2003 
閱讀權限
50 
性別
男 
註冊時間
2010-5-3 
最後登錄
2023-12-24 
1# 跳轉到 »
發表於 2020-7-26 23:07 | 顯示全部帖子
本帖最後由 luhpro 於 2020-7-26 23:10 編輯
測試檔︰
備註︰
1_Arr = Array("七政","八卦","五行","六沖","合數","生肖","均值","尾數")
2_效果檔只 ...
.
需求流程︰
1_在程式檔Module1的列16插入
[AZ2:AAZ231]更改日期格式為"yyyy-mm-dd"(EX: 2020-07-17)的程式碼。
.
papaya 發表於 2020-7-25 09:11


其實需求1滿簡單的,
你只需要利用錄製巨集功能就可以得出下式:
Range("J7:L11").Select  ' 範圍是隨意舉例的
Selection.NumberFormatLocal = "yyyy/m/d;@"
再把它依據你的需求改成:
Range("AZ2:AAZ231").NumberFormatLocal = "yyyy-mm-dd"
應該就可以了.

至於 第2 與 第3: (我假設你日期格式一樣是要用 yyyy-mm-dd)
  1.   Dim dDate As Date
  2.   Dim arr
  3.   Dim shName
  4.   
  5.   arr = Array("七政", "八卦", "五行", "六沖", "合數", "生肖", "均值", "尾數")
  6.   dDate = InputBox("請輸入日期(EX:2020-07-17) ", "輸入日期")
  7.   For Each shName In arr
  8.     With Sheets(shName).[A1]
  9.       .NumberFormatLocal = "yyyy-mm-dd"
  10.       .Value = dDate
  11.     End With
  12.   Next
複製代碼
---時間太晚了,其它來不及想了---

TOP

        靜思自在 : 要批評別人時，先想想自己是否完美無缺。
返回列表 上一主題