リストボックスのリストから表にフォーカスを移動する
次の(1)のようなファームに(2)のコマンドボタンがついています。(1)のリストボックス中の表から取得した職員リストを、クリックすると、リストボックスのリストから、表にフォーカスが異動して、選択した職員の行の職員のデータを削除するマクロを作成したいのですが、うまく動作しません。どこをどのうように、直したらよいのでしょうか？
(2)
Private Sub CommandButton1_Click()
' 「R職員マスター」sheetの個人別データ削除
'「はい」「いいえ」のアイコンを表示する
Btn = MsgBox("個人別の職員データが全て消去されます。元にもどりません いいですか？", vbYesNo + vbQuestion, "確認")
'「いいえ」の場合は終了します。
If Btn = vbNo Then
Exit Sub
End If
'リストボックス内の選択されたリストから「R職員マスター」シートのリストの行にアクティブセルを移動させる
Dim Activecell As String
Actevecell = ListBox1.Value
Sheets("R職員マスター").Select
'アクティブセルの行のデータを削除する。
Cells(Activecells.Row, "A").Resize(1, 9).ClearContents
Cells(Activecells.Row, "L").Resize(1, 2).ClearContents
Cells(Activecells.Row, "O").Resize(1, 2).ClearContents
End Sub
(1)
Private Sub UserForm_Initialize()
'リストボックスの列は職員番号 氏名 ふりがな とする
'この場合のようにリストボックスに3列するには「ListBox1」のプロパティのColumnWidths欄を３にする
ListBox1.RowSource = "f11:h80"
お礼
アプリで直しました。 ご回答ありがとうございました。