【Excel】条件付き書式設定を行数分コピペする

Excel
スポンサーリンク

今回使用する表は、「種牡馬別馬齢別勝利数一覧表」

馬のピークをザックリ把握する

種牡馬の勝利数を馬齢別に集計することで、馬のピークをザックリ把握したい。

GI戦の単勝を決める最終段階では結構な有益な情報だったりする。

結果DをAccessでクロス集計し、該当の表を作成

※Accessの使用方法はまた別の機会もしくは他のサイトでご確認下さい。

今回はExcelの条件付き書式設定を複数回コピペするVBAサンプルの説明になります。

Access クロス集計の設定サンプル

Access クロス集計のサンプル表示

これを選択して、Excelにコピペする。

馬齢のピークを探りたいだけなので”せん馬”は非表示にして牡馬と牝馬だけの表示にしてみる。

また列幅の関係上、牡7、牝6までの表記にしている。

「種牡馬別馬齢別勝利数一覧表」をタグ変換してWordpressに貼る

※無料ブログで試したところタグ変換すると、文字数オーバーでどのブログにも入らなかったので内容は薄いもののWordpressでテストしたくなって記事を書いているというのが本当のところ。テストだから途中できることもなく、2年分の集計をそのまま表示させているわよ♡内容は個人的にデータを作成しているので、正確な数字とは多少異なるけども種牡馬のピークの傾向を見るという点ではあながち間違っていないと思うので、興味がある方は参考にしてみてね~(^_-)-☆

勝数牡2牡3牡4牡5牡6牡7牝2牝3牝4牝5牝6
American Pharoah71763562782066150431455584
Animal Kingdom221012
Australia44
Authorized43
Awesome Again11
Bernardini5768211012
Blame1313
Bodemeister22
Cairo Prince476635
Camelot1147
Candy Ride1010
Cape Blanco77
Carpe Diem44
Central Banker77
City Zip3
Closing Argument11
Congrats11
Constitution1367
Creative Cause99
Curlin22589
Daiwa Major523235714
Dansili2929
Dark Angel862
Dawn Approach201
Declaration of War53162413
Distorted Humor388246
Dubawi611232116
Elusive Quality22
Emcee44
Exceed And Excel16268
Fastnet Rock5712121168
Fed Biz11
First Samurai2321011
Flatter33
Frankel130518722743199
Ghostzapper28424
Giant’s Causeway1385
Gleneagles1313
Golden Horn23518
Goldencents11
Graydar33
Hansen88
Hard Spun22
Harlan’s Holiday2424
Hat Trick55
Haynesfield1010
Heart’s Cry835
Henny Hughes241212
Honor Code88
Iffraaj99
Into Mischief441011419
Invincible Spirit2454744
Itsmyluckyday44
Jimmy Creed1212
Kingman29524
Kitten’s Joy351211
Le Havre4991129
Lemon Drop Kid19712
Leroidesanimaux88
Liam’s Map44
Lonhro3333
Lope de Vega55
Lucky Pulpit22
Maclean’s Music33
Magician1212
Majestic Warrior4973111
Majesticperfection1358
Malibu Moon4618105148
Mastercraftsman88
Mayson12111
Medaglia d’Oro321
Midnight Lute11
Mineshaft20911
Mizzen Mast1212
More Than Ready342212
Munnings11
New Approach255119
No Nay Never27261
Noble Mission22
Oasis Dream66
Overdriven77
Pioneerof the Nile30412238
Pivotal27
Point of Entry1675
Pyro88
Quality Road22
Raven’s Pass3333
Redoute’s Choice88
Regal Ransom1111
Roman Ruler88
Rulership2424
Run Away and Hide31922
Scat Daddy4837110
Sea The Stars12
Sebring11
Shackleford55
Shakin It Up22
Shalaa55
Shamardal978125423
Shanghai Bobby426297
Siyouni17413
Smart Missile66
Smart Strike1945
Snitzel44
Speightstown7885121742111
Spring At Last56
Square Eddie33131010
Stormy Atlantic1
Street Boss55
Street Cry301812
Street Sense7
Summer Front22
Super Saver11
Take Charge Indy11281
Tale of the Cat44
Tanino Gimlet2424
Tapit921041181067
Tapizar276129
Temple City13418
Teofilo3030
The Factor432320
Tiz Wonderful1111
Tiznow22
To Honor and Serve1111
Tonalist33
Uncle Mo7823129277
Verrazano17314
Violence467181110
War Command1239
War Front395711214
Warrior’s Reward1212
Will Take Charge3671712
アーネストリー201412
アイルハヴアナザー591276520010416174040337
アグネスデジタル133102136112116612
アサクサキングス7662311411597
アジアエクスプレス1111
アスカクリチャン22
アッミラーレ177
アドマイヤオーラ7210336518
アドマイヤコジーン18117
アドマイヤマックス537235315
アドマイヤムーン33853424497527256430
アポロキングダム867211968216
アポロソニック44
アルデバラン267297201811
アンライバルド256991
ヴァーミリアン18320214133862112512
ヴァンセンヌ42109716
ヴィクトワールピサ6975012980618843148764512
ウインバリアシオン1818
ウォーターリーグ1
エイシンアポロン1596
エイシンヒカリ66
エイシンフラッシュ5815015114172517212
エーシンフォワード18711
エスケンデレヤ9077076
エスポワールシチー2401058513724735
エピファネイア43770119103145
エンパイアメーカー582427118129381248456938
オウケンブルースリ826
オーシャンブルー18414
オペラハウス44
オルフェーヴル135277352229217930023211
オレハマッテルゼ16124
オンファイア1129
カジノドライヴ31273964123311643483312
カネヒキリ2681291085310361615
カリズマティック33
カルストンライトオ21129
カレンブラックヒル891354148
カンパニー1616
キズナ5919919784211
キモンノカシワ342212
キャプテントゥーレ45215513
キングカメハメハ1442763562782066150431455584
キングズベスト291103977367623129
キングヘイロー173105343727311111
キンシャサノキセキ81146185109264856901087612
グラスワンダー55207977
グランデッツァ11
グランプリボス10275323847
クリーンエコロジー55
クリエイター288
クリストワイニング88
クレスコグランド1248
クロフネ727201031081014846131475418
ケイムホーム126282222934812
ケープブランコ10216492926
ゴーカイ4
ゴールドアリュール10737229920211765321697663812
ゴールドシップ20632702678
ゴールドヘイロー244155
ゴスホークケン197
コパノリチャード11
コンデュイット362044
サウスヴィグラス659441637847394151794428
サウンドボルケーノ33
サクラオリオン2121
サクラゼウス11
サクラバクシンオー3430
サクラプレジデント202117
ザサンデーフサイチ99
サダムパテック55
サマーバード135248131017
サムライハート54521941041
サンライズペガサス241212
シニスターミニスター362259863634382521
シビルウォー25169
ジャスタウェイ64962269812916345
ジャングルポケット260105750682181289
ショウナンカンプ11113436931
ジョーカプチーノ11043417242011
シルポート532
シングンオペラ494
シンボリクリスエス32717518033393027148
スウィフトカレント10
スウェプトオーヴァーボード2381341282919531925
スーパーホーネット88
スクリーンヒーロー612671204921191129163334612
スクワートルスクワート2323
スズカコーズウェイ809152111177
スズカフェニックス841845912
スズカマンボ10779168721
スターリングローズ1459
スタチューオブリバティ3222
ステイゴールド107258198315124597113120
ストーミングホーム1081519394789
ストリートセンス1172248111026
ストロングリターン129175622110
スピルバーグ2743512
スペシャルウィーク22679
スマートファルコン31710126523829351621
スマートボーイ99
スマートロビン106
セレスハント33
ゼンノエルシド11
ゼンノロブロイ2551068554646211912
ソングオブウインド189
タートルボウル365301502334115530
タイキシャトル13037719122353310
ダイシンオレンジ11
タイセイレジェンド44
タイムパラドックス672222185
ダイワメジャー122010521515718094413897556918
タガノロックオン22
タニノギムレット936812101211711
ダノンシャンティ218522174511142474711
ダノンバラード83220547
ダノンレジェンド11110
ダンカーク280491005213588
ダンスインザダーク271210
チチカステナンゴ1
ディープインパクト40862729125582331675923576253023817
ディープスカイ1791330473531226
ディープブリランテ43026866147101966392618
テイエムオペラオー21
ディスクリートキャット11101
ティンバーカントリー77
トウケイヘイロー15510
トゥザグローリー145167421520
トゥザワールド39112818
ドゥラメンテ615011
トーセンジョーダン52321813
トーセンファントム374276
トーセンブライト18612
トーセンホマレボシ20537229191193230
トーセンラー118427184520
トビーズコーナー118215262625699
トランセンド1028371914971
ドリームジャーニー2363334304912115102032
トワイニング1212
ナカヤマフェスタ1323603310415
ニホンピロアワーズ22
ニューイングランド862
ネオユニヴァース44018481054922115373111
ノヴェリスト501291731081626556720
ノーザンリバー44
ノボジャック464216177
ハーツクライ20571383443732216937762563361419
バーディバーディ1212
ハードスパン111630233510
ハービンジャー88658178608710242121282118
ハイアーゲーム77
パイロ46730114803318836802314
バゴ17816454412892222
パドトロワ603830118
バトルプラン17141333164432812
バンブーエール571241022
ヒルノダムール15168
ファスリエフ301812
ファルブラヴ1911
フィガロ55
フェノーメノ771131926
フォーティナイナーズサン99
フサイチセブン202810
フサイチリシャール199
フジキセキ16
ブラックタイド5974416759328829100582621
ブラックタキシード296910
フリオーソ193608030797
プリサイスエンド1241012218971576
ブレイクランアウト41121810
フレンチデピュティ110232191211
ベーカバド22184528648222620
ヘニーヒューズ93697222121514118313246
ベルシャザール1388692191111
ホッコータルマエ55
ホワイトマズル88345110812
マクフィ341024
マジェスティックウォリアー15145641523
マツリダゴッホ2781745133546262621
マヤノトップガン1818
マンハッタンカフェ5028655212843507328
ミスキャスト20
ミッキーアイル381523
メイショウサムソン2128321919121294922
メイショウボーラー33356064722112503114
メジロダイボサツ11
モーリス674522
モンテロッソ188286732212020
ヨハネスブルグ38623111673871012613315
ラブイズブーシェ33
ラブリーデイ1495
リアルインパクト1324450929
リーチザクラウン1211431852310207
リオンディーズ391623
ルーラーシップ15838835931118054528315262
レッドスパーダ109324121027
ローエングリン222149205781344118
ロージズインメイ1797402542825194
ローズキングダム968277103010
ロードアルティマ729117591912
ロードカナロア23321694745401359842330978
ローレルゲレイロ40151015
ロジユニヴァース8033035111
ワークフォース354464615031137156
ワールドエース79143728
ワイルドラッシュ238186
ワイルドワンダー927
ワンダーアキュート422

※上記が2018.10月~2020.10.11の約2年間分を集計した表だが、数字だけだとちょっと何んだかよく分からん表に見えるので、これに最大値をちょっと濃いめの色、上位4番までをちょっと薄い色に色づけしてみる。またこの後は上記表だと行が多いので、勝利数400以上の種牡馬だけを抜粋してサンプル画像を表示していく。

AccessデータをExcelにコピペし使える表に加工する

のだが、ちょっと簡単にExcel表作成時、よく使う機能を画像付きで紹介する。

しばし内容が脱線しているので、そんなんもうエ~から!という人は読み飛ばしてもらってAでぇ~

番外編:Excel見やすい簡単機能講座

フィルター機能

原表から勝利数400だけを表示するのにフィルターで抽出しコピペし別シートを作成。

そんなんAccessでやってからExcelにコピペしたらエ~やん!って自慢マンマンの方は・・・

どんどん読み飛ばしていってなぁ~

400勝以上(シート名)を作成

説明用なので、とりあえず値だけをコピーする。

今回のように元シートのネタをフィルターで抽出して、別シートにコピペする場合。

元ネタをコピーするのに、シート全体ではなく表の範囲を指定してコピーした方がExcel使用のメモリオーバーを回避できるので、ぐるぐる回ったままダンマリになったり応答しなくなったりということがかなり少なくなる。特に会社の低性能パソコンを割り当てられてる職場ではExcelコピペの仕方で時間のロスとイライラが自分の大切な時間に大きく影響してくるので、これは知っておくと精神衛生上とても効果があると確信している。

値貼付けを選択しペーストすると⇊下図になる。

ここから種牡馬別ピークを知りたいので、、、

  • 牡8・9 牝7の列を削除
  • 幅を整頓
  • 一行目の見出しに色を付ける

と、こんな感じになる。(下図)

ウィンドウ枠の固定(見出しの固定)

今回のように1ページに収まる表だとこれで完成だが、原表のように行数が300行以上もある表だとこのままスクロールすると見出しが消えてしまうので、データ表示開始行と列の一番右空白列(今回上記の表だと’N2’をクリックし、「ウィンドウ枠の固定」→「先頭行の固定」を選択すると見出しが固定される。

条件付き書式設定のやり方

選択シートに関係ないルールを全て削除する

これはコピペ元や自分以外の人が作成したシートやブックだと、今回必要のないルールが既にコピペされている場合があり、これをそのまま使用すると何かこのシートでトラブルがあったとき修復するやり方を知っていないと何度も同じ間違いをすることになるので、先ずは「ルールの消し方」から習得することが優先なのよ~ね~

  • シート全選択
  • 条件付き書式→ルールのクリア
  • シート全体からルールをクリア

② ③ を拡大すると・・・

強調したい範囲を選択し、条件付き書式設定(ルールを設定)する

今回は牡2~牡7と牝2~牝6までという2つの項目ごとに書式設定を行い。一番勝利数の多い馬齢を濃いめの色で3番目までをちょっと薄い色づけをして数字だけでなく視覚的に分かりやすい表にしたいというのが目的。牡2~牡7だけでも良いのだが、補助的に牝馬も分けて載せてみた。

2行目の牡2~牡7を選択(C2:H2)
「条件付き書式」→「カラースケール」→「赤白 カラースケール」を選択
2行目の牝2~牝6を選択(I2:M2)
「条件付き書式」→「カラースケール」→「緑白 カラースケール」を選択

3行目以降も同様に行ごとに設定していけば良いのだが、今回のように1行毎にルールを設定するのはちょっと面倒になってくる。ここからがようやく今回のVBAサンプルの紹介になるが、プログラム的には、For-Next文、もしくは、Do-Loop文を使えば簡単にできることは想像できるだろう。

ただガチガチに書式からVBAに組み込むのではなく、1行目を手動で設定するのがミソで、こうすると1行目の書式を変更するだけで、これから自分で作成するどんなExcelシートも選択セル値を変更すれば、同様な見やすいシートに変換できる。

関数化するよりも表作成したら終了なので、都度VBAのシート名、行数、列を手動で変更する方が使い勝手が良いと思う。報告資料として添付するときはExcelブックとして保存しなおせば.xlsmとなりVBA記述は添付されないので、安全だ。

既に上記で、ルールの削除の仕方を習得しているので、ルールだけを全消しして再度1行指定しVBAを実行すれば色々な条件付き書式を試せるので、数字と感覚的に色や簡易グラフを組み合わせたいときは便利な機能である。私はグラフよりもルールを結構な割合で多用している。

バクチから学べることがあるとしたら、%やヘンテコな数式よりもいくら必要でいくら儲かるのか?を実際カネが動くので、習得しやすいということがある。これは株やFX、ビットコインなどでも同じだが、実際にコインや現金が動くバクチの方が骨身に染みる感じがある。と、私は思う。。。♡

では、今回のサンプルデータを示し、1行目にルールを設定しコピペするVBAサンプルを書いていくことにしよう~~既に「1行目にルールを設定」はできてしまっているのだよ~~

Excel:400勝以上(2年間)種牡馬ピーク判定表を作成

2行目の書式を行数分コピペするVBAサンプル

Sub syosiki1_set()
'
'   ルール(条件付き書式設定)を一行だけ指定し必要行コピペする
'
    Dim i As Integer
    '''セルをA1表示にする
    Application.ReferenceStyle = xlA1
    Sheets("400勝以上").Select
    
    '''ベースをコピーする
    Range(Cells(2, 3), Cells(2, 13)).Select
    Selection.Copy
    
    '''ベースを必要行ペーストする
    For i = 1 To 28
        Cells(i + 2, 3).Select
        Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Next i
End Sub

完成したシート

編集後記

今回は久々のブログ更新だったので、ちょっとだけ気合入れて作ったら画像が満載になってしまってやっぱり丁寧に説明しようとすると画像や動画は必須になってしまうね~~

あまりに説明の文章がないと、アドセンスから怒られちゃうこともあるので、そのときは大幅画像カットを泣く泣くすることがあるので、今回の仕様が必要だと思う方はさっさと習得してしまってね。

2020年はコロナで競馬も無観客開催となり、会社のおじ様の馬券をipatで購入してあげたりと私でも少しだけ他人のために貢献することがあるのだと思う反面。自分の利益だけを追求するバクチとしての楽しみ方はちょっと影を潜めている年になっている。

今年の成果を謳うには、ちょっと早いかもしれないが・・・

ノートパソコンを!狙ってジャンク購入すると、Win10Proが当たる。メモリ16GBにしてUbuntu20.04入れてYoutube見る機会が増える。Python動画で分かりやすいのがかなり増えている。まぁこんな感じで色々あるが、2021年自分の馬券人生「元年」もしくは「断念」の分かれ道に来ていることが感じられる年になりそうである。

それでは、秋競馬がんばろうね~~♡

タイトルとURLをコピーしました