複数の列の数値をSUMしたいのですが中に取消線行がありこの行の個数はカウントしたくありません。
条件分岐として
If .Characters(i, 36).Font.Strikethrough Then
といれてみましたが
.Characters
のところで「参照が不正または不完全です」とエラーがでます
間違いをお分かりの方ご教示くださいm(__)m
Sub 作業別_総数カウント() Rows("1:2") = Clear Dim i As Long Application.ScreenUpdating = False i = 5 If Not .Characters(i, 36).Font.Strikethrough Then ’36列目に取消線がはいっていないとき Do Until Cells(i, 27) = "" ’27行目が空欄になるまで Cells(1, 25).Value = Cells(i, 25).Value + Cells(1, 25).Value ’25列目の数値を足してセル番地1,25へ Cells(1, 23).Value = Cells(i, 23).Value + Cells(1, 23).Value’23列目の数値を足してセル番地1,23へ i = i + 1 Loop End If Application.ScreenUpdating = True End Sub
追記
行の削除でもいいので
Sub 不要行削除() For i = 5 To Cells(1, 36).End(xlDown).Row If .Characters(i, 36).Font.Strikethrough = True Then Rows(i).Delete Next i End Sub
というのも作ってみましたがやっぱりおなじところでひっかかりました
Sub 不要行削除() For i = 5 To Cells(1, 36).End(xlDown).Row If Cells(i, 36).Font.Strikethrough = True Then Rows(i).Delete End If Next i End Sub
エラーはなくなりましたが動きません
回答2件
あなたの回答
tips
プレビュー
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。
2022/07/02 14:12