Excel VBA質問箱 IV

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

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


44221 / 76732 ←次へ | 前へ→

【37532】UserFormを使いやすくするには
質問  Nori  - 06/5/10(水) 19:26 -

引用なし
パスワード
   ユーザフォームを使いデータをエクセルの表に転記しています。
テキストボックスを4個使用していますが、4データを入力後
エクセルの表に転記させるとき、EnterKeyを使用していますが、
3回叩かないと、転記できません。コマンドボタンですと1回で済みますが。
コードに問題があるかと思いますが、チェックいただければ
幸いなのですが、お願いします。

Private Sub CommandButton1_Click()

  If TextBox1.Value = "" Or TextBox2.Value = "" _
  Or TextBox3.Value = "" Or TextBox4.Value = "" Then
   MsgBox "入力に空きがあります"
  Else
   With Cells(65536, 1).End(xlUp).Offset(1, 0)
     .Value = TextBox1.Value
     .Offset(, 1).Value = TextBox2.Value
     .Offset(, 2).Value = TextBox3.Value
     .Offset(, 3).Value = TextBox4.Value
   End With

   TextBox1.Value = ""
   TextBox2.Value = ""
   TextBox3.Value = ""
   TextBox4.Value = ""
   TextBox1.SetFocus
  
  End If
End Sub
0 hits

【37532】UserFormを使いやすくするには Nori 06/5/10(水) 19:26 質問
【37536】Re:UserFormを使いやすくするには kobasan 06/5/10(水) 21:33 発言
【37538】Re:UserFormを使いやすくするには Nori 06/5/10(水) 22:36 質問
【37540】Re:UserFormを使いやすくするには neptune 06/5/10(水) 23:07 回答
【37541】Re:UserFormを使いやすくするには kobasan 06/5/10(水) 23:36 発言
【37542】Re:UserFormを使いやすくするには Kein 06/5/11(木) 0:55 回答
【37543】Re:UserFormを使いやすくするには Nori 06/5/11(木) 6:31 お礼
【37545】Re:UserFormを使いやすくするには Kein 06/5/11(木) 12:09 発言
【37565】Re:UserFormを使いやすくするには Nori 06/5/11(木) 23:16 お礼

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