若風日誌

2024.11.26

[PR]

×

[PR]上記の広告は3ヶ月以上新規記事投稿のないブログに表示されています。新しい記事を書く事で広告が消えます。

2024/11/26 (Tue)

2011.05.12

こんばんは若槻です。本日いきなり仕事が増えました。
仕事があるのはいいんです。だが何で暇な時と忙しい時の
波が激しいんだ（（゜д゜；））!?
大波小波にもほどがある……orz

さて、本日は昨日の続きです。
って言っても、たいしたことじゃないです。長いだけ。

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

本日は「動き」の続きをおしゃべりします。

９．動き
○やりたいこと
これは番外のお遊びソースですね。
学生名簿演習には正直直接関係はありません。
遊び道具を作りたい方は、って感じでしょうか＾＾；

ではスタート。

○ソース
～～～～～～～ソース３．-ここから～～～～～～～～
'=======================================================
'動作-文字タイプ
'=======================================================
Sub MojiType()
[1]
SheetSet
WH13.Range("X1:BG50").Interior.Pattern = xlPatternNone

LG = 2   '塗りつぶし用-行
LR = 25 '塗りつぶし用-列

[2]
Kotoba2 = InputBox(Title:="入力", prompt:="アルファベットで入力してください。" & _
            Chr(10) & Chr(13) & "＠マークで改行されます")
If Kotoba2 = "" Then
    Exit Sub
End If

[3]
Ren = Len(Kotoba2)
j = 1 'Kotoba2を回す用
Do Until j > Ren
    Kotoba = Mid(Kotoba2, j, 1)
    If Kotoba = "@" Then
      LR = 25
      LG = LG + 8
    Else
      Alphabet
      If LR >= 50 Then
        LR = 25
        LG = LG + 8
      Else
        LR = LR + 2
      End If
    End If
    j = j + 1
Loop
End Sub
～～～～～～～ソース３．-ここまで～～～～～～～～

ソース３でやってること→アニメーション２、文字タイプ
△これはインプットボックスに入力した値がExcel上に記述されていくソースです。
　ただし動作するのは英大文字のみとなっています。
　小文字で入れても大文字で入れても全部大文字です
　
[1]初期動作→塗りつぶしをなくしたり変数の値を初期値にする
[2]記述したい言葉を入力し、変数Kotoba2に代入。
　何も入力しなかった場合は処理を抜ける



[3]上の処理で「Excel」と入力したのを前提とします。
　1.変数RenにKotoba2の文字数を入れる（今回は５文字）
　2.変数KotobaにKotoba2のｊ番目から1文字分を格納
　3.Kotobaが「＠」の場合は列数のLRを初期値に戻し、現在の行数に８を足す
　「＠」以外の時はマクロ「Alphabet」を呼び出して実行。
　それから列数が50以上の時は列数を初期値に戻し、行数に８を追加。
　列数が50を超えていない場合は列数に２を追加する。

☆　以下に記すのはマクロ「Alphabet」です。長いのでご注意を　☆
～～～～～～～ソース４．-ここから～～～～～～～～
=======================================================
'アルファベットごとに塗りつぶしを変える
'=======================================================
Sub Alphabet()
Select Case Kotoba
    '◆◇◆　A　◆◇◆
    Case "A", "a"
      i = LG
      Do Until i > LG + 4
        WH13.Cells(i, LR).Interior.ColorIndex = 1
        For h = 1 To 10000
          DoEvents
        Next h
        i = i + 1
      Loop
      '----------------------------------------↓２列目
      LR = LR + 1 '次の列へ
      WH13.Cells(LG, LR).Interior.ColorIndex = 1
      For h = 1 To 10000
        DoEvents
      Next h

      WH13.Cells(LG + 2, LR).Interior.ColorIndex = 1
      For h = 1 To 10000
        DoEvents
      Next h
      '----------------------------------------↓３列目
      LR = LR + 1
      i = LG
      Do Until i > LG + 4
        WH13.Cells(i, LR).Interior.ColorIndex = 1
        For h = 1 To 10000
          DoEvents
        Next h
        i = i + 1
      Loop


    '◆◇◆　B　◆◇◆
    Case "B", "b"
      i = LG
      Do Until i > LG + 4
        WH13.Cells(i, LR).Interior.ColorIndex = 1
        For h = 1 To 10000
          DoEvents
        Next h
        i = i + 1
      Loop
      '----------------------------------------↓２列目
      LR = LR + 1 '次の列へ
      WH13.Cells(LG, LR).Interior.ColorIndex = 1
      For h = 1 To 10000
        DoEvents
      Next h

      WH13.Cells(LG + 2, LR).Interior.ColorIndex = 1
      For h = 1 To 10000
        DoEvents
      Next h

      WH13.Cells(LG + 4, LR).Interior.ColorIndex = 1
      For h = 1 To 10000
        DoEvents
      Next h
      '----------------------------------------↓３列目
      LR = LR + 1 '次の列へ
      WH13.Cells(LG, LR).Interior.ColorIndex = 1
      For h = 1 To 10000
        DoEvents
      Next h

      WH13.Cells(LG + 2, LR).Interior.ColorIndex = 1
      For h = 1 To 10000
        DoEvents
      Next h

      WH13.Cells(LG + 4, LR).Interior.ColorIndex = 1
      For h = 1 To 10000
        DoEvents
      Next h
      '----------------------------------------↓４列目
      LR = LR + 1 '次の列へ
      WH13.Cells(LG + 1, LR).Interior.ColorIndex = 1
      For h = 1 To 10000
        DoEvents
      Next h

      WH13.Cells(LG + 3, LR).Interior.ColorIndex = 1
      For h = 1 To 10000
        DoEvents
      Next h


    '◆◇◆　C　◆◇◆
    Case "C", "c"
      i = LG
      Do Until i > LG + 4
        WH13.Cells(i, LR).Interior.ColorIndex = 1
        For h = 1 To 10000
          DoEvents
        Next h
        i = i + 1
      Loop
      '----------------------------------------↓２列目
      LR = LR + 1 '次の列へ
      WH13.Cells(LG, LR).Interior.ColorIndex = 1
      For h = 1 To 10000
        DoEvents
      Next h

      WH13.Cells(LG + 4, LR).Interior.ColorIndex = 1
      For h = 1 To 10000
        DoEvents
      Next h
      '----------------------------------------↓３列目
      LR = LR + 1 '次の列へ
      i = LG
      Do Until i > LG + 4
        WH13.Cells(i, LR).Interior.ColorIndex = 1
        For h = 1 To 10000
          DoEvents
        Next h
        i = i + 1
      Loop
      WH13.Cells(LG + 2, LR).Interior.Pattern = xlPatternNone


    '◆◇◆　D　◆◇◆
    Case "D", "d"
      i = LG
      Do Until i > LG + 4
        WH13.Cells(i, LR).Interior.ColorIndex = 1
        For h = 1 To 10000
          DoEvents
        Next h
        i = i + 1
      Loop
      '----------------------------------------↓２列目
      LR = LR + 1 '次の列へ
      WH13.Cells(LG, LR).Interior.ColorIndex = 1
      For h = 1 To 10000
        DoEvents
      Next h

      WH13.Cells(LG + 4, LR).Interior.ColorIndex = 1
      For h = 1 To 10000
        DoEvents
      Next h
      '----------------------------------------↓３列目
      LR = LR + 1 '次の列へ
      i = LG + 1
      Do Until i > LG + 3
        WH13.Cells(i, LR).Interior.ColorIndex = 1
        For h = 1 To 10000
          DoEvents
        Next h
        i = i + 1
      Loop


    '◆◇◆　E　◆◇◆
    Case "E", "e"
      i = LG
      Do Until i > LG + 4
        WH13.Cells(i, LR).Interior.ColorIndex = 1
        For h = 1 To 10000
          DoEvents
        Next h
        i = i + 1
      Loop
      '----------------------------------------↓２列目
      LR = LR + 1 '次の列へ
      WH13.Cells(LG, LR).Interior.ColorIndex = 1
      For h = 1 To 10000
        DoEvents
      Next h

      WH13.Cells(LG + 2, LR).Interior.ColorIndex = 1
      For h = 1 To 10000
        DoEvents
      Next h

      WH13.Cells(LG + 4, LR).Interior.ColorIndex = 1
      For h = 1 To 10000
        DoEvents
      Next h
      '----------------------------------------↓３列目
      LR = LR + 1 '次の列へ
      WH13.Cells(LG, LR).Interior.ColorIndex = 1
      For h = 1 To 10000
        DoEvents
      Next h

      WH13.Cells(LG + 2, LR).Interior.ColorIndex = 1
      For h = 1 To 10000
        DoEvents
      Next h

      WH13.Cells(LG + 4, LR).Interior.ColorIndex = 1
      For h = 1 To 10000
        DoEvents
      Next h


    '◆◇◆　F　◆◇◆
    Case "F", "f"
      i = LG
      Do Until i > LG + 4
        WH13.Cells(i, LR).Interior.ColorIndex = 1
        For h = 1 To 10000
          DoEvents
        Next h
        i = i + 1
      Loop
      '----------------------------------------↓２列目
      LR = LR + 1 '次の列へ
      WH13.Cells(LG, LR).Interior.ColorIndex = 1
      For h = 1 To 10000
        DoEvents
      Next h

      WH13.Cells(LG + 2, LR).Interior.ColorIndex = 1
      For h = 1 To 10000
        DoEvents
      Next h
      '----------------------------------------↓３列目
      LR = LR + 1 '次の列へ
      WH13.Cells(LG, LR).Interior.ColorIndex = 1
      For h = 1 To 10000
        DoEvents
      Next h

      WH13.Cells(LG + 2, LR).Interior.ColorIndex = 1
      For h = 1 To 10000
        DoEvents
      Next h


    '◆◇◆　G　◆◇◆
    Case "G", "g"
      i = LG
      Do Until i > LG + 4
        WH13.Cells(i, LR).Interior.ColorIndex = 1
        For h = 1 To 10000
          DoEvents
        Next h
        i = i + 1
      Loop
      '----------------------------------------↓２列目
      LR = LR + 1 '次の列へ
      WH13.Cells(LG, LR).Interior.ColorIndex = 1
      For h = 1 To 10000
        DoEvents
      Next h

      WH13.Cells(LG + 4, LR).Interior.ColorIndex = 1
      For h = 1 To 10000
        DoEvents
      Next h
      '----------------------------------------↓３列目
      LR = LR + 1 '次の列へ
      WH13.Cells(LG, LR).Interior.ColorIndex = 1
      For h = 1 To 10000
        DoEvents
      Next h

      WH13.Cells(LG + 2, LR).Interior.ColorIndex = 1
      For h = 1 To 10000
        DoEvents
      Next h

      WH13.Cells(LG + 4, LR).Interior.ColorIndex = 1
      For h = 1 To 10000
        DoEvents
      Next h
      '----------------------------------------↓４列目
      LR = LR + 1 '次の列へ
      i = LG
      Do Until i > LG + 4
        If i <> LG + 1 Then
          WH13.Cells(i, LR).Interior.ColorIndex = 1
          For h = 1 To 10000
            DoEvents
          Next h
        End If
        i = i + 1
      Loop


    '◆◇◆　H　◆◇◆
    Case "H", "h"
      i = LG
      Do Until i > LG + 4
        WH13.Cells(i, LR).Interior.ColorIndex = 1
        For h = 1 To 10000
          DoEvents
        Next h
        i = i + 1
      Loop
      '----------------------------------------↓２列目
      LR = LR + 1 '次の列へ
      WH13.Cells(LG + 2, LR).Interior.ColorIndex = 1
      For h = 1 To 10000
        DoEvents
      Next h
      '----------------------------------------↓３列目
      LR = LR + 1
      i = LG
      Do Until i > LG + 4
        WH13.Cells(i, LR).Interior.ColorIndex = 1
        For h = 1 To 10000
          DoEvents
        Next h
        i = i + 1
      Loop

    '◆◇◆　I　◆◇◆
    Case "I", "i"
      WH13.Cells(LG, LR).Interior.ColorIndex = 1
      For h = 1 To 10000
        DoEvents
      Next h
      WH13.Cells(LG + 4, LR).Interior.ColorIndex = 1
      For h = 1 To 10000
        DoEvents
      Next h
      '----------------------------------------↓２列目
      LR = LR + 1 '次の列へ
      i = LG
      Do Until i > LG + 4
        WH13.Cells(i, LR).Interior.ColorIndex = 1
        For h = 1 To 10000
          DoEvents
        Next h
        i = i + 1
      Loop
      '----------------------------------------↓３列目
      LR = LR + 1
      WH13.Cells(LG, LR).Interior.ColorIndex = 1
      For h = 1 To 10000
        DoEvents
      Next h
      WH13.Cells(LG + 4, LR).Interior.ColorIndex = 1
      For h = 1 To 10000
        DoEvents
      Next h

    '◆◇◆　J　◆◇◆
    Case "J", "j"
      i = LG
      Do Until i > LG + 4
        If i <> LG + 1 And i <> LG + 2 Then
          WH13.Cells(i, LR).Interior.ColorIndex = 1
          For h = 1 To 10000
            DoEvents
          Next h
        End If
        i = i + 1
      Loop
      '----------------------------------------↓２列目
      LR = LR + 1 '次の列へ
      WH13.Cells(LG, LR).Interior.ColorIndex = 1
      For h = 1 To 10000
        DoEvents
      Next h
      WH13.Cells(LG + 4, LR).Interior.ColorIndex = 1
      For h = 1 To 10000
        DoEvents
      Next h
      '----------------------------------------↓３列目
      LR = LR + 1
      i = LG
      Do Until i > LG + 4
        WH13.Cells(i, LR).Interior.ColorIndex = 1
        For h = 1 To 10000
          DoEvents
        Next h
        i = i + 1
      Loop
      '----------------------------------------↓４列目
      LR = LR + 1
      WH13.Cells(LG, LR).Interior.ColorIndex = 1
      For h = 1 To 10000
        DoEvents
      Next h

    '◆◇◆　K　◆◇◆
    Case "K", "k"
      i = LG
      Do Until i > LG + 4
        WH13.Cells(i, LR).Interior.ColorIndex = 1
        For h = 1 To 10000
          DoEvents
        Next h
        i = i + 1
      Loop
      '----------------------------------------↓２列目
      LR = LR + 1 '次の列へ
      WH13.Cells(LG + 2, LR).Interior.ColorIndex = 1
      For h = 1 To 10000
        DoEvents
      Next h
      '----------------------------------------↓３列目
      LR = LR + 1
      WH13.Cells(LG + 1, LR).Interior.ColorIndex = 1
      For h = 1 To 10000
        DoEvents
      Next h
      WH13.Cells(LG + 3, LR).Interior.ColorIndex = 1
      For h = 1 To 10000
        DoEvents
      Next h
      '----------------------------------------↓４列目
      LR = LR + 1
      WH13.Cells(LG, LR).Interior.ColorIndex = 1
      For h = 1 To 10000
        DoEvents
      Next h
      WH13.Cells(LG + 4, LR).Interior.ColorIndex = 1
      For h = 1 To 10000
        DoEvents
      Next h

    '◆◇◆　L　◆◇◆
    Case "L", "l"
      i = LG
      Do Until i > LG + 4
        WH13.Cells(i, LR).Interior.ColorIndex = 1
        For h = 1 To 10000
          DoEvents
        Next h
        i = i + 1
      Loop
      '----------------------------------------↓２列目
      LR = LR + 1 '次の列へ
      WH13.Cells(LG + 4, LR).Interior.ColorIndex = 1
      For h = 1 To 10000
        DoEvents
      Next h
      '----------------------------------------↓３列目
      LR = LR + 1
      WH13.Cells(LG + 4, LR).Interior.ColorIndex = 1
      For h = 1 To 10000
        DoEvents
      Next h


    '◆◇◆　M　◆◇◆
    Case "M", "m"
      i = LG
      Do Until i > LG + 4
        WH13.Cells(i, LR).Interior.ColorIndex = 1
        For h = 1 To 10000
          DoEvents
        Next h
        i = i + 1
      Loop
      '----------------------------------------↓２列目
      LR = LR + 1 '次の列へ
      WH13.Cells(LG + 1, LR).Interior.ColorIndex = 1
      For h = 1 To 10000
        DoEvents
      Next h
      '----------------------------------------↓３列目
      LR = LR + 1
      WH13.Cells(LG + 2, LR).Interior.ColorIndex = 1
      For h = 1 To 10000
        DoEvents
      Next h
      '----------------------------------------↓４列目
      LR = LR + 1
      WH13.Cells(LG + 1, LR).Interior.ColorIndex = 1
      For h = 1 To 10000
        DoEvents
      Next h
      '----------------------------------------↓５列目
      LR = LR + 1
      i = LG
      Do Until i > LG + 4
        WH13.Cells(i, LR).Interior.ColorIndex = 1
        For h = 1 To 10000
          DoEvents
        Next h
        i = i + 1
      Loop


    '◆◇◆　N　◆◇◆
    Case "N", "n"
      i = LG
      Do Until i > LG + 4
        WH13.Cells(i, LR).Interior.ColorIndex = 1
        For h = 1 To 10000
          DoEvents
        Next h
        i = i + 1
      Loop
      '----------------------------------------↓２列目
      LR = LR + 1 '次の列へ
      WH13.Cells(LG + 1, LR).Interior.ColorIndex = 1
      For h = 1 To 10000
        DoEvents
      Next h
      '----------------------------------------↓３列目
      LR = LR + 1
      WH13.Cells(LG + 2, LR).Interior.ColorIndex = 1
      For h = 1 To 10000
        DoEvents
      Next h
      '----------------------------------------↓４列目
      LR = LR + 1
      WH13.Cells(LG + 3, LR).Interior.ColorIndex = 1
      For h = 1 To 10000
        DoEvents
      Next h
      '----------------------------------------↓５列目
      LR = LR + 1
      i = LG
      Do Until i > LG + 4
        WH13.Cells(i, LR).Interior.ColorIndex = 1
        For h = 1 To 10000
          DoEvents
        Next h
        i = i + 1
      Loop


※ソース4の残りは追記の中に格納しています。

～～～～～～～ソース４．-ここまで～～～～～～～～

'ソース４でやってること→文字タイプ、アルファベットに塗りつぶし
　△長いですがやっているのはその文字になるように1セルずつ
　　塗りつぶしているだけです。
　　今回は徐々に描かれるようにしているので
　　「For h = 1 To 10000
        DoEvents
      Next h」
　　が、入ります。これがないと一気に塗られます。

　※うまく入りきらなかったものがやけに広くなったり大きくなったり
　　していますので、もしこのプログラムを実行なさった方がいらっしゃり、
　　「なんか違和感ある」と思われたらどうぞ改変なさってください。
　　そして若槻に教えてくだｓ（ｒｙ

～～～～～～～ソース５．-ここから～～～～～～～～
'=======================================================
'塗りつぶし無しにする
'=======================================================
Sub NothingColor()
SheetSet
WH13.Cells.Interior.Pattern = xlPatternNone
End Sub
～～～～～～～ソース５．-ここまで～～～～～～～～

ソース５でやってること→シート「動き」の塗りつぶしを全て無しにする

以上で「動き」は終了です。
お疲れ様でした。

[1回]

PR

[つづきはこちら]

2011/05/12 (Thu) プログラミング
Trackback() Comment(0)

2011.05.11

VBA「演習-学生名簿」続き8

こんばんは若槻です。最近仕事がなかったのですが
明日から忙しくなる予感がひしひしと……寝る時間を
確保出来るなら何でもいいですorz

さて、本日は久々にVBAのおしゃべりです。
需要なんて知っちゃこっちゃありません←

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

本日は「動き」をおしゃべりします。
そしてこっそり長いので2回に分けます。
難しいんじゃなくて、長い。

９．動き
○やりたいこと
これは番外のお遊びソースですね。
学生名簿演習には正直直接関係はありません。
遊び道具を作りたい方は、って感じでしょうか＾＾；

ではスタート。

○ソース
～～～～～～～ソース１．-ここから～～～～～～～～
'=======================================================
'動作-まばたき
'=======================================================
Sub Anmtion()
SheetSet
j = 1
Do Until j > 3
    [1]
　　WH13.Range("C4:C8,E4:E8,D10:D12").Interior.ColorIndex = 1
    Application.Wait Now() + TimeValue("00:00:01")

    [2]
    WH13.Range("C4:C8,E4:E8,D10:D12").Interior.Pattern = xlPatternNone
    WH13.Range("C6,E6,D10:D12").Interior.ColorIndex = 1
    Application.Wait Now() + TimeValue("00:00:01")

    j = j + 1
Loop
End Sub
～～～～～～～ソース１．-ここまで～～～～～～～～

ソース１でやってること→アニメーション１
[1]指定しているセルの背景色を黒にする
　1秒間だけプログラムを待たせる
　　
「 Application.Wait　時間」
　　→「時間」の分だけ処理を一時停止
　「 Now() + TimeValue("00:00:01") 」
　　→「Now」が現在の時間で、TimeValueの値を足すことで
　　　現在の時間から指定した時間分だけ待たせることが出来る
　　
[2]指定したセルの背景色を無しにし、同時に別箇所を黒くする
　上と同様に1秒間だけ待機させる

△このソース１のプログラムを実行すると3回分の瞬きが
　繰り返されます

～～～～～～～ソース２．-ここから～～～～～～～～　　
'=======================================================
'動作-表情おみくじ
'=======================================================
Sub Omikuji()
SheetSet
j = 1

WH13.Range("K2:T11").Interior.Pattern = xlPatternNone

Randomize
h = Int(Rnd() * 3) + 1

Select Case h
    Case 3
      WH13.Range("L4,N4,Q4,S4").Interior.ColorIndex = 1
      WH13.Range("M3,R3,N8,Q8").Interior.ColorIndex = 1
      WH13.Range("N7:Q7,O9:P9").Interior.ColorIndex = 1
    Case 2
      WH13.Range("L4,N4,Q4,S4").Interior.ColorIndex = 1
      WH13.Range("M5,R5,N8:Q8").Interior.ColorIndex = 1
    Case 1
      WH13.Range("L4,N4,Q4,S4,M5,R5").Interior.ColorIndex = 1
      WH13.Range("N9,Q9,O8:P8").Interior.ColorIndex = 1
End Select
End Sub
～～～～～～～ソース２．-ここまで～～～～～～～～

ソース２でやってること→ランダムで出した値によって塗りつぶす範囲を変える
　1.対象範囲の塗りつぶしを無しにする
　2.変数ｈにランダムで値を入れる
　3.ｈの値によって場合わけを行い、表情を作る

以上で今回の「動き」は終了です。
お疲れ様でした。

以下拍手返信です。

[1回]

[つづきはこちら]

2011/05/11 (Wed) プログラミング
Trackback() Comment(0)

2011.05.10

50音お題追加

こんばんは若槻です。「木曜日･金曜日に仕事あげるから帰りが
遅くなるのを覚悟しといてね☆」なんて言われて軽くショックを
受けています（笑）
先輩がこの仕事はじめてやった時は終了時刻11時って何だΣ（（゜д゜；））!?

さてそんな後の地獄は置いておきまして、タイトルの通り、
久しぶりに50音お題が出来たのでご報告します。

こちら

今回は「う」と「ひ」です。
なんだか前回の「ふ」の"あいつ"がレギュラー化していてびっくりしてますｗ
このお題欄はこの人たちで埋まるかも？

「う」は男目線、「ひ」は女目線です。
ちなみにどっちもNot恋愛。

[1回]

2011/05/10 (Tue) 創作関連・自
Trackback() Comment(0)

2011.05.08

幹部はみんなに愛されてればいいよ

こんばんは若槻です。結局今日は予定の作業に入る気になれなかったので
ニコ動を漁ったりお絵かきに興じてました。
結果はこちら。

ブチャラティの等身をはじめとして色々なものががおかしいなんて
言っちゃいけないｗｗ

何だか最近ジョジョ（特に5部）熱が激しいのでちょろちょろと
発散していこうと思います。
ちなみに今回は護衛チームですが次は暗殺チームを
描きたい！　彼らもとても好きなのです!!

ちなみに若槻的には、護衛チームはトリッシュ含めみんな
ブチャラティのこと好きだと思います。
ナランチャ→憧れ
ジョルノ、ミスタ、フーゴ→尊敬
アバッキオ→忠誠
トリッシュ→恋愛
な感じで。

アバッキオは公式で「あんたじゃなくて組織に～」って言ってますけど
彼からブチャラティに向けられる好意は忠誠だと思うんですよね。

そしてトリッシュとは結ばれて欲しかった……！
小さな隠れ家で一緒になればよかったのにぃぃ!!

とにかく、護衛チームの中心はブチャラティだろうなと。
ジョルノが主人公だけど要はやっぱり彼だと思う今日この頃。

[0回]

2011/05/08 (Sun) 他人の作品他
Trackback() Comment(0)

2011.05.07

gdgdな1日

こんばんは若槻です。今キングクリムゾンを受けた気分です。
※ジョジョ5部ネタです。分かる方だけニヤニヤしてください←

1日も終わろうとするこの時間、振り返ってみると何をやっていたか
分からない感に呆然としてしまいます。本当に私は1日をどう過ごして
いたんだろう……。

って、自問自答するぐらい今日何をしていたのか分かりません。
いや、つまり作業が進まなかったんですがね。

なんでしょう、午前中に漫画を読んでいたのは覚えているのです。
作業を始めてからPCの前で寝てしまったのも覚えています。
……あれ、これが原因か……？

とにかく気が付くとこんな時間で若干呆然としております。
うーん、終わらないかも。

以下拍手返信です。

[0回]

[つづきはこちら]

2011/05/07 (Sat) 日常
Trackback() Comment(0)

S	M	T	W	T	F	S
					1	2
3	4	5	6	7	8	9
10	11	12	13	14	15	16
17	18	19	20	21	22	23
24	25	26	27	28	29	30

[PR]

VBA「演習-学生名簿」続き9

VBA「演習-学生名簿」続き8

50音お題追加

幹部はみんなに愛されてればいいよ

gdgdな1日