edcrfvtbgynhuif

先日もリプをしましたが、先月末をもって一時的に、公言してる推しグループがネコプラだけとなり、それにともない推しメンってのがかしゆりただ1人になりました。もちろん1推しはずっとかしゆりだけどね。詳しくはあさって話すけど、先月はとても考えさせられる1ヶ月になったんだよなあ。いままで気づけなかったことをいろいろ気づけた1ヶ月だった。
それと同時に、ネコプラは、ここがこうなってたらもっとよくなる気がするなぁとか、感じることもありました。
ワンマンライブ以降の活動ってのは、きっといままでの1歩上を行く活動が増えてくる気がしてる。遠征もいっぱいあるだろうなあと思ってます、行ける遠征はもちろん行くからね。
ワンマンまで残り少ないけど、1日1日を大切に、最後まで頑張ってください。応援しています^^

今日もネコプラ。
なんだか最近すごい頻繁にいってる気がする。だけどね、それはね、ゴールデンウィークまで。なぜなら来月以降忙しくなるはずだから。

今日はまず1曲目のNPPRのときに入場したね。
あの曲はネコプラの曲のなかでも1本の指で数えられるほどの中にはいるほど好きなんだよね。
サビにはいる前の部分が、歌っててすごい気持ちが良いからね。
次はヒューマンエラー。
イントロを聞くと、パラッパスイッチだなこれ!と思ってしまう楽曲。
サビを聞いてヒューマンエラーだとわかる。
去年の6月5日以降に発表された曲はまだうろ覚えなんです。はい
ちなみにinput宣言もまだうろ覚えですね、あれは珍しい曲だからね。そんなに披露されてない。
今日はいつも以上に歌詞を聞きながら聞いてた。
そのつぎはthis is私って人間。
あれは1番好きだね。ネコプラと言えばこの曲って感じ。
相変わらず1番の歌詞のリズムがわからん。
自分がこんな感じかなーと思ってるやつで歌ったりしても、いざ聞いてみると全然違うからね。ほんとにいつ完全にリズムを把握するのかがわかんなくて困る。

今日もありがとうね、また愛にいくね


さて、今日もアリクラ行ってきた。
前の現場から直接来たから(昼飯もおろそかにしてまで)、物販だけの参戦となったよ。
大正アリストクラシーはね、ほんとに見つけられてよかったと思うの。なんていうんだろう、僕が地下アイドルにいき始めた頃からずっと思ってたことをすべてやってくれてる気がするのね、気軽に楽しめる物販の雰囲気を作り出してくれてるなぁってすごい思うんだよね。ファンの方々もいい人ばかりだからね。
以前アイドルいってたけど、いろいろあって病んで、どこ行けばいいかわからないとかって人は、ぜひアリクラをおすすめするね。
今日はほんとそう思いました。

で、ポイントカードの制度が今日から始まりましたね。
運営のかたからここのサイトに掲載していいという言葉をいただいたので、喜んで書けますね。いやー嬉しい。
ポイントカードについて?ほんとに理想通りのポイントカードだなーって。2~3このアイドルグループでポイントカードを見てきたけど、アリクラほどすばらしいポイントカードはみたことなかったからね。
まぁいろいろ書いたけど、要するに「大絶賛」ということで良いです。

今日もありがとうね、また愛にいくね


今日もいってきた。ネコプラ
まぁ、バイトを本格的に週1で7時間やれるような日常になってきたから、週1でいれられてるからね、バイトなしじゃさすがに厳しいよね何度も行くのは

今日は、いつぶりだろ?てレベルの前物販だった。
前物販だとメンバーが汗かいたりしてないね。それがいいか悪いかはおいといて、なんだか新鮮だったなと思った。

で、はじめていった会場だったけど、駅から遠いという印象だったね。
行きはすごい遠い気がしたけど帰りはあっという間だったね。

今回一番感じたのは、5人揃っててよかったということ。事前にツイートもあったし、今はまぁ5人いて当たり前という気分だよね。時期が時期だからね。
前回参戦したときはかしゆりがいなかったからなおさらそう思ったね。
それから、最近、言いたいことが言えないんだけどなんだろうね。なにか自分のなかで気持ちがぶつかってるのかな。そのうち克服したいですね。はい

腹減りすぎたので物販だけで帰宅しましたよ。
私物サインは、ある意味珍しいものを持っていった。私物というのかよくわからんものだね。人のものってわけでもないけどね。まぁ自分のものだねあれは。
それからプレゼントをあげたよ。朗読劇と定期公演お疲れさまでしたの気持ちを込めて渡したよ。いや、ただ定期公演で渡しそびれただけなんだけどね。

今日もありがとう、前回いなかったからものすごい久しぶりな気がしたけど5日ぶりなんだよね。
おつかれさまでした。ゆっくりやすんで明日も頑張ってください^^








Sub test()

  For a1 = 3 To 23
       For a2 = 3 To 13
       
           If Cells(a1, a2).Interior.ColorIndex = 37 And _
              Cells(a1, a2).Offset(1, 0).Interior.ColorIndex <> 37 Then '37のセルの下が37じゃなかったら
              
               If Cells(a1, a2).Offset(1, 0).Interior.ColorIndex <> 1 Or _
                  Cells(a1, a2).Offset(1, 0).Interior.ColorIndex <> 34 Then
                   b2 = Cells(a1, a2).End(xlDown).Offset(-1, 0).Row
                   Cells(a1, a2).Cut Cells(b2, a2)
               End If
               
               If (Cells(b2, a2).Offset(1, 0).Interior.ColorIndex = 34 Or _
                   Cells(b2, a2).Offset(1, 0).Interior.ColorIndex = 1) And _
                   Cells(b2, a2).Interior.ColorIndex = 37 Then
                   Cells(b2, a2).Interior.ColorIndex = 34
               End If
               
           ElseIf Cells(a1, a2).Interior.ColorIndex = 37 And _
              Cells(a1, a2).Offset(1, 0).Interior.ColorIndex = 37 Then
               b1 = Cells(a1, a2).End(xlDown).Row
               b3 = Cells(a1, a2).End(xlDown).End(xlDown).Offset(-1, 0).Row
               If Cells(b1, a2).Offset(1, 0).Interior.ColorIndex <> 1 And _
                  Cells(b1, a2).Offset(1, 0).Interior.ColorIndex <> 34 Then
                   a3 = a1
                   Do
                       Range(Cells(a3, a2), Cells(b1, a2)).Cut Cells(a3, a2).Offset(0, 1)
                       b4 = Cells(a3, a2).Offset(0, 1).End(xlDown).Row
                       If Cells(a3, a2).Offset(0, 1).Interior.ColorIndex = 37 Then
                            Cells(a3, a2).Offset(0, 1).Cut Cells(a3, a2).Offset(1, 1)
                       Else
                           b5 = Cells(a3, a2).Offset(0, 1).End(xlDown).End(xlDown).Row
                      a3 = a3 + 1
                   Loop While (a3 = b3 - (b1 - a3))
                   Range(Cells(b3 - (b1 - a1), a2), Cells(b3, a2)).Interior.ColorIndex = 34
               End If
           ElseIf Cells(a1, a2).Interior.ColorIndex = 37 And _
                  Cells(a1, a2).Offset(1, 0).Interior.ColorIndex = 0 And _
                  Cells(a1, a2).Offset(0, -1).Interior.ColorIndex = 37 Then
                   Cells(a1, a2).Offset(0, -1).Interior.ColorIndex = 34
                   Cells(a1, a2).Interior.ColorIndex = 34
           
           ElseIf Cells(a1, a2).Interior.ColorIndex = 37 And _
                  Cells(a1, a2).Offset(1, 0).Interior.ColorIndex = 0 And _
                  Cells(a1, a2).Offset(0, 1).Interior.ColorIndex = 37 Then
                   Cells(a1, a2).Interior.ColorIndex = 34
           
           End If
       Next a2
   Next a1

End Sub

Sub test2()

  For a1 = 3 To 23
       For a2 = 3 To 13
       
           If Cells(a1, a2).Interior.ColorIndex = 37 And _
              Cells(a1, a2).Offset(1, 0).Interior.ColorIndex <> 37 Then '37のセルの下が37じゃなかったら
              
               If Cells(a1, a2).Offset(1, 0).Interior.ColorIndex <> 1 Or _
                  Cells(a1, a2).Offset(1, 0).Interior.ColorIndex <> 34 Then '1つ下にカットペ
' b2 = Cells(a1, a2).End(xlDown).Offset(-1, 0).Row
                  Cells(a1, a2).Cut Cells(a1, a2).Offset(1, 0)
               End If
               

          
           End If
       Next a2
   Next a1
   
   For a1 = 3 To 23
       For a2 = 3 To 13
       
           If Cells(a1, a2).Interior.ColorIndex = 37 And _
              Cells(a1, a2).Offset(1, 0).Interior.ColorIndex <> 37 Then '37のセルの下が37じゃなかったら
               
               If ((Cells(a1, a2).Offset(1, 0).Interior.ColorIndex = 34 Or _
                   Cells(a1, a2).Offset(1, 0).Interior.ColorIndex = 1) And _
                   Cells(a1, a2).Interior.ColorIndex = 37) Then 'もしカットペしたやつの1つ下が地面だったら
                   Cells(a1, a2).Interior.ColorIndex = 34
               End If

              If (Cells(a1, a2).Offset(-1, 0).Interior.ColorIndex = 34 Or _
                   Cells(a1, a2).Offset(0, 1).Interior.ColorIndex = 34 Or _
                   Cells(a1, a2).Offset(0, -1).Interior.ColorIndex = 34) Then
                                                                             'もしカットペしたやつのまわりが地面だったら
                   Cells(a1, a2).Interior.ColorIndex = 34
               End If
           
           End If
       Next a2
   Next a1
   

              
   For a1 = 3 To 23
       For a2 = 3 To 13
               
           If Cells(a1, a2).Interior.ColorIndex = 37 And _
              Cells(a1, a2).Offset(1, 0).Interior.ColorIndex = 37 Then
               b1 = Cells(a1, a2).End(xlDown).Row
               b3 = Cells(a1, a2).End(xlDown).End(xlDown).Offset(-1, 0).Row
               If Cells(b1, a2).Offset(1, 0).Interior.ColorIndex <> 1 And _
                  Cells(b1, a2).Offset(1, 0).Interior.ColorIndex <> 34 Then
                   a3 = a1
                   Do
                       Range(Cells(a3, a2), Cells(b1, a2)).Cut Cells(a3, a2).Offset(0, 1)
                       b4 = Cells(a3, a2).Offset(0, 1).End(xlDown).Row
                       If Cells(a3, a2).Offset(0, 1).Interior.ColorIndex = 37 Then
                            Cells(a3, a2).Offset(0, 1).Cut Cells(a3, a2).Offset(1, 1)
                       Else
                           b5 = Cells(a3, a2).Offset(0, 1).End(xlDown).End(xlDown).Row
                      a3 = a3 + 1
                   Loop While (a3 = b3 - (b1 - a3))
                   Range(Cells(b3 - (b1 - a1), a2), Cells(b3, a2)).Interior.ColorIndex = 34
               End If
           ElseIf Cells(a1, a2).Interior.ColorIndex = 37 And _
                  Cells(a1, a2).Offset(1, 0).Interior.ColorIndex = 0 And _
                  Cells(a1, a2).Offset(0, -1).Interior.ColorIndex = 37 Then
                   Cells(a1, a2).Offset(0, -1).Interior.ColorIndex = 34
                   Cells(a1, a2).Interior.ColorIndex = 34
           
           ElseIf Cells(a1, a2).Interior.ColorIndex = 37 And _
                  Cells(a1, a2).Offset(1, 0).Interior.ColorIndex = 0 And _
                  Cells(a1, a2).Offset(0, 1).Interior.ColorIndex = 37 Then
                   Cells(a1, a2).Interior.ColorIndex = 34
           
           End If
       Next a2
   Next a1
   
   'これらをsubからend subまで全部do_loopでwhile(37の色のセルがなくなるまで)繰り返し

End Sub

Sub t()

  Cells(6, 7).Interior.ColorIndex = 37 '浮いてるやつ

End Sub

Sub e()

  Cells(8, 7).Interior.ColorIndex = 34

End Sub

  • 最終更新:2018-05-04 16:34:57

このWIKIを編集するにはパスワード入力が必要です

認証パスワード