[[20100721113005]]　『引き算』（光）　ページの最後に飛ぶ

『引き算』（光）

２００３のXPを使用しています。

マクロを始めて日が浅いのですが、宜しくお願い致します。

下記の引き算の部分なのですが、こんな記述しか出来ません。

勉強のために違う記述し方があれば、教えて下さい。

また、全体に修正すべき点があれば、教えて下さい。

 With ActiveCell
      Cells(.Row, 4).Value = "統計" 
      Cells(.Row, 5).Value = "誤差" 
      Cells(.Row, 6).Value = ActiveSheet.Range("H4").Value - ActiveSheet.Range("I4").Value
 End With

 これでも動きました。

 With ActiveCell
      Cells(.Row, 4).Value = "統計"
      Cells(.Row, 5).Value = "誤差"
      Cells(.Row, 6).Formula = Range("H4") - Range("I4")
 End With

（うっかりさん）も勉強中

 変数を使うと、、

    Dim i As Long, j As Long

    i = Range("H4").Value
    j = Range("I4").Value
    With ActiveCell
        Range(Cells(.Row, 4), Cells(.Row, 5)).Value = [{"統計","誤差"}]
        Cells(.Row, 6).Value = i - j
    End With
 (kei)も勉強中!

 >Cells(.Row, 6).Value = ActiveSheet.Range("H4").Value - ActiveSheet.Range("I4").Value
                        ^^^^^^^^^^^^^                   ^^^^^^^^^^^^^
 他のシートのセルが対象じゃなかったら、ActiveSheet.は不要です。。
 (kei)

うっかりさんさん　Formula勉強なりました。

keiさん　変数をどこで使うか、悩んでいたのですが、勉強なりました。

うっかりさんさん　keiさん　有り難うございました。（光）

コメント返信：

[ 一覧(最新更新順) ]

[[20100721113005]] 『引き算』（光） ページの最後に飛ぶ

[[20100721113005]]　『引き算』（光）　ページの最後に飛ぶ