Excel VBA質問箱 IV

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

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


52915 / 76732 ←次へ | 前へ→

【28642】Re:配列内部の順番を 逆にする方法(関数)は?
発言  [名前なし]  - 05/9/11(日) 15:49 -

引用なし
パスワード
   ▼row さん:
単純に入れ替えるだけじゃだめでしょうか?

Sub 使用例()
Dim 比較対象ファンド1 As Variant
Dim i As Long

  比較対象ファンド1 = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11)
  Call ReverseArray(比較対象ファンド1)
  MsgBox Join(比較対象ファンド1, ",") '中身確認の為
End Sub

Sub ReverseArray(ByRef Ary As Variant)
Dim i As Long, j As Long
Dim AryHalf As Long, AryMin As Long, AryMax As Long
Dim Temp As Variant

  AryMin = LBound(Ary)
  AryMax = UBound(Ary)
  AryHalf = AryMax \ 2
  For i = AryMin To AryHalf
    j = AryMax - i + AryMin
    Temp = Ary(i)
    Ary(i) = Ary(j)
    Ary(j) = Temp
  Next i
End Sub

0 hits

【28641】配列内部の順番を 逆にする方法(関数)は? row 05/9/11(日) 15:12 質問
【28642】Re:配列内部の順番を 逆にする方法(関数... [名前なし] 05/9/11(日) 15:49 発言
【28643】Re:配列内部の順番を 逆にする方法(関数... row 05/9/11(日) 16:14 お礼
【28645】Re:配列内部の順番を 逆にする方法(関数... [名前なし] 05/9/11(日) 16:35 発言
【28647】Re:配列内部の順番を 逆にする方法(関数... row 05/9/11(日) 16:48 お礼
【28646】Re:配列内部の順番を 逆にする方法(関数... だるま 05/9/11(日) 16:40 回答
【28648】Re:配列内部の順番を 逆にする方法(関数... row 05/9/11(日) 16:49 お礼

52915 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free