Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


37472 / 76732 ←次へ | 前へ→

【44425】Re:数式を書込したいのですが
発言  ichiro  - 06/11/16(木) 0:00 -

引用なし
パスワード
   ▼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

0 hits

【44418】数式を書込したいのですが ichiro 06/11/15(水) 20:39 質問
【44422】Re:数式を書込したいのですが Kein 06/11/15(水) 23:11 回答
【44423】Re:数式を書込したいのですが ichiro 06/11/15(水) 23:44 発言
【44424】Re:数式を書込したいのですが Kein 06/11/15(水) 23:48 発言
【44425】Re:数式を書込したいのですが ichiro 06/11/16(木) 0:00 発言
【44428】Re:数式を書込したいのですが Kein 06/11/16(木) 0:54 回答
【44429】Re:数式を書込したいのですが ichiro 06/11/16(木) 1:13 発言
【44430】Re:数式を書込したいのですが ichiro 06/11/16(木) 1:25 発言
【44431】Re:数式を書込したいのですが Kein 06/11/16(木) 1:44 発言
【44432】Re:数式を書込したいのですが ichiro 06/11/16(木) 1:56 お礼

37472 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free