| 製作日 | 掲載場所 | 作者 |
| ２００１年１１月１日 | コロスケ | |
| 下の
ないしょ一家処理 マクロを、コロスケさんがJavascriptにしてくれました(^^)v ...(￣Δ￣;)一家処理（Javascript） |
||
| ２００１年１０月２２日 | お気ラ | ミコ （オリジナルbykinさん） |
| Sub ないしょ一家処理()
'ミコ改良版(^^)v Dim Kao(5) As String, i As Integer If MsgBox("．．．(￣Δ￣;)一家を処理しますか？", vbYesNo, "処理処理") = vbNo Then Exit Sub MsgBox "ヽ(^-^)−Ｃ＜(／￣Δ￣;)／Ｃ＜(／￣＿￣;)／Ｃ＜(／￣タ￣;)／Ｃ＜(／￣Ｐ￣;)／Ｃ＜(／￣Ｂ￣;)／" & _ vbCrLf & vbCrLf & "今から「処理」を始めます。" & vbCrLf & _ "次の画面に．．．(￣Δ￣;)一家が表示されますので" & vbCrLf & _ "ＯＫボタンを順番に押して処理してください。", vbOKOnly, "処理処理開始" Kao(1) = "．．．(￣Δ￣；)" Kao(2) = "．．．(―＿―；)" Kao(3) = "．．．(￣タ￣；)" Kao(4) = "．．．(￣Ｐ￣；)" Kao(5) = "．．．(￣Ｂ￣；)" '←bykinさん、特別出演 For i = 9 To 1 Step -1 MsgBox Left(Kao(1), i) & vbCrLf & Left(Kao(2), i) & vbCrLf & Left(Kao(3), i) & _ vbCrLf & Left(Kao(4), i) & vbCrLf & Left(Kao(5), i), vbOKOnly, "処理終了まで、あと " & i & " 回" Next MsgBox "処理を完了しました！(^^)v", vbOKOnly, "処理完了" End Sub このコードの使い方は、マクロの使い方(１)標準モジュールにあります。 |
||
| ２００１年１０月２１日 | お気ラ | bykinさん |
| Sub 天然ワクチン() 'bykinさんオリジナル Dim Kao As String, i As Integer If MsgBox("天然攻撃されましたか？", vbYesNo, "天然ワクチン") = vbNo Then Exit Sub MsgBox "今から治療を始めます。" & vbCrLf & _ "次の画面に病原体が表示されますので" & vbCrLf & _ "ＯＫボタンを順番に押して病原体を退治してください。", vbOKOnly, "治療開始" Kao = "...(￣Δ￣；)" For i = 9 To 1 Step -1 MsgBox Left(Kao, i), vbOKOnly, "あと " & i & " 回" Next MsgBox "治療は成功しました！！" & vbCrLf & _ "これであなたも社会復帰できます(^^)", vbOKOnly, "治療終了" End Sub このコードの使い方は、マクロの使い方(１)標準モジュールにあります。 |
||
| ２００１年４月１３日 | TOMOさんのＢＢＳ | ミコ |
| Sub shori() 'Excel2000にて動作確認済み(^^)v Dim shori1 As String, shori2 As String shori1 = MsgBox("目の前の人物を知っていますね" & Chr(13) & "彼は、普段と変わりないですか？", vbYesNo) If shori1 = 6 Then Exit Sub shori2 = MsgBox("処理しますか？", vbYesNo) If shori2 = 7 Then Exit Sub MsgBox ("♪v(￣ー￣)v処理処理処理処理処理処理処理処理v(￣ー￣)v♪") If MsgBox("ちゃんとおはぎになりましたか？", vbYesNo) = vbYes Then MsgBox ("大丈夫、彼はあなたの知っている人です(^^)v!") Exit Sub Else MsgBox ("彼は、あなたの知っている人ではありません(-_-;)") End If End Sub このコードの使い方は、マクロの使い方(１)標準モジュールにあります。 |
||
| Sub shori2() MsgBox ("彼はあなたの知っている人ではありません" & Chr(13) & "処理しますね？") MsgBox ("♪!v(^^)v! 処理♪処理♪処理♪処理♪処理♪処理♪処理♪処理 !v(^^)v!♪") If MsgBox("ちゃんとつみれになりましたか？", vbYesNo) = vbYes Then MsgBox ("これでもう大丈夫(^^)v!") Exit Sub Else MsgBox ("ここまでしぶといと、どうにもなりません(-_-;)") End If End Sub このコードの使い方は、マクロの使い方(１)標準モジュールにあります。 |
||