tagCANDY CGI VBレスキュー(花ちゃん) - VBレスキュー(花ちゃん)の投稿サンプル用掲示板 - Visual Basic 6.0 VB2005 VB2010
VB2005用トップページへVBレスキュー(花ちゃん)のトップページVB6.0用のトップページ
VBレスキュー(花ちゃん)の投稿サンプル用掲示板
     サンプル投稿用掲示板  VB2005 〜 用トップページ  VB6.0 用 トップページ
行・列・セルの挿入及び行・列・セルの削除(VB6.0 基本編) ( No.11 )  [親スレッドへ]
日時: 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 プロパティ は、指定したセル範囲を含む行又は、
列全体を扱う場合に使用します。



 [スレッド一覧へ] [親スレッドへ]