0 
   Application.WorksheetFunction.SumIf(_
     sht_store.Range(Cells(k, 12), (k, lcol)),_
     "       <>",_
     sht_store.Range(Cells(5, 12), Cells(5, lcol)))

セルが空白でない場合に値を合計するためにこのコードを書きました..ただし、セルは空白である可能性がありますが、まだ数式が含まれている可能性があるため、これは機能しません。

モジュール内の他のコードを変更することはできません..（「<>」の代わりに）空白以外を合計するために他の条件を与える方法はありますか？

4

2 に答える 2

2

VBAで使用できます

  • IsEmpty空のセルの場合
  • セルに数式があるかどうかを確認するには、

コード：

Option Explicit 

Function IsFormula(ByRef wscell As Range) As Boolean 
    IsFormula = wscell.HasFormula 
End Function

Excelで使用できます

したがって、あなたの場合、これをチェックしてください：

  1. セルに数式があるかどうかを確認する
  2. 次に、スペースなしで IsNull かどうかを確認します。

その後、あなたはあなたのSumIF. 数式に関係なく、セルが本当に空/null かどうかを返します。

Function izNull(ByRef rng As Range) As Boolean
 If Trim(rng.Value) = "" Then
    izNull = True
 End If
End Function
于 2013-02-27T08:01:46.567 に答える
0

プロパティを使用して動作するようにし.Textました：

Cells([rowindex],[columnindex]).Text = ""

于 2014-09-02T12:43:10.823 に答える