No.3ベストアンサー
- 回答日時:
Dim arr1 As Integer() = New Integer(88) {} '1次元配列の場合
Dim arr2 As Integer(,) = New Integer(8, 8) {} '2次元配列の場合
For x As Integer = 0 To 8
For y As Integer = 0 To 8
Dim controlName As String = String.Format("TextBox{0}{1}", x, y)
If TypeOf Me.Controls(controlName) Is TextBox Then
Dim txt As TextBox = CType(Me.Controls(controlName), TextBox)
If (Not String.IsNullOrEmpty(txt.Text)) Then
MessageBox.Show(Me, String.Format("{0}は値が入力されています", controlName))
End If
Integer.TryParse(txt.Text, arr1(x * 8 + y)) '1次元配列の場合
Integer.TryParse(txt.Text, arr2(x, y)) '2次元配列の場合
End If
Next
Next
''確認 1次元配列の場合
Dim prompt As New System.Text.StringBuilder()
For x As Integer = 0 To 88
prompt.Append(arr1(x))
Next
MessageBox.Show(Me, prompt.ToString())
''確認 2次元配列の場合
prompt = New System.Text.StringBuilder()
For x As Integer = 0 To 8
prompt.Append("|")
For y As Integer = 0 To 8
prompt.Append(arr2(x, y))
prompt.Append("|")
Next
prompt.AppendLine()
Next
MessageBox.Show(Me, prompt.ToString())
努力しましょう
No.2
- 回答日時:
こんな感じで
For x As Integer = 0 To 8
For y As Integer = 0 To 8
Dim controlName As String = String.Format("TextBox{0}{1}", x, y)
If TypeOf Me.Controls(controlName) Is TextBox Then
Dim txt As TextBox = CType(Me.Controls(controlName), TextBox)
If (Not String.IsNullOrEmpty(txt.Text)) Then
MessageBox.Show(Me, String.Format("{0}は値が入力されています", controlName))
End If
End If
Next
Next
ありがとうございました。
実際に実行してみました。
雰囲気的なものはなんとなく分かり、少し自分で変更するとテキストボックス内に記述されている数字を配列で格納することができるかと思って自分で挑戦してみたのですが、結果は無理でした。
そこでもう一度お願いできたらと思ったのですが、記述していただいたコードにさらに複数のテキストボックスに記述している数値を配列に数値として格納する方法加えるとしたらどのように記述したら宜しいでしょうか??
是非、教えていただけたらと思います。
宜しくお願い致します。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) VBA横データを縦にしたいです 2 2023/08/08 19:38
- Visual Basic(VBA) Excel VBA ユーザーフォーム内のラベルにテキストボックスの小計を出す方法 5 2022/08/17 14:27
- Excel(エクセル) エクセルで同じ数字同士を自動で線で結ぶVBAを教えてください 6 2022/04/26 23:13
- Visual Basic(VBA) 【VBA】写真の縦横比を変えずに貼り付ける 5 2023/06/13 11:42
- Excel(エクセル) Excelのtextboxへの入力で小数点以下に0が続く場合でも正しく表示したい 3 2022/04/11 13:53
- Visual Basic(VBA) ①ExcelVBAでカレンダーを作り、別のユザーフォームで日付を入力したいのですがエラーになります。 1 2023/02/17 18:39
- Excel(エクセル) エクセルで対象日に該当するデータがある場合に別表へ全対象者を表示させたい。 3 2023/07/12 09:48
- Visual Basic(VBA) コード名シートA列と集計シートA列のコードが一致したら、コード名シートA5からk12の範囲をコピーし 1 2022/08/29 23:46
- Word(ワード) 最高裁判所から通達がある Wordの書式設定。所謂 裁判所に提出するすべての書類のことです。 A4縦 2 2022/12/23 15:00
- Excel(エクセル) VBAで組み合わせ算出やCOUNTIFSの処理を高速化したいです。 4 2022/04/07 02:38
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
配列数式の解除
-
2つ以上の変数を比較して最大数...
-
エクセルで最小値から0を除く方法
-
配列変数の添字が範囲外ですと...
-
for each の現在の配列ポインタ...
-
特定のセル範囲で4文字以上入力...
-
ListViewで、非表示列って作れ...
-
VLOOKUP関数で、一番下...
-
えfor文とか使っちゃう時点で時...
-
配列を任意の数値で埋める方法
-
《エクセル2000》A列・B列の商...
-
VBAで多次元配列のインデックス...
-
【VBA】配列とWorksheetFunctio...
-
VBA 1次元配列を2次元に追加する
-
fortranでのcsvファイルの読み込み
-
VB2008: CSV を二次元配列に読...
-
subの配列引数をoptionalで使う...
-
Excel2003 条件付き中央値
-
FORTRANのCOMMON文
-
ArrayListの初期値に二次元配列...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
配列数式の解除
-
2つ以上の変数を比較して最大数...
-
VBA 1次元配列を2次元に追加する
-
特定のセル範囲で4文字以上入力...
-
subの配列引数をoptionalで使う...
-
ListViewで、非表示列って作れ...
-
for each の現在の配列ポインタ...
-
配列変数の添字が範囲外ですと...
-
VBのFunctionで、配列を引数...
-
VB6 配列を初期化したい
-
2次元動的配列の第一引数のみを...
-
Excel-VBAの配列「Public Const...
-
配列内の内容を全て表示する方法
-
Dim は何の略ですか?
-
配列を任意の数値で埋める方法
-
VLOOKUP関数で、一番下...
-
アルゴリズム、配列のフローチ...
-
verilogで配列の任意の8bitを取...
-
えfor文とか使っちゃう時点で時...
-
VBA Match関数の限界
おすすめ情報