エクセルマクロ オンライン講座コメント紹介

コメント紹介
   └ エクセルマクロ・VBA基礎編フォローアップ ベーシック
       └ 出現回数を数える。CountIf関数がやっていることをマクロで書くと?

出現回数を数える。CountIf関数がやっていることをマクロで書くと?

[3383] 2014-12-03 15:58:20 井上 聡さんからの投稿です。

Sub hindo() '全く駄目です。単純に変数を3つ作成し、3回ループしてみました。
Dim siso
Dim count
Dim gyou
Dim kanpyou
Dim nomimono
For gyou = 4 To 33
siso = Range("C" & gyou).Value
If siso = "しそ巻き無料" Then
count = count + 1
End If
Range("F4").Value = count
Next
Dim count1
For gyou = 4 To 33
siso = Range("C" & gyou).Value
If kanpyou = "かんぴょう巻き無料" Then
count1 = count1 + 1
End If
Range("F5").Value = count1
Next
Dim count2
For gyou = 4 To 33
siso = Range("C" & gyou).Value
If nomimono = "飲み物無料" Then
count2 = count2 + 1
End If
Range("F6").Value = count2
Next

End Sub
なぜ変数は、最初のFor~Nextの中でしかカウントされないのでしょうか。
カウントされない理由はなぜですか。?

 


[3384] 2014-12-03 17:03:11 小川慶一さんからの投稿です。

井上 聡 さん:

以下の動画を参考にしてください。
https://www.dropbox.com/s/frvs05wxv8yl82z/kiso_follow10_shitumonkaitou.mp4?dl=0

テストをより丁寧にできるようになるとよいかと思います。

まずは、そのくらいで。

この解説で十分かどうか、またお知らせください。
ひきつづきよろしくお願いいたします。






>Sub hindo() '全く駄目です。単純に変数を3つ作成し、3回ループしてみました。
> Dim siso
> Dim count
> Dim gyou
> Dim kanpyou
> Dim nomimono
> For gyou = 4 To 33
> siso = Range("C" & gyou).Value
> If siso = "しそ巻き無料" Then
> count = count + 1
> End If
> Range("F4").Value = count
> Next
> Dim count1
> For gyou = 4 To 33
> siso = Range("C" & gyou).Value
> If kanpyou = "かんぴょう巻き無料" Then
> count1 = count1 + 1
> End If
> Range("F5").Value = count1
> Next
> Dim count2
> For gyou = 4 To 33
> siso = Range("C" & gyou).Value
> If nomimono = "飲み物無料" Then
> count2 = count2 + 1
> End If
> Range("F6").Value = count2
> Next
>
>End Sub
>なぜ変数は、最初のFor~Nextの中でしかカウントされないのでしょうか。
>カウントされない理由はなぜですか。?

 


[3407] 2014-12-05 18:55:34 井上 聡さんからの投稿です。

 


[3413] 2014-12-07 17:14:26 小川慶一さんからの投稿です。

井上 聡 さん:

マウスで選択してコピー&ペーストすればそもそもそういうことには悩まないで済みます。
メールも届いていると思います。そのメールにあるURLをクリックしても見られるかと。

>https://www.dropbox.com/s/frvs05wxv8yI82z/kiso_follow10_shitumomkaitou.mp4?dI=0の動画がひらきません。I82でしょうか182でしょうか。I=0のIはLの大文字でしょうか。数字の1でしょうか。ただの|(棒)でしょうか。

 


まずはここから!スマホでも学べる無料動画講座

今なら先着30名限定で無料!定価4,800円の、初心者のためのエクセルマクロ動画講座。
  1. Excel 97~Excel 2016まですべて対応。動画本数20本、総再生時間2時間44分53秒
  2. PC, Mac, iPhone, iPad, Androidのお好みの環境で、いつでも好きなときに学べます。
2004年から10年間述べ3,000名以上に実施した研修の経験と実績を集約した講座です。
いますぐ無料で試してください。

トップへ