No.3ベストアンサー
- 回答日時:
あっ!
行単位の最大値も必要でしたら定義に
Dim tblLine(50) As Integer
を追加して
tblCnt(.Cells(intR, intC).Value) = tblCnt(.Cells(intR, intC).Value) + 1
の下に
tblLine(.Cells(intR, intC).Value) = tblLine(.Cells(intR, intC).Value) + 1
を追加して
Next intC
の下で値設定して初期化すれば良いでしょう
ややこしくなってきたので修正したコードを再度記載しておきます
--------------------------------------------------------------------------------
Sub Sample()
Dim intR As Integer
Dim intC As Integer
Dim tblCnt(50) As Integer
Dim tblLine(50) As Integer
Dim intL As Integer
Dim intZ As Integer
Dim intI As Integer
With Sheet1
For intR = 5 To 262
For intC = 29 To 48
tblCnt(.Cells(intR, intC).Value) = tblCnt(.Cells(intR, intC).Value) + 1
tblLine(.Cells(intR, intC).Value) = tblLine(.Cells(intR, intC).Value) + 1
Next intC
intL = 0
intZ = 0
For intI = 1 To 50
If intL < tblLine(intI) Then
intZ = intI
intL = tblLine(intI)
End If
Next intI
.Cells(intR, 117).Value = intZ
Erase tblLine
Next intR
intL = 0
intZ = 0
For intR = 1 To 50
If intL < tblCnt(intR) Then
intZ = intR
intL = tblCnt(intR)
End If
Next intR
.Cells(263, 117).Value = intZ
End With
End Sub
--------------------------------------------------------------------------------
No.2
- 回答日時:
一番多く使われている数が知りたいという事ですね!
ではMODE関数を使ってみて下さい。ただし同率一位が複数ある場合には適切な解にはならないと思います。
VBAを使うのであれば出現数をテーブルに退避していきカウンタを設けて加算していけば出来ますね。
Sub Sample()
Dim intR As Integer
Dim intC As Integer
Dim tblCnt(50) As Integer
Dim intL As Integer
Dim intZ As Integer
With Sheet1
For intR = 5 To 262
For intC = 29 To 48
tblCnt(.Cells(intR, intC).Value) = tblCnt(.Cells(intR, intC).Value) + 1
Next intC
Next intR
End With
intL = 0
intZ = 0
For intR = 1 To 50
If intL < tblCnt(intR) Then
intZ = intR
intL = tblCnt(intR)
End If
Next intR
MsgBox "最大出現は『" & intZ & "』出現数は『" & intL & "』でした"
End Sub
こちらはサンプルですが、最後のMsgboxの分を該当セルに設定すれば良いですよ♪
No.1
- 回答日時:
>このAC5~AV5に1~50の値が最も多く入っている1~50の値を取り出し
どういうことでしょうか?
最大値を取得したいという事でしょうか?
だとすると
DM5:=MAX(AC5:AV5)
でいけると思うのですがCOUNTIFを使って何を行っているのでしょう?
またカテゴリが全く違いますので変更をお薦めします。
回答が付きやすいと思いますよ。
すみません、カテゴリを考えてませんでした。
AC5~AV5の表に1~50の値の中で一番多く出ている数字をDM5に表示
AC6~AV6の表に1~50の値の中で一番多く出ている数字をDM6に表示
|
AC262~AV262の表に1~50の値の中で一番多く出ている数字をDM262に表示
上記をVBAでやってみたのですが上手く出来ませんでした。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) エクセルのマクロについて質問があります。 sheet1に数字を入力してsheet2を印刷したいのです 2 2023/06/07 14:49
- Excel(エクセル) Excelのマクロについてご教授ください 2 2023/02/25 09:43
- Visual Basic(VBA) VBA ドロップダウンリストを残して値のみクリア 2 2022/10/27 05:42
- Excel(エクセル) 数式をおしえてください 3 2022/09/05 21:51
- その他(Microsoft Office) 【スプレドシート】目標達成の数式について 3 2023/02/22 07:34
- Visual Basic(VBA) エクセル VBA 条件によるセル点滅 お詳しい方 ご教授をお願いします。 Excelファイルにて 現 1 2022/11/03 15:53
- Visual Basic(VBA) 別ブックの列同士の値が一致したときの処理 1 2022/09/03 08:27
- カップル・彼氏・彼女 抜かないけどAVを見る男性心理 4 2023/04/19 15:58
- Visual Basic(VBA) Excel VBAのリストボックスの値を他のフォームに反映させる方法を教えてください。 2 2023/07/14 14:06
- Excel(エクセル) エクセルの日報作成について 3 2023/07/05 12:49
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
クボタのロゴマークの由来
-
民進党の頼清徳
-
兄妹で家業で働くのは止めたほ...
-
効率のいい筋トレで薪割りが良...
-
福島県産の食べ物はどうなって...
-
警備会社
-
農業されてる方へ 祖父が高齢に...
-
缶詰めのサンマの蒲焼きが、以...
-
質問です ひいじいちゃんが所有...
-
杉の木を切れるようになるには...
-
週休3日制を政府が後押し、まず...
-
「海がない県(岐阜県、長野県な...
-
日本の人口減少を見据えた商売
-
Uberは今後数年で無くなると思...
-
キョン
-
草刈り7万高い?
-
水田の水門の修理について
-
22歳新卒でNISAを始めてみまし...
-
物価の安い国(東南アジア諸国等...
-
日本製鉄は・・
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excelの損益分岐点のグラフの作...
-
Illustratorで表計算?
-
圧力鍋の蒸気が出る場所はどこ...
-
蒸し器の蒸気量に関して
-
圧力鍋の蒸気が出た後おもりが...
-
72守護天使の英語表記を教えて...
-
iMacをMacMiniのモニターとして...
-
できた
-
英単語に日本語の「う」と発音...
-
拡張子の大文字と小文字の違い...
-
アルクの単語リスト12000...
-
Peopleって可算名詞?不可算名詞?
-
「秀丸エディター」を使ってい...
-
数学 以下の問題の解答・解説...
-
ASCII
-
英単語のリストについて
-
自己責任11の人は現在 Windows ...
-
ファイル形式を特定できません
-
この文をの内容を英文で100字ぐ...
-
英単語、日本語単語(漢字)で...
おすすめ情報