|
えんさん。
>Private Sub CommandButton1_Click()
> Dim varRag As Variant
> Dim i As Integer
>
> varRag = Array(Range("J4").Value, Range("L4").Value, _
> cost.Value, Range("P6").Value, content.Value)
> If cost.Value <> Empty Then
MsgBox VarType(cost.Value)
' ↑
’調べてみると、ここでは文字列型です。
’TextBoxだから当たり前か
> If Range("A5").Value = Empty Then
> With Range("B5")
> For i = 0 To 4
> .Offset(0, i) = varRag(i)
> Next i
> End With
> Else
> With Range("B65536").End(xlUp).Offset(1, 0)
> For i = 0 To 4
> .Offset(0, i) = varRag(i)
> Next i
> End With
> End If
MsgBox VarType(Range("D5").Value)
’↑
’ここで調べると数値として
’認識しています。エクセルが賢く変換しています。
> cost.Value = ""
> content.Value = ""
> Else
> MsgBox "入力して下さい"
> End If
>End Sub
|
|