スポンサーサイト

上記の広告は1ヶ月以上更新のないブログに表示されています。
新しい記事を書く事で広告が消せます。
[ --/--/-- --:-- ] スポンサー広告 | TB(-) | CM(-)

とりあえずExcel VBA Tips

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 = Nothing
End Sub
スポンサーサイト
[ 2013/06/13 21:43 ] その他 | TB(0) | CM(1)
ファティマ第三の預言とノアの大洪水について
ブログを見てもらえるとうれしいです。
h ttp://ameblo.jp/haru144


第二次大戦前にヨーロッパでオーロラが見られたように、
アメリカでオーロラが見られました。
ダニエル書を合算し、
未来に起こることを書き記しました。
エルサレムを基準にしています。


2018年 5月14日(月) 新世界
2018年 3月30日(金) ノアの大洪水

この期間に第三次世界大戦が起きています。

2014年 9月17日(水) 荒らすべき憎むべきものが
聖なる場所に立って神だと宣言する

2014年 9月10日(水) メシア断たれる

この期間に世界恐慌が起きています。

2013年 7月3日(水)メシヤなるひとりの君(天皇陛下)
御国の福音が宣べ伝えられる

2013年 5月15日(水) エルサレムを建て直せという命令が・・


天におられるわれらの父とキリスト、
死者復活と永遠のいのちを確信させるものです。

全てあらかじめ記されているものです。
これを、福音を信じる全ての方、
救いを待ち望む全ての方に述べ伝えてください。

[ 2013/06/13 21:50 ] [ 編集 ]
コメントの投稿












管理者にだけ表示を許可する
トラックバック
この記事のトラックバックURL

プロフィール

Author:いけぢー
備忘録がメインです。
あとは思いついた内容など。

カレンダー
03 | 2017/03 | 04
- - - 1 2 3 4
5 6 7 8 9 10 11
12 13 14 15 16 17 18
19 20 21 22 23 24 25
26 27 28 29 30 31 -
アクセスカウンター
押さないでください


上記広告は1ヶ月以上更新のないブログに表示されています。新しい記事を書くことで広告を消せます。