|
たびたびすいません。
>住所録をユーザーホームのリストボックスに表示して
>そこから、変更・削除してはどうでしょうか
>
>下記のコードでリストボックスに住所録を表示できます
>後は変更削除する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
以上のやり方でリストボックスに表示するところまではできましたが、その後選択した行の入力値を変更・削除するにはどのようにしたらよいのでしょうか。
ちなみに名簿のレイアウトは、
A B C D E・・・・・CX
1 名前 登録番号 登録日 項目1 項目2 項目##
2 ・ ・ ・ ・ ・ ・
3 ・ ・ ・ ・ ・ ・
A,B,Cはテキスト、D以降は入力値がある場合に0と1であらわしています。
A,B,Cはテキストボックスから、D以降はチェックボックスから入力しています。
初心者ですみません。よろしくお願いします。
|
|