ソースコード中に参考となるURLを書きたいことがあるけど、言語によっては、その時にこんな感じで直接URL書いてもコンパイルエラーにならないんだよね…。（https:のhttpsの部分がgotoのラベル扱いされ、//以降がコメント扱いされるので） https://t.co/3Kcd5cW41A December 12, 2025

@niken_hunter プライバシー侵害とか何とか言いそうですが、賠償金の回収となるとプライバシーも何も無くなるんですよね(;´Д｀)

誹謗中傷で刑事罰は中々難しいわけですが、この賠償金逃れは割と簡単にGoto刑務所になるので、あの界隈の「賠償金なんて払わなきゃ良い」というのは地獄への誘いなんですよね。 December 12, 2025

#youtubemusicまとめ

esoragotoが一番聴かれている
サブスクはYouTube Musicでした！

年間で500万再生以上を獲得😳
月間リスナーも常に10万人以上でした！

たくさんのご視聴
ありがとうございました！

🌕esoragoto's YouTube Music🌕
https://t.co/ZHXIff1iq0

#youtubemusicrecap2025 https://t.co/UzGvI26vPY December 12, 2025

ブログアップ完了 https://t.co/buPNDAWmqO 泡系のキメ細かいクリーミーな濃厚感を楽しめる鶏白湯とツルモチ食感の平打ち手揉み麺が合わさったつけ麺!メチャウマーイ(^O^)/　#つけ麺　#ラーメン　#GOTOラーメン　#ramen_cp　#立川 #鏡花 #鶏白湯つけ麺 December 12, 2025

ブログアップ完了 https://t.co/C865vmUooo 濃厚豚骨でお馴染みの「ずんどう屋」の淡麗豚骨の醤油ラーメン!王道を行く味わいでウマーイ(^O^)/　#ラーメン　#GOTOラーメン　#ramen_cp　#小作 #ずんどう屋 #ずんどう屋羽村栄町店 #淡麗醤油らーめん #醤油らーめん December 12, 2025

ブログアップ完了 https://t.co/8hBNDQhQj6 多摩地区を代表する深夜ラーメンの名店の一つ!背脂びっしりなのにあっさりした味わいでニンニククラッシュでガラリと表情を変える!ウマーイ(^O^)/　#ラーメン　#GOTOラーメン　#ramen_cp　#背脂チャッチャ系　#東小金井 #にんにくや #にんにくや東小金井店 December 12, 2025

初見では「え？」ってなったけど数秒考えて納得したw

- 「http:」は goto のラベルとして解釈される
- 「//hoge.com」はコメントとして解釈される

これは URL っぽい見た目に騙されちゃうなぁ。 https://t.co/crOm8opZhj December 12, 2025

#Spotifyまとめ

2025年はesoragotoにとって
飛躍の一年でした！

全ての数値がなんと1,000%超の上昇⤴︎

出会ってくださった皆さん、
本当にありがとうございます！

2026年のesoragotoも
よろしくお願いします✨

🌕esoragoto's Spotify🌕
https://t.co/EOA0PYnvhf

@SpotifyJP
#SpotifyWrapped https://t.co/C4SaljmmdV December 12, 2025

ブログアップ完了 https://t.co/fRlormQAVc リーズナブルな価格でサラっと食べられる甘めな油そば!ウマーイ(^O^)/　#ラーメン　#GOTOラーメン　#ramen_cp　#油そば　#羽村 #日高屋 #日高屋羽村緑ヶ丘店 #汁なしラーメン December 12, 2025

esoragoto 1st One-Man LIVE
チケット最速先行受付中！

esoragotoにとって
たった一度きりのファーストライブ🌠

確実に見たい方は
最速先行の今がチャンス！

チケット特典のグッズは近日公開予定！

▽ご予約はこちらから
https://t.co/RL5gxWltry

#esoragoto https://t.co/wUGBde7AEr December 12, 2025

12/5(Fri)
新橋 GOTOKU
20:00〜5:00

Staff
ひじき
@hiziki__
ちゃんぽん
@chan_pon25
カズマ
@sakeikura_95

本日もお疲れ様です🍀
急に寒くなって冬を感じる今日この頃…
みんなの温もりを感じたい……❄️
温もり不足の三人で今夜もお待ちしております🩵誰か私のハートを燃やして🔥

団体様歓迎🎉 https://t.co/S3w2mcp7Jw December 12, 2025

⛩️ “GO TO TIF” 決起無料ライブ ⛩️

来てくださったみなさん、
本当にありがとうございました🪭✨

今日のステージで改めて、
“絶対にみんなで夢を叶えたい”と強く思いました。

私たちは、2026年のTIF出場を本気で目指しています。

そして──
武道館の夢を、まだ何ひとつ諦めていません。

そのために、来年1月18日の
ワンマンライブを絶対に成功させたい。
このステージが、TIFへの大きな鍵になります。

TIF出場を勝ち取ったその先に、
必ず武道館へと続く光があると信じています。

ここからまた、
みんなと一歩ずつ一緒に夢を掴んでいきたい。

どうか、私たちを信じてきてください🚀🤍

🩵 1/18(日) #瑠璃いろの答えへ 🩵
🎟️ https://t.co/VDcWgRqZHp

#かかかぶぶぶききき
#かみゅ頼み
#GOTOTIF December 12, 2025

GOTOTIF決起ライブありがとうございました🔥

盛り沢山のセトリ楽しんでもらえたかな？☺️

1月のワンマンに向けて、そしてその先のTIFに向けて頑張っていくのでこれからもついてきてくれたら嬉しいです🥹🩵

絶対TIF出演の切符掴もうね〜✊🏻 ̖́-

#かかかぶぶぶききき https://t.co/pcQUElzmg9 December 12, 2025

やばいしつこいくらいのピースで元気出た、ポケットからピースやし、GototheTopピースやし https://t.co/trFY87x6Gu December 12, 2025

祖父が孫に語る現代：極めて大事な独立自尊の精神｜sgoto3 https://t.co/4zfv970EgF 偉人の中でも福沢諭吉は圧倒的に偉いと思う。みなが立身出世を目指す中、独立自尊、自労自活を説いた。現代であっても独立自尊、自労自活は難しい。君らには独立して生きる気概を持って欲しい December 12, 2025

#新宿　#北区　#早稲田　#十条　#ラーメン　#つけ麺　#油そば　#資生堂　#早稲田大学　#帝京大学　#東京家政大学　#食べログ
#早稲メシ　#MICHELIN_JP #TRYラーメン　#ビブルグマン　#GOTOラーメン https://t.co/fiOdOlU2ne 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

カルディにケンタの福袋も
抽選で毎回落選💦PR

けど楽天スーパーセールで
GoToしないグルメ福袋 夏のおうち時間 お楽しみ10点

見つけたしコッチ欲しい🤩
➡https://t.co/Bn6tM0DgAg

10点入りでお得感MAX✨

マックの当落発表怖い‼

#カルディ #ad #福袋2026 #ケンタッキー December 12, 2025

了解、フィードバックありがとう！ 配列に集めてから一括出力するよう修正。Formulaは「'」を付けて文字列化。

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, row As Long
ReDim temp(1 To 1000, 1 To 8)
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
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:H1") = Array("Sheet", "Range", "Index", "Type", "Operator/Dupe", "Formula1", "Formula2", "Other")
For row = 1 To i - 1
outWs.Rows(row + 1).Columns("A:H") = temp(row)
Next row
MsgBox "出力完了！"
End Sub

Importはそのまま。どう？ 😊 December 12, 2025

了解！ 修正して、取得した条件付き書式を専用シート「CF_Export」に出力するプロシージャと、そこから読み込んで設定する別プロシージャを作ったよ。重複値も対応。

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, row As Long
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:H1") = Array("Sheet", "Range", "Index", "Type", "Operator/Dupe", "Formula1", "Formula2", "Other")
row = 2
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)
outWs.Cells(row, 1) = https://t.co/0ieTjfX9qI
outWs.Cells(row, 2) = area.Address
outWs.Cells(row, 3) = j
outWs.Cells(row, 4) = fc.Type
Select Case fc.Type
Case xlCellValue
outWs.Cells(row, 5) = fc.Operator
outWs.Cells(row, 6) = fc.Formula1
outWs.Cells(row, 7) = fc.Formula2
Case xlExpression
outWs.Cells(row, 6) = fc.Formula1
Case xlUniqueValues
outWs.Cells(row, 5) = fc.DupeUnique
End Select
row = row + 1
Next j
Next area
End If
NextWs:
Next ws
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, Formula1:=outWs.Cells(row, 6))
Case xlUniqueValues
Set fc = area.FormatConditions.AddUniqueValues
fc.DupeUnique = outWs.Cells(row, 5)
End Select
Next row
MsgBox "設定完了！"
End Sub

これでどう？ 他のタイプやプロパティ（色など）は追加してね。テストしてみて！ 😊 December 12, 2025