好評です
西船ボウルの駐車場や無料Wi-Fiと充電サービスについてボウリング場ご利用時の駐車場について ボウリング場の専用駐車場はありませんので、1階パチンコガイアさんの駐車場が提携駐車場となっておりますので割引料金でご利用...
成績表から2番目に大きい数字をLARGE関数使わずVBAでやる方法
テストの成績表で1番の人を探すならMAX関数を使えば見つけられますが、LARGE関数だけではできない2番目の点数と該当者の両方を探す作業って意外と面倒で大変なので、何か簡単な方法がないか？と探していますよね。
西船ボウルのリーグ戦でもポイント順に成績表は並べ替えるので、ハイゲーム（HG）は1番目なのですぐに書き出せるのですが、2番目の点数って探すの面倒なので、エクセル自体が一瞬で2番目を探して点数と該当する名前を書き出す方法として、エクセルVBAを使って自動化しています。
使うエクセルVBA
- VBA関数「WorksheetFunction」
- 検索「Find」
- LARGE関数
ボタンを配置してVBAコードを登録するだけで、コマンドボタンを1クリックで一瞬でハイゲームを見つけ出してくれるので、あっという間にスタンディングが終わりますよ。
目次
2番目の値を取得する
上の図のように、ボウリング成績表でサンプルの為少ない人数にしていますが３ゲームのスコアーと最高得点（HG）を表示していて、参加者個々の最高点（HG）の欄などは高得点順には並んでいません。
ピン君次のようにエクセルVBAコードを書くと、自動的に成績表の中から2番目の点数を探して、見つけたら点数と該当者の名前を表の外に書き出し
VBAコード
2番目の点数と該当者を探して書き出す
Sub 番目ハイゲーム()
HG = WorksheetFunction.Large(Range(“G2:G8”), 2)
Dim i As Range
Set i = Range(“G2:G8”).Find(What:=HG, LookIn:=xlValues)
i.Select
Range(“B17”).Value = i
Range(“A17”).Value = ActiveCell.Offset(0, -6).Value
End Sub
解説
たまじいでは１行目から解説じゃ
- 「番目ハイゲーム」というタイトルでマクロ宣言
- 値「HG」は、セルG2～G8の範囲内の2番目に大きい数字を格納
- 変数「i」Dimで宣言
- 「i」はセルG2～G8の範囲内で、格納値「HG」があるセル番地を指定する
- 指定したセル番地「i」を選択する
- セルB17に「i」の値を入力する
- セルA17に選択中のセルから左へ6列目のセルの値を入力する
- マクロ記録終了
ポイントは、エクセル関数で２番目に大きい値を見つけるのは「LARGE関数」で、ワークシート上で数式を使うと…
ですが、エクセルVBAで使うと…
と、このように変わりますが、内容は一緒です。
そして、「Set i = Range(“G2:G8”).Find(What:=HG, LookIn:=xlValues)」で見つけた２番目に大きな数字のセルの場所を特定して、セルに書き出せるようにしました。
細かい書き出しの説明は、「成績表の中から最高点を探して文字色変更や別のセルに書き出す方法」と重複するので、ここでは省略します。
たまじいただし、表の中に同じ数字があった場合には、行が上のほうが優先されるんじゃ～
ボウリング成績表で必須のVBAコード
ピンちゃんエクセルのボタンの配置方法やリボンツールバーの「開発」設定がまだの場合、この機能使えないので設定から始めましょう～
マクロを使う最初の準備
エクセルのワークシート上にVBA登録できるボタンを配置する方法
えっ！いつも同じ作業を繰り返しているのに、一瞬で作業が終わるボタンを使わずにまだエクセルの画面上にあるリボンツールバーを使って、手作業しているのですか？ ボタ…
西船ボウルで使用しているエクセルで作っているリーグ成績表（スタンディング）で、必ず使っているVBAコードです。
実際にはワークシート上にコマンドボタンを配置せず、専用の入力フォームも（ユーザーフォーム）作成してフォーム上にボタンなどを配置しています。
成績表作成でよく使う便利機能
エクセルファイル操作の便利機能
カールの在庫状況
西日本限定のカールが関東で売っている場所や買える店が西船橋にある
2024年7月6日現在の在庫数は、チーズ味・うすしお味があわせて77個！です。 2017年店頭から消えた「かーる」 2017年に埼玉工場など東日本の4工場閉鎖により、四国工場の...