はじめての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教えてくれ

自己紹介

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

初めまして、写真×プログラミングを使って、皆さまの(特に何かお困りの方の)お手伝いをすることを目指している、猫★シエスタと申します。
写真についてはこちら
働きながらプログラミングの勉強をしています。
ロスジェネ、発達障害、トランスジェンダーです。

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

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

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

ロスジェネとは2000年頃に大学などを卒業した就職氷河期世代、ロストジェネレーションのことで、発達障害の特性でも生きづらさで悩みを抱えています。私の場合はASD優位のADHD含みで、LGBTはトランスジェンダーのFTMに該当します。自分は男性だと思っているのですが、戸籍と体は女性で、恋愛対象は女性です。これらは自己責任、生産性が無いなどと言われますが、優しい方は、そうじゃないことを分かって下さるとうれしいです。この本のことを、沢山の方に拡散して頂けるとうれしいです。

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

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

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

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

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

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

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

好きな芸能人は馬場ふみかさん(女優、モデル、グラビア)です。
美人でスタイル抜群な所に惚れたのもありますが、それに加えて馬場さんの雰囲気とか、佇まい、存在にも強く惹かれました。こういう気持ちを味わうのはここ最近100年ぐらい無かったかもです。(100年は大げさ、盛り過ぎだったかな…)

馬場ふみかさんの公式外部サイト
Lineブログ 所属事務所ネイムネジメント non-no(専属モデル)
プロフィールとTwitter・インスタのリンク

このブログ内の馬場ふみかさんの関連記事
馬場ふみかさんのことを考えながら(≒妄想??)プログラミングをして、C言語とJavaのサンプルプログラムを作りました。多分「お前はまだグンマを知らない」の主人公の神月くんがプログラミングを覚えたら、きっとこうなるかも!?京ちゃんからは、「妄想すんな!、2度とすんな、この、ドスケベ、変態!!」って怒られちゃいます…。(=^・^=)
芸能人の結婚の心の準備(C言語)
イニシャル相性占い(C言語)
ヴァレンタインデー(Java)
妄想デート(Java)

ここから、私の仕事について書こうと思います。
仕事は学習塾の事務スタッフとして、教材を作っています。
障害者雇用で内勤です。中々イメージが湧かないかもしれませんが、
職種は色々あります。ただ、障害者雇用であれば大丈夫!という訳ではないことを
この記事を読んで下さっている方にはお伝えしたいです。
どうしても、精神・発達障害者は接し方が身体障碍者の方よりも難しいので、採用されにくいこともあります。

また、理解のある職場に採用してもらえても、そこが理解のない会社に吸収合併されることもあります。

なので、支援者の方、就職が決まったから、はい、オッケーという訳ではないことをどうかご理解のほどよろしくお願いいたします。

今まで色々ありましたが、忘れられないのだったら、
プログラミングを学びながら、今まで散々離職してきた無力感や怒りを解消したいと思って、この学習サイトを作りました。設立の目的は、私のアウトプット用であり、それによって、どなたかのお役に立てればと思いました。
ロスジェネ、発達障害、LGBTの方、一般の方、一緒に頑張りましょう!!

つらい記憶など、消せない物は消せません。
だったら、それを利用しようと思いました。根に持つ性格も、利用できます。一般受けする学習サイトではありませんが、障害者雇用の現実を知った上で、私のメッセージが届く方には届いて欲しいです。

このブログとは別に、アメブロもやっています。
こちらでは技術的なことを中心に、アメブロでは雑談を扱っています。

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

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

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

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

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

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

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

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