以中華民國方式輸入日期

帖子: 463
主題: 116
精華: 0
積分: 580
點名: 0
作業系統: Vista
軟體版本: 2007
閱讀權限: 50
性別: 男
註冊時間: 2010-5-4
最後登錄: 2017-11-13

論壇贊助勳章論壇榮譽勳章

10^#

發表於 2012-3-7 21:38 | 只看該作者

回復 9# register313
前輩! 謝謝!!
      原來!原程式是多囉!這兩行
               [B3] = Format(ZZ, "[$-404]e/m/d")
               [B3] = ZZ
      而前輩! 的這行有誤
      Range("B3:B" & [A152].End(3)).DataSeries Rowcol:=xlColumns, Type:=xlChronological, Date:=xlDay, Step:=1
      應該是這樣
      Range("B3:B" & [a152].End(3).Row).DataSeries Rowcol:=xlColumns, Type:=xlChronological, Date:=xlYear, Step:=1
      謝謝再三!!

register313

　頭銜: 麻辣路人甲

大學生 Rank: 4

帖子: 967
主題: 0
精華: 0
積分: 1001
點名: 0
作業系統: WIN XP
軟體版本: OFFICE 2003
閱讀權限: 50
性別: 男
來自: 台北
註冊時間: 2010-11-29
最後登錄: 2022-5-17

2012龍年全勤獎章熱烈參與勳章

9^#

發表於 2012-3-7 12:30 | 只看該作者

回復 8# myleoyes

Sub 日期()
ZZ = InputBox("輸入日期", "請輸入日期", "101/12/30")
If ZZ = 0 Or ZZ = "" Then End
a = Split(ZZ, "/")
a(0) = a(0) + 1911
[B3] = Join(a, "/")
[B3].NumberFormat = "e/m/d"
Range("B3:B" & [A152].End(3)).DataSeries Rowcol:=xlColumns, Type:=xlChronological, Date:=xlDay, Step:=1
[B:B].EntireColumn.AutoFit
End Sub

複製代碼

帖子: 463
主題: 116
精華: 0
積分: 580
點名: 0
作業系統: Vista
軟體版本: 2007
閱讀權限: 50
性別: 男
註冊時間: 2010-5-4
最後登錄: 2017-11-13

論壇贊助勳章論壇榮譽勳章

8^#

發表於 2012-3-7 11:43 | 只看該作者

各位前輩你們好!
      前輩!!這樣的日期形態程式無法下拉
  Sub 日期()
   ZZ = InputBox("輸入日期", "請輸入日期", "101/12/30")
   If ZZ = 0 Or ZZ = "" Then End
   A = Split(ZZ, "/")
   A(0) = A(0) + 1911
   [B3] = Join(a, "/")
   [B3].NumberFormat = "e/m/d"
   [B3] = Format(ZZ, "[$-404]e/m/d")
   [B3] = ZZ
   Range("B3:B" & [a152].End(3).Row).DataSeries Rowcol:=xlColumns, Type:=xlChronological, Date:=xlYear, Step:=1
   [B:B].EntireColumn.AutoFit
End Sub
   程式寫出的[B3] =101/12/30
   而B4=102/12/30 公式B4=EDATE(B3,12)這樣是錯誤值
   請問這兩個問題程式與公式要如何做好?
   請知道的前輩,不吝賜教謝謝再三!!

帖子: 463
主題: 116
精華: 0
積分: 580
點名: 0
作業系統: Vista
軟體版本: 2007
閱讀權限: 50
性別: 男
註冊時間: 2010-5-4
最後登錄: 2017-11-13

論壇贊助勳章論壇榮譽勳章

7^#

發表於 2012-1-17 21:26 | 只看該作者

回復 6# Hsieh
偶像前輩!辛苦你囉!謝謝再三!!

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 142
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2026-7-16

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

6^#

發表於 2012-1-16 23:22 | 只看該作者

回復 5# myleoyes
原因不明，改用以下方式試試看
ZZ = InputBox("輸入日期", "請輸入你的出生年月日", "82/1/12")
a = Split(ZZ, "/")
a(0) = a(0) + 1911
[A7] = Join(a, "/")
[A7].NumberFormat = "e/m/d"

學海無涯_不恥下問

帖子: 463
主題: 116
精華: 0
積分: 580
點名: 0
作業系統: Vista
軟體版本: 2007
閱讀權限: 50
性別: 男
註冊時間: 2010-5-4
最後登錄: 2017-11-13

論壇贊助勳章論壇榮譽勳章

5^#

發表於 2012-1-13 11:58 | 只看該作者

回復 4# Hsieh
偶像前輩!謝謝!!程式沒問題
   問題是為何它不能在Win7的作業系統執行呢?
   也就是說小弟用Win7的作業系統配2007的Excel
   執行程式時會出現型態不符合
   但在Win-XP的作業系統配2007的Excel
   執行程式是OK!!的
   在Vista的作業系統配2007的Excel
   執行程式也是沒問題?
   公司的電腦與同事的電腦,筆電也是同樣結果
   不知為何?請前輩再辛苦,謝謝再三!!
   請有看到此篇文章的前輩!可否也測試一下
   是否也有相同的問題呢?謝謝大家

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 142
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2026-7-16

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

4^#

發表於 2012-1-12 21:54 | 只看該作者

回復 3# myleoyes
請確認INPUTBOX輸入中華民國日期，並且ZZ應宣告為String

學海無涯_不恥下問

帖子: 463
主題: 116
精華: 0
積分: 580
點名: 0
作業系統: Vista
軟體版本: 2007
閱讀權限: 50
性別: 男
註冊時間: 2010-5-4
最後登錄: 2017-11-13

論壇贊助勳章論壇榮譽勳章

3^#

發表於 2012-1-12 21:35 | 只看該作者

回復 2# Hsieh
偶像前輩!謝謝!!為何出現執行階段錯誤'13':型態不符合呢?
請再麻煩一下謝謝再三!!

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 142
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2026-7-16

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

2^#

發表於 2012-1-12 13:01 | 只看該作者

回復 1# myleoyes

ZZ = InputBox("輸入日期", "請輸入你的出生年月日", "82/1/12")
[A7] = CDate("R" & ZZ): [A7].NumberFormat = "[$-404]e/m/d;@"

學海無涯_不恥下問