TARU-NET.JP

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

配列の先頭に値を挿入します。
ArrayUnshift モジュール
作成日:2013/05/17
更新日:2013/05/17





NAME

            ArrayUnshift -- ArrayUnshift モジュール

		



SYNOPSIS

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

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

                Call fncArrayUnshift(varArray(), "-1")
            End Sub
		



DESCRIPTION



AN OUTLINE -- 概要


配列の先頭に値を挿入します。


PREPARATION -- 準備


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

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

HOW TO USE -- 使用方法


            Dim varArray() As String
            Call fncArrayUnshift(varArray(), "-1")
		


EXAMPLE -- 使用例

例1:次の先頭に値を挿入する。
            Sub Main()
                Dim varArray() As String
                Dim i As Long

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

                Call fncArrayUnshift(varArray(), "-1")
            End Sub
		


CODE -- コード

配列の先頭に値を挿入するコード
            Public Sub Sample()
                Dim varArray() As String
                Dim i As Long
    
                ReDim varArray(9)
                For i = 0 To 9
                    varArray(i) = i
                Next i
    
                Call fncArrayUnshift(varArray(), "-1")
            End Sub


            Private Function fncArrayUnshift(ByRef varArray() As String, ByRef val As String)
                Dim top As Long
                Dim bottom As Long
                Dim i As Long

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

                ReDim Preserve varArray(top + 1)
                For i = top + 1 To bottom + 1 Step -1
                    varArray(i) = varArray(i - 1)
                Next i

                varArray(bottom) = val
            End Function
		



REFERENCE

Name Description Syntax



ATTENTION

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



MEMO

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



CONTRIBUTION

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



DOWNLOAD

<<---DOWNLOAD ArrayUnshift--->>



VERSION

Version:1.00 - Thu May 17, 2013



AUTHOR

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