こんにちは！道産子トサカです！

はい！お待たせしました！
当店にもアライの猫さんが到着しました😊

オフィシャルアライニュース
↓
https://t.co/pBkWnkgdUk

全体像はあちこちで公開されておりますので、当店からはアップの画像をお届け致します。

塗装がグロスなのが伝わりますか？
Araiロゴの黒い部分を見るとわかりますね😊
キラッキラです✨

リアスポイラーはスモークなので、イラストが隠れずに透けて見えますよ。

猫好きな皆さん、ぜひ実物を見に来てください♪

#ARAI
#astrogx
#neko December 12, 2025

みんな来てくれてありがと！
久しぶりにお手伝いに行って緊張してたけど、たくさんお話しできてちょー楽しかった！

いっぱい治癒魔法のお手伝いのお約束できたから嬉しい！

頑張って練習するんだ！

またお話ししようね！

#VRC_Astromensia https://t.co/XoP6pkVREp December 12, 2025

先日は魔法学院カフェアストロメンシアにお越しくださり誠にありがとうございました！！！
今日は窓も壊されておらず一安心でした、、、
皆さまのまたのお越しをお待ちしております！！
　テッド🦁
#VRC_Astromensia https://t.co/h1JsxDaUPT December 12, 2025

ロハさんのポスト見てYouTube2025ハイライトを観てみたんだけど、これめっちゃ面白いよ😆
本当にASTROの年だったなぁって思うw
来年もそうであるといいなぁ🥰
#ASTRO https://t.co/iy1Es0RF00 December 12, 2025

@e_m_u208 これ面白いよね〜🤭
でも、1回しか見てない動画とかも上がってきて？？なとこもあるんだけどねwww

とにかくサナとASTROが多かった〜👍💕 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

こんにちは！道産子トサカです！

はい！お待たせしました！
当店にもアライの猫さんが到着しました😊

オフィシャルアライニュース
↓
https://t.co/pBkWnkgdUk

全体像はあちこちで公開されておりますので、当店からはアップの画像をお届け致します。

塗装がグロスホワイトなのが伝わりますか？
Araiロゴの黒い部分を見るとわかりますね😊

リアスポイラーはスモークなので、イラストが隠れずに透けて見えますよ。

猫好きな皆さん、ぜひ実物を見に来てください♪

#ARAI
#astrogx
#neko December 12, 2025

ASTROフェスの時代を知らないオタクが中堅になってるくらいしっかり年月が経っても尚交流は続けてて欲しすぎるし、つかちあは絶対続けてくれると確信してる December 12, 2025

可愛い宅配便屋さんだこと❣️"(∩>ω<∩)"
あの時のそばかすをまた作ってくれたんですね信頼のメイクヌナニム♡今度は英国風のあどけない少年？(*´ `*)
ウヌは土台が良すぎるからトントン乗せるだけとご本人は仰ってたけど、いつもプロの技をありがとうございます︎︎︎︎✨︎︎︎✨︎✨︎(՞⸝⸝o̴̶̷̥᷅ ̫ o̴̶̷̥᷅⸝⸝՞)

#차은우 #CHAEUNWOO #チャウヌ #아스트로 #ASTRO December 12, 2025

天ﾏさんも🌠隊のLIVEとかチ秋のソロライブには「天ﾏ司」の個人名義でこれまた立派なフラスタを送る。
ASTROフェスの時代を知らないファンの人が現地で関係者のフラスタを眺めてたら「え？！？！守ｼ尺チ秋？！？！あの🌠隊の？！？！？！なんで？！？！？！」ってざわざわされてほしい https://t.co/qSE09lxBgC December 12, 2025

たらしい通販のお知らせです💿💫

＜新譜＞
■「関係図コンピ -ASTRO- Ver. CD」
■reinou × あ子 4th EP「運命」

を【12月6日(土)0時】よりご注文受付開始します♪

https://t.co/AHuZhTCbiV

上記ショップにて0時に各作品のページを公開します♪♪ December 12, 2025

先日お邪魔してきました！
爆発が起きたり、マンドラゴラで聴覚を失う方が出たりとおもしろ空間でとても楽しかったです！！！

途中重くて固まってるのに気付いて別の所でお話してくれたり親切にしていただきました🙏ご迷惑かけて申し訳なかった😭
対策できたらまた行きたい！！

#VRC_Astromensia https://t.co/5hHe7XdAsQ December 12, 2025

💫12月の #蠍座 運勢🔮🆙

GakuGakuの12星座占い/月刊ASTRO

『実行に移す。愛の戦士。勝負の時。』

今週は「本格始動」の時間。ここまで「とりあえずやってみた」のフェーズであったことが、どんどん大きな話になってくる。チャンスの追い風に背中を押されて、さらにアクティブな展開へと突き進んでいく。

蠍座は、11月からゴールデンタイムに突入していて。目に映る景色が移り変わる展開が促されている。例えば、自分には恐れ多いような仕事を任される人がいたり。新たに出会う人が、みんなとっても面白かったり。自身を取り巻く環境から、人間関係のあり方まで、すこし新鮮味のある空気を感じている人は多いのではないかと思うのです。
https://t.co/FHMyF41PcN

#占いフェス #今月の運勢 #星占い December 12, 2025