VBレスキュー(花ちゃん) - VBレスキュー(花ちゃん)の投稿サンプル用掲示板

　　　　　サンプル投稿用掲示板　　 VB2005 ～用トップページ　　 VB6.0 用トップページ

セルに同じ数式を入れるには(行の横計等を求める場合）（VB6.0 基本編） ( No.10 ) 　[親スレッドへ]

日時： 2007/08/10 15:16
名前： 花ちゃん: ***********************************************************************************
* カテゴリー：[エクセル][][]                                                      *
* キーワード：同じ式,式をコピー,小計,合計　　　　　　　                           *
***********************************************************************************

元質問：Excel の列に同じ数式を入れたい場合は？ - チョコ　2003/01/24-20:43 No.2417

  | A   B   C
-------------
1 | 1   5
2 | 2   6
3 | 3   7

という数値があって C1=A1+B1 , C2=A2+B2 , C3=A3+B3 という数式を入れるプログラムにしたいのですが、

-----------------------------------------------------------------------------------
Re: Excel の列に同じ数式を入れたい場合は.. - 魔界の仮面弁士  2003/01/25-00:14 No.2420
-----------------------------------------------------------------------------------
xlsSheet.Range("C1:C3").FormulaR1C1 = "=RC[-2]+RC[-1]"

-----------------------------------------------------------------------------
Excel 上なら範囲を選択して、Σ で一発なのでマクロを取ってみると内部では別々に
求めているようで下記より複雑でした。
                          ---- by 花ちゃん ----
'☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆
'Excel 操作部分(Excelの関数の使用例同じ式を入れたい）
   Dim xlRange As Excel.Range
   Dim Dat(1 To 3, 1 To 4) As Variant
   Dat(1, 1) = 4: Dat(1, 2) = 4: Dat(1, 3) = 5: Dat(1, 4) = 8
   Dat(2, 1) = 3: Dat(2, 2) = 3: Dat(2, 3) = 5: Dat(2, 4) = 9
   Dat(3, 1) = 1: Dat(3, 2) = 7: Dat(3, 3) = 1: Dat(3, 4) = 6
   Set xlRange = xlSheet.Range(ToA1Style(1, 1, 4, 3))
   xlRange.Value = Dat

   '縦計を求める
   xlSheet.Range("A4:D4").FormulaR1C1 = "=SUM(R[-3]C:R[-1]C)"

   '横計を求める及び総合計を求める
   xlSheet.Range("E1:E4").FormulaR1C1 = "=SUM(RC[-4]:RC[-1])"

'☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆