Dim colGrep As New Collection ' GREP結果格納用コレクション Dim strDsShts() As String ' 検索除外シート名をSplitした配列 Dim dicDsSht As Object Dim strWords() As String ' 検索文字列をSplitした配列 Dim i As Integer ' ワークブックを開く If pPassword <> "" Then Set wb = Workbo...
DimDirArrayAsVariant' 範囲内の値をArrayに格納するDirArray=Range("a1:a5").Value' ループで値を処理するForEachcInDirArray Debug.Print cNext 配列からセルの範囲へ 処理後、ArrayはRangeに書き戻すことができます。上の例のArrayをRangeに書き込むには、Arrayの要素数と同じ大きさのRangeを指定す...
For Each line In result.outLstでCollectionクラスに対してFor Each～Nextを実行することにより、.addメソッドによって格納した要素全ての書き込みを実現してます。ここでの一時変数lineはCollectionクラスに.addメソッドで格納した要素です。サ...
Collectionは配列と異なり、別の型も格納できる。Public Sub CollectionTest001() Dim cll As New Collection Call cll.Add("オプーナ") Call cll.Add(CDate("2008/1/3 3:32")) Call cll.Add(CLng(23432)) Call cll.Add("すぺらんかー") Dim vData As Variant For Each vData In cll Debug.Pr...
Clone 'クローンの結果を確認するためにMyList1を繰り返し実行する For Each I In MyList1 'アイテムを表示 MsgBox I Next I End Sub ‘MyList1’ には ‘MyList’ のすべてのアイテムが同じ順序で表示されるようになりました。ArrayListをVBA標準配列オブジェクトへコピーするArrayListを通常の...
この関数は Split 関数を使用して、Start パラメータを Limit とした配列を作成します。 つまり、配列の要素には start パラメータまでの分割結果が格納されますが、 残りの文字列は最後の要素となり、分割は行われないということです。配列の最後の要素は、UBound 関数を使って文字列に戻し、これ...