第26回 Excel VBAでハッシュを使う - bi_naの日記
CreateObject("Scripting.Dictionary") でハッシュを取得できる。代入時にはSetが必要。 Setが必要な場面はオブジェクト型の代入のようだ。 Rubyのように全部オブジェクトにしといてほしいが、そうでもないようなので、 覚えたほうが早そうである。 Setが必要なものはワークシートやRangeのようである。 RangeのValueなどは、配列が返ってくるのでこの場合は、Setは付けない模様。 ハッシュの使用例： Sub ハッシュの例() Dim hash Set hash = CreateObject("Scripting.Dictionary") hash.Add "AA", 50 hash.Add "BB", 60 Debug.Print Join(Array(hash("AA"), hash("BB")), ",") Debug.Print Join(
Office TANAKA - Excel VBA Tips[結合セルを調べる]
セルを結合するにはRangeオブジェクトのMergeメソッドを実行します。 Sub Sample1() Range("A1:B3").Merge End Sub こんな感じです。実行するとセル範囲A1:B3が結合されます。ちなみに結合を解除するにはUnMergeメソッドを実行します。 さて、セルを結合したり解除したりするのは簡単ですが、任意のセルが結合されているかどうかを調べるにはどうしたらいいでしょう。実は今やってる仕事の支援システムを作っていて、この判断が必要になりました。そんなに難しいテクニックではありませんが、意外と知られていないようなので、せっかくですからご紹介しましょう。 ここでは上図のようなシートを例にします。セル範囲A3:A4とセル範囲A6:A8が結合されています。B列は結合されていません。よくみかけるレイアウトですよね。 結合セルの判定で役立つのはMergeCellsプロ
これだけはおさえるセル操作（1）－Offsetで自由自在：Excel VBA｜即効テクニック｜Excel VBAを学ぶならmoug
これだけはおさえるセル操作（1）－Offsetで自由自在 (Excel 97/2000/2002/2003/2007/2010/2013/2016) ツイート セル（範囲）に関する基本事項で、RangeとCellsをマスターしたら、Offsetの使い方をぜひおさえてください。 【基礎編】 Offsetは簡単にいえば、セル（範囲）の移動です。使い方は次のとおりです。 Rangeオブジェクト.Offset(行方向, 列方向） 例えば・・・ ActiveCell.Offset(1, 0).Select このコードはアクティブセルから行方向に1、つまり1つ下のセルを選択します。 また、移動しない方向については省略可能ですから・・・ ActiveCell.Offset(1).Select でも同じです。ただし、移動しない方向の0を省略すると可読性が下がるというデメリットがあるので、Offset(1)
ユーザー定義のソート順の設定について - ユーザー定義した順番でソートするVBAコードを教えてください。リスト形式のデータが... - Yahoo!知恵袋
ユーザー定義のソート順の設定について ユーザー定義した順番でソートするVBAコードを教えてください。 リスト形式のデータがあり、F列（F1は見出し）には所属データが入っています。所属名は、「Belco店、総務課、アオキ支店、人事課、経理課、ワカヤマ支店」とランダムに入力されており、それをユーザーが指定する順番で並び替えるVBAコードをご教示ください。 ユーザー指定の順番：総務課、人事課、経理課、ワカヤマ店、Belco店、アオキ店 以下は、Ｆ列をただ単にマクロ記録でソートさせたコードですが、上記のユーザー指定の所属名をどこに、どのように、挿入すればいいのでしょうか？ sub 所属順() Selection.Sort Key1:=Range("F11"), Order1:=xlDescending, Header:=xlGuess _ , OrderCustom:=1, MatchCase:=
ブックとシートの操作 - アプリケーションとしてのVBA
◆ブックとシートの操作 Excelの VBA でマクロを作成する場合、必ず(?)複数のブック・シート間で、セルの値 を移動・転記するコードがあると思います。 セルの値の移動・転記の一般的な記述は、 ① Workbooks("Book1").Sheets("Sheet1").Range("A1") = _ Workbooks("Book2").Sheets("Sheet2").Range("A1") こうなります。 "Book1" の "Sheet1" がアクティブになっていれば、 ② Range("A1")=Workbooks("Book2").Sheets("Sheet2").Range("A1") こう記述できます。 "Book2" の "Sheet2" がアクティブになっていれば ③ Workbooks("Book1").Sheets("Sheet1").Range("A1")=Ra
1
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
