- 日時： 2007/08/08 15:21
- 名前： 花ちゃん
- ***********************************************************************************
* カテゴリー：[エクセル][][] *
* キーワード：データを入力する,数式を入力する,関数を入力する *
***********************************************************************************
基本的な事であるわりには、Cells プロパティの使用方法を間違って使用されている場合が
多いので書いておきます。
-----------------------------------------------------------------------------------
セルにデータ及び式を入力する - 花ちゃん 2007/08/08
-----------------------------------------------------------------------------------
テスト環境の基本設定 のコードの[Excel 操作部分]を下記のコードと入れ替えて下さい。
'☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆
'Excel 操作部分
' Excel のセルに値を代入します。
xlSheet.Cells(1, 1).Value = "12"
xlSheet.Cells(2, 1).Value = "34"
'Formula プロパティを使ってセルに式を挿入します。
xlSheet.Cells(3, 1).Formula = "=A1+A2"
xlSheet.Range("B1").Value = 12
xlSheet.Range("B2").Value = 34
xlSheet.Range("B3").Value = "=sum(B1:B2)"
xlSheet.Range(xlSheet.Cells(1, 3), xlSheet.Cells(1, 3)).Value = 12
xlSheet.Range(xlSheet.Cells(2, 3), xlSheet.Cells(2, 3)).Value = 34
xlSheet.Range(xlSheet.Cells(3, 3), xlSheet.Cells(3, 3)).Value = "=sum(C1:C2)"
'下記でもエラーが表示されずに同じように答えも求められますが
'プロセスが残ったままになります。
'プログラムを終了するとプロセスも解放されるので勘違いする人もあるようです。
' xlSheet.Range(Cells(1, 4), Cells(1, 4)).Value = 12
' xlSheet.Range(Cells(2, 4), Cells(2, 4)).Value = 34
' xlSheet.Range(Cells(3, 4), Cells(3, 4)).Value = "=sum(D1:D2)"
'☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆
上記のコードのコメントを外して試して見て下さい。
上記コードがじっこうされ、Excel が閉じた後に（VB は起動状態のまま）プロセスが
解放されているか確認して見て下さい。
|
セルにデータ及び式を入力する（VB6.0 基本編）