vista sp1 ExcelXPでマクロ作成中の超初心者です。
現在、リストボックスにすべてのシート名が表示されます。
Private Sub UserForm_Initialize()
Workbooks("請求.xls").Activate
Dim i As Integer
For i = 1 To Worksheets.Count
会社リスト.AddItem Worksheets(i).Name
Next i
With 会社選択
.StartUpPosition = 0 '初期表示位置を表す値を指定しない
.Top = 200 '上端からの距離を設定する
.Left = 570 '左端 〃
.Show '表示する
End With
End Sub
これを、' Const EXCEPT_NAME = "印刷1 印刷2 データ1 データ2 "を使うなどして
リストボックスに除外シートのみ、表示しないようにしたいのですが、どのようにしたらよろしいでしょうか。
No.4ベストアンサー
- 回答日時:
Instr関数を使ってシート名がEXCEPT_NAMEの中にあるかチェックする。
'-------------------------------------------
Dim i As Integer
Const EXCEPT_NAME = "印刷1●印刷2●データ1●データ2●"
For i = 1 To Worksheets.Count
If InStr(EXCEPT_NAME, Worksheets(i).Name & "●") = 0 Then
会社リスト.AddItem Worksheets(i).Name
End If
Next i
'-------------------------------------------------
(注意点)
Instr関数の性質上、変数EXCEPT_NAMEの除外シートの文字列は、
必ず、シート名+●、にしておかねばならない。
●は、そのままでもいいし、全角スペース、半角スペースなどでも可。
以上。
No.3
- 回答日時:
失礼しました。
Const EXCEPT_NAME = "印刷1 印刷2 データ1 データ2 "でしたね。
For i = 1 To Worksheets.Count
if Worksheets(i).Name<>"印刷1" and _
Worksheets(i).Name<>"印刷2" and _
Worksheets(i).Name<>"データ1" and _
Worksheets(i).Name<>"データ2" then
会社リスト.AddItem Worksheets(i).Name
end if
Next i
でした。
ではでは。(汗)
No.2
- 回答日時:
No1さんと重複しますが、
"印刷1 印刷2 データ1 データ2"以外を除外でいいですか?
For i = 1 To Worksheets.Count
if Worksheets(i).Name="印刷1" or _
Worksheets(i).Name="印刷2" or _
Worksheets(i).Name="データ1" or _
Worksheets(i).Name="データ2" then
会社リスト.AddItem Worksheets(i).Name
end if
Next i
としましょう。
ではでは
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) ユーザーフォーム「frm_基本❶」を立ち上げると新規で入力する行数を右下のNoとして表示しています。 1 2023/03/16 19:02
- Visual Basic(VBA) userformでSheetを選択して開くコード 1 2023/05/15 16:27
- Visual Basic(VBA) ユーザーフォームの表示を追加したい 2 2023/03/26 23:18
- Visual Basic(VBA) VBA Userformで一部別シートに転記がしたいのですが 2 2023/05/24 13:08
- Excel(エクセル) Excelのマクロについて教えてください。 4 2022/05/31 14:07
- Visual Basic(VBA) 【Excel VBA】自動メール送信の機能追加 5 2022/09/29 12:53
- Excel(エクセル) VBAの指示の内容 昨日こちらでご教示頂いたのですが初心者な為、一つ一つの指示が何をやっているのかわ 2 2022/10/25 18:08
- Visual Basic(VBA) いつもお世話になっております、VBAで教えて頂きたいのですが 2 2022/05/05 22:20
- Visual Basic(VBA) ①ExcelVBAでカレンダーを作り、別のユザーフォームで日付を入力したいのですがエラーになります。 1 2023/02/17 18:39
- Visual Basic(VBA) ユーザーフォームに2つのコンボボックス銀行名「ConboBox1」支店名を「ConboBox2」とし 4 2022/08/03 17:34
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
教えて下さい
-
多量のSUMIF式を軽くしたい
-
【エクセル】測定時間がバラバ...
-
シーケンサにパソコンからアク...
-
[C言語] コメント文字列を無視...
-
ウィンドウ枠の固定を行の2箇所...
-
メモ帳(テキストデータ)をExc...
-
配列でデータが入っている要素...
-
複数のブックのデータを集めて...
-
クリップボードのデータをセル...
-
外部データの更新がうまくでき...
-
VBA 空白セルを削除ではない方...
-
ビットシフトについて
-
不規則なデータのfft処理
-
VBA ユーザーフォーム テキス...
-
モジュラス103の算出方法について
-
VBA 毎日取得するデータを順番...
-
【VBA】データを入力後に,同一...
-
0が含まれる幾何平均が「#NUM!」
-
Excelのマクロでワードのテキス...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
教えて下さい
-
配列でデータが入っている要素...
-
【エクセル】測定時間がバラバ...
-
メモ帳(テキストデータ)をExc...
-
エクセルで2つの時系列のデー...
-
二分探索の平均探索回数
-
VBA 空白セルを削除ではない方...
-
多量のSUMIF式を軽くしたい
-
ブレーカー落ちで壊れたりしな...
-
この行は既に別のテーブルに属...
-
ACCESSからEXCELに出力する際、...
-
ユーザーフォームのテキストボ...
-
シーケンサにパソコンからアク...
-
EXCELVBAでSQLserverからデータ...
-
VBAを使ってOutlookメール本文...
-
S9タイプからXタイプにデータ...
-
ウィンドウ枠の固定を行の2箇所...
-
プログラミング python pandas ...
-
Accessで該当データにフラグを...
-
カンマからスラッシュに
おすすめ情報