NAME

ArrayUnshift -- ArrayUnshift Module


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 -- コード

配列の先頭に値を挿入するコード
        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/