Excel VBA質問箱 IV

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

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


44211 / 76732 ←次へ | 前へ→

【37542】Re:UserFormを使いやすくするには
回答  Kein  - 06/5/11(木) 0:55 -

引用なし
パスワード
   いろいろテストしてみましたが、こんな感じがベストのように思います。
入力漏れがあったときは、そのテキストボックスへ入力した後、Enterを
数回押さないと転記されないという不満が残りますが、そこまて解消
したければ、TextBox4以外の全てのテキストボックスの Changeイベント
などで、全ボックスの値をチェックするようなマクロが必要になります。

Private Sub CommandButton1_Click()
  Dim i As Integer
  Dim Uf As UserForm

  Set Uf = UserForms(0)
  For i = 1 To 4
   If Uf.Controls("TextBox" & i).Text = "" Then
     MsgBox "TextBox" & i & " が入力されていません", 48
     Exit Sub
   End If
  Next i
  With Sheets("Sheet1").Cells(65536, 1).End(xlUp)
   For i = 1 To 4
     .Offset(1, i - 1).Value = _
     Uf.Controls("TextBox" & i).Text
     Uf.Controls("TextBox" & i).Text = ""
   Next i
  End With
  Uf.TextBox1.SetFocus: Set Uf = Nothing
End Sub

Private Sub TextBox4_AfterUpdate()
  Set Uf = UserForms(0)
  With Uf
   If .TextBox1.Text = "" And _
   .TextBox2.Text = "" And _
   .TextBox3.Text = "" And _
   .TextBox4.Text = "" Then
     Set Uf = Nothing: Exit Sub
   End If
  End With
  For i = 1 To 4
   If Uf.Controls("TextBox" & i).Text = "" Then
     MsgBox "TextBox" & i & " が入力されていません", 48
     Exit Sub
   End If
  Next i
  With Sheets("Sheet1").Cells(65536, 1).End(xlUp)
   For i = 1 To 4
     .Offset(1, i - 1).Value = _
     Uf.Controls("TextBox" & i).Text
     Uf.Controls("TextBox" & i).Text = ""
   Next i
  End With
  Uf.TextBox1.SetFocus: Set Uf = Nothing
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 お礼

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