Menuへ
三角くじを作ってみよう

Step 8　くじの全削除

クジの作成前に、既にあるくじを全て削除します。
方法は「くじ引き」シート内を総当りで調べ名前の頭に「kuji」が付くものをDeleteメソッドで削除していきます。
名前はNameプロパティでLeft関数を使い調べています。
シートコード
下記のコードに変更してください。

'作成開始ボタン
Private Sub CommandButton1_Click()
    Dim ln1 As Long
    Dim ln2 As Long
    
    ln1 = MyGetSuchi("C2")
    If ln1 <= 0 Or ln1 > 100 Then
        MsgBox "くじ枚数は1〜100の範囲で入力してください。"
        Exit Sub
    End If
    
    ln2 = MyGetSuchi("C3")
    If ln2 < 0 Or ln2 > ln1 Then
        MsgBox "当たり枚数は,くじ枚数より少なくしてください。"
        Exit Sub
    End If
    
    'くじの削除
    ExDeleteShape
    
    Range("C2") = ln1
    Range("C3") = ln2
    'オートシェイプ作成
    ExMakeShape
        
    '当たりくじを作成する
    ExAtariKujiMake ln1, ln2

    'くじを配置する
    ExKujiSet ln1
End Sub


下記のコードを追加してください。

'くじの削除
Private Sub ExDeleteShape()
    Dim t As Shape
    
    For Each t In Sheets("くじ引き").Shapes
        '名前をチェック
        If Left(t.Name, 4) = "kuji" Then
            t.Delete
        End If
    Next
End Sub


Topへ
■このサイトの内容を利用して発生した、いかなる問題にも一切の責任は負いませんのでご了承下さい。■
当ホームページに掲載されているあらゆる内容の無許可転載・転用を禁止します。

Copyright (c) 2006-2007 Excel-Excel ! All rights reserved.