[[20060526152032]]　『VBAでSUMIF』（はじめの一歩）　ページの最後に飛ぶ

『VBAでSUMIF』（はじめの一歩）
　すいません。一つしつもんがあります。今回初めてVBAに挑戦してしてみました。
　しかし、アプリケーション定義またはオブジェクト定義のエラーとなりうまくいきません。
　私のまわりには、知っている人が皆無なもので、掲示板等参考にし独学でやってみました。
　どの構文がわるいのか、ご指導願います。
　*Ｃ列に計と表示されている、Ｎ列の数字を合計します。　

　SUB TOTAL()

  DIM RNO AS RANGE
  DIM HANI AS RANGE
  DIM CNO AS RANGE
  DIM GOKEI AS RANGE
  DIM TOTAL AS DOUBLE
  SET RNO=RANGE("C65536"),END(XLUP)
  SET HANI=RANGE(C1:RNO")
  SET CNO=RANGE("N65536").END(XLUP)
  SET GOUKEI=RANGE("N1:CNO")
  TOTAL=APPLICATION.WORKSHEETFUNCTION.SUMIF(HANI,"計",GOKEI)
　END SUB

 コレは、ユーザー定義関数を作ったのかしら？
 それとも？？？
　
 こんな感じでいかがでしょ？
Sub TOTAL()
Dim RNO As Long
Dim HANI As Range, GOKEI As Range
    RNO = Range("N" & Rows.Count).End(xlUp).Row
    Set HANI = Range("C1:C" & RNO)
    Set GOKEI = Range("N1:N" & RNO)
    Selection = Application.WorksheetFunction.SumIf(HANI, "計", GOKEI)
  End Sub
　
 （キリキ）(〃⌒o⌒)b

コメント返信：

[ 一覧(最新更新順) ]

[[20060526152032]] 『VBAでSUMIF』（はじめの一歩） ページの最後に飛ぶ

[[20060526152032]]　『VBAでSUMIF』（はじめの一歩）　ページの最後に飛ぶ