- ベストアンサー
VBAの配列についての質問
watabe007の回答
- watabe007
- ベストアンサー率62% (476/760)
少し形は変わりますがArray関数を使って、このように結合することが出来ます。 Dim 配列C 配列C = Array(配列A, 配列B) '結果 配列C(0)(0) '→10 配列C(1)(0) '→100 配列C(1)(2) '→120
関連するQ&A
- VBAで配列のある部分だけをを配列に入れたい
VBAを勉強をしております。 例えばA1からG20までをある配列に入れているとします。 その配列のある部分（例えばB1からC20）を、別の配列にいれるにはどうすれば良いのでしょうか。 以下の方法で試してみましたが、上手くいきません。 Dim A() As Variant Dim B() As Variant A = Range("A1:G20") B = Range(Cells(A(1,2),Cells(A(20,3)))
- 締切済み
- Excel（エクセル）
- Access VBA での配列
Access VBAで下記のような配列（ジャグ配列？）を作りたいと考えています。 添字[0] = ("0A","0B","0C") 添字[1] = ("1A","1B","1C","1D") VB.NETでは下記のような感じで書けたと思います。 Dim strArray(1) As Object strArray(0) = New String(2) {"0A", "0B", "0C"} strArray(1) = New String(3) {"1A", "1B", "1C", "1D"} 分かりましたら是非教えてください。 お願いします。
- ベストアンサー
- オフィス系ソフト
- VBA 乱数と配列
VBA 乱数と配列 配列(0)～配列(5)の一次元配列の中に、１から6までの数字を重複しないように入れたいのですが、 上手くいきません。 ご指導の程、お願いします。 Sub rndsys() Dim 配列(5) As Integer Dim サイコロ As Integer Dim カウントA As Integer Dim カウントB As Integer Dim フラグ As Integer For カウントA = 0 To 5 Do サイコロ = Int(Rnd(1) * 6) + 1 For カウントB = 0 To 5 If 配列(カウントB) = サイコロ Then フラグ = フラグ + 1 End If Next カウントB Loop Until フラグ > 0 配列(カウントA) = サイコロ Next カウントA MsgBox 配列(0) & vbCrLf & 配列(1) & vbCrLf & 配列(2) & vbCrLf & 配列(3) & vbCrLf & 配列(4) & vbCrLf & 配列(5) End Sub
- ベストアンサー
- オフィス系ソフト
- VBからDLLへ多次元配列を渡す/配列の添え字
C++で作ったdllにVBAから配列を渡して、計算結果を再びVBAに戻して、アウトプットはVBAで、ということをしています。（経験豊富な方への相談です。） 具体的には、渡したい配列の先頭アドレスをlong型で記憶し、そのlong型の配列を受け渡ししています。 ただ、ご存知の方が多いかもしれませんが、VBAとC++では配列の添え字の順序が逆になっており、非常に面倒です。どういうことかといいますと、 Dim array(0 to 4, 0 to 9) as long をdllに渡し、array(2,6)を参照したい場合、C++では(Cでの配列名をc_arrayとし、これに先頭アドレスを入れると)、 c_array[(4+1)*6 + 2 ]; としなければならないと思います。これをプリプロセッサで #define C_ARRAY(a,b) c_array[(4+1)*b + a] としたらVBでの配列の感覚で扱えますが、この擬似配列C_ARRAY(a,b)を関数に渡すときなどは結局同じ混乱が再び生じることになってしまいます。 これを、何らかの方法で、簡潔に解決することはできないものでしょうか？ VBA(エクセルを念頭においています)のほうで配列の添え字の順序をC++のそれに沿うように変更できたりしたら非常にうれしいですが、無理でしょうか？
- ベストアンサー
- C・C++・C#
- Excelの関数またはVBAについて
A1-B1の結果がC1に出るような表を作りました。C1の結果が自動でA1に表示され、ループするようにしたいのですが VBAになるのでしょうか?VBAは全くわからないので、できれば列を挿入するなどして関数で出来たら。。。と思ってます。すいませんが、ご教授ください。お願いします
- 締切済み
- オフィス系ソフト
- VBAで配列内のマッチ
VBAでfor文などループを使わないで配列の文字列とマッチするかの判定を行いたいのですが、良い方法はありますか？ Dim vrnArray As Variant vrnArray = Array("A", "B", "C", "D", "E", "F", "G") で ret = match???? (vrnArray, "C") retは真 のようなことがしたいです。
- ベストアンサー
- Visual Basic
- VBAの一次元配列から二次元配列へ
Ａ列にa1～a100まで数字が入ってます。 それを、b1～b5,c1～c5,…省略 u1～u5までに、データを ５行ずつ移したいのです。 b1にはa1、b2にはa2の値を、u5にはa100の値を入れたいのです。 マクロの自動記録？を使うとできることはできるのですが…。 一次配列→二次配列で、出来ると聞いたことがあるのですが。 ※ＶＢＡは全くの初心者です。 コードに説明もつけてくださるとすごく助かります。 どうかよろしくお願いいたします。
- 締切済み
- Visual Basic
- Excell VBA にて配列に定数を代入する方法
Excell-VBAにおいて、大量の定数を二次元配列に代入して行く方法をご教授願います。 下記関数は、JIS並目ねじのM数（引数:B）の知りたい形状値（たとえば「ピッチ」ならば、引数C=1）を出力するものなのですが、40行もの代入文をずらっと並べて書くしか思いつかずに居ります。 昔のN88-BASICなどではREAD～DATA文を用いて、データーを羅列して書いておけば良かったのですが、Excell-VBAにおいては良い方法はありますか？ その他の希望としましては、ワークシートからデーターを読み込む方法では、ワークシートをいじられてはおかしくなってしまいますので、VBAコードだけで完結させたいです。 また、別途データファイルを作成しておいて、Open～命令で、という手法も用いないで作成したいです。 Array関数に、ずらっとデーターを並べるのも避けたいです。 （私は、Access-VBAは多少かじっておりますが、Excell-VBAにはかなりうといです。） Function NAMIME(B, C) Dim A(40, 5), D As Single Dim I As Integer ' ピッチ 引っかかりの高さ 外径 有効径 谷の径 A(1, 1) = 0.25: A(1, 2) = 0.135: A(1, 3) = 1: A(1, 4) = 0.838: A(1, 5) = 0.729 A(2, 1) = 0.25: A(2, 2) = 0.135: A(2, 3) = 1.1: A(2, 4) = 0.938: A(2, 5) = 0.829 A(3, 1) = 0.25: A(3, 2) = 0.135: A(3, 3) = 1.2: A(3, 4) = 1.038: A(3, 5) = 0.929 ＜中略＞ A(38, 1) = 5.5: A(38, 2) = 2.977: A(38, 3) = 60: A(38, 4) = 56.428: A(38, 5) = 54.046 A(39, 1) = 6: A(39, 2) = 3.248: A(39, 3) = 64: A(39, 4) = 60.103: A(39, 5) = 57.505 A(40, 1) = 6: A(40, 2) = 3.248: A(40, 3) = 68: A(40, 4) = 64.103: A(40, 5) = 61.505 D = -1 For I = 1 To 40 If A(I, 3) = B Then NAMIME = A(I, C): D = 0 End If Next I If D Then NAMIME = "範囲外" End Function
- ベストアンサー
- オフィス系ソフト
- VBAの質問です。
VBAの質問です。 A列に結合したセルがあり、 B列に結合セルの何番目かを出力する、という関数を作成したいです。 呼び元は、1行ごとにこの関数を呼び出します。 呼び元は他の処理も行っていて、機能追加の意味で別関数を用意したいです。 どうすればB列に番号を振れるでしょうか。 宜しくお願いします。 | A | B | --+-------+-------+ 1 | | 1 | --+ +-------+ 2 | | 2 | --+ +-------+ 3 | | 3 | --+-------+-------+ 4 | | 1 | --+-------+-------+ 5 | | 1 | --+ +-------+ 6 | | 2 | --+-------+-------+ イメージ書いて見ました。 Dim r As Integer Sub 呼び元() For i = 1 To 6 r = 1 Call 結合番号出力 Next End Sub Sub 結合番号出力() Cells(r, "B").Value = ●●● End Sub
- ベストアンサー
- その他MS Office製品