お好みの醤油で召し上がれ! [住所]東京都大田区本羽田2-6-21 [TEL]03-5735-4441 [営業時間]カフェ10時~17時(16時LO)※食事の注文は11時~、ショップ10時~18時 ※ランチタイム有 [休日]火 [交通アクセス]京急空港線糀谷駅から徒歩9分 わざわざ食べに行く価値あり贅沢TKG 【閉店】うに屋のあまごころの卵かけご飯[東京駅] ウニと卵のキセキのコラボレーション! 昭和28年に長崎県・壱岐島で創業した、老舗ウニ専門店発の1杯だ。ウマさの秘密、それはご飯にあり。練りウニと和風ダシでふっくら炊き込んでから、仕上げに蒸しウニをたっぷりまぶし、バターと黒胡椒で香り高く仕上げている。卵を落としてから、トッピングの生ウニを豪快に混ぜれば、磯の香りとリッチなコクがタッグを組んで口いっぱいに広がっていく。ピリッと利かせた黒胡椒が絶妙のアクセントとなり、ひと口目から最後まで、無我夢中でかき込んでしまうこと間違いなし!
たまに無性に食べたくなるのがTKG、卵かけご飯じゃないでしょうか。卵かけご飯といえば、自宅に簡単にできるといったイメージですが、実は人気の専門店も存在するんです。東京をはじめ、全国の美味しいTKG専門店をランキング形式でまとめてご紹介します。 全国で人気!
希少部位の焼鳥コースに追加で シメは超濃厚〝キンカン〞TKG 希鳥の卵かけご飯[恵比寿] 今、波にのる新進気鋭の焼鳥店だ。使用するのは、自社農場で通常よりも長い日数をかけて放し飼いした"みやざき地じどっこ頭鶏"。弾力あふれる肉質から、噛むほどにジューシーなコクと旨みがあふれ出す。初めてならば、"おまた"や"えんがわ"などの希少部位も楽しめる、「焼鳥コース」がイチオシだ。 シメに食べたいのはもちろんTKG。カラスミやトリュフといった高級食材のトッピングもさることながら、唯一無二ともいえるのが、卵の替わりに生の"キンカン"をのせること。焼鳥専用フォークの先端で膜をプチッと破り、ご飯にまぶせば、卵黄よりもさらに濃厚なコクと甘みが広がる、まさに究極の逸品。このキンカンの仕入れ数に限りがあることから、メニューに載らないこともある貴重な1杯なのだ。予約時に注文しておくのを忘れずに。 写真:カラスミTKG すりおろしたカラスミを贅沢に振りかけている。キンカンとカラスミのコクが合わさり相乗効果で濃厚な旨みが口いっぱいに広がる。濃い口の福岡・ミツル醤油が抜群の相性だ。 TKG data たまご みやざき地頭鶏キンカン、ご飯 長野県産謙太郎米、具 トリュフ&カラスミ、タレ 福岡県ミツル醤油 写真:トリュフTKG 1500円 目の前でスライスしてくれるトリュフは深い香りが満点! キンカンの旨みをトコトン引き立ててくれる。 鶏卵になる前の卵黄部分で、凝縮した旨みとコクを持つ [酒]ビ生756円 焼グラス734円〜、ボトルなし ワグラス810円〜、ボトル3456円〜 日なし [その他のメニュー]おまかせコース4104円、長芋の醤油漬け378円、皮の生姜煮486円、えんがわポン酢486円、最上鴨炙りユッケ1296円、麻婆白子972円、トリュフオムレツ1296円、柚子塩らーめん648円など [住所]東京都渋谷区恵比寿西1-2-7 地下1階 [TEL]03-5784-2355 [営業時間]17時~23時(22時LO) [休日]日 [席]計32席/全席禁煙/予約可/カード可/サ・お通し代なし [交通アクセス]JR山手線ほか恵比寿駅西口から徒歩2分 口どけチーズに 濃厚卵のコクが絡み合う!TKG! 銀座 しまだの卵かけご飯[銀座] 伊勢エビ、ズワイガニ、黒毛和牛……、極めつきの食材を使った、高級割烹顔負けの料理が自慢の銀座を代表する立ち飲みの名店だ。言わずと知れた名物が「からすみソバ」。まったりとした味わいの中に、キリリとした二八のコシが活きている。さらに隠れた人気メニューがもう1品。それが、まるで淡雪のようなパルミジャーノをたっぷりまとったTKGだ。熱々を食せば、チーズと卵が米ひと粒ひと粒に絡まり、とびきり濃厚なコクが押し寄せる。その味わいはまるでチーズリゾット!?
この口コミは、高槻のぼやきさんが訪問した当時の主観的なご意見・ご感想です。 最新の情報とは異なる可能性がありますので、お店の方にご確認ください。 詳しくはこちら 1 回 昼の点数: 4. 0 ~¥999 / 1人 2008/08訪問 lunch: 4. 0 [ 料理・味 4. 0 | サービス 3. 全国の卵かけご飯専門店7選 - Lourand(ローラン). 5 | 雰囲気 3. 5 | CP - | 酒・ドリンク - ] 兵庫県の山奥にある卵かけご飯専門店です 今まで2度訪問し大行列で断念したお店です 卵かけご飯定食 卵 卵かけご飯 卵かけご飯(海苔&葱&牡蠣醤油) {"count_target":" ", "target":"", "content_type":"Review", "content_id":626769, "voted_flag":null, "count":5, "user_status":"", "blocked":false, "show_count_msg":true} 口コミが参考になったらフォローしよう この店舗の関係者の方へ 「みんなで作るグルメサイト」という性質上、店舗情報の正確性は保証されませんので、必ず事前にご確認の上ご利用ください。 詳しくはこちら 店舗基本情報 店名 但熊 (たんくま) ジャンル 和食(その他)、オムライス お問い合わせ 0796-55-0901 予約可否 予約不可 住所 兵庫県 豊岡市 但東町栗尾 916 大きな地図を見る 周辺のお店を探す 交通手段 国道426号線 福知山から豊岡方面へ。「高橋小学校前」信号から約2. 6㎞ 豊岡から福知山方面へ。「小谷」交差点から約4.
FileSystemObject Dim RC As Integer Dim lRow, I As Long Dim FolderName, OldFile, NewFile As String Dim ws01 As Worksheet Set ws01 = Worksheets ( "Sheet3") lRow = ws01. Row 'A列の最終行を取得 For I = 6 To lRow If IsEmpty ( ws01. Range ( "B" & I)) = True Then MsgBox "新ファイル名を指定していないセルがあります。" Exit Sub End If Next I RC = MsgBox ( "選択したファイル名を変更しますか? ", vbYesNo + vbQuestion, "確認") 'ファイル名変換を実行するか確認します。 If RC = vbNo Then MsgBox ( "ファイル名変換をキャンセルしました。") Exit Sub 'プログラムを中断 End If FolderName = ws01. Range ( "A3") '保存されている保存先(フォルダーパス) For I = 6 To lRow OldFile = FolderName & "\" & (I, " A ") 'A列から旧ファイル名を取得 NewFile = FolderName & " \ " & ws01. ファイル名を一括変更したい！そんな時はエクセルVBAを活用しよう！ | zumizumiブログ. FileExists ( NewFile) = False Then Name OldFile As NewFile 'ファイル名を変更します。(旧ファイル⇒新ファイル) ws01. Cells ( I, "C") = "変換不可" End If Next I End Sub ' ●実行前~実行後 ※プログラム実行後、下記の通りに実行されます。 ①ファイル名を選択するとダイアログボックスが表示されます。 ②ファイルを選択して、旧ファイル名としてファイル名とフルパスを取得します。 ③変換する新しいファイル名を入力します。 ④「ファイル名変換」ボタンをクリックします。(実行) ⑤変換結果が表示されます。 ※変換結果が「完了」ならば、新ファイル名へ変換されています。 最後まで、ご覧いただきまして誠に有難うございました。 また、VBAに関するテクニックや便利な手法などをこのサイトに掲載していきますので、定期的に参照していただけると幸いです。
また、Excelについて基礎から、学びたい方はこちらの書籍もご覧ください。
FileSystemObject Dim lRow, I, F As Long Dim FolderName, OldFile, NewFile As String Dim FileName As Variant Dim ws01 As Worksheet Set ws01 = Worksheets ( "Sheet3") FileName = Application. GetOpenFilename ( MultiSelect: = True) 'ダイアログボックスが表示(MultiSelect:=Trueでファイルを複数選択) If FileName ( 1) < > False Then FolderName = File_function. GetParentFolderName ( FileName ( 1)) '選択した最初のファイル名からフォルダーまでのルートを取得する Else MsgBox "作業をキャンセルされました" Exit Sub 'プログラムを終了 End If lRow = ws01. Row 'A列の最終行を取得 ws01. Range ( "A6:A" & lRow + 1). ClearContents 'A列のデータ(文字列のみ)をクリアー F = 1 '選択ファイルの1件目を設定 For I = 6 To 5 + UBound ( FileName) '選択したファイルの数を繰り返す。(最大値) ws01. Range ( "A" & I) = File_function. GetFileName ( FileName ( F)) 'ファイル名を順番にA列(セル)へ転記します。 F = F + 1 '次のファイル名を指定するために+1加算する。 Next I ws01. Range ( "A3") = FolderName '選択したフォルダーバスをセル「A3]へ転記 End Sub ' ●「ファイル名変換」・・・・Sub FilenameChange04() 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 ' '******** ******* ' ' Sub FilenameChange04 () '指定した新ファイル名を変換します。 Dim File_function As New Scripting.