|
えんさん。
こんばんは。
Userform1にTextBox2個とCommandButton1で試しました。
cost.Valueは、D列に入力され、数値として表示されています。
環境は、WinXP EXCEL2003です。
以下コードです。
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
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
cost.Value = ""
content.Value = ""
Else
MsgBox "入力して下さい"
End If
End Sub
|
|