|
▼Kein さん:
>だったら普通は
>>If rc = vbYes Then
>と
>>Else
>の間にそのコードを入れますよね・・?
Keinさんありがとうございます。
下記のようにいれてみました
1度目のコマンドボタンクリックで
いっぺんに68行目まで数式が入るのですが
1行毎に数式を入れるということは出来るのでしょうか。
参考にお聞きしたいのですが よろしくお願いします。
Private Sub CommandButton1_Click()
Dim rc As Long
rc = MsgBox("データをシートに書込します。よろしいですか?", vbYesNo)
If rc = vbYes Then
With Range("A65536").End(xlUp).Offset(1)
.Value = Me.TextBox1.Value
.Offset(, 1).Value = Me.TextBox2.Value
.Offset(, 2).Value = Me.TextBox3.Value
.Offset(, 3).Value = Me.TextBox4.Value
.Offset(, 4).Value = Me.ComboBox1.Value
.Offset(, 5).Value = Me.TextBox5.Value
.Offset(, 6).Value = Me.TextBox6.Value
.Offset(, 8).Value = Me.ListBox1.Value
Range("H3:H68").Formula = _
"=IF(ISBLANK($G3),"""",IF(ISERROR($G3/$F3),"""",$G3/$F3))"
End With
Unload Me
Else
Hide
End If
End Sub
|
|