Excel VBA質問箱 IV

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

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


41970 / 76732 ←次へ | 前へ→

【39836】検索該当なしの場合の登録について
質問  勉強中です E-MAIL  - 06/7/2(日) 19:21 -

引用なし
パスワード
   みなさん こんばんわ 
いつもお世話になっております
今回は、
    A    B     C   D  ・・・・ L

1  1列目はタイトル

2 123   空白   空白   文字  E〜Kは数字です
                     Lは文字

というデーターからユーザーフォームを使用してA列で検索をして
該当があればテキストボックスに値が反映されますそれを変更して
コマンドボタンで登録をしています。
該当がなかった場合にデーターの最終行の次の行にフォームの内容が
貼付けられる様にするにはどうしたらいいのでしょうか
ヒントでもいただけるとうれしいです 
効率の悪いコードですが載せておきます

Private Sub CommandButton1_Click()
'テキストボックスの値を各セルに貼付け
For i = 1 To Range("A65536").End(xlUp).Row
    If Cells(i, 1) = TextBox1 Then
      Cells(i, 2) = TextBox5.Value
      Cells(i, 3) = TextBox3.Value
      Cells(i, 4) = TextBox4.Value
      Cells(i, 5) = TextBox2.Value
      Cells(i, 6) = TextBox6.Value
      Cells(i, 7) = TextBox7.Value
      Cells(i, 8) = TextBox8.Value
      Cells(i, 9) = TextBox9.Value
      Cells(i, 10) = TextBox10.Value
      Cells(i, 11) = TextBox11.Value
      End If
    
    Next i
       Dim s As Long
      Const r As Long = 12
      
  For s = 1 To r
    Controls("TextBox" & s).Text = ""
  Next s
 

  TextBox1.SetFocus


End Sub

Private Sub TextBox1_Change()
  
  
 Dim a As String
 Dim r As String
 Dim i As Integer
  
  a = TextBox1.Text

  For i = 1 To Range("A65536").End(xlUp).Row
     r = Range("A" & i).Value
    If a = r Then
      TextBox2.Value = Range("A" & i).Offset(0, 4).Value
      TextBox3.Value = StrConv(TextBox2.Value, vbKatakana + vbNarrow)
      TextBox4.Value = StrConv(TextBox2.Value, vbKatakana + vbNarrow)
      TextBox5.Value = Range("A" & i).Offset(0, 1).Value
      TextBox6.Value = Range("A" & i).Offset(0, 5).Value
      TextBox7.Value = Range("A" & i).Offset(0, 6).Value
      TextBox8.Value = Range("A" & i).Offset(0, 7).Value
      TextBox9.Value = Range("A" & i).Offset(0, 8).Value
      TextBox10.Value = Range("A" & i).Offset(0, 9).Value
      TextBox11.Value = Range("A" & i).Offset(0, 10).Value
      TextBox12.Value = Range("A" & i).Offset(0, 11).Value
    End If
  Next i
  
TextBox1.SetFocus
  
End Sub
    
0 hits

【39836】検索該当なしの場合の登録について 勉強中です 06/7/2(日) 19:21 質問
【39837】Re:検索該当なしの場合の登録について Hirofumi 06/7/2(日) 19:59 回答
【39838】Re:検索該当なしの場合の登録について Hirofumi 06/7/2(日) 20:32 回答
【39839】Re:検索該当なしの場合の登録について 勉強中です 06/7/2(日) 20:50 お礼
【39840】Re:検索該当なしの場合の登録について Hirofumi 06/7/2(日) 21:06 回答
【39841】Re:検索該当なしの場合の登録について 勉強中です 06/7/2(日) 21:12 お礼
【39843】Re:検索該当なしの場合の登録について Hirofumi 06/7/2(日) 21:33 回答
【39844】Re:検索該当なしの場合の登録について 勉強中です 06/7/2(日) 21:42 お礼
【39861】Re:検索該当なしの場合の登録について 勉強中です 06/7/3(月) 13:10 お礼

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