No.5ベストアンサー
- 回答日時:
申し訳ありません
記述方法間違えていました
filter(flag,"false",true,vbtextcompare)
上記が正しいfilterの記述です。
これをuboundで囲って下さい
No.4
- 回答日時:
No.3です
書き忘れてしまいましたが、前述した方法はvbaでは実装できません。
(indexofが無いので…)
代替案としてブール型に拘らないのであれば以下のような手法もあります。
Dim flag(4) as string ‘型を文字列に変更
if ubound(filter(flag,”false”,vbtextcompare))<0 then
end if
前述したものと概ね同じ様な判定で、
第1引数に入れた配列から第2引数を含む要素を配列で返し、その要素数をuboundでカウントします。
これも要素がなければ-1です。
filterの第3引数は大文字/小文字を区別しない為のものです。
以上ご参考まで
No.3
- 回答日時:
配列化されているのでindexofを使って見ては如何でしょうか。
例: if array.indexof(frag,false)<0 then
indexofは第1引数に含まれる最初の第2引数の位置を返り値とする関数で、第2引数が含まれない場合は-1を返します。
以上ご参考まで
No.2
- 回答日時:
そのような判定機会が多い場合、私なら専用の判定ルーチンを作ります。
以下は、全ての要素がtrueならtrueを返す判定ルーチン(AllTrue)です。
flag1,flag3は全てtrueです。
flag2が一部falseです。
判定ルーチンは呼び出し側の要素数がいくつでも対応可能です。
ーーーーーーーーーーーーーーーーーーーーーーー
Option Explicit
Sub Macro1()
Dim flag1(4) As Boolean
Dim flag2(3) As Boolean
Dim flag3(2) As Boolean
flag1(0) = True
flag1(1) = True
flag1(2) = True
flag1(3) = True
flag1(4) = True
flag2(0) = True
flag2(1) = True
flag2(2) = False
flag2(3) = True
flag3(0) = True
flag3(1) = True
flag3(2) = True
Debug.Print AllTrue(flag1)
Debug.Print AllTrue(flag2)
Debug.Print AllTrue(flag3)
End Sub
Private Function AllTrue(ByRef ArrayFlag() As Boolean) As Boolean
Dim i As Long
AllTrue = False
For i = 0 To UBound(ArrayFlag)
If ArrayFlag(i) = False Then Exit Function
Next
AllTrue = True
End Function
---------------------
実行結果
True
False
True
No.1
- 回答日時:
調べる数がうんと多ければループにするんでしょうが、中途半端な個数だとそれもちょっとですよね。
多少なりとも簡単に書くなら、= True を省略することじゃないですか?
If flag(0) And flag(1) And ...
みたいにです。Boolean型の変数は、それ自体がTrue/Falseの値を持っているので、True判定がしたければ= Trueは書かなくても一緒です。値として展開すれば、True=Trueって書いてあるのと同じことですからね。True=Trueの評価結果はTrueなので、True一個あれば事足りるわけです。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) マクロVBA 1シートをまとめる 閉じ方 初心者 SOS! 1 2022/06/17 14:54
- Visual Basic(VBA) excel VBA if文について 3 2022/03/27 17:42
- Visual Basic(VBA) ExcelVBAでDo Until loopのネスト、IF文を使って一致する物と一致しない物としたい 11 2022/12/24 17:46
- その他(プログラミング・Web制作) pythonのDjangoでHTML内で変数を利用したいです 3 2022/05/15 15:33
- Visual Basic(VBA) 【Excel VBA】自動メール送信の機能追加 5 2022/09/29 12:53
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2023/07/13 12:31
- JavaScript フォームが空欄の時にフォームの外をクリックすると、エラーが出るコードを調べています。 1 2023/06/25 11:51
- Visual Basic(VBA) 【VBA】写真の貼り付けコードがうまく機能しません。 5 2022/09/01 18:43
- Visual Basic(VBA) 【追加】ファイルを閉じてダイアログで保存した時だけ処理の実行をする 3 2022/03/23 15:43
- Visual Basic(VBA) 【変更】ファイルを閉じてダイアログで保存した時、更新したシートだけの処理の実行をする 5 2022/03/26 18:31
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
Boolean型配列中のTrueの有無を判定したい(VB2005)
Visual Basic(VBA)
-
VBA 変数名に変数を使用したい。
Visual Basic(VBA)
-
VBAでループ内で使う変数名を可変にできないか。
Visual Basic(VBA)
-
-
4
配列でデータが入っている要素を求める方法
Visual Basic(VBA)
-
5
エクセルVBA 配列からセルに「関数式」を一気代入したい
Visual Basic(VBA)
-
6
array関数で格納した配列の型を変更する
Visual Basic(VBA)
-
7
クラスのプロパティに構造体を使いたい。
Visual Basic(VBA)
-
8
Excelでcsvやtxtで保存する時にダブルクォートが勝手に付く
Excel(エクセル)
-
9
VBA スペースが入力されていても、空白セルと判断する方法
Excel(エクセル)
-
10
「Columns(A:C")」の列文字を数字にして表記したい"
Excel(エクセル)
-
11
VBAで変数の数/変数名を動的に変化させる
その他(プログラミング・Web制作)
-
12
Application.ScreenUpdating = Falseが効きません
Visual Basic(VBA)
-
13
VBA 1次元配列を2次元に追加する
Visual Basic(VBA)
-
14
findは動くがfindnextがマクロで動きません。記述は同じはずなのですが…
Visual Basic(VBA)
-
15
VBA public変数はどのようなことをしたら解放されますか?
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Dim flag(4) as boolean で配列...
-
Excel VBA ユーザーフォームの...
-
Excel(VBA)で配列の要素数を...
-
perlで配列の要素が空なのを知...
-
VBA 多次元配列を用いてグルー...
-
重複しない乱数発生
-
可変長配列を、動的確保した固...
-
リストボックスに縦スクロール...
-
perl このテキストファイルを簡...
-
マクロ Publicでの配列定義
-
Strawberry Perl for Windows ...
-
エクセルVBAでTransposeの不思議
-
perl 配列の要素数について
-
VBA 二次元配列 ループの書き方
-
jcode->jfold で禁則処理
-
perlで2次元配列をサブルーチ...
-
Powershell $変数 = @()の空配...
-
アクティブセルから、A列最終行...
-
画面を強制的に再描画させる方法
-
どなたかこのプログラミングを...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
二次元配列のインデックスについて
-
VBAのautofilter、criteriaの配...
-
Excel VBA ユーザーフォームの...
-
二次元配列における要素数のは...
-
マクロ Publicでの配列定義
-
Strawberry Perl for Windows ...
-
リストボックスに縦スクロール...
-
クラスに配列を渡す方法
-
Dim flag(4) as boolean で配列...
-
エクセルVBAでTransposeの不思議
-
perlで2次元配列をサブルーチ...
-
perlで配列の要素が空なのを知...
-
perl 配列の要素数について
-
組み合わせについての質問です...
-
隣同士の数字を足し合わせる
-
複数の配列の全ての組み合わせ...
-
perl 初等プログラミングについて
-
jcode->jfold で禁則処理
-
一致する要素が格納されている...
-
チェックボックスのperlでの値...
おすすめ情報