こんばんは若槻です。最近仕事がなかったのですが
明日から忙しくなる予感がひしひしと……寝る時間を
確保出来るなら何でもいいです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.ｈの値によって場合わけを行い、表情を作る

 

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

以下拍手返信です。

 

～きりちゃん～
拍手＆コメントありがとです＾＾
そしてご心配は無用ですえﾉｼ
休日前はひどいぐらい夜更かしして翌日普通に起きてくる奴だからｂ

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

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