[VBA]複数のセルオブジェクトを１つのセルオブジェクトに統合する。

[はじめに]
・あまり知られていないかもしれませんが、
　複数のセルオブジェクトを、１つのセルオブジェクトに統合することができます。
　※Union関数を使用。

　統合後のセルに対して、
　プロパティやメソッドにアクセスすると、
　統合前のセルすべてに対して、アクセスすることと同じ意味になります。
　複数のセルオブジェクトをまとめて処理したい場合に、便利です。
　※［注意］セルの結合ではありません。

　以下は、
　「A1」、「B2:D5」、「D3,D5」の複数のセル領域を統合して、
　「Hello」の文字列を設定する例です。
　　備忘録としてサンプルソースを掲載します。

[ソース]

Private Sub UnionSample()     Dim cellArray() As Variant     Dim cellUnion As Range     Dim cell As Variant          '① 統合前のセルを定義     cellArray = Array(Range("A1"), Range("B2:C5"), Range("D3:F5"))          '② ①で定義したセルを     '　 １つのセルオブジェクトに統合する。     For Each cell In cellArray         If cellUnion Is Nothing Then             '初回のみセルを設定             Set cellUnion = cell         Else             '2回目以降は、セルを統合する。             Set cellUnion = Union(cellUnion, cell)         End If          Next          '③ 統合後のセルに値を設定。     cellUnion.Value = "Hello" End Sub

[VBA]複数のセルオブジェクトを１つのセルオブジェクトに統合する。

[VBA]カラーの定数一覧

[はじめに]
・VBAで、
　色の定数を知りたいことがよくあるので、
　備忘録として掲載します。

カラーの定数一覧
ColorConstants定数

カラー	例	ColorConstants定数	R	G	B	カラー値 (R+G×256+B×2562)
黒	■	vbBlack	0	0	0	0
青	■	vbBlue	0	0	255	16711680
シアン	■	vbCyan	0	255	255	16776960
緑	■	vbGreen	0	255	0	65280
マゼンタ	■	vbMagenta	255	0	255	16711935
赤	■	vbRed	255	0	0	255
白	■	vbWhite	255	255	255	16777215
黄	■	vbYellow	255	255	0	65535

XlRgbColor定数

カラー	例	XlRgbColor定数	R	G	B	カラー値 (R+G×256+B×2562)
黒	■	rgbBlack	0	0	0	0
ディムグレー	■	rgbDimGray、rgbDimGrey	105	105	105	6908265
灰色	■	rgbGray、rgbGrey	128	128	128	8421504
濃い灰色	■	rgbDarkGray、rgbDarkGrey	169	169	169	11119017
銀色	■	rgbSilver	192	192	192	12632256
薄い灰色	■	rgbLightGray、rgbLightGrey	211	211	211	13882323
ゲーンズボロ	■	rgbGainsboro	220	220	220	14474460
ホワイトスモーク	■	rgbWhiteSmoke	245	245	245	16119285
白	■	rgbWhite	255	255	255	16777215
スノー	■	rgbSnow	255	250	250	16448255
ローズブラウン	■	rgbRosyBrown	188	143	143	9408444
薄いさんご	■	rgbLightCoral	240	128	128	8421616
インディアンレッド	■	rgbIndianRed	205	92	92	6053069
茶	■	rgbBrown	165	42	42	2763429
れんが色	■	rgbFireBrick	178	34	34	2237106
栗色	■	rgbMaroon	128	0	0	128
濃い赤	■	rgbDarkRed	139	0	0	139
赤	■	rgbRed	255	0	0	255
ミスティローズ	■	rgbMistyRose	255	228	225	14804223
サーモンピンク	■	rgbSalmon	250	128	114	7504122
トマト	■	rgbTomato	255	99	71	4678655
濃いサーモンピンク	■	rgbDarkSalmon	233	150	122	8034025
さんご	■	rgbCoral	255	127	80	5275647
オレンジレッド	■	rgbOrangeRed	255	69	0	17919
薄いサーモンピンク	■	rgbLightSalmon	255	160	122	8036607
シェンナ	■	rgbSienna	160	82	45	2970272
シーシェル	■	rgbSeashell	255	245	238	15660543
ピーチパフ	■	rgbPeachPuff	255	218	185	12180223
サンディブラウン	■	rgbSandyBrown	244	164	96	6333684
リネン	■	rgbLinen	250	240	230	15134970
ペルー	■	rgbPeru	205	133	63	4163021
ビスク	■	rgbBisque	255	228	196	12903679
濃いオレンジ	■	rgbDarkOrange	255	140	0	36095
アンティークホワイト	■	rgbAntiqueWhite	250	235	215	14150650
タン	■	rgbTan	210	180	140	9221330
バーリーウッド	■	rgbBurlyWood	222	184	135	8894686
ブランシュアーモンド	■	rgbBlanchedAlmond	255	235	205	13495295
ナバホホワイト	■	rgbNavajoWhite	255	222	173	11394815
パパイヤホイップ	■	rgbPapayaWhip	255	239	213	14020607
モカシン	■	rgbMoccasin	255	228	181	11920639
オレンジ	■	rgbOrange	255	165	0	42495
フローラルホワイト	■	rgbFloralWhite	255	250	240	15792895
オールドレース	■	rgbOldLace	253	245	230	15136253
小麦	■	rgbWheat	245	222	179	11788021
ゴールデンロッド	■	rgbGoldenrod	218	165	32	2139610
濃いゴールデンロッド	■	rgbDarkGoldenrod	184	134	11	755384
コーンシルク	■	rgbCornsilk	255	248	220	14481663
ゴールド	■	rgbGold	255	215	0	55295
レモンシフォン	■	rgbLemonChiffon	255	250	205	13499135
カーキ	■	rgbKhaki	240	230	140	9234160
濃いカーキ	■	rgbDarkKhaki	189	183	107	7059389
ペールゴールデンロッド	■	rgbPaleGoldenrod	238	232	107	7071982
アイボリー	■	rgbIvory	255	255	240	15794175
ベージュ	■	rgbBeige	245	245	220	14480885
明るい黄	■	rgbLightYellow	255	255	224	14745599
薄いゴールデンロッドイエロー	■	rgbLightGoldenrodYellow	250	250	210	13826810
オリーブ	■	rgbOlive	128	128	0	32896
黄	■	rgbYellow	255	255	0	65535
オリーブドラブ	■	rgbOliveDrab	107	142	35	2330219
イエローグリーン	■	rgbYellowGreen	154	205	50	3329434
濃いオリーブグリーン	■	rgbDarkOliveGreen	85	107	47	3107669
グリーンイエロー	■	rgbGreenYellow	173	255	47	3145645
若草色	■	rgbLawnGreen	124	252	0	64636
シャルトルーズ	■	rgbChartreuse	127	255	0	65407
ハニーデュー	■	rgbHoneydew	240	255	240	15794160
濃いシーグリーン	■	rgbDarkSeaGreen	143	188	143	9419919
明るい緑	■	rgbLightGreen	144	238	144	9498256
ペールグリーン	■	rgbPaleGreen	152	251	152	10025880
フォレストグリーン	■	rgbForestGreen	34	139	34	2263842
ライムグリーン	■	rgbLimeGreen	50	205	50	3329330
濃い緑	■	rgbDarkGreen	0	100	0	25600
緑	■	rgbGreen	0	128	0	32768
黄緑	■	rgbLime	0	255	0	65280
淡いアクアマリン	■	rgbMediumAquamarine	102	255	170	11206502
淡いシーグリーン	■	rgbMediumSeaGreen	60	179	113	7451452
シーグリーン	■	rgbSeaGreen	46	139	87	5737262
ミントクリーム	■	rgbMintCream	245	255	250	16449525
スプリンググリーン	■	rgbSpringGreen	0	255	127	8388352
淡いスプリンググリーン	■	rgbMediumSpringGreen	0	250	154	10156544
アクアマリン	■	rgbAquamarine	127	255	212	13959039
ターコイズ	■	rgbTurquoise	64	224	208	13688896
薄いシーグリーン	■	rgbLightSeaGreen	32	178	170	11186720
淡いターコイズ	■	rgbMediumTurquoise	72	209	204	13422920
空色	■	rgbAzure	240	255	255	16777200
ペールターコイズ	■	rgbPaleTurquoise	175	238	238	15658671
濃いスレートグレー	■	rgbDarkSlateGray	47	79	79	5197615
濃いスレートグレー	■	rgbDarkSlateGrey	47	79	79	5197615
青緑	■	rgbTeal	0	128	128	8421376
濃いシアン	■	rgbDarkCyan	0	139	139	9145088
明るい水色	■	rgbLightCyan	0	139	139	9145088
濃いターコイズ	■	rgbDarkTurquoise	0	206	209	13749760
水色	■	rgbAqua	0	255	255	16776960
カデットブルー	■	rgbCadetBlue	95	158	160	10526303
パウダーブルー	■	rgbPowderBlue	176	224	230	15130800
明るい青	■	rgbLightBlue	173	216	230	15128749
深いスカイブルー	■	rgbDeepSkyBlue	0	191	255	16760576
スカイブルー	■	rgbSkyBlue	135	206	235	15453831
薄いスカイブルー	■	rgbLightSkyBlue	135	206	250	16436871
アリスブルー	■	rgbAliceBlue	240	248	255	16775408
スチールブルー	■	rgbSteelBlue	70	130	180	11829830
スレートグレー	■	rgbSlateGray	112	128	144	9470064
薄いスレートグレー	■	rgbLightSlateGray	119	136	153	10061943
ドジャーブルー	■	rgbDodgerBlue	30	144	255	16748574
薄いスチールブルー	■	rgbLightSteelBlue	176	196	222	14599344
コーンフラワーブルー	■	rgbCornflowerBlue	100	149	237	15570276
ロイヤルブルー	■	rgbRoyalBlue	65	105	225	14772545
ゴーストホワイト	■	rgbGhostWhite	248	248	255	16775416
ラベンダー	■	rgbLavender	230	230	250	16443110
ミッドナイトブルー	■	rgbMidnightBlue	25	25	112	7346457
ネイビー	■	rgbNavy、rgbNavyBlue	0	0	128	8388608
濃い青	■	rgbDarkBlue	0	0	139	9109504
淡い青	■	rgbMediumBlue	0	0	205	13434880
青	■	rgbBlue	0	0	255	16711680
濃いスレートブルー	■	rgbDarkSlateBlue	72	61	139	9125192
スレートブルー	■	rgbSlateBlue	106	90	205	13458026
淡いスレートブルー	■	rgbMediumSlateBlue	123	104	238	15624315
淡い紫	■	rgbMediumPurple	147	112	219	14381203
青紫	■	rgbBlueViolet	138	43	226	14822282
インディゴ	■	rgbIndigo	75	0	130	8519755
濃いオーキッド	■	rgbDarkOrchid	153	50	204	13382297
濃い紫	■	rgbDarkViolet	148	0	211	13828244
淡いオーキッド	■	rgbMediumOrchid	186	85	211	13850042
あざみ色	■	rgbThistle	216	191	216	14204888
プラム	■	rgbPlum	221	160	221	14524637
紫色	■	rgbViolet	238	130	238	15631086
紫	■	rgbPurple	128	0	128	8388736
濃いマゼンタ	■	rgbDarkMagenta	139	0	139	9109643
明るい紫	■	rgbFuchsia	255	0	255	16711935
オーキッド	■	rgbOrchid	218	112	214	14053594
淡いバイオレットレッド	■	rgbMediumVioletRed	199	21	133	8721863
深いピンク	■	rgbDeepPink	255	20	147	9639167
ホットピンク	■	rgbHotPink	255	105	180	11823615
ラベンダーブラッシュ	■	rgbLavenderBlush	255	240	245	16118015
ペールバイオレットレッド	■	rgbPaleVioletRed	219	112	147	9662683
深紅	■	rgbCrimson	220	20	60	3937500
ピンク	■	rgbPink	255	192	203	13353215
薄いピンク	■	rgbLightPink	255	182	193	12695295

[VBA]RGBカラー値からRGBの各々の値を取得

[はじめに]
・RGBの各要素からRGBカラー値を取得する為に、
　VBAではRGB関数が用意されていますが、
　その逆（RGBカラー値から元のRGB各要素を取得）の関数は
　用意されていません。

　たまに必要になることがあるので、
　ユーザ定義関数を作成しましたので、備忘録として掲載します。

[ソース]

'[機能] '　RGB カラー値から、 '　赤(R)、緑(G)、青(B)の各々の値を取得する。 '[引数] '　rgbColor：RGB カラー値 '[戻り値] '　RGBの各値（配列） '　　０番目：赤(R) '　　１番目：緑(G) '　　２番目：青(B) Public Function GetRgbValues(ByVal rgbColor As Long) As Integer()     Dim rtnColors(2) As Integer     '赤(R)     rtnColors(0) = rgbColor Mod 256     '緑(G)     rtnColors(1) = rgbColor \ 256 Mod 256     '青(B)     rtnColors(2) = rgbColor \ 65536     GetRgbValues = rtnColors End Function

[VBA]RGBカラー値から赤(R)、緑(G)、青(B)の各々の値を取得

[VBA]セルの取得、値の書き込み

[はじめに]
・Excel VBAでよくセルの情報を取得することがありますが、
　様々な書き方があるので、備忘録に記載します。

　セル座標をA1形式や行列番号で指定したり、
　複数セルの範囲指定、その他のブックやシート上のセルの取得　など
　用途に応じたパターンを適用頂ければと思います。

[ソース]

Private Sub WriteToCellValue()     '■■■１．「Ａ１形式」でセルを指定する。     '　①単一セルを扱う。     '　※例：セルA1に値を出力     Range("A1").Value = "あ"          '　②複数セルを扱う（その１）     '　※例：セルA3～A5に値を出力     Range("A3:A5").Value = "い"     '　③複数セルを扱う（その２）     '　※例：セルC1～D10に値を出力     Range(Range("C1"), Range("D10")).Value = "う"     '■■■２．行番号、列番号でセルを指定する。     '　行番号、列番号をカウントアップ等をさせたい場合、有効。     '　※例：セル（1行目、6列目）に値を出力     Cells(1, 6).Value = "え"     '■■■３．特定のセル範囲内から、相対的にセルを取得     '　※例：セルD4（B3～E5内で2行目、3列目）に値を出力     Range("B3:E5").Cells(2, 3).Value = "お"     '■■■４．特定のセル範囲内から、相対的な行を取得     '　※例：B3～E5内の1行目に値を出力     Range("B3:E5").Rows(1).Value = "か"     '■■■５．特定のセル範囲内から、相対的な列を取得     '　※B3～E5内の3列目に値を出力     Range("B3:E5").Columns(3).Value = "き"     '■■■６．他のシートのセルを扱う。     '　指定セルが、他のシートにある場合は、     '　以下のように記載します。     '　シート省略時は、アクティブシートが対象になります。     '　※例：シートSheet1のセルA2に値を出力     '　　　以下例のRangeは上記の１～５の表記でも可能。     Sheets("Sheet1").Range("A2").Value = "く"     '■■■７．他のブックのセルを扱う。     '　指定セルが、他のブック、シートにある場合は、     '　以下のように記載します。     '　ブック省略時は、アクティブブックが対象になります。     '　※例：当ブックのシートSheet1のセルA3に値を出力     '　　　以下例のRangeは上記の１～５の表記でも可能。     ThisWorkbook.Sheets("Sheet1").Range("A3").Value = "け" End Sub

[VBA]セルの選択

[.NET][Visual Studio]CodeLensを非表示にする。（○○個の参照）

[はじめに]
　Visual Studioはバージョンアップのたびに様々な便利機能が追加されますが、
　便利な反面、稀に不便なものもあります。
　そのうちの１つがCodeLensです。（あくまでも筆者の感想です）

　CodeLensとは、
　Visual Studio 2015で追加された機能で、
　コードエディタ上で、メソッドやクラスの定義の上の行に、
　そのメソッドやクラスを参照している個数を表示する機能です。
　（図１で「４個の参照」と表示されている箇所です。）

　一見、便利な機能ですが、
　コード編集時に「○○個の参照」の行にカーソルが入らない為、
　編集時に思い通りの動作にならず、不便に感じることがあります。

　CodeLensを無効にする設定が一見わかりづらいので、
　無効にする手順を、備忘録として掲載します。


【図１】


[CodeLensを無効にする手順]
（１）Visual Studio の「ツール」→「オプション」を選択し、
　　　オプションダイアログを表示させる。
　　

（２）オプションダイアログの左側のツリービューで、
　　　「テキストエディタ」→「すべての言語]」→「CodeLens」をクリックし、
　　　右側のエリアの「CodeLens を有効にする」の
　　　チェックボックスのチェックを外す。
　　

（３）（２）まで実施すると、CodeLensの表記が表示されなくなります。
　　

[.NET]yield returnの使用例（C#）

[はじめに]
　C#には「yield」キーワードがありますが、
　他の言語と比べて特殊でわかりにくいので、使い方の備忘録を掲載します。
　※「yield」は、
　　他の言語（JavaScript、Perl、Python等）でも採用されつつありますが。。。

　「yield」は、
　オブジェクト指向のデザインパターンのIteratorパターンの実装で利用されます。
　Iteratorパターンとは、多数の集合に対してその内部の実装を意識することなく、
　逐次処理するためのデザインパターンです。

　C#では、.NET Framework 2.0（Visual Studio 2005）から
　「yield」が導入されました。
　.NET Framework 1.1（Visual Studio .NET 2003）以前の版で、
　Iteratorパターンを実装するには、
　IEnumerableインタフェース、IEnumeratorインタフェースを実装したクラスを
　記述する必要がありましたが、
　.NET Framework 2.0（Visual Studio 2005）以降では、
　それらのクラスは「yield return」で代用され、
　Iteratorパターンの実装がより簡潔になりました。

[サンプルコード]
以下、２つのサンプルコードを掲載します。
２つのサンプルコードは、各々独立して動作します。

/// <summary>  /// yield returnの実装サンプル  /// </summary>  public class YieldSample1 : IEnumerable<string>  {      /// <summary>      /// 月の異名の列挙を取得する。      /// </summary>      /// <returns>月の異名の列挙</returns>      public IEnumerator<string> GetEnumerator()      {          yield return "睦月";          yield return "如月";          yield return "弥生";          yield return "卯月";          yield return "皐月";          yield return "水無月";          yield return "葉月";          yield return "長月";          yield return "神無月";          yield return "霜月";          yield return "師走";      }      /// <summary>      /// 月の異名の列挙を取得する。      /// </summary>      /// <returns>月の異名</returns>      IEnumerator IEnumerable.GetEnumerator()      {          return this.GetEnumerator();      }  }  public class Program1  {      /// <summary>      /// 列挙を取得し、各々の要素を出力する。      /// </summary>      /// <param name="args"></param>      static void Main(string[] args)      {          System.Console.WriteLine("■月の異名を出力する。");          IEnumerable<string> ie1 = new YieldSample1();          foreach (var it1 in ie1)          {              System.Console.WriteLine(it1);          }          System.Console.WriteLine("");          //[出力]          // ■月の異名を出力する。          // 睦月          // 如月          // 弥生          // 卯月          // 皐月          // 水無月          // 葉月          // 長月          // 神無月          // 霜月          // 師走          //[補足]          // 上記コードは、          // 下記のように書き換えることも可能です。          // 逆に言うと、foreachで実装すると、          // 以下のコードに読み替えて実行されます。          //System.Console.WriteLine("■月の異名を出力する。（while文で処理）");          //IEnumerable<string> ie1 = new YieldSample1();          //IEnumerator<string> it1 = ie1.GetEnumerator();          //while (it1.MoveNext())          //{          //    System.Console.WriteLine(it1.Current);          //}          //System.Console.WriteLine("");          System.Console.ReadLine();      }  }

[C#]yield returnの使用例（その２）

/// <summary> /// yield returnの実装サンプル /// </summary> public class YieldSample2 {     /// <summary>     /// 干支の列挙を取得する。     /// </summary>     /// <returns>干支の列挙</returns>     public IEnumerable<String> GetEto()     {         yield return "子年";         yield return "丑年";         yield return "寅年";         yield return "卯年";         yield return "辰年";         yield return "巳年";         yield return "午年";         yield return "未年";         yield return "申年";         yield return "酉年";         yield return "戌年";         yield return "亥年";     } } public class Program2 {     /// <summary>     /// 列挙を取得し、各々の要素を出力する。     /// </summary>     /// <param name="args"></param>     static void Main(string[] args)     {         System.Console.WriteLine("■干支を出力する。");         YieldSample2 ie1 = new YieldSample2();         foreach (var it1 in ie1.GetEto())         {             System.Console.WriteLine(it1);         }         System.Console.WriteLine("");         //[出力]         // ■干支を出力する。         // 子年         // 丑年         // 寅年         // 卯年         // 辰年         // 巳年         // 午年         // 未年         // 申年         // 酉年         // 戌年         // 亥年         //[補足]         // 上記コードは、         // 下記のように書き換えることも可能です。         // 逆に言うと、foreachで実装すると、         // 以下のコードに読み替えて実行されます。         //System.Console.WriteLine("■干支を出力する。（while文で処理）");         //YieldSample2 ie1 = new YieldSample2();         //IEnumerator<string> it1 = ie1.GetEto().GetEnumerator();         //while (it1.MoveNext())         //{         //    System.Console.WriteLine(it1.Current);         //}         //System.Console.WriteLine("");         System.Console.ReadLine();     } }

[C#]yield returnの使用例（その２）

[ご参考]

Iteratorパターンについて

デザインパターン「Iterator」-Qiita