[[20211020143759]]　『2倍にするマクロ(掛け算)』（サニー）　ページの最後に飛ぶ

『2倍にするマクロ(掛け算)』（サニー）

以前に数字以外の「文字データ」をカウントするマクロを教えて頂きました。
(下記参照)
今回、下記のコードで算出された個数を2倍にするマクロを教えて頂きたいです。
「*2」を追加すれば良いかと思っているのですが、どのようにコードを書いたら良いか分かりません。

何卒、宜しくお願いします。

Dim r As Range

    Dim a As Range
    Set r = Range("T2", Cells(Rows.Count, 20).End(xlUp))
    For Each a In r.SpecialCells(xlCellTypeConstants).Areas
        a(a.Cells.Count + 1).Formula = "=COUNTIF(" & a.Address & ",""<>0"")"
        'r.Value = r.Value
    Next

＜使用 Excel：Excel2016、使用 OS：Windows8 ＞

＞「*2」を追加すれば良いかと思っているのですが

まずは、それを数式で書けますか？
マクロうんぬんよりそれが先では。
（おつかれ） 2021/10/20(水) 14:59

マクロの記録で下記のようになりました。

 ActiveCell.FormulaR1C1 = "=RC[-1]*2"
（サニー） 2021/10/20(水) 15:49

＞マクロの記録で下記のようになりました。

え？

マクロ記録でなく普通にセルに書く数式。

（おつかれ） 2021/10/20(水) 16:11

＞下記のコードで算出された個数を2倍にするマクロ

２倍した結果は、どこに表示するのでしょうか。隣のセル？

（マナ） 2021/10/20(水) 16:16

現在のマクロでは、最後のセルだけ、数式が残るような気がしますが
それでよいですか。

（マナ） 2021/10/20(水) 16:33

マナ様
はい、表示させる場所は、最終のセルで大丈夫です。
宜しくお願いします。
（サニー） 2021/10/20(水) 16:46

誤解があるかもしれないので、
サンプルデータを提示お願いします。
（ビフォーアフター）

（マナ） 2021/10/20(水) 16:52

マナ様
T列には「プレ」と「0」と「空白」のデータが入力されており、下記のマクロコードを実行すると空白セルに「プレ」のカウントができるになっております。
下記の→部分を2倍にしたいです。
説明が下手で申し訳ございませんが、ご理解頂けますでしょうか。

実行前/T列　　実行後/T列
0　　　　　　0　
0　　　　　　0
プレ　　　　プレ　
プレ　　　　プレ
0　　　　　　0
空白　　　　 2→4(2*2)
0 0
プレプレ
0 0
空白 1→2(1*2)

Dim a As Range

    Set r = Range("T2", Cells(Rows.Count, 20).End(xlUp))
    For Each a In r.SpecialCells(xlCellTypeConstants).Areas
        a(a.Cells.Count + 1).Formula = "=COUNTIF(" & a.Address & ",""<>0"")"
        'r.Value = r.Value
    Next
（サニー） 2021/10/20(水) 17:23

  Sub test()
    Dim r As Range
    Dim a As Range

    Set r = Range("T2:T" & Rows.Count)
    For Each a In r.SpecialCells(xlCellTypeConstants).Areas
        a(a.Cells.Count + 1).Formula = "=COUNTIF(" & a.Address & ",""<>0"")*2"
    Next
    r.Value = r.Value

 End Sub

（マナ） 2021/10/20(水) 17:39

マナ様
ありがとうございます！
出来ました。”の前に*2に持ってくるのですね！
助かりました！！
（サニー） 2021/10/20(水) 18:37

コメント返信：

[ 一覧(最新更新順) ]

[[20211020143759]] 『2倍にするマクロ(掛け算)』（サニー） ページの最後に飛ぶ

[[20211020143759]]　『2倍にするマクロ(掛け算)』（サニー）　ページの最後に飛ぶ