Excel VBA質問箱 IV

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

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


61665 / 76732 ←次へ | 前へ→

【19681】ユーザーフォームで修正し登録
質問  グライダーマン  - 04/11/14(日) 16:31 -

引用なし
パスワード
   まだまだ初心者のグライダーマンです。
誰か教えてください。
ユーザーフォーム上のテキストボックスを利用して
データベースに登録するマクロを作成しましたが、その中のデータベース一件を選び
(SIMEIのテキストボックスに名前を入力して)ユーザーフォームのテキストボックスそれぞれに
表示させ , 変更箇所を修正して再び同じ行に上書きしたいと思います。新規にコマンドボタンを
作った場合と、既存の登録ボタンを利用した場合の2通り教えてもらえませんか?
Private Sub touroku_Click()
  
  Dim n As Integer
    n = Range("a65536").End(xlUp).Row
  If n = 2 Then
    n = 3
    Else
      n = n + 1
  End If
  With Me
    Range("a" & n).Value = .textno.Value
    Range("b" & n).Value = .Textnyuukai.Value
    Range("c" & n).Value = .Textsimei.Value
    Columns(3).AutoFit
    If optmale.Value = True Then
      Range("d" & n).Value = .optmale.Caption
    Else
      Range("d" & n).Value = .optfemale.Caption
    End If
    Range("e" & n).Value = .Textyuubin.Value
    Range("f" & n).Value = .Combken.Text
    Range("g" & n).Value = .Textjyuusyo.Value
    Columns(7).AutoFit
    
    Range("h" & n).Value = .Textdenwa.Value
    Columns(8).AutoFit
    Range("i" & n).Value = .lblfilepath.Caption
  End With
End Sub

1 hits

【19681】ユーザーフォームで修正し登録 グライダーマン 04/11/14(日) 16:31 質問
【19682】Re:ユーザーフォームで修正し登録 Asaki 04/11/14(日) 17:57 回答
【19713】Re:ユーザーフォームで修正し登録 グライダーマン 04/11/15(月) 19:37 お礼

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