VB6を使用して、例えば「a(0)~a(7)」までの変数と「b(0)~b(7)」までの変数を宣言している時、a(0)~a(7)には元々数値が入っていて、それをb(0)~b(7)に並びを変えて数値を入れるのに簡単な方法はありますか?
例)
a(0)=0 a(1)=1 a(2)=2 ・・・ a(7)=7
b(0)=a(5) b(1)=a(3) b(2)=a(1) ・・・ b(7)=a(2)
などに置き換えたい場合です。
bに入れる数値のa()の並びは一定です。
aに入れるの数値は固定データです。
単純に一つずつ入れてもできるのですが、データが多くて時間がかかるので簡単な方法があれば教えてください。
No.1
- 回答日時:
何らかの、規則がないなら、1つずつやらないと仕方がないですね。
並びのリストを作っておくといいのかもしれません
さっそくのアドバイスありがとうございます。
やはり不規則な並びでは一つずつ変数に入れてやるしかないですかね。
なんかスマートにやる方法があればと思ったのですが・・・。
No.2ベストアンサー
- 回答日時:
とりあえず規則性がないなら、何かしらの方法で一つずつ設定はしなければ仕方ないと思いますが、
Const acNum as string = "3,2,5,4,1,7,6"
dim acData() as string
dim alLoop as long
dim alHairetuNo as long
acData = split(acNum,",")
for alloop = 0 to ubound(acData)
alHairetuNo = cLng(acData(alLoop))
b(alloop) = a(alHairetuNo)
next
Erase acData
acNum の中にカンマ区切りで順番をいれておいて、それをSplitステートメントで配列 acDataの中に読み込みます。
で、あとはFor Next文でくるくる回すと。
こんな感じでどうでしょう?
回答ありがとうございます。
こんな方法があるんですね。
変数が多かったのでずらずら代入するプログラムはあとで見づらくなるかと思い、すっきりした方法を探していました。
おかげでだいぶ見やすいプログラムになりました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) Excel のユーザー定義関数でソルバーが動作しない 1 2022/09/05 19:51
- Excel(エクセル) エクセルのグラフに上下限値の横棒を表示させたい 5 2022/12/12 11:09
- その他(OS) Windowsで大量の画像サイズを半自動で変更する方法 6 2023/02/17 08:45
- 数学 モデルのパラメータの定義がいまいちわかりません。 3 2022/10/11 15:16
- Excel(エクセル) エクセルのフッタやヘッダーについて 3 2023/02/04 09:45
- C言語・C++・C# C言語プログラム変更 2 2022/12/21 15:03
- C言語・C++・C# C言語初心者 ポインタについて、お助けください、、 2 2023/03/15 23:50
- デスクトップパソコン 40年間の悩み キーボードにおいて初期値として漢字ローマ字変換に設定する方法 8 2023/05/08 14:50
- Visual Basic(VBA) EXCEL VBAで教えてください。 1 2022/12/22 04:20
- その他(Microsoft Office) エクセル 日付を数値に変換する方法 4 2023/03/24 12:05
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
VBAで大量のファイルをシート名...
-
Vba 実数および実数タイプの変...
-
エクセルVBAについて
-
ユーザーフォームに別シートか...
-
VB.net(VB)で、フォームにExcel...
-
Excelのマクロについて教えてく...
-
エクセルの合計を自動で表示さ...
-
Excelのマクロでワードのテキス...
-
VBAの計算で@が出てしまう件
-
VBA listBoxから
-
エクセルのマクロについて教え...
-
Excelのマクロについて教えてく...
-
エクセルのマクロについて教え...
-
エクセルのマクロについて教え...
-
左右の表のキー位置を合わせたい
-
VBAの質問になります メッセー...
-
Excel マクロについての相談
-
VBA レジストリの値の読み方に...
-
2つのマクロでチェックボックス...
-
Vba SelStart、SelLen教えてく...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
リストビューの列ヘッダーの幅...
-
共有フォルダの「共有のアクセ...
-
文字列を繰り返して表示する VBA
-
C言語で10行10列の行列式の値を...
-
構造体のコピー
-
ディレクトリ以下のファイル・...
-
VBL ListBoxをテーブルに
-
VB6で変数の配置転換
-
文字列の中からある文字の個数...
-
VB.netである関数を呼んで、そ...
-
tranlate関数で特定の文字を取...
-
三項でたとえば交換って
-
VBA public変数はどのようなこ...
-
C#のループでtextboxに値を入れ...
-
VBAでcallで呼び出したsubを終...
-
他のフォームから別のフォーム...
-
C言語のサフィックスについて
-
レコードセットにnullの場合
-
エクセルVBAでテキストボッ...
-
Functionの戻り値を配列にした...
おすすめ情報