エクセルの学校：全文検索：Hyper Estraier： 20��...

Results of 1 - 1 of about 19659 for 20��... (0.004 sec.)

[[20211020143759]]: #score: 2681; @digest: 0543ad5cf1d40770280388e5c404efb4; @id: 89339; @mdate: 2021-10-20T09:37:54Z; @size: 2772; @type: text/plain; #keywords: レプ (25546), サニ (24159), レ0 (14111), ニー (3308), 倍に (3291), 算) (2396), プレ (2328), xlcelltypeconstants (2300), ナ様 (2046), 記参 (1777), 照) (1768), マナ (1666), areas (1657), 字デ (1335), （サ (1310), た個 (1252), 水) (1208), 2021 (1195), ロ( (1142), で算 (1078), formula (1069), specialcells (1037), 「* (766), 下記 (696), 算出 (693), マク (637), ー） (636), address (632), 字以 (627), クロ (572), ナ） (531), るマ (497); 『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倍にするマクロ 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 ...; https://www.excel.studio-kazu.jp/wiki/kazuwiki/202110/20211020143759.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ