No.1ベストアンサー
- 回答日時:
以下のような仕組みでいけると思います
Sub SetListBox(ss As String)
Dim r As Range, c As Range, n As Integer
' ListBoxを空にする
ListBox1.Clear
' 読み仮名の列を取得
Set r = Range("B1:B10")
' 各行ごとの処理を開始
For Each c In r
' あ い う え お などで始まるかどうかをチェック
For n = 1 To 5
If c.Text Like Mid(ss, n, 1) & "*" Then
' 条件に一致したものを ListBoxに追加
ListBox1.AddItem c.Offset(, -1).Value
End If
Next
Next
End Sub
Private Sub CommandButton1_Click()
SetListBox "あいうえお"
End Sub
Private Sub CommandButton2_Click()
SetListBox "かきくけこ"
End Sub
Private Sub CommandButton3_Click()
SetListBox "さしすせそ"
End Sub
Private Sub CommandButton4_Click()
SetListBox "たちつてと"
End Sub
といった具合です
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Windows 10 サブアカウントの名前変更 1 2023/02/11 01:27
- Visual Basic(VBA) 入力ボックスが繰り返しポップアップして止まらない。 下記コードでファイル名の変更をしたいのですが、変 1 2022/09/08 11:27
- Excel(エクセル) 【Excel】指定のセル内容を基に別シートのセルを検索して選択する【VBA】 1 2022/06/16 16:16
- Visual Basic(VBA) ユーザーフォーム「frm_基本❶」を立ち上げると新規で入力する行数を右下のNoとして表示しています。 1 2023/03/16 19:02
- その他(データベース) Accessフォームからパラメーターで表示したレコードを指定のExcelのセルへ転送する方法について 2 2022/08/22 18:04
- PowerPoint(パワーポイント) PowerPointの箇条書きの既定のリストを変更する方法について 1 2022/12/15 18:41
- Mac OS Mac iPhoneの連絡帳の大量のリストを削除したい 1 2023/05/12 23:30
- Excel(エクセル) [テーマのフォント]、[見出しのフォント]、[本文のフォント]とは何ぞや? 2 2023/02/27 09:18
- Visual Basic(VBA) VBA 複数のブックに同じ列を表示させる方法 2 2022/07/20 23:49
- Excel(エクセル) Excel 値を返す数式についてです 3 2022/11/21 20:08
関連するカテゴリからQ&Aを探す
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
テキストボックスのフォーカス...
-
コマンドプロンプトで印刷実行
-
VB6.0でダイヤルアップ接続を作...
-
バッチファイル pause時の文字...
-
C言語のコマンドの"flag"って何...
-
EXCELで右クリックメニューの追加
-
ネットワーク内のIPアドレス...
-
プログラムの中でコマンドボタ...
-
PCに保存していた写真を見られ...
-
メルカリを退会して再登録した...
-
localhost127.0.0.1で403エラー
-
同名フォルダを作成し、そのフ...
-
VBSでメール送信
-
フォルダー名末尾空白のフォル...
-
includeやrequireでファイル参...
-
webサーバとPDFの関係(開く時...
-
良く判らないファイル?
-
社内イントラサイトでのサイト...
-
Cドライブのダウンロードファイ...
-
excelファイルをASPで作る方法
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Teratermマクロの戻り値の取得失敗
-
テキストボックスのフォーカス...
-
Windowsのバッチファイルでcall...
-
Visual C++からftpを使う
-
system関数のエラー検出
-
データリーダーからのデータ読...
-
コマンドプロンプトで印刷実行
-
バッチ(Windows2000)での解析エ...
-
ユーザーフォーム内のテキスト...
-
gmailでのimap設定
-
FlashROMにデータを書き込むに...
-
ネットワーク内のIPアドレス...
-
コマンドプロンプトでサービス...
-
C言語のコマンドの"flag"って何...
-
VBで定期的にタイムサーバに時...
-
リストボックス2に表示されたフ...
-
コマンドボタンテキストの改行
-
ExcelVBA WorkSheet上の全てのC...
-
OUTLOOKで受信メールを開くとテ...
-
jqコマンドでor条件でIPを指定...
おすすめ情報