|
まだまだ初心者のグライダーマンです。
誰か教えてください。
ユーザーフォーム上のテキストボックスを利用して
データベースに登録するマクロを作成しましたが、その中のデータベース一件を選び
(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
|
|