Sub 配列2() Dim 色爆弾 As Variant, 番号 As Integer 色爆弾 = Array(“赤”, “青”, “きいろ”, “緑”, “紫”) 番号 = InputBox(“赤:0、青:1、きいろ:2、緑:3、紫:4”, “どの色の爆弾 を投げますか?”) MsgBox (色爆弾(番号) & “の爆弾を投下した!どっか~~ん☆★”) End Sub
Sub 配列3() Dim 汚名前() As String, i As Long, 上端 As Long, _ 下端 As Long, 行数 As Long, このExcelの全ての行数 As Long Worksheets(“デスリスト”).Activate このExcelの全ての行数 = ActiveSheet.Rows.Count 下端 = Cells(このExcelの全ての行数, 2).End(xlUp).Row 上端 = Cells(1, 2).End(xlDown).Row 行数 = 下端 – 上端 – 1 ReDim 汚名前(行数) For i = LBound(汚名前) To UBound(汚名前) 汚名前(i) = Worksheets(“デスリスト”).Cells(上端 + i + 1, 2).Value Debug.Print 汚名前(i) Next i End Sub
For i = 10 To 0 Step -1 ActiveCell.Value = アイツ & “の寿命は、あと” & i & “年” ActiveCell.Offset(1, 0).Select Next i ActiveCell.Value = アイツ & “はもう、●んでいる” ActiveCell.Offset(1, 0).Select End Sub
これも、ボタンを作って実行します。
スッキリしましたか? 最後にアイツを葬ってやるために、 シートをキレイに消しましょう。
Sub ワークシートはじめてのループをキレイにする() Worksheets(“はじめてのループ”).Cells.Clear Range(“A1”).Select End Sub
Sub If文1() Dim アイツ As String, 攻撃レベル As Integer アイツ = InputBox(“アイツの名前を入力しよう”) 攻撃レベル = InputBox(“1~100までのレベルを入れよう”) If 攻撃レベル >= 80 Then MsgBox アイツ & “はもう、●んでいる” End If End Sub
Sub If文2() Dim アイツ As String, 攻撃レベル As Integer アイツ = InputBox(“アイツの名前を入力しよう”) 攻撃レベル = InputBox(“1~100までのレベルを入れよう”) If 攻撃レベル >= 80 Then MsgBox アイツ & “はもう、●んでいる” Else MsgBox アイツ & “は少しだけくたばった” End If End Sub
Sub If文3() Dim アイツ As String, 攻撃レベル As Integer アイツ = InputBox(“アイツの名前を入力しよう”) 攻撃レベル = InputBox(“1~100までのレベルを入れよう”) If 攻撃レベル >= 80 Then MsgBox アイツ & “はもう、●んでいる” ElseIf 攻撃レベル >= 60 Then MsgBox “あと少しで” & アイツ & “はくたばるぞ!!” Else MsgBox アイツ & “は少しだけくたばった” End If End Sub
Sub If文4() Dim アイツ As String, 歩いてくる人 As String, 攻撃レベル As Integer アイツ = InputBox(“アイツの名前を入力しよう”) 歩いてくる人 = InputBox(“歩いてくる人の名前を入力しよう”) If 歩いてくる人 = アイツ Then MsgBox アイツ & “!!ドンドンバキュ~~ン☆☆” Else MsgBox 歩いてくる人 & “さん、こんにちは” End If End Sub