2012-12-18 37 views
1

我沒有使用vba的經驗,並非常感謝您對彈出日曆用戶表單的實施提供的幫助。此鏈接將引導您日曆的來源,我想引進我的工作簿:vba編程需要支持彈出日曆

http://www.ozgrid.com/forum/showthread.php?t=142603

我抄類模塊,用戶窗體,模塊到我的工作簿。當我啓動宏時,這將打開一個用戶表單,我可以在日曆中選擇希望的日期。 我想念的是能夠將日曆中選定的日期發送到我的工作簿中的特定單元格。 如果有人能夠指導我如何編寫幾行代碼,將用戶表單中選定的日期發送到我的工作簿中的特定單元格,我將非常感激! 同樣,我對此很新,所以讓我知道我的解釋中是否有任何不清楚的地方。我花了很多時間在此,所以任何支持都非常感謝!這可能只需要一些時間,但對我來說意義重大!

+0

我已經添加了你一些提示用代碼來獲取'selected'值。請看看並評論:) – bonCodigo

回答

1

試試這個post。它旨在提供一個更好的指導,與datepicker control一起工作。但是它顯示了編寫插件的代碼。你將

因此,最基本的手段,

  • 從那裏

添加表單

  • 添加日期選擇器控制
  • 代碼按照該article

    但是請記住Excel/Access中的日曆控件有時可能會消失this reason mentioned in my post

    如果你打算使用date picker控制,這裏是從形式傳遞價值,任何你想要的代碼;)

    Private Sub myDtPicker_Change() 
    Dim dtDateSelected as Date 
        dtDateSelected = myDtPicker.Value 
        '-- do anything else 
    End Sub 
    
  • +0

    想通了!謝謝您的幫助! – Miles

    +0

    @ user1752810我讀了你提供的鏈接,它說:「你還需要在窗體上綁定到另一個控件,這個控件會接收用戶選擇的日期,我的名字叫做」TextBoxDate「,它被設置在這樣的用戶窗體代碼中:「這是好,作者說這是'MSCOMCT2.OCX' :)我認爲添加框架將是更難的部分。 – bonCodigo

    0

    類選擇的日期寫入一個文本框。選擇日期後,可以使用文本框的值設置單元格的值。

    Private Sub UserForm_Initialize() 
        Set clsCal = New clsCalendar   'Initialize the Class' 
        Set clsCal.Form(Me.TextBoxDate) = Me 'Tells the class to write the Selected date' 
                  ' into the textbox "Me.TextBoxDate"' 
    End Sub 
    

    因此,在該示例中,無論何時選擇日期,該類都會自動將選定日期存儲在文本框中。

    您選擇的日期後,您可以使用下面的代碼將值添加到單元格:

    Range("A1").value=TextBoxDate.Value