日: 2019年11月3日

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

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

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

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

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

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

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

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

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

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

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

自己紹介（私、猫★シエスタについて）

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

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

メインメニューに戻る

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

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

実は本を出しました！！

「発達障害、障害者雇用事務職、以上現場からの中継でした！」
著者：猫★シエスタ

内容紹介YouTubeと、その詳細です。

私には、発達障害（ASD自閉症スペクトラム及びADHD）と双極性障害があり、現在障害者雇用2社目で働いております。前職である障害者雇用の1社目での失敗を振り返り、読者様に同じ失敗をして欲しくない、また、私自身が現在の職場で同じ失敗をしない為に、仕事・通勤・人間関係・発達障害の依存症をプログラミングで解消した方法・発達障害を巡るSNSの使い方等、「あの時、こうしておけば良かったのに!!」と言った後悔も書きました。障害者雇用1社目をクビ同然で退職し、そこから立ち直って４ヶ月で障害者雇用2社目の内定に直結した履歴書等応募書類の揃え方、添え状や自己PR書（Excelの技術を可視化したサンプル）の公開もしております。その際、精神・発達障害者が障害者雇用での高倍率を突破して内定に直結した時に用いた応募書類の資料を画像と解説文を用いてかなり詳細に公開しています。履歴書・職務経歴書などの応募書類を印刷する時に使う紙、印刷物を入れる高透明のクリアホルダーの選び方、添え状とパソコンのスキルが分かる自己PR書（サンプル）の制作物を個人情報を伏せて掲載しています。発達障害で特別な才能を持たない私が障害者雇用事務職で働き続ける為に行っている健康法や対人関係の捉え方、障害者雇用の事務職で知って置きたいパソコンのスキル（Excelなどのショートカットキーで20年以上パソコンを操作してきた知識の集大成）、発達障害の方に良くありがちな依存症（私の場合は電話占い依存）をプログラミングで解消した話も掲載しております。事務職の方も10分程度あればプログラミングを始められる方法も書いています。事務職といえば今後AIに奪われてしまうのではないかと危惧したことを、実際にAIで使われているプログラミング言語のPythonの環境構築をして検証しました。私はロスジェネ（就職氷河期世代）であり、今後の8050問題への不安や対処法についても思いつく限りのことを書いております。ストレスが溜まりやすい発達障害者の方へ、趣味でやっている写真を見て心を癒して頂けたらと思い、イルミネーション・花見・自然風景・ハロウィンなどのお気に入りの写真を掲載しました。発達障害には色々なタイプの方がいるからこそ、多くの方に本を出版して欲しいと思い、Kindle版でのセルフ出版の手順も解説しております。

読者アンケートも宜しくお願いします


「就職氷河期世代 アンド 大人の発達障害」
著者： 猫★シエスタ

発達障害当事者として、２０１２年に私が書きました「就職氷河期世代 ＆ 大人の発達障害」を紹介させて頂きます。ロスジェネ（就職氷河期世代）とASD（自閉症スペクトラム）の両方の生きづらさを抱えながら正社員としての一般就労、そこから障害者雇用に就労形態を変えて行った時の職業訓練、企業実習の様子、初めての障害者雇用の様子について書き綴っております。私の年代ですと発達障害の診断が遅くなり、私は31歳で初めて診断され、それまでの学生時代や一般就労での苦しみ、障害が分かった後からも支援者からの虐待、企業実習で辛い思いをしたことなどを赤裸々に綴っています。ご興味ある方はご覧下さい！！この本の内容を下記の動画で紹介しておりますので、この動画をご覧頂いてから、ご検討を宜しくお願いします。

読者アンケートも宜しくお願いします。

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

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

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

■ 馬場ふみかさんの写真集 ■

資格試験やプログラミング学習のリフレッシュに、馬場ふみかさんの写真集を見て、目の保養にしていました。参考書と共に、写真集を勉強のお供にしていて、実際にIT系国家試験の基本情報技術者試験にかなり高い点数で合格出来たので、馬場ふみかさんは、「勝利の女神様」です！！

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

この記事は、障害者雇用の担当者になって間もない方、以前担当者でしたが、当事者と上手く行かなかった方向けに、発達障害の当事者の視点で採用担当者、作業担当者にお願いしたいことをまとめました。障害者雇用における会社側と当事者側のミスマッチを減らしたいと思い、当事者の視点で記事を書くことにいたしました。
人事採用担当者様向けの内容となっております。

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

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

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

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

当事者の本として、私が書いた本とそのプロモーションビデオを掲載致します。
値段は可能な限りお安くしました。その分「私の障害のことをもっと分かってほしい、理解して欲しい、配慮して欲しいと言った、悲痛の叫び」を1冊の本にまとめました。

実は本を出しました！！
「就職氷河期世代 アンド 大人の発達障害」
著者： 猫★シエスタ

発達障害当事者として、２０１２年に私が書きました「就職氷河期世代 ＆ 大人の発達障害」を紹介させて頂きます。ロスジェネ（就職氷河期世代）とASD（自閉症スペクトラム）の両方の生きづらさを抱えながら正社員としての一般就労、そこから障害者雇用に就労形態を変えて行った時の職業訓練、企業実習の様子、初めての障害者雇用の様子について書き綴っております。私の年代ですと発達障害の診断が遅くなり、私は31歳で初めて診断され、それまでの学生時代や一般就労での苦しみ、障害が分かった後からも支援者からの虐待、企業実習で辛い思いをしたことなどを赤裸々に綴っています。ご興味ある方はご覧下さい！！この本の内容を下記の動画で紹介しておりますので、この動画をご覧頂いてから、ご検討を宜しくお願いします。

読者アンケートも宜しくお願いします。

「発達障害、障害者雇用事務職、以上現場からの中継でした！」
著者：猫★シエスタ

内容紹介YouTubeとその詳細です。

私には、発達障害（ASD自閉症スペクトラム及びADHD）と双極性障害があり、現在障害者雇用2社目で働いております。前職である障害者雇用の1社目での失敗を振り返り、読者様に同じ失敗をして欲しくない、また、私自身が現在の職場で同じ失敗をしない為に、仕事・通勤・人間関係・発達障害の依存症をプログラミングで解消した方法・発達障害を巡るSNSの使い方等、「あの時、こうしておけば良かったのに!!」と言った後悔も書きました。障害者雇用1社目をクビ同然で退職し、そこから立ち直って４ヶ月で障害者雇用2社目の内定に直結した履歴書等応募書類の揃え方、添え状や自己PR書（Excelの技術を可視化したサンプル）の公開もしております。その際、精神・発達障害者が障害者雇用での高倍率を突破して内定に直結した時に用いた応募書類の資料を画像と解説文を用いてかなり詳細に公開しています。履歴書・職務経歴書などの応募書類を印刷する時に使う紙、印刷物を入れる高透明のクリアホルダーの選び方、添え状とパソコンのスキルが分かる自己PR書（サンプル）の制作物を個人情報を伏せて掲載しています。発達障害で特別な才能を持たない私が障害者雇用事務職で働き続ける為に行っている健康法や対人関係の捉え方、障害者雇用の事務職で知って置きたいパソコンのスキル（Excelなどのショートカットキーで20年以上パソコンを操作してきた知識の集大成）、発達障害の方に良くありがちな依存症（私の場合は電話占い依存）をプログラミングで解消した話も掲載しております。事務職の方も10分程度あればプログラミングを始められる方法も書いています。事務職といえば今後AIに奪われてしまうのではないかと危惧したことを、実際にAIで使われているプログラミング言語のPythonの環境構築をして検証しました。私はロスジェネ（就職氷河期世代）であり、今後の8050問題への不安や対処法についても思いつく限りのことを書いております。ストレスが溜まりやすい発達障害者の方へ、趣味でやっている写真を見て心を癒して頂けたらと思い、イルミネーション・花見・自然風景・ハロウィンなどのお気に入りの写真を掲載しました。発達障害には色々なタイプの方がいるからこそ、多くの方に本を出版して欲しいと思い、Kindle版でのセルフ出版の手順も解説しております。

読者アンケートも宜しくお願いします

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