0

うーん、これを行うための最良の方法が見つかりません。さらに、このコードはとにかく機能しません。「1月」（および12か月すべて）のテキストを2つの変数で返すようにします。

If month = "January" Then
        days = "31" And monthnum = "1"
End If

提案？

最終的に機能した構文：

If month = "January" Then
        days = 31
        mon = 1
    ElseIf month = "February" Then
        days = 29
         mon = 2
'elseif for the rest of the months
End If
4

3 に答える 3

3

このVBA構文を試してください

Dim days As Integer
Dim monthnum As Integer

'if then elseif end

If Month = "January" Then
        days = 31
        monthnum = 1
ElseIf Month = "February" Then
        days = 28
        monthnum = 2
ElseIf Month = "March" Then
        days = 31
        monthnum = 1
 ' repeat for all other months
End If
于 2013-01-04T16:52:26.970 に答える
3

英語のロケールを想定すると、

sMonth = "april"

monthnum = month("1 " & sMonth)
days = day(dateserial(2001,iif(monthnum=12, 1, monthnum+1),0))
于 2013-01-04T17:13:25.407 に答える
0

Caseステートメントを使用することもできます

Sub MonthValue()

For b 1 To 20

Select Case Range("A" & a).Value
Case January, March, May, June, August, October, December
ActiveCell.Offset(0,1).Value = 31
Case Feburary
ActiveCell.Offset(0,1).Value = 28
Case April, June, September, November
ActiveCell.Offset(0,1).Value = 30
Case Else ActiveCell.Offset(0,1).Value = 0
End Select

Next b
End Sub
于 2013-01-05T21:35:00.190 に答える