| Microsoft Excel2000 | ||||||||||
| ファイル(F) | 編集(E) | 表示(V) | 挿入(I) | 書式(O) | ツ−ル(T) | デ−タ(D) | ウィンドウ(W) | ヘルプ(H) | その他(S) | TOP |
| セル（E） 行（R） 列（C） ワ−クシ−ト（W） グラフ（H） 改ペ−ジ（B） 関数（F） 名前（Ｎ） ≫ コメント（M） 図（Ｐ） ≫ オブジェクト（O） ハイパ−リンク（T） |
Sub Macro1()
[1]右方向にシフト
Selection.Insert Shift:=xlToRight
[2]下方向にシフト
Selection.Insert Shift:=xlDown
[3]行全体
Selection.EntireRow.Insert
[4]列全体
Selection.EntireColumn.Insert
End Sub
■ セルの挿入には以上の４種類あり
*************************************************
●「行」のマクロ例
Sub Macro1()
Range("B2").Select
Selection.EntireRow.Insert
End Sub
■ これは行の挿入であるが、内容は前項の[3]行全体と同じ
*************************************************
●「列」のマクロ例
Sub Macro1()
Selection.EntireColumn.Insert
End Sub
■ これは列の挿入であるが、内容は前項の[4]列全体と同じ
*************************************************
●「ワ−クシ−ト」のマクロ例
Sub Macro1()
Sheets.Add
End Sub
■ sname = ActiveSheet.Nameでシ−ト名を取得できる。
■ Sheets.Add.Name = "検索結果"のようにシ−ト名を付けて追加する事も出来る。
PageTop
●「グラフ」のマクロ例
Sub Macro1()
Range("B2:D3").Select
Charts.Add
ActiveChart.ChartType = xlColumnClustered
ActiveChart.SetSourceData Source:=Sheets("Sheet1").Range("B2:D3"), PlotBy:= _
xlRows
ActiveChart.Location Where:=xlLocationAsObject, Name:="Sheet1"
ActiveChart.HasLegend = True
ActiveChart.Legend.Select
Selection.Position = xlRight
ActiveWindow.Visible = False
Windows("Book1").Activate
Range("H6").Select
End Sub
■ 本例実施でワ−クシ−ト上へグラフオブジェクトを挿入できる
PageTop
●「改ペ−ジ」のマクロ例
Sub Macro1()
改ペ−ジ設定
Range("F5").Select
ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCell
ActiveWindow.SelectedSheets.VPageBreaks.Add Before:=ActiveCell
Range("B5").Select
改ペ−ジ解除
Range("F5").Select
ActiveSheet.HPageBreaks(1).Delete
ActiveSheet.VPageBreaks(1).Delete
End Sub
■ 本例は、セル"F5"を選択し改ペ−ジを行なったケ−ス。
PageTop
●「関数」のマクロ例
Sub Macro1()
Range("B5").Select
ActiveCell.FormulaR1C1 = "=SUM(R[-2]C:R[-1]C)"
End Sub
■ 本例は、セル"B5"へ数字合計の関数を入力したケ−ス。
PageTop
| 定義（Ｄ） ■I8-1参照 貼り付け（Ｐ） ■I8-2参照 作成（Ｃ） ■I8-3参照 引用（Ａ） ■I8-4参照 ラベル（Ｌ） ■I8-5参照 |
●「名前」のマクロ例
■ I8-1．定義(セル"A1:D10"に名前"AAA"を付けたケ−ス)
Sub Macro1()
Range("A1:D10").Select
ActiveWorkbook.Names.Add Name:="AAA", RefersToR1C1:="=Sheet1!R1C1:R10C4"
End Sub
---------------------------------------------------------
■ I8-2．貼り付け(下記は定義した名前をセル"B5"へ貼りつけたケ−ス)
Sub Macro1()
Range("B5").Selectｖ
Selection.ListNames
End Sub
---------------------------------------------------------
■ I8-3．作成(下記例はセル"B3:D5"のセル範囲へ上端行の名前を付けたケ−ス)
Sub Macro1()
Range("B3:D5").Select
Selection.CreateNames Top:=True, Left:=False, Bottom:=False, Right:= False
Range("B1").Select
End Sub
---------------------------------------------------------
■ I8-4．引用
Sub Macro1()
Range("D4").Select
Selection.ApplyNames Names:=Array("AA", "BB", "CC"), IgnoreRelativeAbsolute:= _
True, UseRowColumnNames:=True, OmitColumn:=True, OmitRow:=True, Order:= _
1, AppendLast:=Falseｖ
End Sub
---------------------------------------------------------
■ I8-5．ラベル(("B3:D3")に列ラベルを設定したケ−ス)
Sub Macro1()
Range("B3:D3").Select
Range("B3:D3").FormulaLabel = xlColumnLabels
Range("B2").Select
End Sub
PageTop
●「コメント」のマクロ例
Sub Macro1()
Range("B3").AddComment
Range("B3").Comment.Visible = False
Range("B3").Comment.Text Text:="井領:" & Chr(10) & ""
End Sub
本例は、セル"B3"へコメントを追加したケ−ス
PageTop
| クリップア−ト（C） ■2007クリップア−ト（下図参照） ファイルから（F） ■2007では「図」（下図参照） オ−トシェイブ（A） ■2007では「図形」（下図参照） ワ−ドア−ト（W） ■2007ワ−ドア−ト（下図参照） スキャナ−又はカメラから（S） ■2007では？ |
●「図」のマクロ例
Sub Macro1()
Range("B2").Select
ActiveSheet.Pictures.Insert("B:\写真１\v500e1.gif").Select
End Sub
■ 本例は、ファイル("B:\写真１\v500e1.gif")を開いたケ−ス。
■ 他の例は省略
PageTop
●「オブジェクト」のマクロ例
Sub Macro1()
ActiveSheet.OLEObjects.Add(ClassType:="MSWordArt.2", Link:=False, _
DisplayAsIcon:=False).Activate
Range("G13").Select
End Sub
■ 本例は、オブジェクトダイアログからワ−ドア−トを開いた例
PageTop
●「ハイパ−リンク」のマクロ例
Sub Macro1()
Range("B3").Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
"http://www2s.biglobe.ne.jp/~iryo"
End Sub
■ 本例は、B3セルへＵＲＬ"http://www2s.biglobe.ne.jp/~iryo"貼りつけたケ−ス
PageTop