![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?8acaa2e)
No.2ベストアンサー
- 回答日時:
No.1です。
> Dim le59 As Long: le59 = 0
Dim le59 As Long
le59 = 0
を一行で書いただけです。
> Case Is <= 59: le59 = le59 + 1
こちらも
Case Is <= 59
le59 = le59 + 1
を一行で書いたものです。
r.Valueが59以下の場合は、le59に1を加えます。
No.1
- 回答日時:
これでどうでしょうか?
Dim area As Range
Dim r As Range
Dim le59 As Long: le59 = 0
Dim le69 As Long: le69 = 0
Dim le74 As Long: le74 = 0
Dim gt74 As Long: gt74 = 0
Set area = Range("A1:A9") '範囲
For Each r In area
Select Case r.Value
Case Is <= 59: le59 = le59 + 1
Case Is <= 69: le69 = le69 + 1
Case Is <= 74: le74 = le74 + 1
Case Else: gt74 = gt74 + 1
End Select
Next
MsgBox "59以下:" & le59 & vbNewLine & _
"69以下:" & le69 & vbNewLine & _
"74以下:" & le74 & vbNewLine & _
"74より大:" & gt74
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) エクセルの当番表を作っていますが教えてください 4 2023/01/06 12:12
- Visual Basic(VBA) 昨日、質問した件『VBA にて、条件付き書式で背景色を設定しているセルの範囲で、背景色付きのセルをカ 4 2022/04/07 14:39
- Excel(エクセル) VBA SUM関数を入力したい 6 2022/08/20 20:10
- Excel(エクセル) Excel VBAについて 2 2022/08/02 06:19
- その他(Microsoft Office) SUMIFとCOUNTIFの違いについて 4 2022/09/29 14:13
- Excel(エクセル) エクセルVBAで複数のシート印刷設定 1 2022/09/07 12:03
- Visual Basic(VBA) ChatGPTに作らせたい Excel VBA 1 2023/04/05 19:56
- Visual Basic(VBA) 範囲内で最大値を見つけ、その隣のセルの値を返す 2 2022/03/23 19:34
- Visual Basic(VBA) VBAのifで 4 2023/05/16 14:21
- Visual Basic(VBA) VBA にて、条件付き書式で背景色を設定しているセルの範囲で、背景色付きのセルをカウントできる、VB 2 2022/04/06 21:33
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
potplayerについて質問です
-
uwscでExcelに自動記入
-
フラッシュゲームアーカイブ2
-
スクリップト
-
VBAのコンボボックスの年月表示...
-
pcが真っ暗になる
-
ActionScript 3.0についての質...
-
pcのロードを速めたい!
-
拡張子「swf」の再生方法について
-
FLASHでゲームを作っていた人は...
-
この曲はなんでしょう?
-
laptop go2からの買い替え、lap...
-
私のコンピューター上のファイ...
-
arduino プログラムについて
-
chrome flash
-
FLASHの再生はできないのでしょ...
-
ウェブサイトで Flash が事実上...
-
Flashコンテンツを使ったWebサイト
-
Flash Playerのサポートが終了
-
Form内のselectを連動させるに...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
c++ cmathとmath.h
-
三辺の長さから角度を求めたい...
-
調和関数について
-
ActionScript3.0でのカウントダ...
-
ミリ秒までカウントできるタイマー
-
プログラム開始から 2秒毎に ...
-
Flash lite1.1で日数のカウント...
-
エクセル マクロ(A1:A10)までの...
-
=FREQUENCY(範囲,{59,69,74}) ...
-
random()関数について
-
【ランダム関数】0と1を返すだ...
-
Flashでカウントダウン
-
カウントダウン(のみ)がうま...
-
python: 直角三角形の種類を求...
-
エラー(型が一致しません。)...
-
VB6でユーザー定義型がNothing...
-
LRESULTとHRESULT
-
VBでボタンを押すと画像をラン...
-
TextChangeイベントが発生しない
-
配列の要素番号を取得するには?
おすすめ情報
度数分布をvbaで処理したい
Dim le59 As Long: le59 = 0
Case Is <= 59: le59 = le59 + 1
この意味を教えてください。
ペストにします。