Excel VBA質問箱 IV

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

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


37479 / 76732 ←次へ | 前へ→

【44418】数式を書込したいのですが
質問  ichiro  - 06/11/15(水) 20:39 -

引用なし
パスワード
   ユーザーフォームで下記のコードを作成してあります。H列に数式を
挿入したいのですが教えてください。
H3に=IF(ISBLANK(G3),"",IF(ISERROR(G3/F3),"",G3/F3))
H4に=IF(ISBLANK(G4),"",IF(ISERROR(G4/F4),"",G4/F4))
        :
        :
H68に=IF(ISBLANK(G68),"",IF(ISERROR(G68/F68),"",G68/F68))
コマンドボタンをクリックで書き込みできますか
よろしくお願いします。

現在のコードです。
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.ListBox2.Value
    .Offset(, 5).Value = Me.TextBox5.Value
    .Offset(, 6).Value = Me.TextBox6.Value
    .Offset(, 8).Value = Me.ListBox1.Value
  End With
 Unload Me
 Else
 Hide
End If
End Sub

Private Sub UserForm_Initialize()
Call UserForm_Initialize2
Dim ER As Long
Dim d As Date
d = Date
ER = Range("A65536").End(xlUp).Row
If ER < 3 Then
 TextBox1.Value = "001"
Else
 TextBox1.Value = Format(Range("A" & ER).Value + 1, "000")
End If
 TextBox2.Value = Format(d, "ggg") & _
         Format(Format(d, "e"), "@@") & "年" & _
         Format(Month(d), "@@") & "月" & _
         Format(Day(d), "@@") & "日"
  ListBox1.RowSource = "Sheet1!L2:L12"
  ListBox2.RowSource = "Sheet1!M2:M3"
  TextBox5.Tag = 0
  TextBox5.Text = 0
  TextBox6.Tag = 0
  TextBox6.Text = 0
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 お礼

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