レベル13 もっとすごいマクロに挑戦 その3 −インブリード馬を表示する− |
レベル12へ | EXCELで血統表を作ろう! 目次へ | トップページへ |
3代血統表もマクロも完成しましたが,このままではマクロが正しく動いているかどうか確認できません.というのは,データベースに入っているのはテイエムオペラオーの血統情報ですが,テイエムオペラオーは3代以内にインブリードがないので,マクロを起動してもフォントは変更されず,正しく表示できるかどうかわからないのです. そこで,3代以内にインブリードを持つ馬のデータをデータベースに追加します. 下の表の内容をデータベースに追加入力(コピー)してください. |
馬名 | 輸入 | 性 | 毛色 | 生年 | 没年 | 父 | 母 | 入力日 |
Bosworth | 0 | 牡 | 黒鹿毛 | 1926 | 0 | Son-in-Law | Serenissima | 2001/09/01 |
Boxeuse | 0 | 牝 | 鹿毛 | 1931 | 0 | Teddy | Spicebox | 2001/09/01 |
Caerleon | 0 | 牡 | 鹿毛 | 1980 | 1998 | Nijinsky | Foreseer | 2001/09/01 |
Chop Chop | 0 | 牡 | 鹿毛 | 1940 | 0 | Flares | Sceptical | 2001/09/01 |
Cosmah | 0 | 牝 | 鹿毛 | 1953 | 0 | Cosmic Bomb | Almahmoud | 2001/09/01 |
Cosmic Bomb | 0 | 牡 | 黒鹿毛 | 1944 | 0 | Pharamond | Banish Fear | 2001/09/01 |
Coup de Folie | 0 | 牝 | 黒鹿毛 | 1982 | 0 | Halo | Raise the Standard | 2001/09/01 |
Escamillo | 0 | 牡 | 栗毛 | 1939 | 0 | Firdaussi | Estoril | 2001/09/01 |
Estoril | 0 | 牝 | 栗毛 | 1930 | 0 | Solario | Appleby | 2001/09/01 |
Fidgette | 0 | 牝 | 栗毛 | 1939 | 0 | Firdaussi | Boxeuse | 2001/09/01 |
Firdaussi | 0 | 牡 | 栗毛 | 1929 | 0 | Pharos | Brownhylda | 2001/09/01 |
Flagette | 0 | 牝 | 栗毛 | 1951 | 0 | Escamillo | Fidgette | 2001/09/01 |
Flaming Page | 0 | 牝 | 鹿毛 | 1959 | 1984 | Bull Page | Flaring Top | 2001/09/01 |
Foreseer | 0 | 牝 | 黒鹿毛 | 1969 | 1998 | Round Table | Regal Gleam | 2001/09/01 |
Halo | 0 | 牡 | 黒鹿毛 | 1969 | 2000 | Hail to Reason | Cosmah | 2001/09/01 |
Herbager | 0 | 牡 | 鹿毛 | 1956 | 1976 | Vandale | Flagette | 2001/09/01 |
Hoist the Flag | 0 | 牡 | 鹿毛 | 1968 | 1980 | Tom Rolfe | Wavy Navy | 2001/09/01 |
Hyperion | 0 | 牡 | 栗毛 | 1930 | 1960 | Gainsborough | Selene | 2001/09/01 |
La Farina | 0 | 牡 | 栗毛 | 1911 | 0 | Sans Souci | Malatesta | 2001/09/01 |
Lady Victoria | 0 | 牝 | 黒鹿毛 | 1962 | 0 | Victoria Park | Lady Angela | 2001/09/01 |
Man o'War | 0 | 牡 | 栗毛 | 1917 | 1947 | Fair Play | Mahubah | 2001/09/01 |
Nijinsky | 0 | 牡 | 鹿毛 | 1967 | 1992 | Northern Dancer | Flaming Page | 2001/09/01 |
Nothirdchance | 0 | 牝 | 鹿毛 | 1948 | 1970 | Blue Swords | Galla Colors | 2001/09/01 |
Pladda | 0 | 牝 | 鹿毛 | 1926 | 0 | Phalaris | Rothesay Bay | 2001/09/01 |
Plassy | 0 | 牡 | 鹿毛 | 1932 | 0 | Bosworth | Pladda | 2001/09/01 |
Raise the Standard | 0 | 牝 | 鹿毛 | 1978 | 0 | Hoist the Flag | Natalma | 2001/09/01 |
Regal Gleam | 0 | 牝 | 黒鹿毛 | 1964 | 0 | Hail to Reason | Miz Carol | 2001/09/01 |
Round Table | 0 | 牡 | 鹿毛 | 1954 | 1987 | Princequillo | Knight's Daughter | 2001/09/01 |
Sister Sarah | 0 | 牝 | 黒鹿毛 | 1930 | 0 | Abbots Trace | Sarita | 2001/09/01 |
Sun Princess | 0 | 牝 | 鹿毛 | 1980 | 0 | イングリッシュプリンス | Sunny Valley | 2001/09/01 |
Sunny Valley | 0 | 牝 | 鹿毛 | 1972 | 0 | Val de Loir | Sunland | 2001/09/01 |
Tom Rolfe | 0 | 牡 | 鹿毛 | 1962 | 1989 | Ribot | Pocahontas | 2001/09/01 |
Turn-to | 0 | 牡 | 鹿毛 | 1951 | 1973 | Royal Charger | Source Sucree | 2001/09/01 |
Vandale | 0 | 牡 | 鹿毛 | 1943 | 0 | Plassy | Vanille | 2001/09/01 |
Vanille | 0 | 牝 | 鹿毛 | 1929 | 0 | La Farina | Vaya | 2001/09/01 |
Vaya | 0 | 牝 | 鹿毛 | 1909 | 0 | Beppo | Waterhen | 2001/09/01 |
Victoria Park | 0 | 牡 | 鹿毛 | 1957 | 1985 | Chop Chop | Victoriana | 2001/09/01 |
Victoriana | 0 | 牝 | 栗毛 | 1952 | 0 | Windfields | Iribelle | 2001/09/01 |
Wavy Navy | 0 | 牝 | 鹿毛 | 1954 | 0 | War Admiral | Triomphe | 2001/09/01 |
イングリッシュプリンス | 1 | 牡 | 鹿毛 | 1971 | 0 | Petingo | English Miss | 2001/09/01 |
オートキツ | 0 | 牡 | 栃栗毛 | 1952 | 1976 | 月友 | トキツカゼ | 2001/09/01 |
クモノハナ | 0 | 牡 | 鹿毛 | 1947 | 0 | プリメロ | 第参マンナ | 2001/09/01 |
クモマサ | 0 | 牝 | 鹿毛 | 1956 | 0 | クモノハナ | ハッピーダイヤ | 2001/09/01 |
トキツカゼ | 0 | 牝 | 鹿毛 | 1944 | 0 | プリメロ | 第五マンナ | 2001/09/01 |
トキツダイヤ | 0 | 牝 | 栃栗毛 | 1963 | 0 | オートキツ | クモマサ | 2001/09/01 |
ノーザンテースト | 1 | 牡 | 栗毛 | 1971 | 0 | Northern Dancer | Lady Victoria | 2001/09/01 |
ハッピーダイヤ | 0 | 牝 | 栗毛 | 1950 | 0 | 月友 | ヘーレンソール | 2001/09/01 |
バレークイーン | 1 | 牝 | 鹿毛 | 1988 | 0 | Sadler's Wells | Sun Princess | 2001/09/01 |
フサイチコンコルド | 0 | 牡 | 鹿毛 | 1993 | 0 | Caerleon | バレークイーン | 2001/09/01 |
プリメロ | 1 | 牡 | 鹿毛 | 1931 | 1955 | Blandford | Athasi | 2001/09/01 |
ヘーレンソール | 0 | 牝 | 栗毛 | 1942 | 0 | プリメロ | 第参ウェッディングサーフ | 2001/09/01 |
月友 | 0 | 牡 | 栗毛 | 1932 | 1956 | Man o'War | 星友 | 2001/09/01 |
星友 | 1 | 牝 | 栗毛 | 1923 | 0 | Sir Martin | Colna | 2001/09/01 |
第五マンナ | 0 | 牝 | 黒鹿毛 | 1939 | 0 | シアンモア | マンナ | 2001/09/01 |
第参マンナ | 0 | 牝 | 黒鹿毛 | 1937 | 0 | シアンモア | マンナ | 2001/09/01 |
データを追加したら,データベースの範囲を確認してください.“HD”という名前を付けた範囲からデータがはみ出していると,血統表内の参照が正しく行われなくなります. |
次の馬名を血統表のタイトル部分に入力し,マクロを起動してインブリードが正しく表示されるか確認してください. |
ノーザンテースト | Lady Angela:3×2 |
フサイチコンコルド | Northern Dancer:3×3 |
トキツダイヤ | プリメロ:3×3, 月友:2×3 |
Coup de Folie | Almahmoud:3×3 |
Herbager | Firdaussi:3*3(母系) |
トキツダイヤは南関東で活躍したタガワテツオー・タガワキングの祖母,Coup de Folie は種牡馬 Machiavellian の母です. インブリードの表示がうまくできない場合は,マクロの記述をもう一度確認してください. |
マクロを起動させるのにいちいちメニューから選ぶのは面倒です. レベル10ではメニューバーにマクロのアイコンを貼り付けましたが,インブリードのマクロは血統表の画面でしか使わないので,血統表の中にボタンを貼り付け,このボタンをクリックするとマクロが起動するように設定してみましょう. メニューから「表示」→「ツールバー」→「フォーム」を選びます. フォームの小さい画面が開きますので,その中から四角く盛り上がった「ボタン」を選びます. ボタンを貼り付けたい位置でマウスをドラッグすると四角いボタンができます. そのあと「マクロの登録」という画面が開きます.ここから「インブリード3代」を選ぶと,ボタンにこのマクロが登録されます. ボタンの名前を「ボタン1」から変更できますので,「インブリード」など適当な名前を付けてください. |
これまでに作成した血統表ファイルを用意しました.ダウンロードしてご利用ください. このファイルにはマクロがついていますので,ファイルを開こうとすると警告メッセージが出ますが,そのまま開いてください. なお,圧縮ファイル(ZIP形式,34KB)とEXCELファイル(118KB)の2つがありますが,中身は全く同じものです. |
圧縮ファイル Pedigree3.zip (34KB) | EXCELファイル Pedigree3.xls (118KB) (右クリックしてファイルを保存してください) |
マクロはうまく動きましたか. ボタンを押した瞬間インブリード馬が太字になるのはちょっとした感動ですよね.(私は感動したんですが...) 次のレベル14では5代血統表のインブリード表示用マクロを作成します. 基本は3代インブリードとまったく同じですが,記述がかなり長くなるので,ちょっとしんどいかもしれません. でもこれでかなり本格的な血統表になりますから,がんばって挑戦してみてくださいね. |
レベル14へ | EXCELで血統表を作ろう! 目次へ | トップページへ |