好評です
西船ボウルの駐車場や無料Wi-Fiと充電サービスについてボウリング場ご利用時の駐車場について ボウリング場の専用駐車場はありませんので、1階パチンコガイアさんの駐車場が提携駐車場となっておりますので割引料金でご利用...
参加人数を取得して成績表で行の高さと文字大きさを自動調整して印刷
エクセルで作っているボウリング成績表も当然ですが、A4サイズの用紙に印刷するのに見やすくするために行の高さは少し余裕を持たせる程度に文字の大きさを決めていますが、人数により高さと文字の大きさを毎回手作業で変更するのはとても面倒で大変なので、何かいい方法がないか？と探していますよね。
西船ボウルでも10人～30人程の個人戦でのリーグ戦を同じエクセルで作ったリーグスタンディングを使っているので、参加者の名前を登録すると自動的に人数を数えて成績表の不要な行を非表示にした分、高さに余裕ができるので、高さ調整と文字の大きさ調整を、エクセルVBAを使って自動化しています。
使うエクセルVBA
- 入力済み最終行取得「Cells(Rows.Count, 1).End(xlUp).Row」
- 繰り返し処理「For～Next」
- 行の高さ「RowHeight」
- 文字の大きさ「Font.Size」
ボタンを配置してVBAコードを登録するだけで、コマンドボタンを1クリックで一瞬でハイゲームを見つけ出してくれるので、あっという間にスタンディングが終わりますよ。
目次
行の高さと文字大きさを自動調整
西船ボウルで使用しているリーグ戦の成績表ですが、このまま参加者の皆さんへ渡すことできませんよね。
画像では27人目が途切れていますが、実際は最大40名まで登録可能な個人戦のリーグスタンディングですが、サンプリ画像では15名になっています。
ピン君16人目から不要なのでメンバー登録をしたら15名だとわかるので、自動的に16人目～40人目を非表示・文字大きくします
VBAコード
行の高さと文字大きさを自動調整
Sub 高さ文字()
RF = Cells(Rows.Count, 1).End(xlUp).Row
For i = 1 To RF
If Cells(i, 21) = 0 Then Rows(i).Hidden = True
Next i
Select Case Worksheets(“RESULT”).Range(“G1”).Value
Case Is <= 15
Sheets(“RESULT”).Range(“3:17”).RowHeight = 75
Sheets(“RESULT”).Range(“A3:T42”).Font.Size = 24
Case Is = 16
Sheets(“RESULT”).Range(“3:18”).RowHeight = 74
Sheets(“RESULT”).Range(“A3:T42”).Font.Size = 24
省略（17名～39名）
Case Is >= 40
Sheets(“RESULT”).Range(“3:42”).RowHeight = 34
Sheets(“RESULT”).Range(“A3:T42”).Font.Size = 18
End Select
End Sub
解説
たまじいでは１行目から解説じゃ
- 「高さ文字」というタイトルでマクロ宣言
- 値「RF」は、A列の入力済み最終行の行番号を取得して格納
- 変数「i」は、1列目～格納値「RF」行目まで
- もし、セル「i」行目21列目（G列）の値が「0」だったら行非表示にする
- 「i」行目最終まで繰り返す
- シート名「RESULT」セル「G1」の値（参加人数）により処理をする
- 値が15以下だったら
- 3行目～17行目の行の高さを 75 にする
- セルA3～T42の範囲の文字の大きさを 24 にする
- 値が16だったら
- 3行目～18行目の行の高さを 74 にする
- セルA3～T42の範囲の文字の大きさを 24 にする
- 省略
- 値が40だったら
- 3行目～42行目の行の高さを 34 にする
- セルA3～T42の範囲の文字の大きさを 18 にする
- Select Caseステートメント終了
- マクロ記録終了
ポイントは、事前に成績表の外「G列」に参加者リストに名前が入力されたら「1」と表示させる事と、「A列」に参加人数（ここでは1位～40位までの順位）を表示させている事が、下準備です。
そして、入力済み最終行を自動的に探すことで、不要な行を非表示してから必要な行の人数という条件に応じて高さと文字の大きさを設定することです。
たまじい念の為に、非表示した行を再表示させるVBAコードを伝えておくぞ～
非表示の行を再表示する
Sub 再表示()
Rows.Hidden = False
End Sub
手作業で行の高さや文字の大きさを調整していた時は、やり直しを繰り返しながら5分ぐらいの時間を無駄に使っていましたが、一瞬で自動調整してくれるのですぐに終わるのでとても便利ですよ。
ボウリング成績表で必須のVBAコード
ピンちゃんエクセルのボタンの配置方法やリボンツールバーの「開発」設定がまだの場合、この機能使えないので設定から始めましょう～
マクロを使う最初の準備
エクセルのワークシート上にVBA登録できるボタンを配置する方法
えっ！いつも同じ作業を繰り返しているのに、一瞬で作業が終わるボタンを使わずにまだエクセルの画面上にあるリボンツールバーを使って、手作業しているのですか？ ボタ…
西船ボウルで使用しているエクセルで作っているリーグ成績表（スタンディング）で、必ず使っているVBAコードです。
実際にはワークシート上にコマンドボタンを配置せず、専用の入力フォームも（ユーザーフォーム）作成してフォーム上にボタンなどを配置しています。
成績表作成でよく使う便利機能
エクセルファイル操作の便利機能
カールの在庫状況
西日本限定のカールが関東で売っている場所や買える店が西船橋にある
2024年12月15日現在の在庫数は、チーズ・うすあじ合わせて在庫数は49個です。 2017年店頭から消えた「かーる」 2017年に埼玉工場など東日本の4工場閉鎖により、四国工場...