こんばんは若槻です。若干胃が痛いですｗ
そういえば今日テニプリのキャラソン（名曲が多いんですってΣ）を
聴いていたら、弟に何の曲かと訊かれて素直に答えました。
そしたら「乾汁」と「蛇先輩」と「樺地」だけ覚えているとの返答。
……何そのチョイスｗｗ


さて、今週金曜日は当家の娘の誕生日なんですが、
この子実はまだサイトにイラストの1枚も出てない子なんですよね。
だから正直当日は「（・ω・｀）？」となる方続出でしょうが、
気にせず出しちゃいます(笑
可愛い我が子なのでｖｖ

この子の誕生日イラストが出たらちょっとイラストくらいは
出して作品解説でもしようかと思います、サイトで。


以下拍手返信です。

こんばんは若槻です。
1回タイトル入力した段階で記事をアップしてしまいました。
その状態を見てしまった方ごめんなさいΣ

では本日はVBAの続きといきます。

====================================================
◎システム名　「演習-学生名簿」
====================================================
～現在ある内容～
・グループ分け
・学年別　　←簡単１        ←終了
・学校別　　　　　　　　　　　←終了
・性別ごと　←簡単２　　　　←終了
・配役配置
・試合
・検索
・選抜
・動き
・条件別グループ分け（作成中

本日はグループ分けをおしゃべりします。



５．グループ分け
○やりたいこと
学生をランダムに10グループに分けます。
人数が増える分には対応できますが10人より人数が少なくなったら
アウトなソースですのであしからず（笑）!!


○使用変数
Public Group(9) As Integer '１グループに割り振られた現在の人数
Public Ninzu(9) As Integer '１グループの人数
Public Nin As Integer    '1グループの基本人数
Public Nin2 As Integer   'あまりの人数
Public Tuuka As Boolean  ’
Public Itiretume As Long　'
Public Niretume As Long　 '
Public Sanretume As Long　'
Public Yonretume As Long　'
Public GroupNo As Integer '


○ソース
～～～～～～～ソース１．-ここから～～～～～～～～
'============================================
'グループ関連
'============================================
Sub GroupKanren()
  DontLook
  SheetSet
 
  GroupFuriwake
  GroupSort
  GroupGoto
  WH3.Range("A1").Select
 
  OKLook
End Sub
～～～～～～～ソース１．-ここまで～～～～～～～～

ソース１でやっていること→各マクロの呼び出し


  ～～～～～～～ソース２．-ここから～～～～～～～～
'============================================
'グループ振り分け
'============================================
Sub GroupFuriwake()
[1]
  Erase Group, Ninzu
  Tuuka = False
  j = 0  'ランダム関数用
  k = 0  '人数用
  i = 2  '人数ループ用
  LG = WH1.Range("A65536").End(xlUp).Row - 1　'全体の人数

[2] 
  '◆◇◆10グループで人数を分ける－ここから◆◇◆
  Nin = Int(LG / 10)
  Nin2 = LG Mod 10
  For k = 0 To 9
    Ninzu(k) = Nin  '初期値の人数
  Next
 
  If Nin2 <> 0 Then
    For k = 0 To Nin2 - 1
      Ninzu(k) = Ninzu(k) + 1  '余った人数を入れていく
    Next
  End If
  '◆◇◆10グループで人数を分ける－ここまで◆◇◆
 
 
[3] 
  '◆◇◆グループ番号振り分け－ここから◆◇◆
  Do Until i > LG + 1
    Randomize
    j = Int(Rnd() * 10)
    Do Until Tuuka = True
      If Group(j) < Ninzu(j) Then
        Group(j) = Group(j) + 1
        WH1.Range("G" & i).Value = j + 1
        Tuuka = True
      Else 'If Group(j) > Ninzu(j) Then
        Randomize
        j = Int(Rnd() * 10)
      End If
    Loop
    Tuuka = False
    i = i + 1
  Loop
  '◆◇◆グループ番号振り分け－ここまで◆◇◆
End Sub
 ～～～～～～～ソース２．-ここまで～～～～～～～～

ソース２でやってること→1グループに入る人数を計算
[1]ここでは使う変数を初期化しています。
　目玉はこれですかね。

　「　Erase Group, Ninzu　」　
　
　これは配列変数を初期化するためのものです。
　「Erase」の後に初期化したい変数を入れればいちいち
　DoとかForとかで回す必要がなくなりますので覚えておくと
　便利ですよ！

[2]
　1.ソース中にも書いてありますが、ここで1グループの人数を決めます。
　　まずは全体の人数を10で割った値を変数Ninに入れます。
　　ここで「Int()」に入れると値を整数にしてくれるので、
　　整数の答えが欲しいときは使いましょう。
　　※ちなみにExcel関数の「Round」系も以前紹介した「WorksheetFunction」を
　　　使えば出来ますのでそっちがいい方はそちらをどうぞ。
　
　2.次の「Nin2 = LG Mod 10」では、変数Nin2に「LGを10で割ったあまり」を
　　代入しています。現在いる面々をひとりあまさずグループ内に
　　入れる場合は必ず求めなくちゃいけません。仲間はずれよくない。

　3.最初のFor文では配列変数に初期の人数を代入。
　　10グループと最初から分かっているので今回はRedimは使用しません。

　　そして、あまりがある場合(Nin2が0ではない)はNin2の分を
　　Forで回して追加していきます。
　　この時10以上あまっていることはないので変数ｋがひと回りするだけの
　　単純なFor文でOKです。

[3]ここではランダムでグループ番号を引っ張ってきて、上で割り当てられた
　　人数内の間はそこに1ずつプラスしていき、ｉ行目の学生のＧ列には
　　グループ番号を入力していきます。
　　全て回り終わったら変数TuukaをTrueにしてDoを抜けます。

 

 ～～～～～～～ソース３．-ここから～～～～～～～～
'============================================
'グループ順に並び替え－昇順
'============================================
Sub GroupSort()
  WH2.Cells.Delete
  SyokiCopy
 
  WH2.Select
  LG = WH2.Range("A65536").End(xlUp).Row
  WH2.Range("A2:G" & LG).Sort _
            Key1:=Range("G2"), order1:=xlAscending, _
            key2:=Range("F2"), order2:=xlDescending, _
            key3:=Range("B2"), order3:=xlAscending
           
   WH2.Range("A1").Select
End Sub
～～～～～～～ソース３-ここまで～～～～～～～～

ソース３でやってること→グループごとに並び替え



～～～～～～～ソース４-ここから～～～～～～～～
（長いけど同じことしかやってないから一気に行きます）
'============================================
'グループごとに並べ替え
'============================================
Sub GroupGoto()
[1]
  WH3.Cells.Delete

[2] 
  i = 2  '学生一覧
  j = 3  'グループ別
  Niretume = 0
  LG = WH2.Range("A65536").End(xlUp).Row
  Do Until i > LG
    Select Case WH2.Range("G" & i).Value
      Case 1
        If WH3.Range("A1").Value = "" Then
          WH3.Range("A1").Value = "グループ１"
          WH3.Range("A2").Value = "名前"
          WH3.Range("B2").Value = "学校名"
          WH3.Range("C2").Value = "学年"
          WH3.Range("D2").Value = "性別"
          WH3.Range("A1:D1").MergeCells = True
          WH3.Range("A1:D2").HorizontalAlignment = xlHAlignCenter
          WH3.Range("A2:D2").Borders(xlEdgeBottom).LineStyle = xlDouble
        End If
        WH3.Range("A" & j).Value = WH2.Range("B" & i).Value
        WH3.Range("B" & j).Value = WH2.Range("E" & i).Value
        WH3.Range("C" & j).Value = WH2.Range("F" & i).Value
        WH3.Range("D" & j).Value = WH2.Range("D" & i).Value
        j = j + 1
       
       Case 2
         If WH3.Range("E1").Value = "" Then
           Itiretume = j
           WH3.Range("E1").Value = "グループ２"
           WH3.Range("E2").Value = "名前"
           WH3.Range("F2").Value = "学校名"
           WH3.Range("G2").Value = "学年"
           WH3.Range("H2").Value = "性別"
           WH3.Range("E1:H1").MergeCells = True
           WH3.Range("E1:H2").HorizontalAlignment = xlHAlignCenter
           WH3.Range("E2:H2").Borders(xlEdgeBottom).LineStyle = xlDouble
           j = 3
         End If
         WH3.Range("E" & j).Value = WH2.Range("B" & i).Value
         WH3.Range("F" & j).Value = WH2.Range("E" & i).Value
         WH3.Range("G" & j).Value = WH2.Range("F" & i).Value
         WH3.Range("H" & j).Value = WH2.Range("D" & i).Value
         j = j + 1
      
       Case 3
         If WH3.Range("I1").Value = "" Then
           WH3.Range("I1").Value = "グループ３"
           WH3.Range("I2").Value = "名前"
           WH3.Range("J2").Value = "学校名"
           WH3.Range("K2").Value = "学年"
           WH3.Range("L2").Value = "性別"
           WH3.Range("I1:L1").MergeCells = True
           WH3.Range("I1:L2").HorizontalAlignment = xlHAlignCenter
           WH3.Range("I2:L2").Borders(xlEdgeBottom).LineStyle = xlDouble
           j = 3
         End If
         WH3.Range("I" & j).Value = WH2.Range("B" & i).Value
         WH3.Range("J" & j).Value = WH2.Range("E" & i).Value
         WH3.Range("K" & j).Value = WH2.Range("F" & i).Value
         WH3.Range("L" & j).Value = WH2.Range("D" & i).Value
         j = j + 1
      
       Case 4
         If WH3.Range("M1").Value = "" Then
           WH3.Range("M1").Value = "グループ４"
           WH3.Range("M2").Value = "名前"
           WH3.Range("N2").Value = "学校名"
           WH3.Range("O2").Value = "学年"
           WH3.Range("P2").Value = "性別"
           WH3.Range("M1:P1").MergeCells = True
           WH3.Range("M1:P2").HorizontalAlignment = xlHAlignCenter
           WH3.Range("M2:P2").Borders(xlEdgeBottom).LineStyle = xlDouble
           j = 3
         End If
         WH3.Range("M" & j).Value = WH2.Range("B" & i).Value
         WH3.Range("N" & j).Value = WH2.Range("E" & i).Value
         WH3.Range("O" & j).Value = WH2.Range("F" & i).Value
         WH3.Range("P" & j).Value = WH2.Range("D" & i).Value
         j = j + 1
      
      Case 5
        If WH3.Range("A" & Itiretume + 2).Value = "" Then
          LG2 = Itiretume + 2
          WH3.Range("A" & LG2).Value = "グループ５"
          WH3.Range("A" & LG2 + 1).Value = "名前"
          WH3.Range("B" & LG2 + 1).Value = "学校名"
          WH3.Range("C" & LG2 + 1).Value = "学年"
          WH3.Range("D" & LG2 + 1).Value = "性別"
          WH3.Range("A" & LG2 & ":D" & LG2).MergeCells = True
          WH3.Range("A" & LG2 & ":D" & LG2 + 1).HorizontalAlignment = xlHAlignCenter
          WH3.Range("A" & LG2 & ":D" & LG2 + 1).Borders(xlEdgeBottom).LineStyle = xlDouble
          j = LG2 + 2
        End If
        WH3.Range("A" & j).Value = WH2.Range("B" & i).Value
        WH3.Range("B" & j).Value = WH2.Range("E" & i).Value
        WH3.Range("C" & j).Value = WH2.Range("F" & i).Value
        WH3.Range("D" & j).Value = WH2.Range("D" & i).Value
        j = j + 1
      
      Case 6
        If Niretume = 0 Then
          Niretume = Itiretume
        End If
        If WH3.Range("E" & Niretume + 2).Value = "" Then
          Itiretume = j
          LG2 = Niretume + 2
          WH3.Range("E" & LG2).Value = "グループ６"
          WH3.Range("E" & LG2 + 1).Value = "名前"
          WH3.Range("F" & LG2 + 1).Value = "学校名"
          WH3.Range("G" & LG2 + 1).Value = "学年"
          WH3.Range("H" & LG2 + 1).Value = "性別"
          WH3.Range("E" & LG2 & ":H" & LG2).MergeCells = True
          WH3.Range("E" & LG2 & ":H" & LG2 + 1).HorizontalAlignment = xlHAlignCenter
          WH3.Range("E" & LG2 & ":H" & LG2 + 1).Borders(xlEdgeBottom).LineStyle = xlDouble
          j = LG2 + 2
        End If
        WH3.Range("E" & j).Value = WH2.Range("B" & i).Value
        WH3.Range("F" & j).Value = WH2.Range("E" & i).Value
        WH3.Range("G" & j).Value = WH2.Range("F" & i).Value
        WH3.Range("H" & j).Value = WH2.Range("D" & i).Value
        j = j + 1
      
      Case 7
        If WH3.Range("I" & Niretume + 2).Value = "" Then
          LG2 = Niretume + 2
          WH3.Range("I" & LG2).Value = "グループ７"
          WH3.Range("I" & LG2 + 1).Value = "名前"
          WH3.Range("J" & LG2 + 1).Value = "学校名"
          WH3.Range("K" & LG2 + 1).Value = "学年"
          WH3.Range("L" & LG2 + 1).Value = "性別"
          WH3.Range("I" & LG2 & ":L" & LG2).MergeCells = True
          WH3.Range("I" & LG2 & ":L" & LG2 + 1).HorizontalAlignment = xlHAlignCenter
          WH3.Range("I" & LG2 & ":L" & LG2 + 1).Borders(xlEdgeBottom).LineStyle = xlDouble
          j = LG2 + 2
        End If
        WH3.Range("I" & j).Value = WH2.Range("B" & i).Value
        WH3.Range("J" & j).Value = WH2.Range("E" & i).Value
        WH3.Range("K" & j).Value = WH2.Range("F" & i).Value
        WH3.Range("L" & j).Value = WH2.Range("D" & i).Value
        j = j + 1
      
      Case 8
        If WH3.Range("M" & Niretume + 2).Value = "" Then
          LG2 = Niretume + 2
          WH3.Range("M" & LG2).Value = "グループ８"
          WH3.Range("M" & LG2 + 1).Value = "名前"
          WH3.Range("N" & LG2 + 1).Value = "学校名"
          WH3.Range("O" & LG2 + 1).Value = "学年"
          WH3.Range("P" & LG2 + 1).Value = "性別"
          WH3.Range("M" & LG2 & ":P" & LG2).MergeCells = True
          WH3.Range("M" & LG2 & ":P" & LG2 + 1).HorizontalAlignment = xlHAlignCenter
          WH3.Range("M" & LG2 & ":P" & LG2 + 1).Borders(xlEdgeBottom).LineStyle = xlDouble
          j = LG2 + 2
        End If
        WH3.Range("M" & j).Value = WH2.Range("B" & i).Value
        WH3.Range("N" & j).Value = WH2.Range("E" & i).Value
        WH3.Range("O" & j).Value = WH2.Range("F" & i).Value
        WH3.Range("P" & j).Value = WH2.Range("D" & i).Value
        j = j + 1
      
      Case 9
        If WH3.Range("A" & Itiretume + 2).Value = "" Then
          LG2 = Itiretume + 2
          WH3.Range("A" & LG2).Value = "グループ９"
          WH3.Range("A" & LG2 + 1).Value = "名前"
          WH3.Range("B" & LG2 + 1).Value = "学校名"
          WH3.Range("C" & LG2 + 1).Value = "学年"
          WH3.Range("D" & LG2 + 1).Value = "性別"
          WH3.Range("A" & LG2 & ":D" & LG2).MergeCells = True
          WH3.Range("A" & LG2 & ":D" & LG2 + 1).HorizontalAlignment = xlHAlignCenter
          WH3.Range("A" & LG2 & ":D" & LG2 + 1).Borders(xlEdgeBottom).LineStyle = xlDouble
          j = LG2 + 2
        End If
        WH3.Range("A" & j).Value = WH2.Range("B" & i).Value
        WH3.Range("B" & j).Value = WH2.Range("E" & i).Value
        WH3.Range("C" & j).Value = WH2.Range("F" & i).Value
        WH3.Range("D" & j).Value = WH2.Range("D" & i).Value
        j = j + 1
      
      Case 10
        If WH3.Range("E" & Itiretume + 2).Value = "" Then
          LG2 = Itiretume + 2
          WH3.Range("E" & LG2).Value = "グループ１０"
          WH3.Range("E" & LG2 + 1).Value = "名前"
          WH3.Range("F" & LG2 + 1).Value = "学校名"
          WH3.Range("G" & LG2 + 1).Value = "学年"
          WH3.Range("H" & LG2 + 1).Value = "性別"
          WH3.Range("E" & LG2 & ":H" & LG2).MergeCells = True
          WH3.Range("E" & LG2 & ":H" & LG2 + 1).HorizontalAlignment = xlHAlignCenter
          WH3.Range("E" & LG2 & ":H" & LG2 + 1).Borders(xlEdgeBottom).LineStyle = xlDouble
          j = LG2 + 2
        End If
        WH3.Range("E" & j).Value = WH2.Range("B" & i).Value
        WH3.Range("F" & j).Value = WH2.Range("E" & i).Value
        WH3.Range("G" & j).Value = WH2.Range("F" & i).Value
        WH3.Range("H" & j).Value = WH2.Range("D" & i).Value
        j = j + 1
    End Select
    i = i + 1
  Loop
    
 [3] 
  '列幅のオートフィット
  LG = WH3.UsedRange.Columns.Count
  For i = 1 To LG
    WH3.Rows(i).EntireColumn.AutoFit
  Next
 
  '罫線
   LG = WH3.Range("A65536").End(xlUp).Row + 1
   LR = WH3.UsedRange.Columns.Count
  
   For i = Niretume To Itiretume Step Niretume + 1
     WH3.Range("A" & i & ":P" & i).Borders(xlEdgeBottom).LineStyle = xlDashDot
   Next
  
   WH3.Range("A" & LG & ":P" & LG).Borders(xlEdgeBottom).LineStyle = xlDashDot
  
   For i = 4 To LR Step 4
     WH3.Select
     WH3.Range(Cells(1, i), Cells(LG, i)).Borders(xlEdgeRight).Weight = xlMedium
   Next
  WH3.Range("A1").Select
End Sub
～～～～～～～ソース４-ここまで～～～～～～～～

ソース４でやってること→グループごとに人を並べる
[1]グループ一覧を出すシートをクリアする

[2]グループ順に並び替えた学生一覧を上から見ていき、
　　G列の値ごとに「Select Case」で判断していく。
　　ちなみに４グループが横に並んだら折り返されるので
　　1-4,5-8,9-10の並び方。

　　※プログラムの性質上1グループ目が一番人数が多くなるので、この最終列が
　　　1-4までのグループの最大行になります。
　　　なので、変数Itiretumeには一列目のグループの最終行が入ります。
　　　同じ要領で変数Niretumeには二列目のグループの最終行が入ります。
　　　あとはひたすら学生情報を入れていくだけですね。

　　今考えるともう少しマシなプログラムを組めそうな気がしますけど、
　　まあ気にしない方向で。

[3]最終処理をしています。
　　1.名前やらの長さが色々変わるので各列でオートフィット
　　2.各最終行にダッシュドットの罫線を引く
　　（変数が2→1なので分かりづらいかも知れませんがグループ6の時に
　　　NiretumeにItiretumeの値を入れているので）
　　3.最終行にダッシュドットの罫線を引く
　　4.各グループの右側に中太の罫線を引く


結果はこうなります↓










（キャラクターはつっこんじゃいけないｗｗ!!）


それでは今回はここまでで。
お疲れ様でした！

※ちょっとした小技※
○Redimの使い方
　・「Redim　配列変数A(値)」
　　　→それまでAに入っていた値をクリアして宣言しなおす
　・「Redim　Preserve　配列変数A(値)」
　　　→それまでAに入っていた値を保持したまま宣言しなおす
　
　＝上のやり方だと前の値が消えて、下のやり方だと元の値の
　　後ろあたりにデータが入れられるようになる

 

こんばんは若槻です。今日昼過ぎにいきなりヘルペスが口元に
出てきて「何でΣ;!?」な気分です。いやホント何でΣ（＝д＝；）!!??


さて、本日は両親がどなたかのお通夜に参加していたため
弟と自分の夕飯を買ってこなくてはいけなくなりました。
ちょうど家に帰ったときにメールが来てちょうど弟も帰って来たところだったので
一緒に夕飯の買い物行ってきました。

で、店に行った時に立ち並ぶチョコ類を見て「そういえば今日ってバレンタインだ」と
思い出し（若槻の会社はバレンタインの習慣がないようなので）、
夕飯後に先日購入していたチョコを溶かして家にあったバナナを
浸してみました。うん、チョコバナナｗ


その後食器洗ってたらストーブの灯油が切れて入れようとしたら
今度灯油自体がないから買いに行って……若干慌ただしい1日でした。

本日2つ目の記事になります。
最近２つめが多いです。

■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□
1周年企画について。以下受諾

・TOUYAさん

ご参加ありがとうございます。
応募受け付けさせていただきます。
（残り24タイトル。。。）
■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□

こんばんは若槻です。昨日の夜に読み始めて3~4時間ほとんど
同じ格好で本を読んでいたので一日肩というか背中というかが
痛かったです。やっぱり適度に動くのは必要ですね……。

さて、ということで昨日丈さんにお借りしました「テンペスト」2巻を
読み終わりました。
本日はその感想を。
※ネタバレ込みなので注意してください。隠しません

～　テンペスト-2巻　～
まず一言で言うと、「疲れる」です。
もちろん休憩なしに一気に読みきったのと若槻がそもそも
物語没頭型な読み手なのも理由にありますが、だからこそ
いっそうこの内容が疲れてしまいました。

今巻になって物語はさらに混沌とした様子になっていきました。
主人公・寧温はばれたらどうしたって問題になる相手にばかり
素性がばれてしまい、そのたびに窮地に陥っていきます。

そのたびに命を諦めかけるけれど、それでも寧温は何度も
立ち上がり、その苦難を乗り越えていきました。
その様には応援したくなるのはもちろんでしたが
それ以上にどこか悲しくなってしまいます。
大事な人のために、どうしても非情にはなれない「彼女」の優しさが
「彼」にとっての鎖になっているのが哀れでした。

ちなみにこの巻で女同士の戦いによる後宮争いには
決着がつきました。

が、その後さらに苦しい事態が寧温を待ち受けます。
正直この後に現れる人物――清国の宦官は本っっ気で気持ち悪い。
読みながら何度「こいつ早く誰かに殺されろ」と思ったことか。
最終的にはその願い叶いますが、そのせいで寧温は流刑に
されてしまうことになりました。
あああもう！死んでもなお鬱陶しいこの男!!


ちなみにこの流刑に向かう道すがら寧温の人生にかかわってきた
人々が見送ってくるんですが、ひとりひとりの心にまた涙ぐんで
しまいました。

特に、学生（言い方はおかしいですが）時代からの同門の友人である
年上男性の「相談してくれたら自分が代わりに殺してやったのに。
それぐらいの恩返しは出来たのに」という言葉がなんだか胸に来ました。
家族のいる人だから本当にそうなったらやっぱり心が痛かったけど、
その寧温に対する大きくて優しい心が凄くほっとしてしまったんです。
敵だらけになってしまった寧温に、最後まで味方として接してくれた人だから。

もうひとりの寧温にとって凄く近しい人の行動もとても優しかったです。
どこまでも寧温のことを考えるその言動に何度も泣きかけました。
この人は本当にネタバレだから割愛。



とりあえず簡単に1･2巻の問題方向をまとめると、
1巻･2巻中盤までは王宮物おなじみの後宮問題と官吏の不正や
才能に対する嫉妬と嫌がらせ。
2巻後半は、いわゆる「性」の問題ですね。

男でなくなったはずなのにどこまでも「男」を残した清国の宦官は
遊郭やら後宮の女性たち、そして寧温にも手を出しました。

こういう話を読むと毎度思うのは「性」の暴力性です。
ちょっと重いですけど、事実若槻はそう思っています。
そもそもその行為自体は種族の繁栄を目的とした大切なことなのでしょう。
本能に書き込まれたことだし、食事や睡眠に並ぶ基本的な欲望です。
けれどそこに快楽性があることがどうしても危険を孕んでいるように思えます。

男と女、雄と雌という形こそ作られていますがその大元は同じように
心を持ち痛みを知る人間のはずです。ならば普通ならば相手の
気持ちを慮って然り。
が、相手の意思に関係なくそこに踏み入れてしまうことも実際
出来てしまうのです。男女関係なく。

そしてそれを楽しむ者も実際にこの世にはいます。
この話に出てくる宦官も正にそれですね。
相手が嫌がるからこそ楽しむと言う、最悪の思考。最悪の嗜好。
そんな暴力性が確かにこの行為には宿っているのです。

この行為が悪とは言いませんが、相手を踏みにじるのは悪です。
こういうことをする人間は苦しんで死ねばいいのにと本気で
思っている若槻です（物騒ですみません；）


ニュースを見たりしても同じように感じますが、久しぶりに本で
そういう感覚に捕らわれました。

うーん、やっぱり本はハッピーエンドがいいですね。
悲劇は心を磨耗させる。
まだまだ本は続くので、この先に寧温が幸せになってくれることを
本気で願います。