Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

5203 / 76735

←次へ　｜　前へ→


	【77145】Re:シート1とシート2の内容で一致するものがあれば結果表示をさせたい

β - 15/5/26(火) 12:04 -


	引用なし

	パスワード

▼あやさん：
>▼β さん：
>なんとなーくはわかるのですが・・・
>勉強不足で申し訳ありません・・・
>もう少し噛み砕いていただけるとありがたいです・・・

今から２日間ほど、外出しますので、次のレスは、しばらくできません。
説明は難しいですね。
以下にサンプルコードをアップします。
実行してみて、そのあと、コード内のコメントを読んでみてください。

Sub Sample()
　　Dim v As Variant　　'格納する要素数が不定なので、とりあえずVariant型で。
　　Dim i As Long
　　
　　'今から３つの要素を配列にいれます。
　　
　　For i = 1 To 3
　　　　If IsArray(v) Then　　　'２回目以降は配列になっています
　　　　　　ReDim Preserve v(1 To UBound(v) + 1)
　　　　　　　　'2回目なら、配列の要素数は 1。そこに最初の値が格納済み。
　　　　　　　　'UBoundが1ですね。ここに2つめの要素を格納したいので
　　　　　　　　'もう１つ、要素が入る箱を準備します。
　　　　　　　　'Ubound(v) つまり 1 に 1 を足した 2番目の箱を追加しています。
　　　　　　　　'3回目なら、配列の要素数は 2。そこに、最初と2番目の要素が格納済み。
　　　　　　　　'なので、要素番号 3 の箱を準備します。
　　　　　　　　'UBound(v) つまり 2 に 1 を足した　3番目の箱が準備されます。
　　　　　　
　　　　Else　　　　　　　　　　'最初は配列ではありませんね。
　　　　　　ReDim v(1 To 1)　　 'なので、要素数が１つだけの配列に初期化します。
　　　　　　　　　　　　　　　　'LBound(配列)は配列内の最初の要素番号
　　　　　　　　　　　　　　　　'UBound(配列)は配列内の最後の要素番号
　　　　　　　　　　　　　　　　'ここでの初期化された配列の最後の要素番号は 1 です。
　　　　End If
　　　　
　　　　'ここでは、すでに、新しい要素が入るための箱が追加されています。
　　　　'その要素番号が、この配列の最後の箱の番号。つまり、現時点の UB0ound(v) です。
　　　　
　　　　v(UBound(v)) = "ABC" & i　　'その最後の箱に要素を格納します。
　　Next
　　
　　'最初は配列ではなくVariant型の変数でしたが、ここでは要素数が3つあり、そこに
　　'値が入った配列になっています。
　　
　　MsgBox UBound(v)
　　MsgBox v(1) & vbLf & v(2) & vbLf & v(3)
　　　　
End Sub

0 hits

▼

【76750】シート1とシート2の内容で一致するものがあれば結果表示をさせたい あや 15/3/9(月) 16:01