Sub Tips()
Dim i
As Long, j
As Long, ary, var, tmp
Dim coll
As New Collection, dic
As Object '■ :(コロン)で区切って1行に複数のステートメントを記入できる i = 1: tmp = Array("a001", "a002", "a003"): ary = Array("鈴木", "佐藤", "田中")
'■ バリアント変数には配列要素を配列で格納できる(ジャグ配列) var = Array(tmp, ary)
MsgBox var(0)(1)
'a002 '■ Transposeで配列の行列変換ができる Range("a1:a2").Value = Application.Transpose(ary)
'Range("a1:a2").Value = ary ← エラー '■ Collectionオブジェクトは動的配列代わりに使用可能 coll.Add "鈴木": coll.Add "佐藤": coll.Add "佐藤"
'重複可 MsgBox coll(1)
'鈴木(インデックスは1から) 'Range("a1:b1").Value = coll ← エラー '■ DictionaryオブジェクトのItemには配列を格納できる Set dic = CreateObject("Scripting.Dictionary")
dic.Add "顧客", ary
MsgBox dic.Item("顧客")(2)
'田中 '■ Indexで配列の途中から1行(列)単位で取り出せる ReDim var(1
To 3, 1
To 2)
For i = 1
To 3
var(i, 1) = tmp(i - 1)
var(i, 2) = ary(i - 1)
Next Cells(3, 1).Resize(, 2) = Application.Index(var, 2, 0)
'列=0 ⇒ 行全体 'a002、佐藤 Set coll =
Nothing Set dic =
NothingEnd Sub
スポンサーサイト
ブログを見てもらえるとうれしいです。
h ttp://ameblo.jp/haru144
第二次大戦前にヨーロッパでオーロラが見られたように、
アメリカでオーロラが見られました。
ダニエル書を合算し、
未来に起こることを書き記しました。
エルサレムを基準にしています。
2018年 5月14日(月) 新世界
2018年 3月30日(金) ノアの大洪水
↑
この期間に第三次世界大戦が起きています。
↓
2014年 9月17日(水) 荒らすべき憎むべきものが
聖なる場所に立って神だと宣言する
2014年 9月10日(水) メシア断たれる
↑
この期間に世界恐慌が起きています。
↓
2013年 7月3日(水)メシヤなるひとりの君(天皇陛下)
御国の福音が宣べ伝えられる
2013年 5月15日(水) エルサレムを建て直せという命令が・・
天におられるわれらの父とキリスト、
死者復活と永遠のいのちを確信させるものです。
全てあらかじめ記されているものです。
これを、福音を信じる全ての方、
救いを待ち望む全ての方に述べ伝えてください。