帖子: 703
主題: 276
精華: 0
積分: 1005
點名: 1
作業系統: Windows 10
軟體版本: Office 2019
閱讀權限: 50
性別: 男
註冊時間: 2011-6-30
最後登錄: 2024-5-29

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2012-5-21 13:10 | 只看該作者

[發問] DateSerial 引數不為選擇性(ootional) (已解決，謝謝H大)

本帖最後由 av8d 於 2012-5-21 14:21 編輯

Private Sub CommandButton1_Click()
'資料建檔
Y = (Year(TextBoxM))
M = (Month(TextBoxM))
D = (Day(TextBoxM))
N1 = TextBoxN1
N2 = TextBoxN2
N3 = Round(N1 / N2)

For i = (M + 1) To (M + N2)
      If i > 12 Then
      Sheets("Data").Cells(Rows.Count, "A").End(3)(2, 1).Resize(1, 5) = Array(DateSerial(Y & "/" & (i - 12) & "/" & D), "分期付款", N3, TextBox1, TextBox2)
      Else
      Sheets("Data").Cells(Rows.Count, "A").End(3)(2, 1).Resize(1, 5) = Array(DateSerial(Y & "/" & i & "/" & D), "分期付款", N3, TextBox1, TextBox2)
      End If
Next
Unload Me
End Sub

使用的軟體是 EXCEL2010

附上附件

儲蓄管理系統.rar (25.49 KB)

樓主熱帖

Hsieh

超級版主 Rank: 8 Rank: 8

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

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

2^#

發表於 2012-5-21 14:03 | 只看該作者

回復 1# av8d

DateSerial(Y, i - 12, D)

學海無涯_不恥下問

TOP

av8d

大學生 Rank: 4

帖子: 703
主題: 276
精華: 0
積分: 1005
點名: 1
作業系統: Windows 10
軟體版本: Office 2019
閱讀權限: 50
性別: 男
註冊時間: 2011-6-30
最後登錄: 2024-5-29

3^#

發表於 2012-5-22 11:48 | 只看該作者

本帖最後由 av8d 於 2012-5-22 13:16 編輯

回復 2# Hsieh

謝謝大大~有一個進階問題想問您~

如果該儲存格格式為文字
但是輸出就會變成顛倒
原本是  2012/5/22 會變成 5/22/2012

由於儲存格格式為文字無法像日期格式一樣做調整  不知是否有解決方案呢?

我在想應該是Array(DateSerial(Y, i, D), "分期付款", N3, TextBox4, TextBox5)

DateSerial產生的日期格式為年月日  可是卻顯示月日年

轉換成文字是方便做日期搜尋~經常搜尋不到~

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

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

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

4^#

發表於 2012-5-22 14:47 | 只看該作者

回復 3# av8d
DateSerial產生的日期格式為年月日可是卻顯示月日年
這是與系統設定有關，請於控制台/地區與語言中設定成你要的格式

學海無涯_不恥下問

TOP

av8d

大學生 Rank: 4

帖子: 703
主題: 276
精華: 0
積分: 1005
點名: 1
作業系統: Windows 10
軟體版本: Office 2019
閱讀權限: 50
性別: 男
註冊時間: 2011-6-30
最後登錄: 2024-5-29

5^#

發表於 2012-5-23 09:04 | 只看該作者

本帖最後由 av8d 於 2012-5-23 09:56 編輯

回復 4# Hsieh

大大~謝謝~又多學了一樣~

關於日期的搜尋~出了些問題

以下是單一搜尋
ActiveSheet.UsedRange.AutoFilter 1, "=" & "*" & TextBox1.Value & "*"

如果要範圍搜尋日期~該怎麼做呢? 持續尋找中

順帶提問一個問題
m1 = DateSerial(Year(Date), i, 1)

Year(Date) 代表今年的意思嗎?

TOP