標題: [發問] DateSerial 引數不為選擇性(ootional) (已解決，謝謝H大) [打印本頁]

---

作者: av8d    時間: 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

附上 附件[attach]11079[/attach]

---

作者: Hsieh    時間: 2012-5-21 14:03

回復 1# av8d

DateSerial(Y, i - 12, D)

---

作者: av8d    時間: 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產生的日期格式為年月日  可是卻顯示月日年

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

---

作者: Hsieh    時間: 2012-5-22 14:47

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

---

作者: av8d    時間: 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) 代表今年的意思嗎?

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)