中文變了英文, 何解,

hong912

請教大大們, 一個顥示問題, 附檔上傳, 內有說明,
先行謝過各前輩, 感恩,
AB.rar (49.58 KB)

下載次數: 11

2015-11-23 12:25

GBKEE

回復 1# hong912
試試看

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim y%, m%, n%, d%, AR()
   
4.     AR = Array(0, "一", "二", "三", "四", "五", "六", "日")
   
5.     y = InputBox("輸入年分", , Year(Date))
   
6.     For m = 1 To 12
   
7.         With Sheets(m & "月")
   
8.             .[g2:ak3] = ""
   
9.             n = Day(DateSerial(y, m + 1, 1) - 1)
   
10.             ReDim arr(1 To 2, 1 To n)
    
11.             For d = 1 To n
    
12.                 arr(1, d) = d
    
13.                 arr(2, d) = AR(Weekday(DateSerial(y, m, d), vbMonday))
    
14.             Next
    
15.             .[g2].Resize(2, n) = arr
    
16.         End With
    
17.     Next
    
18. End Sub

複製代碼

stillfish00

回復 1# hong912
改用 [$-404]aaa  看能不能解決。

hong912

回復 2# GBKEE
謝謝版大回應,
已試過問題已解決, 感謝, 祝快樂.

hong912

回復 3# stillfish00
謝謝樓主回應, 樓主提示改用 [$-404]aaa試試, 可否明確說明, 因功力很淺,
謝謝!!

stillfish00

回復 5# hong912
[$-404] 為地區代碼，表示中文(台灣)

因為日期格式 aaa 依不同地區顯示不一樣
例如你在儲存格打 =TEXT(NOW(),"[$-409]aaa")
會出現"Tue" ([$-409]表示美國)，而不是你要的 "週二"

准提部林

arr(2, d) = Mid("六日一二三四五", DateSerial(y, m, d) Mod 7 + 1, 1)

hong912

回復 6# stillfish00
受教了, 感謝指導, 謝謝!!

hong912

回復 7# 准提部林
衷心感謝回應, 謝謝謝!