Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

52402 / 76736

←次へ　｜　前へ→


	【29173】Re:任意の行のレコードをユーザフォームへ貼付け

Lion - 05/9/27(火) 10:29 -


	引用なし

	パスワード

うくれれさん
はじめまして

住所録をユーザーホームのリストボックスに表示して
そこから、変更・削除してはどうでしょうか

下記のコードでリストボックスに住所録を表示できます
後は変更削除する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

0 hits

▼

【29162】任意の行のレコードをユーザフォームへ貼付け うくれれ 05/9/27(火) 0:01