はじめてのForNextループで、「う●こ」と「寿命」

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

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

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

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

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教えてくれ

IFで攻撃レベル分岐

メインメニューに戻る
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教えてくれ

Select case文で色爆弾を投げて見よう

メインメニューに戻る
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シートの開発 → 挿入 →
フォームコントロールのボタンマークで、
マクロ「いろいろばくだん」を登録します。

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

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

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

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

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

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

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

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

自己紹介

初めまして、写真×プログラミングを使って、皆さまの(特に何かお困りの方の)お手伝いをすることを目指している、猫★シエスタと申します。
写真についてはこちら

働きながらプログラミングの勉強をしています。
ロスジェネ、発達障害、トランスジェンダーです。

メインメニューに戻る

目がパッチリで小顔で、努力できる才能はあるのですが、今まであまり上手く行かなかったです。なので、これからは、「自分の気持ちを大事に」して生きていきたいです。

猫目、猫顔は遺伝。猫みたい、猫先生などと知らない人から言われたことが何度かあります。

実は本を出しました!!
「就職氷河期世代 アンド 大人の発達障害」

ロスジェネとは2000年頃に大学などを卒業した就職氷河期世代、ロストジェネレーションのことで、発達障害の特性でも生きづらさで悩みを抱えています。

私の場合はASD優位のADHD含みで、LGBTはトランスジェンダーのFTMに該当します。自分は男性だと思っているのですが、戸籍と体は女性で、恋愛対象は女性です。

こう書くと、「女性だったら誰でも良いのか」「私のことを好きになられても困る」という声もあると思いますが、馬場ふみかさん(女優、モデル、グラビア)以外は全く眼中ありませんので、どうかご安心なさって下さい。
ちなみにこのレベル。お陰で彼女いない歴=年齢です。

それでは、自己紹介の詳細に入ります。

名前:猫★シエスタ
本名ではありません。
シエスタとは、スペインやイタリアなどの南ヨーロッパのお昼寝のことです。
「猫さん」と、気軽に読んでもらえたら嬉しいです。
本名は、苗字も名前もかなり珍しい為、個人が特定されやすく、本名から推測されないと思われるネームを使っています。私と同じ苗字の方、絶対悪いことをしないで下さい!!!!

所在:だいたい東京都にいます。

仕事:教育関係で都内で働いています。
発達障害に配慮してもらっていて、週3日、1日7時間勤務です。

学歴は、
小中学校を地元の公立校で過ごし、
高校は私立理系コース
大学は工学部化学系学科を卒業しました(2000年平成12年卒)

保有資格と勉強法や教材の紹介です。

趣味は
プログラミング
Excel
ねこあつめ
写真(カメラはOLYMPUS機)

子供の頃のヒーローは、志村けんさん(コメディアン、故人)です。
小学生の頃、ギャグに一目惚れして、このブログでも志村けんさんを題材としたプログラミングの自作サンプルを掲載しています。

関連記事:
【Pythonクラス爆速理解!!】「月曜日はウンジャラゲ♪」で、「昭和のギャグ」からクラスが学べちゃうんですョ!!

関連記事:Python×Kivyで「変なおじさん」

ここから、私の仕事について書こうと思います。
障害者雇用の事務補助です。

障害を持つスタッフは同じ部署に属して、それぞれの特性に応じて色々な部署からの仕事を頂いています。

ジョブコーチから、ブログに書くときは個人情報に気をつける様に指摘を受けたので、ふんわりとした内容になってしまいました。

障害者雇用で、精神、発達障害者は身体障害者より配慮が難しいので、就活は激戦でした。
1つの採用枠に100人の求職者が集まることなんてざらですし(合同面接では)今の職場での採用を勝ち取るためには資格を取れる限りは取っていきましたし、今後もプログラミングの勉強を継続します。

このブログは、あまり一般受けする学習サイトではありませんが、障害者雇用の現実を知った上で、私のメッセージが届く方には届いて欲しいです。

このブログとは別に、アメブロもやっています。
こちらでは雑記ブログとして日常的な雑談を扱っています。

メインメニューに戻る
取りあえず事務職で働きたいから手っ取り早くExcel教えてくれ
これからプログラミングをはじめる方へ
プログラミングと資格
基本情報技術者試験
心がラクになる本

障害者雇用、その前に(人事採用担当者様)

メインメニューに戻る
取りあえず事務職で働きたいから手っ取り早くExcel教えてくれ
これからプログラミングをはじめる方へ
プログラミングと資格
自己紹介

障害者雇用における会社側と当事者側のミスマッチを減らしたいと思い、当事者の視点で記事を書くことにいたしました。
人事採用担当者様向けです。

◆筆記・実技試験を出来れば行って欲しい

障害者雇用で困ることに一つに、当事者が仕事が出来ないことだと思います。
では、適性のある人を採用する方法として筆記・実技試験で適性をみるとミスマッチを減らすことが可能です。

テストの内容としては、業務で必要となる読み書き計算が出来ること。
また実技試験では実際の業務で使うデータに模した仮のデータの入力をさせてみて、適性を見るなどです。
これはもしも不採用になった場合も、適性が無かったのだとあきらめがつくので、理由が分からないのに落とされたと揉めるリスクも避けられると思います。
逆に、テスト出来たのになぜ落ちたの、と思うこともあるかもしれませんが。

メインメニューに戻る
取りあえず事務職で働きたいから手っ取り早くExcel教えてくれ
これからプログラミングをはじめる方へ
プログラミングと資格
自己紹介