VBA sumifで検索値が該当する場合は足したいが、なぜか該当値があるにもかかわらずぬけてしまうところがある。

Question

コード
```### vba worksheetfunction sumifがうまく起動しない。

エクセルマクロのvbaである1ヶ月の歳入歳出表から、項目ごとに分けて、それぞれの総額をだしたかったが、正常に足してくれるところもあれば、できないところもあります。

### 発生している問題・エラーメッセージ

エラーはでてないですが、正常な値が取得できません。

### 該当のソースコード

```vba
Sub sainyu()
 Dim i As Long
 Dim n As Long
 Dim s As Long
 Dim r As String
 Dim rng1 As Range
 Dim rng2 As Range

  i = ActiveSheet.Cells(Rows.Count, 3).End(xlUp).Row
  
  Set rng1 = ActiveSheet.Range(ActiveSheet.Cells(4, 3), ActiveSheet.Cells(i, 3))
  Set rng2 = ActiveSheet.Range(ActiveSheet.Cells(4, 6), ActiveSheet.Cells(i, 6))
  
  
   For n = 9 To 27
   r = ActiveSheet.Cells(n, 9)
   s = WorksheetFunction.CountIf(rng1, r)
    If s > 0 Then
  
     ActiveSheet.Cells(n, 10) = WorksheetFunction.SumIf(rng1, r, rng2)
     n = n + 1
    End If
  Next
  
End Sub

試したこと

雑費などが反応しない
字体を変えたが、だめだった。

補足情報（FW/ツールのバージョンなど）

檀家布施などの項目は、ドロップダウンリストで記入している。
ここにより詳細な情報を記載してください。

Comments

[sazi]

データ起因に依る可能性が高いので、データも追記された方が良いですね。

[HaruSh]

ご返信ありがとうございます。
画像添付でエクセルのデータを貼り付けようと思ったのすが、””画像添付　開く”　まではクリックして反応しますが貼り付けることができません。もしよろしければ教えていただけますでしょうか。

[sazi]

画像では見た目しか確認できませんから、表の形式で当該のデータを追記してみてください。

Answer 1

worksheetfunction.sumifはエクセルが数値として認識しているセルのみを対象に合計されます。
書式設定が文字列になっている。もしくは全角数値のセルが無いか確認してみてください。

データ数によっては上記は現実的ではないかもしれません。
worksheetfunction.sumifを使用した場合、その計算の過程をデバッグできない為、こういった不具合の確認がし辛いです。
よって、この関数を使用せずに1行ずつ足していくように変更した方が良いかもしれません。

そうする事によって、数値が全角になっている場合などはstrconv(値,vbnarrow)で半角に置き換えて加算を行う。などの処理が可能になります。

Comments

[HaruSh]

ご返信ありがとうございます。
書式設定を見ましたが、問題なさそうです。

データ数は比較的少ないので、大丈夫だとは思うのですが、一行ずつ足していくやり方をよろしければ教えていただけると幸いです。
私も一度worksheetfunctionを使う前に,いろいろ試してみたのですが、私の力不足でうまくできませんでした。

エクセル画面の画像を添付して質問するつもりでしたが、””画像添付　開く”までいって”開く”をクリックしても添付できませんでした。
わかりにくい質問内容でごめんなさい。

[Teppy]

どのようなシートか分かるものを見せてほしいです。

こちらでテストしようと思いましたが、どのようなシートになっているか予想がつきませんでした。
C列とI列は同じ文字列なのでしょうか？←ここで分からなくなりました。

画像の添付が難しければ、使用している列を下記の表現してもらえれば分かるかもしれません。

C列,F列,I列
ID,数量,項目
1,1,項目1
2,9,項目2

Answer 2

書式設定を見ましたが、問題なさそうです。

まずは手動で数式を入力して試してみては？
ま、マクロで実行しても手動で試してみても、やることは同じなので、
結果は変わらないと思いますが、違うなら、
セル範囲等、意図した指定ができてないという可能性があります。
同じなら、見た目数値でも、文字列として認識されている可能性があるので、
データの区切り位置で列で一括でセルの書式を標準にしてみてください。
あ、あと、検索の文字も半角全角等ぱっと見でわからない違いがあるかもですね。
後ろに半角スペースとか入ってたり？

文字列を数値に変更する【区切り位置編】

参考までに・・・

Option Explicit

Sub test()
    Dim rngFind As Range
    Dim rngSum As Range
    Dim rngKeys As Range
    Dim c As Range

    With ActiveSheet
        Set rngFind = .Range(.Cells(4, "C"), .Cells(.Rows.Count, "C").End(xlUp))
        Set rngKeys = .Range("H9:H27")
    End With
    Set rngSum = rngFind.Offset(, 3)

    For Each c In rngKeys
        c.Offset(, 1).Value = WorksheetFunction.SumIf(rngFind, c, rngSum)
    Next
End Sub

Sub test2()
    Dim rngFind As Range
    Dim rngSum As Range
    Dim rngKeys As Range
    Dim f As Range
    Const cmyFormula As String = "=Sumif(XXXX,YYYY,ZZZZ)"

    With ActiveSheet
        Set rngFind = .Range(.Cells(4, "C"), .Cells(.Rows.Count, "C").End(xlUp))
        Set rngKeys = .Range("H9:H27")
    End With
    Set rngSum = rngFind.Offset(, 3)

    f = Replace(cmyFormula, "XXXX", rngFind.Address)
    f = Replace(f, "YYYY", rngKeys(1).Address(False, False))
    f = Replace(f, "ZZZZ", rngSum.Address)
    
    With rngKeys.Offset(, 1)
        .Formula = f
        .Value = .Value
    End With
End Sub

量が少ないので大した違いはないかもしれませんが、
個々の計算をいちいちするより、
一括でシートに数式を入れた方が断然処理速度が速いです。