- 日時： 2007/08/10 23:44
- 名前： 花ちゃん
- ***********************************************************************************
* カテゴリー：[エクセル][][] *
* キーワード：書式設定,カラー,色,セル色,, *
***********************************************************************************
元質問： VBからExcelに行を挿入 - ニキ 2003/02/25-11:50 No.2879
既存のexcelファイルの任意の行にを行を挿入し表等を描画する事は可能なのでしょうか？
データのやりとりや、セルに値を入れるのはわかるのですが、行を挿入するというのがわかりません。
-----------------------------------------------------------------------------------
行・列・セルの挿入及び行・列・セルの削除 - 花ちゃん 2007/08/10
-----------------------------------------------------------------------------------
'☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆
'Excel 操作部分(行・列・セルの挿入及び行・列・セルの削除）
'何も記入していないと解らないので仮データを記入
Dim i As Long
For i = 1 To 20
xlSheet.Cells(1, i).Value = i
xlSheet.Cells(i, 1).Value = i
xlSheet.Cells(i, 3).Value = i
Next i
'---------------------------------------------------------
'4行目と5行の間に1行挿入します。
xlSheet.Rows(5).Insert
xlSheet.Rows(5).Insert shift:=xlShiftDown '上記と同じ(有効にならない)
'4行目と5行の間に1行挿入します。
'下記の場合は、"A1" のように指定するとセルの挿入になる
xlSheet.Range("5:5").Insert
'下記の場合は、"B5" として行の挿入になる
xlSheet.Range("B5").EntireRow.Insert
'4列目と5列の間に1列挿入します。
xlSheet.Columns(5).Insert
xlSheet.Range("E:E").Insert
xlSheet.Range("E:E").EntireColumn.Insert
'C列の5行目にセルを挿入します。
xlSheet.Range("C5").Insert
'C列の5行目のセルを右に挿入します。
xlSheet.Range("C5").Insert shift:=xlShiftToRight
'5行目を削除します。
xlSheet.Rows(5).Delete
xlSheet.Range("5:5").Delete
xlSheet.Range("A5").EntireRow.Delete
'5列目を削除します。
xlSheet.Columns(5).Delete
xlSheet.Range("E:E").Delete
xlSheet.Range("E:E").EntireColumn.Delete
'C列の5行目にセルを削除します。
xlSheet.Range("C5").Delete
'☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆
Insert メソッド Delete メソッド の引数 CopyOrigin は、[97][2000]では使用できません。
EntireRow プロパティ EntireColumn プロパティ は、指定したセル範囲を含む行又は、
列全体を扱う場合に使用します。
|
行・列・セルの挿入及び行・列・セルの削除（VB6.0 基本編）