A 回答 (2件)
- 最新から表示
- 回答順に表示
No.2
- 回答日時:
まずは質問の仕方
windows、excelのバージョンは書いておきましょう
「削除ボタン」では無くコマンドボタンなのでは
この辺をちゃんと書いておかないと、回答が付きにくいよ
'--------------------------------------------------------
Private Sub CommandButton1_Click()
Dim 選択行 As Integer
For 選択行 = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(選択行) Then
Rows(選択行 + 1).Delete Shift:=xlUp '※
End If
Next
End Sub
'--------------------------------------------------------
注意
リストボックスのリストの1行目を選択すると値0が返ってくる(仕様)ので
マクロの※の行の 選択行 + 1 の1の部分を
RowSourceに設定されている先頭の行数に変更すること
例えば
RowSourceが A2:A10 ならば 2 を
B10:R50 なら 10 に変更する
と比較的簡単なマクロです
webや参考書を活用しましょう
No.1
- 回答日時:
ListBoxのRowSourceプロパティからRangeオブジェクトを作成して
そのRangeオブジェクトでFindメソッド実行して行を特定しましょう
Sub CommandButon1_Click()
dim ss as string
ss = ListBox1.Text
if ss <> "" then
dim r as Range, s as Range
Set s = Range( ListBox.RowSource )
Set r = s.Find( ss )
if not r is nothing then
' 1行削除なら
r.EntryRow.delete
' セルの削除なら
' r.Delete xlShiftUp
ListBox1.RowSource = s.Address(0,0)
end if
end if
End Sub
といった具合です
字下げには全角スペースを使用しています
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) エクセルについて教えてください。 2 2023/06/14 11:11
- iPhone(アイフォーン) 以前使っていたSIMカード抜いた状態のiPhoneの 写真アプリの中のデータを一括削除して 『最近削 2 2022/05/20 03:00
- その他(パソコン・スマホ・電化製品) Googleカレンダーで不要データを一括削除したい 1 2023/08/02 12:42
- Excel(エクセル) 【エクセル」 特定のセルで条件抽出した列を、別シートに上から詰めて表示したい。 8 2022/04/08 16:00
- Excel(エクセル) Excelで質問です。 詳細(写真) ①黄色の部分を全てプルダウンを設定する。 ②リストはG列 ③リ 1 2023/06/16 21:54
- Mac OS リマインダーの実行済み項目を削除したい 2 2022/05/25 00:21
- Visual Basic(VBA) VBA ドロップダウンリストを残して値のみクリア 2 2022/10/27 05:42
- Access(アクセス) Access 登録ボタンからサブフォームの更新 1 2022/07/22 10:23
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2023/07/06 17:46
- Excel(エクセル) エクセルの使い方について 2 2023/02/07 20:54
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
リストボックスでの選択項目分削除について。
Visual Basic(VBA)
-
VBA:ユーザーフォームのマルチページに色を付けたい。
Word(ワード)
-
フォントの大きさ
Visual Basic(VBA)
-
-
4
エクセルVBA ユーザーフォームのTextBoxを日付にしたい
Excel(エクセル)
-
5
エクセルのラベルの値(文字列)を垂直方向で中央揃えにするには?
Excel(エクセル)
-
6
エクセルVBAでマルチページの切り替え方法の件で
Excel(エクセル)
-
7
リストボックス内を昇順並べる方法
Excel(エクセル)
-
8
数字以外の入力をエラーにするには?
Visual Basic(VBA)
-
9
エクセル ユーザーフォームにオートシェープ(図形)を貼り付けるこは可能なのでしょうか?
Excel(エクセル)
-
10
【VBA】【ユーザーフォーム_ListBox】オートフィルタで絞りこんだ値だけを取り出したい
Visual Basic(VBA)
-
11
Excel VBA 空白セルがあったらメッセージボックスで知らせたい
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
JW-CADの<選択確定>ボタンに...
-
エクセルマクロでシート内にあ...
-
WORDで、楕円(オートシェイプ?...
-
Excel VBAでセル内の画像を選択...
-
AutoCAD塗りつぶしが背面になら...
-
ICADでは概念が…
-
Autocadで正しい画層名が表示さ...
-
イラストの背景を透明にしたい
-
Illustratorで、ほかのレイヤー...
-
jwcadで図形を簡単に水平にする...
-
リストボックスで項目を選択し...
-
エクセルでシート上に存在する...
-
autoCADでの四角形の大きさの変...
-
分解の逆
-
ベクターワークスでのハッチン...
-
AutoCadの一つの図面の中にあ...
-
AUTO CADLT 通り芯の複数編集...
-
PDFをWORDに貼ると汚くなる
-
クリッピングマスクの枠の外を...
-
突然カーソルが手の形に…
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
jwcadで図形を簡単に水平にする...
-
EXCEL2013 VBA ListBox 未選択
-
図形とテキストボックスの全部...
-
エクセルマクロでシート内にあ...
-
ICADでは概念が…
-
JW-CADの<選択確定>ボタンに...
-
WORDで、楕円(オートシェイプ?...
-
Excel VBAでセル内の画像を選択...
-
分解の逆
-
autoCADでの四角形の大きさの変...
-
Illustratorで、ほかのレイヤー...
-
AutoCadの一つの図面の中にあ...
-
CAD図面にEXCELの表を貼り付け...
-
Wordで図形などの全てのオブジ...
-
エクセルVBAでオートシェープの...
-
イラストの背景を透明にしたい
-
ベクターワークスでのハッチン...
-
【AUTO CAD】 複数の、異なる...
-
AUTOCADハッチングについて教え...
-
unigraphics NX2 のソリッド・...
おすすめ情報