|
うくれれ さん
はじめまして
住所録をユーザーホームのリストボックスに表示して
そこから、変更・削除してはどうでしょうか
下記のコードでリストボックスに住所録を表示できます
後は変更削除するTEXTBOXなどを配置して、そこから変更削除する。
シートの構成が分からないので
Sheet1のA列の1行目から見出しが
氏名、住所、生年月日、性別 とあるものとします。
だめなボツにして下さい。
リストボックス1のプロパティーの ColumnHeada を True に設定
Private Sub UserForm_Initialize()
Dim LASROW As Long
Dim myDRange As String
With ListBox1
.ColumnCount = 4
.ColumnWidths = "50;50;50;50"
End With
LASROW = Worksheets("Sheet1").Range("A65536").End(xlUp).Row
myDRange = "Sheet1!A2:D" & LASROW
ListBox1.RowSource = myDRange
If Worksheets("Sheet1").Range("A2").Value = "" Then
ListBox1.RowSource = ""
End If
End Sub
|
|