VB.NET2005についての質問です。
Dim hoge(5) as Boolean '値が格納済みとする
Dim flg as Boolean
配列hogeの要素の中に、一つでもTrueがあったら、flgにTrueを格納する処理を考えています。
現在はhogeをループで回してTrueの有無を判定していますが、ループを使わず、もっと簡単に上記の処理を行うことは可能でしょうか。
例えば
flg = 処理(hoge)
などといった形で処理ができれば理想的です。
どうぞよろしくお願い致します。
No.1ベストアンサー
- 回答日時:
Public Class Q3394163
Shared Sub Main
Dim hoge(5) As Boolean'全てがfalseとして初期化される
Dim flg As Boolean
hoge(0) = True 'つけたり外したりして動作を確認してみよう
'VB 2008Beta2ではDirectCastしなくても良かったみたいだけど,
'何故かSharpDevelop 3 Build 2679でコンパイルが通らなかったので。
'なお,配列を調べるときにはSystem.Arrayに注目しよう
'http://msdn2.microsoft.com/en-us/library/system. …
If DirectCast(hoge, System.Collections.IList).Contains(True) Then
flg = True
Else
flg = False
End If
System.Diagnostics.Trace.WriteLine(flg.ToString)
'その他、ループに近い考え方になってしまうかもしれないが,
'Predicate(Of T)などを引数にとるメソッドを使ったりするのも面白いかも
'C#の記事だけど理解自体はそれほど難しくないはずだ
'http://www.atmarkit.co.jp/fdotnet/csharp20/cshar …
End Sub
End Class
himajin100000さん
詳細な解説ありがとうございます。
>'なお,配列を調べるときにはSystem.Arrayに注目しよう
ご助言、大変参考になります。
リンク先のHPも検討し、問題を解決することができました。
ご回答ありがとうございました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) マクロVBA 1シートをまとめる 閉じ方 初心者 SOS! 1 2022/06/17 14:54
- Visual Basic(VBA) 【Excel VBA】自動メール送信の機能追加 5 2022/09/29 12:53
- Visual Basic(VBA) 【変更】ファイルを閉じてダイアログで保存した時、更新したシートだけの処理の実行をする 5 2022/03/26 18:31
- Visual Basic(VBA) 【追加】ファイルを閉じてダイアログで保存した時だけ処理の実行をする 3 2022/03/23 15:43
- Excel(エクセル) 2つのVBAを一緒にしたら機能しなくなりました(エクセル) 7 2022/06/02 12:41
- Visual Basic(VBA) 【前回の続き続きです、ご教示ください】VBAの記述方法がわかりません。 2 2022/08/24 20:49
- Visual Basic(VBA) InputBoxでキャンセルボタンを押したらファイル自体を閉じたい 3 2022/07/23 17:52
- Excel(エクセル) Excelにて、フォルダ内のTextファイルをマクロで統合すると文字化けしてしまう時の解消コード 4 2023/01/01 07:32
- Visual Basic(VBA) VBAのユーザーフォームのテキストボックスに入力制限をしたい 6 2022/11/15 08:28
- Java java 引数 戻り値のあるメソッド 3 2023/02/12 06:23
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
Dim flag(4) as boolean で配列とした変数に一つずつ処理結果を代入していきます。
Visual Basic(VBA)
-
VBAでループ内で使う変数名を可変にできないか。
Visual Basic(VBA)
-
Integer変数をカラにしたいのですが
Visual Basic(VBA)
-
-
4
array関数で格納した配列の型を変更する
Visual Basic(VBA)
-
5
配列の重複する値とその個数を取得したい
Visual Basic(VBA)
-
6
クラスのプロパティに構造体を使いたい。
Visual Basic(VBA)
-
7
エクセルのラベルの値(文字列)を垂直方向で中央揃えにするには?
Excel(エクセル)
-
8
VBA ユーザーフォームのChangeイベントを停止したい
Access(アクセス)
-
9
Excel にて条件付き書式の色にさらに上塗りをしたいです。
Excel(エクセル)
-
10
Chr(13)とChr(10)の違いは?
PowerPoint(パワーポイント)
-
11
エクセルVBAでUserFormを起動した時
Excel(エクセル)
-
12
VBA 1次元配列を2次元に追加する
Visual Basic(VBA)
-
13
Rangeメソッドは失敗しました。globalオブジェクトについて
Excel(エクセル)
-
14
構造体をコレクションに入れて扱いたいのですが…
コレクション
-
15
エクセルのエラーメッセージ「400」って?
Visual Basic(VBA)
-
16
ブック名、シート名を他のモジュールからも参照可能にする方法
Access(アクセス)
-
17
変数名の取得
Visual Basic(VBA)
-
18
【Excel VBA】 WorksheetやRangeオブジェクトとして宣言した変数の開放は必要でしょうか?
その他(Microsoft Office)
-
19
文字列の後ろから必要分だけ削除したい。
Visual Basic(VBA)
-
20
Worksheet_Changeの内容を標準モジュールから実行するには?
その他(プログラミング・Web制作)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Boolean型配列中のTrueの有無を...
-
HTTPSのとき":"が"%3A"ではなく...
-
「オブジェクトが必要です。」...
-
awk内でsystem関数を使用しfunc...
-
ボタンをクリックすると数が増...
-
C# .NET DataGridView の行を追...
-
onclick指定関数の引数へローカ...
-
Excel VBA の ChangeFileAccess
-
ifreamをリロードしたい
-
正規表現で半角数字1桁のみを全...
-
Vb.netのグローバル変数の宣言...
-
JavaScript window.openで開く...
-
スマフォではボタンを表示させ...
-
C#テキストボックスの文字を配...
-
ActiveXobjectが作成できない
-
javascriptで、表示されている...
-
関数でy=g(x)のgとは何の略です...
-
なぜmatchメソッドがエラーにな...
-
同じIDで定義した要素の配列を...
-
gas スプレッドシートがアクテ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
【正規表現】【javascript】CR...
-
Linux バイナリ実行できない "...
-
ASP+アクセスでのSQLコメントに...
-
Boolean型配列中のTrueの有無を...
-
Excel VBA の ChangeFileAccess
-
【Jquery】changeイベント毎にa...
-
Vb.netのグローバル変数の宣言...
-
static constメンバ変数(配列)...
-
同じ型【ハイフンと数字】だけ...
-
class指定したHTML要素の背景色...
-
onclick指定関数の引数へローカ...
-
ボタンをクリックすると数が増...
-
HTTPSのとき":"が"%3A"ではなく...
-
「オブジェクトが必要です。」...
-
MFCのキャプション変更
-
ページ離脱時のalertボタンで処...
-
アンカーリンクをクリックさせ...
-
VC++のちらつき防止方法
-
C# .NET DataGridView の行を追...
-
2次元のJSON形式の配列の展開
おすすめ情報