忍者ブログ
日常だったりネタだったり作品の進捗だったり……色々書きます。不定期に。
09
  • 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
  • 管理画面

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

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


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


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

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

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

    ではスタート。


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


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

    Mabataki1.JPG











    Mabataki2.JPG












    Mabataki3.JPG










     

    ~~~~~~~ソース2.-ここから~~~~~~~~  
    '=======================================================
    '動作-表情おみくじ
    '=======================================================
    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
     ~~~~~~~ソース2.-ここまで~~~~~~~~

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

    Omikuji_Fine.JPG














    Omikuji_Usual.JPG













    Omikuji_Bad.JPG













     

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



    以下拍手返信です。

     





    ~きりちゃん~
    拍手&コメントありがとです^^
    そしてご心配は無用ですえノシ
    休日前はひどいぐらい夜更かしして翌日普通に起きてくる奴だからb

    それよりも時間と参加者が気になる件について(・ω・)
    結局誰が参加で何時からに??
    (時間は決まってないかにゃ)

    あれだったら参加者の皆さんで決めて後で教えてくれるってのでも
    いいんだけd(サボりすぎw

    拍手[1回]

    PR

    お名前
    タイトル
    文字色
    URL
    コメント
    パスワード   Vodafone絵文字 i-mode絵文字 Ezweb絵文字
    非公開コメント
    この記事にトラックバックする:
    [483]  [482]  [481]  [480]  [479]  [478]  [477]  [475]  [474]  [473]  [472
    カレンダー
    08 2019/09 10
    S M T W T F S
    1 2 3 4 5 6
    8 9 10 11 12 13 14
    15 16 17 18 19 20 21
    22 23 24 25 26 27 28
    29 30
    ブログ内検索
    最新コメント
    [05/27 きり]
    [01/13 きり]
    [06/06 わんこ]
    [03/30 サイトウ]
    [06/09 yu]
    カウンター
    アクセス解析


    フリーエリア
    コガネモチ


        ◆ graphics by アンの小箱 ◆ designed by Anne ◆

        忍者ブログ [PR]