Excel VBA質問箱 IV

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

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


9488 / 76732 ←次へ | 前へ→

【72806】Re:エクセルのマクロ「ユーザーフォーム」について教えてください。
発言  kanabun  - 12/9/20(木) 12:05 -

引用なし
パスワード
   ▼みなみ さん:

>順番に下の行に書き込みされるようにするには どのようなコードを追加すればいいのでしょうか?

一例です

Private Sub demoEntry_Click()
  Dim r As Range
  Set r = Cells(Rows.Count, 1).End(xlUp).Offset(1)
  If r.Row < 6 Then Set r = Range("A6")
  
  r.Range("A1").Value = TextBox1.Value
  r.Range("B1").Value = ComboBox1.Value
  r.Range("C1").Value = ComboBox2.Value
  r.Range("D1").Value = TextBox2.Value
  r.Range("E1").Value = TextBox3.Value
  r.Range("F1").Value = TextBox4.Value
  r.Range("G1").Value = TextBox5.Value
  r.Range("H1").Value = TextBox6.Value
  r.Range("I1").Value = TextBox7.Value
  
  Unload Me

End Sub

2 hits

【72804】エクセルのマクロ「ユーザーフォーム」について教えてください。 みなみ 12/9/20(木) 11:52 質問
【72805】Re:エクセルのマクロ「ユーザーフォーム」... UO3 12/9/20(木) 12:03 発言
【72806】Re:エクセルのマクロ「ユーザーフォーム」... kanabun 12/9/20(木) 12:05 発言

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