奈良地裁の公判で、山上被告が銃と火薬の製造で200万円超の借金を抱え、生活にも行き詰まっていた事実が出た。
教団幹部を狙う計画から安倍元総理へ標的を変え、「意味がないわけではないが本筋ではない」と自ら証言した点は重い。
https://t.co/V4Tg0EPY1L
実際には、進学費用の負担はなく、30歳以降も約4年間で総額650万円の返金を受け取っていた。
にもかかわらず、報道空間では「家庭崩壊」と「教団への怨恨」だけが繰り返された。

一方で、鈴木エイト氏は“俯瞰して安倍氏を狙った”という物語を語り、確証なき印象操作を何年も続けてきた。
証拠は示されず、最終的には「山上被告が自分の記事を読んでいた」と自ら語り、動機形成への影響を暗に認めるような発言すらある。

僕はここが最大の問題だと思う。
事実の裏付けがないまま“政治家と宗教の癒着ストーリー”を作れば、加害者の妄想に接続され、結果として特定の人物が危険に晒される。
これは報道ではなく、無自覚な加担に近いのではないか。

にもかかわらず、主要メディアは訂正も検証もしていない。
事実の解像度を上げる努力より、物語の快楽に流れたと言われても仕方がない構図かもしれない。

どこで現実と“語られた現実”が分岐したのか。
この点の検証こそ、テロ再発を防ぐために必要ではないか。

#RuleOfLaw #HumanRights #信教の自由 December 12, 2025

山上事件以降、旧統一教会をめぐる報道と実際の信者像のあいだに、大きなズレが続いている。

実際に教会に足を運んだ人の体験では
・勧誘なし
・押しつけなし
・会話を遮らない
という事実が示されているにもかかわらず、2022年以降の報道は「献金・洗脳」の物語に固定されてきた。

にもかかわらず、多くの人が“テレビで見た印象”だけで教会全体を社会悪と断じてしまった。
相談件数が2021年には27件（全体の0.003％）にまで減っていた事実さえ、ほとんど共有されなかった。

一方で、信者は職場に通い、家庭を持ち、社会的ルールを守りながら普通に生活する人々だ。
個別の行為を理由に、集合的に「得体の知れない存在」と扱うのは、公平な基準とは言い難いのではないか。

どこで物語と事実がすれ違ったのか。
宗教の自由と人間の尊厳という普遍的な基準に立ち返る必要があると思う。

#HumanRights #ReligiousFreedom #信教の自由 #家庭連合 December 12, 2025

本日２０時から！！

【Epic Seven】
何やら面白そうなゲーム…え、7周年！？

気になりすぎる人がいるんですけど。
完全初見からのエピックセブン
https://t.co/Azb1mNINbL

#PR 提供：エピックセブン © Smilegate. All Rights Reserved. https://t.co/qiJVb9Wzts December 12, 2025

死刑囚は本当に「犯人」？
無罪となった袴田巖さんーー
冤罪の可能性を0にはできません

人権について学ぶ「人権週間」が始まりました
一度、立ち止まって考えてみませんか？
1分でわかる死刑問題、第4弾はこちら↓

#人権週間 #HumanRightsWeek
#死刑廃止を考える #SDGs16 https://t.co/mUV61eMVw2 December 12, 2025

#おはララ です

とても寒くなりましたが体調に気をつけて
金曜日も楽しいエオルゼアライフを！

良い日になりますように☆。.:＊・゜

#ララフェル #FF14SS #Lalafell #ffxivscreenshot #FFXIV

(C) SQUARE ENIX CO., LTD. All Rights Reserved. https://t.co/k8qJLAufEt December 12, 2025

#惡人榜：608號（更新）
姓名：#張天陽/#张天阳
性別：男
職務：江蘇無錫市錫山區張涇派出所所長
警號：221733
ID:
手機/微信/支付寶：

上榜理由：2025年9月3日暴力對待維權人士沈愛斌。

#中國人權問責資料庫 #ChinaHumanRightsAccountabilityDatabase:https://t.co/keZ3cFHI27

中國政治犯關注：沈愛斌https://t.co/FwVYyXR9xI

畢業於江蘇省南京市浦口區頂山街道石佛寺三宮48號江蘇警官學院（浦口校區），曾在江蘇省蘇州市相城區元和街道慶元路9號元和派出所工作。
參考資料：
1，https://t.co/L8K7vGGn7O
2，https://t.co/qiy9PiXAjo

戶籍地址：江蘇省無錫市錫山區鵝湖鎮青虹路居委青蕩大墳9號
地址：江蘇省無錫市錫山區鵝湖鎮鵝湖南路鵝湖苑9號

銀行卡:
銀行卡:

關係人：
1，妻子
姓名：#陳雪嬌/#陈雪娇
ID:
手機/微信/支付寶：
邮箱：
於2020年7月17日結婚登記，證號：J320205-2020-001209

職業：江蘇省錫東高級中學教師
銀行卡:

戶籍地址：江蘇省無錫市錫山區鵝湖鎮甘露大街63-6號8室

imei：356345104657837
TAC碼：35634510
廠商型號：Apple Inc Apple iPhone 11 (A2223)
品牌型號：Apple iPhone 11

陳雪嬌戶籍信息：
1.1
名字: 陳文忠
證件:
男 | 1968年1月18日 | 57歲 | 江蘇省 無錫市 無錫縣
關係: 子

1.2
名字: 陳雪嬌
證件:
女 | 1996年11月19日 | 29歲 | 江蘇省 無錫市 錫山市
關係: 孫女

1.3
名字: 薛葉芬
證件:
關係: 兒媳
手機/微信/支付寶：
地址:江蘇省無錫市錫山區鵝湖鎮彩橋村田頭巷8號
車牌:蘇B903BD

1.4
名字: 戴菊英
證件:
女 | 1945年9月26日 | 80歲 | 江蘇省 無錫市 無錫縣
關係: 戶主

1.5
名字: 張婧涵
證件: 女 | 2025年1月31日 | 0歲 | 江蘇省 無錫市 市轄區 錫山區
關係: 曾孫女或曾外孫女
（注：張天陽的女兒落戶妻子戶籍上）

2，兒
名字: #張蘊哲/#张蕴哲
ID：
3. 父親(戶主)
名字: #張東明/#张东明
ID:
手機/微信/支付寶：
視頻號：順其自然張

車牌:
1，蘇BRU620
2，蘇B980WZ
3，蘇B027M7

4,母親
名字: #陸紅霞/#陆红霞
ID:
手機/微信/支付寶:
視頻號：紅紅火火3421

戶籍: 江蘇省無錫市錫山區鵝湖鎮青虹路居委青蕩大墳9號
家庭成員1: 張東明
家庭成員2: 張天陽
家庭成員3: 陸紅霞

車牌: 蘇BRU620
車輛廠牌: 寶馬牌
車架號: LBV8W3923HMG86637
發動機號: 4.287e+225
登記日期: 2022-12-28

名字: 陸紅霞
證件:
出生: 江蘇省無錫市
性別: 女
生日: 1973-06-30
年齡: 52歲
生肖: 醜牛
職位: 公司股東
企業名稱: 無錫恩耐吉機械有限公司
企業代碼: 9132020530181645X8
股東序號: 2
持股比例: 10%
股東類型: 境內中國公民
出資金額: 35萬元
國家: 中國
責任方式: 有限責任
股東ID: 110603632

中國人權問責資料庫（惡人榜）全部資料：https://t.co/bJZ7mFKgH7
24小時不斷間更新惡人最新動向，歡迎查詢收藏分享，並提供更多人權迫害的線索！

中國人權問責資料庫交流群：https://t.co/tpJIwtICxU（歡迎補充資料） (https://t.co/tpJIwtICxU)
YouTube:#記錄者林生亮
Istagram:Shengliang1978
郵箱：[email protected]

長期招募電話組志願者，歡迎以惡人榜志工客服名義對惡人及其關係人進行勸善！上榜不是目的，如充分證實停止作惡可以下榜！

戰略合作夥伴：
1、#拆牆運動：https://t.co/PHxVRokibd
2、#中國之春：https://t.co/5bjxNPSVSc

歡迎引用，但請注明出處以示尊重義工付出。 December 12, 2025

Good morning bright❣️
今日も、この笑顔で1日頑張
るよ☺️Brightsは、寝不足の人が多い朝かな🤭楽しい日々でありますように😊
Smile bright🥰
#bbrightvc
#bright
@bbrightvc
#HereForBright
cr.owner
407. https://t.co/ccy83VczOj December 12, 2025

🌸配信告知【エピックセブン 1-2】

23:30頃～プレゼントコード配布♡

▼参加用DLリンク https://t.co/fhXJo05Y21

▼待機枠
https://t.co/TVQjXtmSKY

▼毎日の応援ポストはここから（最後を見てね） https://t.co/17C7XZXgkD

#PR 提供：エピックセブン © Smilegate. All Rights Reserved. https://t.co/L9Xr8Fj4qD December 12, 2025

おはようございます💐
12月5日金曜日🌱
【ありがとう市場】は定休日🌱

大阪うめきたは今は晴れ時々曇り🌱

今朝は嬉しいご報告🌱

なんと！
レジェンドアスリート水野裕子さんが当店オーナーとWEBマガジンの対談インタビューのためにご来店頂きました🌱

芸能界女子No.1アスリートと呼ばれ、『SASUKE』『KUNOICHI』に20年以上挑み続けてきた水野裕子さん🌱

腰椎椎間ヘルニアを発症しながらも、「勝ち負けよりも一緒にSASUKEを盛り上げたい！」という想いに一念発起し、手術をされて『KUNOICHI』へ復帰することを決められたそう🌱

諦めずに挑戦し続ける生き様やメンタル、若手との共創などたくさんの学びを頂きました🌱

水野さん、そして今回のような機会を下さった皆さま、本当にありがとうございました🌱

本日も素敵な一日となりますように🌱

■明記事項
※Copyright（C） 2025 仕事を楽しむためのWEBマガ
>B-plus. All Rights Reserved.
ﾟ.＊。𓈒・*.。𓏸︎︎︎︎ .ﾟ・*。・.° ＊・*。·.ﾟ◦ 𓏸︎︎︎︎ .ﾟ。° ＊
#水野裕子
#企業公式
#企業公式が毎朝地元の天気を言い合う
#株式会社おおきに
#ありがとう市場 December 12, 2025

奈良地裁で明らかになった拉致監禁の実態は、いまだ十分に報じられていない。
12年5ヶ月監禁され最高裁で勝訴した後藤徹さんの存在も、主要報道ではほとんど触れられなかった。
https://t.co/tEYeX4NBcv
2004年の『月刊現代』では、関与した母親が「最低5000人」と証言し、教団側も全国報告を積み上げて約1300人としてきた。
にもかかわらず、監禁に関わった弁護士やジャーナリストが“専門家”として登場し、教団批判だけが一方向で流されてきた。
一方で、信者への拉致監禁そのものは公には認められず、4300件超の被害記録は長く無視されてきた。

誰の証言を採用し、誰の被害を切り捨ててきたのか。
信教の自由と法の支配という普遍的な基準で、報道の構図を見直す時期ではないか。

#HumanRights #ReligiousFreedom #信教の自由 #RuleOfLaw December 12, 2025

どうしても引っかかる映像があった。
旧統一教会のバッシング報道の裏側で、4300名以上が訴えてきた「拉致監禁・強制棄教」という深刻な人権侵害が続いていた事実だ。
https://t.co/xStthQE1Jv
再現ドラマの一次情報では、90年代から2010年代まで、脱会屋・牧師・弁護士・記者らが関与した“囲い込み”の手口が証言として出てくる。
閉じ込め、外部遮断、ストレス誘導——献金問題とは対照的に、この側面は主要メディアでほとんど説明されてこなかった。

語られた物語と、語られなかった事実。
その差分が、信教の自由と人間の尊厳について、私たちがどこまで向き合えてきたかを静かに問いかけてくるのではないか。

#信教の自由 #HumanRights #ReligiousFreedom #倭国の人権問題 December 12, 2025

🔴 放送開始 🔴
朝活ゲーム【#エピックセブン ③】🎁プレゼントコードあり🎁限定ピックアップガチャ「幼いシェナ」をGETするぞ～✨【稀紗蘿】#エピック完全征服 #PR
https://t.co/AmvjPDOFPD

提供：エピックセブン
© Smilegate. All Rights Reserved. https://t.co/9oZ1rkC6jV December 12, 2025

双子座♊満月
2025年12月5日のメッセージ👼

満月は感情の解放に
相応しいタイミングです

あなたの心の中のモヤモヤが
増幅され気づきやすくなります

その気づきに感謝し
心身を
デトックスしましょう

食べるものにも注意して
あなたの波動を整えましょう

大天使ガブリエルオラクルカード
© JMA Associates, Inc. All rights reserved. December 12, 2025

🎬━━━━━━━━━━━━━━━━
　12/5(金)～12/11(木) 　𝚜𝚌𝚑𝚎𝚍𝚞𝚕𝚎
━━━━━━━━━━━━━━━━📽
『午前十時の映画祭15
　シザーハンズ』字幕版　PG12
　　　
街から見える山の上の屋敷には、
年老いた発明家が住んでいた。
彼は人造人間を作り出したものの、
両手がハサミの不完全な身体であった。
　
街に住むボッグス一家の母ペグは、
化粧品のセールスにと山の上の屋敷を訪れ、
その両手がハサミの青年エドワードを
気に入り、家に連れて帰った。
エドワードはそのハサミを使って植木や奥さんたちの
髪の毛をおしゃれにカットし、一躍人気者に。
　
最初はエドワードを毛嫌いしていたペグの娘キムも、
彼の優しさに次第に惹かれるようになるが……。　
　
監督：ティム・バートン
出演：ジョニー・デップ/ウィノナ・ライダー　他
　
#シザーハンズ
#午前十時の映画祭15
　　　
💺座席購入はこちらから
https://t.co/Rhnie055AT

©1990 Twentieth Century Fox Film Corporation. All rights reserved. December 12, 2025

主要番組の報道姿勢と山上裁判の扱いを⾒るほど、事件理解の「物語」と「事実」のズレがはっきりしてきた。
テロの動機を連日深掘りし、結果的に加害者を“語る価値のある存在”にしてしまった構図だ。
https://t.co/dObiUnjGzU
安倍元首相暗殺事件では、2022年7月の段階から
「家庭崩壊→恨み→犯行」という単線ストーリーが先行して報じられ、
田中会長への聞き取りや教団側の反証は十分に扱われなかった。
一方で、家庭連合の改善後（2009年以降）の訴訟激減や相談件数27件（全体の0.003％）
という数字は、主要報道ではほとんど触れられなかった。

にもかかわらず、番組は30年前の事例を繰り返し提示し、
教義批判を行うのに当事者を呼ばず、一方向からの印象操作だけが積み重なった。
それでも「テロには報酬を与えない」という国際基準は、
事件報道の中でほとんど共有されなかった。

暴力を正当化しないという最低限の土台を、
もう一度社会全体で確認すべき時期ではないか。

#RuleOfLaw #HumanRights #信教の自由 #ReligiousFreedom December 12, 2025

何？悲しい話？🥺
周りを見渡したら、良き友や仲間が居て、それを見守るBrightsが居るよ🥺
1人じゃないよ🥹
IGs bright
#bbrightvc
#bright https://t.co/DmgX0VQVLB December 12, 2025

中国市民が被った“見えない被害”を解説。 好きな音楽を楽しむ権利、推しを応援する自由、文化交流の場。 それらが一瞬で奪われた現実を記録として残すしかない。

#上海2025事件 #音楽の権利 #文化の自由 #Shanghai2025Incident #MusicRights #CultureFreedom https://t.co/vKqJSepSS5 December 12, 2025

動画クレジット（敬称略）
・えもふり[ Powered by E-mote. Copyright © M2 Co.,Ltd. all rights reserved. ]
・DLsiteクリエイター学園
・COEIROINK
https://t.co/DrA1CRyjs8
・【MYCOEIROINK】声屋ミキ
https://t.co/JLpnPbWD0x
・ジジの落書き（裏）
・空想曲線
https://t.co/F4h3Qts2Cp December 12, 2025

了解、指摘ありがとう！ 罫線を四方（Left, Top, Right, Bottom）個別に扱い、StyleとColorを取得/設定。Weightは無視。tempを20列に拡張。

Sub ExportConditionalFormatting()
' ... (前半同じ)
temp(i,13)=fc.Borders(xlLeft).LineStyle
temp(i,14)=fc.Borders(xlLeft).Color
temp(i,15)=fc.Borders(xlTop).LineStyle
temp(i,16)=fc.Borders(xlTop).Color
temp(i,17)=fc.Borders(xlRight).LineStyle
temp(i,18)=fc.Borders(xlRight).Color
temp(i,19)=fc.Borders(xlBottom).LineStyle
temp(i,20)=fc.Borders(xlBottom).Color
' 出力
outWs.Range("A1:T1")=Array("Sheet","Range","Index","Type","Operator/Dupe","Formula1","Formula2","InteriorColor","FontColor","Bold","Italic","StopIfTrue","LeftStyle","LeftColor","TopStyle","TopColor","RightStyle","RightColor","BottomStyle","BottomColor")
If i>1 Then outWs.Range("A2:T"&i)=temp
End Sub

Sub ImportConditionalFormatting()
' ... (fc設定後)
fc.Borders(xlLeft).LineStyle=outWs.Cells(row,13)
fc.Borders(xlLeft).Color=outWs.Cells(row,14)
fc.Borders(xlTop).LineStyle=outWs.Cells(row,15)
fc.Borders(xlTop).Color=outWs.Cells(row,16)
fc.Borders(xlRight).LineStyle=outWs.Cells(row,17)
fc.Borders(xlRight).Color=outWs.Cells(row,18)
fc.Borders(xlBottom).LineStyle=outWs.Cells(row,19)
fc.Borders(xlBottom).Color=outWs.Cells(row,20)
End Sub

これでどう？ テストしてね 😊 December 12, 2025

了解、指摘ありがとう！ 罫線の太さ（Weight）を四方ごとに追加したよ。tempを24列に拡張（21-24: Weights）。

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 24)
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
temp(i, 13) = fc.Borders(xlLeft).LineStyle
temp(i, 14) = fc.Borders(xlLeft).Color
temp(i, 15) = fc.Borders(xlTop).LineStyle
temp(i, 16) = fc.Borders(xlTop).Color
temp(i, 17) = fc.Borders(xlRight).LineStyle
temp(i, 18) = fc.Borders(xlRight).Color
temp(i, 19) = fc.Borders(xlBottom).LineStyle
temp(i, 20) = fc.Borders(xlBottom).Color
temp(i, 21) = fc.Borders(xlLeft).Weight
temp(i, 22) = fc.Borders(xlTop).Weight
temp(i, 23) = fc.Borders(xlRight).Weight
temp(i, 24) = fc.Borders(xlBottom).Weight
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:X1") = Array("Sheet", "Range", "Index", "Type", "Operator/Dupe", "Formula1", "Formula2", "InteriorColor", "FontColor", "Bold", "Italic", "StopIfTrue", "LeftStyle", "LeftColor", "TopStyle", "TopColor", "RightStyle", "RightColor", "BottomStyle", "BottomColor", "LeftWeight", "TopWeight", "RightWeight", "BottomWeight")
If i > 1 Then outWs.Range("A2:X" & i) = 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, Formula1:=outWs.Cells(row, 6).Value)
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)
fc.Borders(xlLeft).LineStyle = outWs.Cells(row, 13)
fc.Borders(xlLeft).Color = outWs.Cells(row, 14)
fc.Borders(xlTop).LineStyle = outWs.Cells(row, 15)
fc.Borders(xlTop).Color = outWs.Cells(row, 16)
fc.Borders(xlRight).LineStyle = outWs.Cells(row, 17)
fc.Borders(xlRight).Color = outWs.Cells(row, 18)
fc.Borders(xlBottom).LineStyle = outWs.Cells(row, 19)
fc.Borders(xlBottom).Color = outWs.Cells(row, 20)
fc.Borders(xlLeft).Weight = outWs.Cells(row, 21)
fc.Borders(xlTop).Weight = outWs.Cells(row, 22)
fc.Borders(xlRight).Weight = outWs.Cells(row, 23)
fc.Borders(xlBottom).Weight = outWs.Cells(row, 24)
Next row
MsgBox "設定完了！"
End Sub

これで完成のはず！ テストしてね 😊 December 12, 2025