リストボックスについてです。
リストボックスについてです。
B列をダブルクリックするとリストボックスが立ち上がり、データを選択してB列に表示できるように設定されていますが、困った現象が起こっています。
例えば、sheet1のB10にダブルクリックでリストボックスを表示し、そこから「あいうえお」という名前を表示させて、sheer1編集が終わったとします。
次のsheet2でB1をダブルクリックしているのに、sheet2のB10に勝手に「あいうえお」と表示されてしまいます。
コードは以下になってます。
VBA初心者なのでエクセルのサイト等からコピペ等して作ったコードです。
どこかおかしな箇所があると思うのですが、何処がおかしいのかがわかりません。
お分かりになる方、教えていただければ助かります。
' ◆Worksheetのコード◆
'----------------------------------------------------
'選択範囲を変更したときに実行される
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
UserForm1.ListBox1.RowSource = "データ!A1:A100" '表示するデータ範囲
UserForm1.ListBox1.Font.Size = 12 'フォントサイズ
If Target.Column = 2 Then 'B列なら
行 = Target.Row '行番号を取得する
UserForm1.Show 'ユーザーフォームを表示する
End If
End Sub
'===================================================================================
' ◆UserForm1のコード◆
'--------------------------------------------------------------------------
Private Sub ListBox1_Click() 'クリックされたときに実行される
If 行 <> 1 Then '1行目でなければ
Cells(行, 2) = ListBox1.Value 'リストボックスの値をセルにセットする
End If
UserForm1.Hide 'ユーザーフォームを非表示にする
End Sub
Private Sub UserForm_Deactivate() '非アクティブになったときに実行される
Unload Me 'ユーザーフォームをメモリから削除する
End Sub
'=========================================================================================
'＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
' ◆標準モジュールのコード◆
Option Explicit
Public 行 As Variant '行番号
Sub auto_open()
Load UserForm1 'ユーザーフォームをメモリに読み込む
End Sub
'＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
お礼
こんにちは。 早々の回答ありがとうございます。 プロパティーのどの項目が文字の配置を設定するものかわからなかったので、助かりました。 ありがとうございました。