No.3ベストアンサー
- 回答日時:
1. [ツール] - [マクロ(M)] - [Visual Basic Editor(V)] でVisual Basic Editor起動
2. [挿入] - [標準モジュール(M)] で標準モジュール(Module1)を追加
'====サンプルコード========
Sub R_Count100()
Dim i As Integer
Dim intCnt As Integer
intCnt=0
For i = 1 To 100 Step 1
If Cells(i, 1).Value = "佐藤" And Cells(i, 5).Value <> "" Then intCnt = intCnt + 1
Next i
Cells(1, 18).Value = intCnt
End Sub
'=====サンプルコード=========
Forで1行目~100行目をループさせて、IF文で有効の行かどうかを判定し、有効であったらカウンタintCntを+1します。
Cells(1, 18).Value = intCnt がR1への書き戻しです。(←これだけでよかったのかな?(^^;;))
Range("A1")はCells(1,1)と同じです。
Range("R1")はCells(1,18)と同じです。
No.4
- 回答日時:
プログラムを使う良さは、相対化できることにあります。
例えば100行と決めるのでなくデータ行数分について
とか
データの終わりの行の、直下行にとか
ーーー
本質問も「R1」は実のセル番地ですか?
「データの終わりの行の、直下行にとか」の意味ではないですか?
VBAの解説書に、特定のセル(R1)に値を入れるという、解説や実例が載ってないはずがないと思うから、質問の表現が質問者の意図を尽くしてないのではないかとふと思ったわけです。
No.2
- 回答日時:
まずマクロが必要でしょうか?
下記のような場合ならマクロは無しで出来ます。
Aに佐藤があってEが空白でないならRに1が入ります
Aが佐藤ではないorEが空白ならRに0が入ります
Rの最下行でR列を足せばカウントできます。
A ・・・E・・・R
1 佐藤 =IF(LEN(B1)>0,COUNTIF(A1,"佐藤"),0)
2 鈴木 =IF(LEN(B2)>0,COUNTIF(A2,"佐藤"),0)
3 佐藤 =IF(LEN(B3)>0,COUNTIF(A3,"佐藤"),0)
・ ・
・ ・
・ ・
100 井上
101 = Sum(R1:R100)
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルのチェックボックスを...
-
エクセルで数字から名前に変...
-
結合されたセルに貼り付けたU...
-
エクセルでのNULLという文字列...
-
Excel:セルに入力されている日...
-
Excel関数 「日付を入力...
-
折り返して表示、縮小して表示...
-
エクセル 親番号、子番号の書き...
-
エクセルの関数で円とドルを元...
-
エクセルで漢字を数字に変換す...
-
Excel VBA 自動で連番をわりふる
-
エクセルにて結合サイズが異な...
-
エクセルファイルを開くとメッ...
-
エクセル 条件が成立した場合...
-
エクセルで入力すると日付など...
-
エクセルでのセルをまたぐ文字...
-
エクセルの文字入力
-
エクセルで在庫表を作りたい
-
エクセルの計算式の入力方法に...
-
(EXCEL)CELLの色をカウントす...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルのチェックボックスを...
-
エクセルで数字から名前に変...
-
Excel関数 「日付を入力...
-
エクセルでのNULLという文字列...
-
折り返して表示、縮小して表示...
-
エクセルで縦書きルビの付け方
-
Excel:セルに入力されている日...
-
エクセルで漢字を数字に変換す...
-
エクセル 条件が成立した場合...
-
エクセルでのセルをまたぐ文字...
-
VBAで「セルに何か入っている場...
-
エクセル関数で…
-
pages で「テキストを左右両端...
-
エクセル2007 番地の並び替え...
-
エクセル 親番号、子番号の書き...
-
エクセルファイルを開くとメッ...
-
Excel VBA 自動で連番をわりふる
-
上付き文字を別セルにそのまま...
-
ワードで文字がセルの下にもぐ...
-
エクセルで在庫表を作りたい
おすすめ情報