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ランキング
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Illustratorで表計算?
-
Excelの損益分岐点のグラフの作...
-
蒸し器の蒸気量に関して
-
72守護天使の英語表記を教えて...
-
VBAでcountifが上手く使えません
-
圧力鍋の蒸気が出る場所はどこ...
-
圧力鍋の蒸気が出た後おもりが...
-
高圧蒸気滅菌機について
-
なんかさ、老いた?
-
iMacをMacMiniのモニターとして...
-
Peopleって可算名詞?不可算名詞?
-
拡張子の大文字と小文字の違い...
-
「秀丸エディター」を使ってい...
-
優しい響きの英単語を探してい...
-
ASCII
-
英単語に日本語の「う」と発音...
-
英単語・カタカナ・発音記号・...
-
数学 以下の問題の解答・解説...
-
linuxにおけるシングルクオート...
-
この文をの内容を英文で100字ぐ...
おすすめ情報