成宮寛貴と神奈川県伊勢原市へ🚗

舞台の仕事をすることになった成宮
演出家宮本亞門との
不思議な縁について語る。

成宮💬"ドライブしている最中に
この番組出て良かったなって
めちゃめちゃ思った"と笑う☺️

🗓️毎週日曜昼12時45分
『#メシドラ』
兼近大樹(EXIT) 満島真之介
https://t.co/SBC7skykAf https://t.co/n7JBpGuKk5 December 12, 2025

マルハン川越店
EXIT店長です🚀

埼玉マルハン合同取材と
超ディグスロ取材3連戦最終日💪
キッチリ走り抜けるために
マグロアジをいつも以上に
しっかり食べてエネルギー充填🫡
えんがわはよく食べますが
そいは初挑戦🍣

明日もまずは中台通りへ🏃‍➡️
ともに盛り上げます‼️
ご来店お待ちしてます‼️ https://t.co/UavmaBtIwh December 12, 2025

【🔥⛏️連日対抗の埼玉旗艦店"超"⛏️🔥】

12/6 マルハン川越

＜🆚対抗🆚＞
✅超ディグスロ⛏🔥
✅スピリットオブマルハン

超連戦2日目の本日は抽選150人！
👑が中台エリア見て来たので引用で👇

初日の結果見るにやはり
超=北斗&マイ5に"各複数"で良さそう🙋‍♂️
ちゃんと昇格感あってめっちゃ好きです💩

明日は超ディグ3連戦最終日🗓
周年対抗→6付く対抗と対抗連戦です🆚

🗓12/4 超ディグ連戦初日
・3台並び→北斗×2/マイ5×2/からくり
・3台並び→LBエヴァ/ゴージャス
・3台並び→エウレカART~ハナビ

直近ディグスロ連戦も参考に👇
🗓11/22
・抽選139人
・全系→アズレン
・3台並び→マイ5/ゴージャス/北斗
📲EXITポスト
・🚢&レーン→アズレン

🗓11/23
・抽選149人
・全系→防振り
・3台並び→ジャグガ/マイ5/北斗
📲EXITポスト
・棒→防振り🤔
・イワシ(光物)/💃→ジャグガ🤔

🗓11/24
・抽選138人
・全系→ゴジエヴァ
・3台並び→からくり/マイ5/北斗
📲EXITポスト
・🕔&コラボ→ゴジエヴァ💡
・🟧→からくり🤔

💡要点まとめ
◆傾向①:3台~並び8箇所以上
◆傾向②:ディグ系連戦=北斗&マイ5鉄

仕掛けの基本は3台~並び🍡
"超"になるとミニマム8箇所~傾向アリ🔎
長いのや全系での仕掛けも一応頭の片隅に💡

例に漏れずEXITは回転寿司生活w
過去のディグ連戦=北斗/マイ5が鉄🍣

🈁は"超"格上げに合わせて
それぞれ複数箇所作ってそう🚪

超ディグでもメイン/人気所AT機に仕掛け🍡
光物は多台数が特に扱い良き✨

その他準メイン/🌹までと番号問わず🙋‍♂️
🈁はポスト絡み中心です📲

合同取材も入ってますが
過去各店仕掛けなので注意⚠
第一土曜日頑張るよ~の合図風💪 December 12, 2025

＼残席わずか🎟／

今週末、12/6・12/7の本公演
前売券販売中🙌

6日(土)は KOC王者 #ジャルジャル や #ニューヨーク 、#EXIT などメディアでも活躍中の芸人が登場！

7日(日)は #ダイアン が出演！ #ロングコートダディ、#ミキ、#コットン など実力派若手芸人のネタも楽しめます🌟 https://t.co/0ql2kBSXKk December 12, 2025

本日の #極ライブ MC #フースーヤ でやっぱ好きにやっていてオモロかった🤣
ネタの方ではゲストにEXIT出演しており…
周年イベントでMCコスプレ＆撮影タイムあり🙆‍♀️…
コーナーにはM-1決勝進出決めた #豪快キャプテン も出とって…
なんか豪華に感じた😂

#マンゲキ https://t.co/FMBOGlBaMb December 12, 2025

掛け値なし
忖度なし
容赦なし
のトークが楽しみ😁

#ダイタク
#EXIT https://t.co/bSumJI1raj December 12, 2025

渋谷で迷子になりながら銀だこに行き、副都心線がわからず迷子になり、やっと副都心線の入口を発見して電車に乗れてX開いたらコレ!
慌てて、チケット買ったよ!
気付いたの投稿された30分後。
完全に出遅れたけど、まさかの今日と全く同じ席をゲット!
最後列だけど見やすかったから良し‼️
#EXIT https://t.co/V8G3d1rani December 12, 2025

ダイタクの即漫倶楽部、11月カゲヤマで1月EXITってやばくない？？14期がゲスト来てくださっててめちゃくちゃ嬉しい！ December 12, 2025

隣の人アホウメェ〜ってみてたらEXITさんで仰天　睡眠不足で調子バカ悪いし帰ろ……. December 12, 2025

#極LIVEプラス
#よしもと漫才劇場
#EXIT
今日は1公演のみ参加で自由席💺
2列目に座れましたぁ💚🩷
珍しく🦄何回も近いところ見てくれて👀
嬉しかったぁ🥰
好きなタイプ👘のネタで
〝なるほど〜〟と
歓声が上がっていました😆👏 https://t.co/kh9HwKZ0Wi December 12, 2025

ふらっと入ったバーがIPO•M &AでEXITを目指す経営者の交流会をやっていて

「あ、一般のお客さん、、、いいですよ、どうぞ！」

ってなったから、なんか出るに出れなくて

イケイケの経営者たちが難しい話をしている中

“ふつうの軽音部”を黙々と読んでる私。 December 12, 2025

kiwami極LIVEプラスお疲れ様でした🙇
配信をしてくださって心から感謝しております🥹🙏✨
素晴らしい漫才、コーナーを拝見させて頂き心温まりました😊⭐
素敵な時間ありがとうございました✨⭐
夜のマンゲキフライデーナイト素敵な公演になりますように🌟
#EXIT
#りんたろー
#兼近大樹 December 12, 2025

EXITさんkiwami極LIVEプラスお疲れ様でした🙇
配信をしてくださって心から感謝しております🥹🙏✨
素晴らしい漫才、コーナーを拝見させて頂き心温まりました😊⭐
素敵な時間ありがとうございました✨⭐
マンゲキフライデーナイトも素敵な公演になりますように🌟 December 12, 2025

【エルフ・荒川】EXIT・兼近大樹の言動に困惑「絡み方が分からない」 https://t.co/BlX1tVoxE3 @YouTubeより
日テレさんありがとうございます🐊🍵🦄 December 12, 2025

EXIT りんたろー。 初めての「パパ」を奪われた？「ちょっと違うよー」兼近大樹のクリスマスの悲しい過ごし方も暴露【「アイリスのお茶 緑」冬のプ... https://t.co/zTkTz1WYn0 @YouTubeより
めざましさんありがとうございます🐊🍵🦄 December 12, 2025

了解、指摘ありがとう！ xlExpressionのAddを分離し、書式（フォント色、背景色など）を取得/保存するよう拡張したよ。tempを増やして対応。

Sub ExportConditionalFormatting()
Dim ws As Worksheet, outWs As Worksheet, rng As Range, area As Range
Dim fc As Variant, i As Long, j As Long
Dim temp() As Variant
ReDim temp(1 To 1000, 1 To 12) ' 追加: FontColor, InteriorColor, Bold, Italic 等
i = 1
For Each ws In ActiveWorkbook.Worksheets
If https://t.co/0ieTjfX9qI = "CF_Export" Then GoTo NextWs
On Error Resume Next
Set rng = ws.Cells.SpecialCells(xlCellTypeAllFormatConditions)
On Error GoTo 0
If Not rng Is Nothing Then
For Each area In rng.Areas
For j = 1 To area.FormatConditions.Count
Set fc = area.FormatConditions(j)
temp(i, 1) = https://t.co/0ieTjfX9qI
temp(i, 2) = area.Address
temp(i, 3) = j
temp(i, 4) = fc.Type
Select Case fc.Type
Case xlCellValue
temp(i, 5) = fc.Operator
temp(i, 6) = "'" & fc.Formula1
temp(i, 7) = "'" & fc.Formula2
Case xlExpression
temp(i, 6) = "'" & fc.Formula1
Case xlUniqueValues
temp(i, 5) = fc.DupeUnique
End Select
' 書式取得
temp(i, 8) = fc.Interior.Color
temp(i, 9) = fc.Font.Color
temp(i, 10) = fc.Font.Bold
temp(i, 11) = fc.Font.Italic
temp(i, 12) = fc.StopIfTrue
i = i + 1
Next j
Next area
End If
NextWs:
Next ws

' シート出力
On Error Resume Next
Set outWs = Worksheets("CF_Export")
On Error GoTo 0
If outWs Is Nothing Then Set outWs = Worksheets.Add: https://t.co/lTTQbs0J64 = "CF_Export"
outWs.Cells.Clear
outWs.Range("A1:L1") = Array("Sheet", "Range", "Index", "Type", "Operator/Dupe", "Formula1", "Formula2", "InteriorColor", "FontColor", "Bold", "Italic", "StopIfTrue")
If i > 1 Then outWs.Range("A2:L" & (i - 1 + 1)) = temp
MsgBox "出力完了！"
End Sub

Sub ImportConditionalFormatting()
Dim outWs As Worksheet, ws As Worksheet, area As Range
Dim fc As Variant, row As Long, lastRow As Long
On Error Resume Next
Set outWs = Worksheets("CF_Export")
If outWs Is Nothing Then MsgBox "CF_Exportシートが見つかりません！": Exit Sub
lastRow = outWs.Cells(outWs.Rows.Count, 1).End(xlUp).row
For row = 2 To lastRow
Set ws = Worksheets(outWs.Cells(row, 1).Value)
Set area = ws.Range(outWs.Cells(row, 2).Value)
area.FormatConditions.Delete ' 任意
Select Case outWs.Cells(row, 4).Value
Case xlCellValue
Set fc = area.FormatConditions.Add(Type:=xlCellValue, Operator:=outWs.Cells(row, 5), Formula1:=outWs.Cells(row, 6), Formula2:=outWs.Cells(row, 7))
Case xlExpression
Set fc = area.FormatConditions.Add(Type:=xlExpression)
fc.Formula1 = outWs.Cells(row, 6)
Case xlUniqueValues
Set fc = area.FormatConditions.AddUniqueValues
fc.DupeUnique = outWs.Cells(row, 5)
End Select
' 書式設定
fc.Interior.Color = outWs.Cells(row, 8)
fc.Font.Color = outWs.Cells(row, 9)
fc.Font.Bold = outWs.Cells(row, 10)
fc.Font.Italic = outWs.Cells(row, 11)
fc.StopIfTrue = outWs.Cells(row, 12)
Next row
MsgBox "設定完了！"
End Sub

これでバグ修正＆書式対応。テストしてね！ 😊 December 12, 2025

どちらも好きです
#EXIT #りんたろー #兼近大樹 https://t.co/IpOoGMZusI December 12, 2025

mondで匿名メッセージ・質問を募集しています。何でも送ってね！ #mondで質問募集中

こんな質問に回答しています
・好きな寿司ネタトップ３ください🍣
・EXITを推してて1番の思い出は？
・ポケモンで一番好きな御三家はどの世代ですか🫶
https://t.co/k0uLkVhjM3 December 12, 2025