TARU-NET.JP

ExcelVBA Modules
ArrayReverse 動作確認: Excel 2000-2003 更新日: 2013/05/02 Reference Download

配列の逆順処理を行います。
ArrayReverse モジュール
作成日:2013/05/02
更新日:2013/05/02





NAME

            ArrayReverse -- ArrayReverse モジュール

		



SYNOPSIS

            Sub Main()
                Dim varArray(9) As String
                Dim i As Long

                For i = 0 To 9
                    varArray(i) = i
                Next i

                Call fncArrayReverse(varArray())
            End Sub
		



DESCRIPTION



AN OUTLINE -- 概要


配列の逆順処理を行います。


PREPARATION -- 準備


[DOWNLOAD]から、本ExcelBookをダウンロードします。
ダウンロードが完了したらマクロを有効にして開いてください。そこにサンプルモジュールと本モジュールが含まれています。

[CODE]をコピーして、適当な標準モジュールに貼り付けて使用しても構いません。

HOW TO USE -- 使用方法


            Dim varArray() As String
            Call fncArrayReverse(varArray())
		


EXAMPLE -- 使用例

例1:次の配列を逆順処理する。
            Sub Main()
                Dim varArray(9) As String
                Dim i As Long

                For i = 0 To 9
                    varArray(i) = i
                Next i

                Call fncArrayReverse(varArray())
            End Sub
		


CODE -- コード

配列逆順処理のコード
            Public Sub Sample()
                Dim varArray(9) As String
                Dim i As Long

                For i = 0 To 9
                    varArray(i) = i
                Next i

                Call fncArrayReverse(varArray())
            End Sub


            Private Function fncArrayReverse(ByRef varArray() As String)
                Dim str As Variant
                Dim top As Long
                Dim bottom As Long

                top = UBound(varArray)
                bottom = LBound(varArray)

                Do While bottom < top
                    str = varArray(top)
                    varArray(top) = varArray(bottom)
                    varArray(bottom) = str

                    bottom = bottom + 1
                    top = top - 1
                Loop
            End Sub
		



REFERENCE

Name Description Syntax



ATTENTION

・サンプルでは[String]で型を指定していますが、[Long][Variant]など使用内容によって変更して下さい。
・本モジュールを利用した事によるいかなる損害も一切の責任を負いません。
・感想や要望、不具合などありましたら、作者までご連絡ください。



MEMO

本モジュールの本文中に「NAME/VERSION/AUTHOR/COPYRIGHT」が記載されています。



CONTRIBUTION

寄付歓迎
本モジュールはフリーですが、「このモジュールのおかげで、素晴らしいソフトが作れた」など、寄付をしていただける方がいましたら、作者宛までご一報ください。
なお受け付けている物は、お金(日本通貨円)、食料(酒/缶詰/お米など)となっております。



DOWNLOAD

<<---DOWNLOAD ArrayReverse--->>



VERSION

Version:1.00 - Thu May 2, 2013



AUTHOR

Syunzi Shimohata <webmaster@taru-net.jp> http://www.taru-net.jp/