日: 2019年11月3日

メインメニューに戻る
VBA自作サンプルプログラム集に戻る
基本情報技術者試験トップへ
取りあえず事務職で働きたいから手っ取り早くExcel教えてくれ

※ この例題はフィクションです ※
■ いのちは大切に！
■ 犯罪はダメ！
■ 法律を守ろう！

今日は、ループを使って、
イジメやパワハラをする人を、
懲らしめてやりましょう！

まず、アイツにう●こを踏ませます。
う●こは、１～10とだんだん増えていきます。
この、増えて行ったりするのに「i」という
変数を使います。
慣習的に、ループカウンタにはiとかjを使います。
１から１０まで、う●こがグルグル回りながら
増えていくイメージです。

Excelシートに新しいシートを追加して、
「はじめてのループ」という名前を付けます。
このシートも、Sheet1とかも、オブジェクトと言って、
Excelの部品です。
では、早速書いていきます。

---

Sub ループ1()

Dim i As Integer, アイツ As String
Worksheets(“はじめてのループ”).Range(“A1”).Select
アイツ = InputBox(“う●こ踏ませるヤツの名前を入力”)

For i = 1 To 10
ActiveCell.Value = アイツ & “は、” & i & “このう●こ踏んだ”
ActiveCell.Offset(1, 0).Select
Next i
End Sub

このプログラムをボタンに登録します。
位置は、F列ぐらいにします。
ボタンは、Excelシートの、
開発タブ → 挿入 → フォームコントロール
から作成します。

アイツに例えば、
「五木不利太郎」と入れて見ます。

すると、1から10までのう●こをカウントして、
セルを1つ下に移動させます。
実行すると、こんな感じです。

1つずつ、う●こが増えていきましたが、
今度は、2つずつ増やして、アイツに奇数分の
う●こを踏ませます。
for i=1 to 10のあとに、
Step 2と記述します。

---

Sub ループ2()

Dim i As Integer, アイツ As String
Worksheets(“はじめてのループ”).Range(“A12”).Select
アイツ = InputBox(“う●こ踏ませるヤツの名前を入力”)

For i = 1 To 10 Step 2
ActiveCell.Value = アイツ & “は、” & i & “このう●こ踏んだ”
ActiveCell.Offset(1, 0).Select
Next i
End Sub

ループ1の横にボタンを作成・登録して、実行します。
こんな感じに2つずつ増えていますね。

では、今度はアイツの寿命を1ずつ減らしましょう。
考え方としては、Stepの後に、
「-1」ずつ減らすイメージです。

---

Sub ループ3()
Dim i As Integer, アイツ As String

Worksheets(“はじめてのループ”).Range(“A18”).Select
アイツ = InputBox(“寿命カウントするヤツの名前を入力”)

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

最後に、ホームポジションである、
セルA1に戻ります。

お疲れ様でした。
今日はここまでです。

メインメニューに戻る
VBA自作サンプルプログラム集に戻る
基本情報技術者試験トップへ
取りあえず事務職で働きたいから手っ取り早くExcel教えてくれ

メインメニューに戻る
VBA自作サンプルプログラム集に戻る
基本情報技術者試験トップへ
取りあえず事務職で働きたいから手っ取り早くExcel教えてくれ

※ この例題はフィクションです ※
■ いのちは大切に！
■ 犯罪はダメ！
■ 法律を守ろう！

レベル80以上であれば、アイツを倒せる！！
という、プログラムを作ります。

---

Sub If文1()
Dim アイツ As String, 攻撃レベル As Integer
アイツ = InputBox(“アイツの名前を入力しよう”)
攻撃レベル = InputBox(“1～100までのレベルを入れよう”)
If 攻撃レベル >= 80 Then
MsgBox アイツ & “はもう、●んでいる”
End If
End Sub

と入力して、

1から100までのレベルを入力します。
85と入力します。

このように表示されました。

しかし、80未満の場合、
何も出ないですよね。
そこで、
まだ倒せていないよ、というメッセージを表示させます。
「少しだけくたばった」にします。

---

Sub If文2()
Dim アイツ As String, 攻撃レベル As Integer
アイツ = InputBox(“アイツの名前を入力しよう”)
攻撃レベル = InputBox(“1～100までのレベルを入れよう”)
　If 攻撃レベル >= 80 Then
　　MsgBox アイツ & “はもう、●んでいる”
　 Else
MsgBox アイツ & “は少しだけくたばった”
End If
End Sub

実行してみます。

70を入れて見ます。

アイツは、少しだけくたばりました。

さらに、80未満だが、60以上だと、
「もう少しでくたばるぞ！！」という
メッセージを表示させます。

---

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

60以上、80未満である、70を入れて見ます。

と、表示されました。

では、最後に、イジメやパワハラをするアイツだったら、
攻撃して、そうでなければ普通に挨拶を
するプログラムを作りましょう。

---

Sub If文4()
Dim アイツ As String, 歩いてくる人 As String, 攻撃レベル As Integer
アイツ = InputBox(“アイツの名前を入力しよう”)
歩いてくる人 = InputBox(“歩いてくる人の名前を入力しよう”)
If 歩いてくる人 = アイツ Then
MsgBox アイツ & “！！ドンドンバキュ～～ン☆☆”
Else
MsgBox 歩いてくる人 & “さん、こんにちは”
End If
End Sub

お疲れ様です。
今日は、ここまでです。

メインメニューに戻る
VBA自作サンプルプログラム集に戻る
基本情報技術者試験トップへ
取りあえず事務職で働きたいから手っ取り早くExcel教えてくれ

メインメニューに戻る
VBA自作サンプルプログラム集に戻る
基本情報技術者試験トップへ
取りあえず事務職で働きたいから手っ取り早くExcel教えてくれ

※ この例題はフィクションです ※
■ いのちは大切に！
■ 犯罪はダメ！
■ 法律を守ろう！

IF文で、2つの処理に分けましたが、
流石に7つの処理に多分岐するとなると、
IF、IF、IF・・・・
と、面倒になりそうですね。

それでは、イジメ・パワハラをしてくる
アイツを、赤い爆弾でやっつけたい、
青、きいろ、緑、ピンク・・・・と
色を分けてやっつけたい時には、どうしたら良いか。
Select case 文を使います。

まず、その前に、シートを新しく作って、
そのシートに、
「いろいろばくだん」と名付けます。

シートはExcel内の部品であり、それをオブジェクトというと、
ざっくり抑えて下さい。、

爆弾の色は、ボムカラーという変数を使います。
「赤、青、きいろ、ピンク、緑、紫、オレンジ」の7色の
爆弾を投げるという、分岐処理になります。

ワークシートの色を7色から選択して、塗りつぶします。
フォントサイズを30と、デカ文字に、
太字にします。

「赤、青、きいろ、ピンク、緑、紫、オレンジ」以外の
色が入力されたら、7色のうちのいずれかを入力する様に、
メッセージを出します。

最後に、セルを1つ下にします。

では、作ってみましょう。

チョット長いですが、
ここから～～～

Sub いろいろばくだん()

Dim アイツ As String, ボムカラー As String
アイツ = InputBox(“憎たらしいヤツの名前を入れよう”)
ボムカラー = InputBox(“赤、青、きいろ、ピンク、緑、紫、オレンジ”)

Select Case ボムカラー
　　Case “赤”
　　Worksheets(“いろいろばくだん”).Cells.Interior.Color = vbRed

　　Case “青”
　　Worksheets(“いろいろばくだん”).Cells.Interior.Color = vbBlue

　　Case “きいろ”
　 Worksheets(“いろいろばくだん”).Cells.Interior.Color = vbYellow

　　Case “ピンク”
Worksheets(“いろいろばくだん”).Cells.Interior.Color = vbMagenta

　　Case “緑”
Worksheets(“いろいろばくだん”).Cells.Interior.Color = vbGreen

　　Case “紫”
Worksheets(“いろいろばくだん”).Cells.Interior.Color = RGB(200, 0, 255)

Case “オレンジ”
　　 Worksheets(“いろいろばくだん”).Cells.Interior.Color = RGB(255, 200, 0)


Case Else

MsgBox “赤、青、きいろ、ピンク、緑、紫、オレンジの色を入れよう”
End Select

Worksheets(“いろいろばくだん”).Range(“A1”).Select
With Selection.Font
.Size = 30
.Bold = True
End With

ActiveCell.Value = アイツ & “は、” & ボムカラー & “色の爆弾でほろびた”
ActiveCell.Offset(1, 0).Select
End Sub

---

～～ここまで

ここまで出来たら、
シートにボタンを作っておくと便利です。

• 

---

ボタンは、Excelシートの開発 → 挿入 →
フォームコントロールのボタンマークで、
マクロ「いろいろばくだん」を登録します。

では、ポチってみましょう。

いつも通り、アイツの名前を入れます。
例えば、「五木不利太郎」と入れます。

色は「きいろ」にします。

すると、色が付き、セル選択が１つ下に移動します。

もしも、そのほかの色を入れると、
このようなメッセージボックスが出て、
セルの色は変わりません。

何色を入れてもやっつけられますので、
安心して下さい。

それでは今日は、ここまでです。

メインメニューに戻る
VBA自作サンプルプログラム集に戻る
基本情報技術者試験トップへ
取りあえず事務職で働きたいから手っ取り早くExcel教えてくれ