日付形式のコンボボックス

Question

私のユーザーフォームには、ユーザーが年、月、日付（従属していない）を選択するための3つの独立したコンボボックスがあります。たとえば、ユーザが2017（年）、5月（月）、23（日）を選択した場合、私のデータベースシートの2列目にvbaを入力します： "2017/05/23"私はそれを値としてこの形式で正確に求めています。

以下のコードは機能しません。どんな助けもありがとう。

With ws 
.Cells(lRow, 2).Value = Me.cboYear/Me.cboMonth/Me.cboDay.Value 
End With 

Answer 1

あなたは年を月で分割し、それを1日で割っています。それはあなたの細胞が得ている価値です。

実際にの日付を作成してください。

.Cells(lRow, 2).Value = DateSerial(cboYear, cboMonth, cboDay) 

そしてNumberFormatを使用して、あなたが望む任意の方法を日付フォーマット：

.Cells(lRow, 2).NumberFormat = "yyyy/MM/dd" 

---

DateSerialは、整数値を期待しています。あなたのcboMonthが文字列（月の名前）が含まれている場合、あなたはそれのために少し難しい作業する必要がある - 最も簡単なだけでキー付きのコレクションを使用することがおそらくある - .Addコレクションに整数をする際に、文字列のキーを指定します。

Static months As Collection 
If months Is Nothing Then 
    Set months = New Collection 
    With months 
     .Add 1, "January" 
     .Add 2, "February" 
     .Add 3, "March" 
     '... 
     .Add 12, "December" 
    End With   
End If 

を

そして、あなたは簡単な検索を持っている：

Dim monthId As Integer 
monthId = months(cboMonth) 

だからあなたDateSerialは次のようになります。

.Cells(lRow, 2).Value = DateSerial(cboYear, monthId, cboDay)