ここから本文です

EXCEL2010 数式を反映させたい 下記マクロで数式を反映させたく思います Sub...

ymu********さん

2017/1/1213:18:26

EXCEL2010 数式を反映させたい

下記マクロで数式を反映させたく思います

Sub Macro16()

Dim Sh As Worksheet

For Each Sh In Worksheets
Sh.Select
Range("AF5").Select
Dim r As Range
Set r = Columns(2).Find(what:="*/20") ', lookat:=xlWhole)
’If r Is Nothing Then Exit Sub
Range("AF5:AF" & r1.Row).Formula = _
"=IF(COUNTIF(D5:AD5,""○"")+AE5=0,"""",COUNTIF(D5:AD5,""○"")+AE5)"
Next Sh

各シートのAF5セルには反映されますが、AF5の最下行(B列に20とあり、
そのAF列を最下行としたいです。例えばB50に20とあれば、AF50になります)まで
数式を反映させたく思いますが、

どのようにしたら良いでしょうか?ご教示下さい

閲覧数:
71
回答数:
1
お礼:
100枚

違反報告

ベストアンサーに選ばれた回答

msk********さん

2017/1/1213:55:26

こんな感じでしょうか。

Sub sample()
Dim Sh As Worksheet, r As Range
For Each Sh In Worksheets
Set r = Sh.Columns(2).Find(what:="20", lookat:=xlWhole)
If Not r Is Nothing Then
Sh.Range("AF5:AF" & r.Row).Formula = _
"=IF(COUNTIF(D5:AD5,""○"")+AE5=0,"""",COUNTIF(D5:AD5,""○"")+AE5)"
End If
Next Sh
End Sub

返信を取り消しますが
よろしいですか?

  • 取り消す
  • キャンセル

質問した人からのコメント

2017/1/12 16:32:43

回答ありがとうございます!
助かりました

この質問につけられたタグ

みんなで作る知恵袋 悩みや疑問、なんでも気軽にきいちゃおう!

Q&Aをキーワードで検索:

Yahoo! JAPANは、回答に記載された内容の信ぴょう性、正確性を保証しておりません。
お客様自身の責任と判断で、ご利用ください。
本文はここまでです このページの先頭へ

「追加する」ボタンを押してください。

閉じる

※知恵コレクションに追加された質問は選択されたID/ニックネームのMy知恵袋で確認できます。

不適切な投稿でないことを報告しました。

閉じる