Sub ColorIndexSample() Dim i As Long For i = 0 To 56 Range("A" & i + 1).Value = i Range("B" & i + 1).Interior.ColorIndex = i Next End Sub ray88.hatenablog.com ray88.hatenablog.com

■以下のようなWBSを作成します。 ■作成ボタンに登録するマクロ（コード） Sub WBS作成() Dim shp As Shape Dim org As Range Dim dst As Range Dim trgt As Range Dim days As Range Dim wsPrf As Worksheet Dim ctg As Range Set wsPrf = Worksheets("設定"…

■セル背景色のRBG値はセルのInteriorプロパティ以下のColorプロパティで取得する 「＝」で戻り値を（RBG値）を代入すればセルの背景色を設定できる。■書式：オブジェクト.Interior.Color オブジェクト：セルのオブジェクト ■使用例 Sub sample() Range("B3")…

■Widthプロパティ：セルの列幅をポイント単位で取得するプロパティ オブジェクト.Width オブジェクト：セルのオブジェクトを指定 （例）セル幅の中央の位置を取得する Range("E2").Width/2 ■RowHieghtプロパティ：セルの高さをポイント単位で取得するプロパ…

■Endプロパティを使用する オブジェクト.End( 方向 ) オブジェクト：出発点となるセルのオブジェクト 方向：以下の引数より指定する xlUp (上）xlDown（下）xlToRight（右）xlToLeft（左） ■使用例 Sub sample() Dim targetRange As Range Set targetRange =…

■Rangeプロパティを使用する場合 書式：Range( 先頭セル, 終端セル ) （例1）Range(Range("A1"),Range("D3")) （例2）Range(Cells(1,1),Cells(4,4)) ■使用例 Sub sample() Dim targetRange As Range Set targetRange = Range(Range("A1"), Range("D4")) '以…

■図形を削除するにはShapeオブジェクトのDeleteメソッドを使用する オブジェクト.Delete ※オブジェクト：Shapeオブジェクト ■TyPeプロパティを使用する オブジェクト.Type ※オブジェクト：Shapeオブジェクト ■使用例 Sub sample() Dim shp As Shape 'シート…