エクセルマクロ

雨でもあるしフェイスブックの友達リストを作成しファンページ(その他応用が利く)と比較し
同じものには印(黄色塗りつぶし)を施すマクロを作成してみました。
三日間かかりましたが意外と簡単でした。
Sub Macro3()
'
' Macro3 Macro
' I2からI27までをB2からB173までと比較して合致があればJiを色塗りする。
'Ii　ファンページメンバー
'Bj　私の友達リスト
Sheets("Sheet2").Select
Dim i As Integer
Dim j As Integer
i = 2
Do While i <= 27
j = 2
Do While j <= 173
If Range("B" & j) = Range("I" & i) Then
Range("J" & i).Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 65535
.TintAndShade = 0
.PatternTintAndShade = 0
End With
Else
End If
j = j + 1
Loop
i = i + 1
Loop
End Sub
カラムの内容を比較するのがポイントでRangeだけで済んだのがいつまでもひっかかっていました
あとは　End　If　が入っていないためにLoopが拒否されたり終わってみればとても簡単でした。

食や４

グランドコンディション不良(午前中雨)により本日の練習試合は中止されたようです。
元々時間はありましたが本日は『食や』にて当初の目的通り
『鳥ごぼうご飯180円』と『山菜ミニうどん(温)300円』でセットメニューではありませんが
それぞれ単品でいただくことにしていました。
以下メニュー写真は大ヤマトの大予感さんからお借りしてきました
メニューのオレンジ楕円内の商品です、鳥ごぼうご飯は名の通りごぼうがふんだんの炊き込みご飯で
今後も伺うことがあればセットにしたい逸品でした。
まだ『とろろうどん』と『天ぷらうどん』が未経験ですので
あと2回ほど『食や』シリーズは続きます？
　食やのメニュー

五目ラーメン＠山惣

シズコウＧでの練習試合の昼食は山惣ですぐにできるラーメン単品500円のことが多いですが
昨日は変則ダブルでしたので異例の五目ラーメン750円でした、さらに上の方に少しだけ見えるあれも500円
変則ダブルのホーム戦は第一試合と第三試合ですので第二試合の時に二時間半ほど自由時間が発生します。
　五目ラーメン750円
　麺はこんな感じです
ところで今現在静岡では雨が降り続いています、後で学校にも行ってみますが
雨が上がってもこれだけ降れば今日は無理でしょう、田町も覗いてきます。