SQLをはじめる準備をしよう

SQL自作サンプル集へ
基本情報技術者試験トップへ
これからプログラミングを始める方へ
資格トップへ

今日(2019令和元年11月4日)初めて、
My SQLをダウンロードしました。

SQLの勉強に使うエディターは、
https://www.mysql.com/jp/
から、ダウンロード出来ます。

これを見て分かる方はサクサク出来るかも
知れませんが、私には良くわからなかったので、

「いちばんやさしい SQL入門教室」著:矢沢久雄先生
出版社:ソーテック社

の22ページからの図解を見ながら、
インストール出来ました。

英語ばかりで難しかったですが、
どうにかインストール出来ました。
本のSQLエディターのバージョンと、
若干違っていましたが、
この本を見ながらでしたら、
私でもインストール出来ました。

インストールが終わると、
この画面でパスワードを入れて使います。

本に書いてあるパスワードを入れます。

すると、このような画面が表示されます。

この本に沿って、データベースにテーブルを2つ
作成する所まで行きました。
エラー祭りでした。

● 文字列のシングルクォーテーション(‘)を、
ダブルクォーテーションにしてしまった。

● テーブル(table)のつづりを間違えた!
(これは、中学1年生レベルですね。)

こういったエラーがありました。
皆さまは、こんなことしないように、
気を付けて下さい。

この本のChapter1まで終わりました。
私でもどうにかここまで終えたので、
この本、かなりおススメだと思います。

この本を1巡したら、SQLのサンプルデータを
作ってアウトプットしたいです。

SQL自作サンプル集へ
基本情報技術者試験トップへ
これからプログラミングを始める方へ
資格トップへ

05VBAのループその1:はじめてのForNextループ

この記事では、VBAで基本的なFor Nextループのサンプルプログラムを掲載しております。

簡単に書きますと、ループとは「繰り返し」のことです。

いつまで繰り返すのか、例えば1から10まで繰り返すのか、1から20までなのか、それとも10から0になるまでなのか、1ずつ増える、2ずつ増やす、1ずつ増減らすなどをFor Nextループを使って設定して行きます。

例えば1から10まで増やして、10になったらループ(繰り返し)を抜けるとします。
その、1から10までを入れる変数として、1番使う機会が多い変数は、恐らく「 i 」という変数です。

慣習的に、ループカウンタには i , j , k 辺りの変数を使います。

1から10まで、iに入っている値が増えていって、10になったらループを抜けて繰り返しが終わります。

それでは実際に作って行きます。

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

下のサンプルでは、2023年7月から使い始めたSNSのThreadsのフォローワーさんを増やして見たいと思います。

フォローワーさんが1人増えた、2人増えた・・・10人増えた、繰り返しを終了、と言う流れになります。

Sub ループ1()
   
   'カウンタ変数iを整数型で宣言
   Dim i As Integer
    
   'Excelのワークシート「はじめてのループ」のセルA1をアクティブセルにする
   Worksheets("はじめてのループ").Range("A1").Select
   
   'Forループで1から10まで1ずつ増やす
    For i = 1 To 10
     
     'アクティブセルに「Threadsのフォローワーさんが i 人増えた!!」と出力
     ActiveCell.Value = "Threadsのフォローワーさんが " & i & " 人増えた!!"
    
     'アクティブセルを1つ下に移動する
     ActiveCell.Offset(1, 0).Select
    
     'iの繰り返し処理
      Next i
    
   End Sub

このプログラムを、ボタンに登録して、ボタンを押して実行します。
ボタンを作る位置は、F列ぐらいにします。

ボタンはExcelシートの 開発タブ から作成してマクロ「ループ1」を登録します。

すると、1から10までの整数をiに代入して、Threadsのフォローワーさんが増えた人数(i人)をセルに出力して、セルを1つ下に移動して繰り返します。

実行すると、こんな感じです。

お疲れ様でした。
ここで一旦、写真で休憩を挟みます。

いたばし花火大会2019です。


先ほどのプログラムでは、Threadsのフォローワーさんが1人ずつ増えました。
今度は、フォローワーさんを2人ずつ増やして、結果として奇数の人数が出力されるようにします。

for i=1 to 10の後に、Step 2と記述します。
先ほどのコードの下に1行開けて書きますので、セルA12をアクティブセルにします。

Sub ループ2()
   
   'カウンタ変数iを整数型で宣言
   Dim i As Integer
    
   'Excelのワークシート「はじめてのループ」のセルA12をアクティブセルにする
   Worksheets("はじめてのループ").Range("A12").Select
   
   'Forループで1から10まで2ずつ増やす
    For i = 1 To 10 Step 2
     
     'アクティブセルに「Threadsのフォローワーさんが i 人増えた!!」と出力
     ActiveCell.Value = "Threadsのフォローワーさんが " & i & " 人増えた!!"
    
     'アクティブセルを1つ下に移動する
     ActiveCell.Offset(1, 0).Select
    
     'iの繰り返し処理
      Next i
    
   End Sub


こんな感じに2つずつ増えていますね。

お疲れ様でした。
ここで一旦、写真で休憩を挟みます。

江ノ電、七里ヶ浜の海です。


では、今度はFor Nextループで1ずつ減らすループを作ります。
考え方としては、Stepの後に「-1ずつ増やす」と言うイメージです。

例として、江ノ電の電車の待ち時間をループで1分減らしていくサンプルを作りました。
「あと i分 で 鎌倉行きの電車が到着します。」と出力します。

先ほどのプログラムの下に出力するので、アクティブセルをA18とします。
また、ループを抜けた後に「電車が到着しました!!」と出力してから、セルを下に1つ移動します。

Sub ループ3()
   
   'カウンタ変数iを整数型で宣言
   Dim i As Integer
    
   'Excelのワークシート「はじめてのループ」のセルA18をアクティブセルにする
   Worksheets("はじめてのループ").Range("A18").Select
   
   '<<ここからループ>>
  'Forループで10から1まで1ずつ減らす
    For i = 10 To 1 Step -1
     
     'アクティブセルに「あと i分 で 鎌倉行きの電車が到着します。」と出力
     ActiveCell.Value = "あと " & i & " 分で 鎌倉行きの電車が到着します。"
    
     'アクティブセルを1つ下に移動する
     ActiveCell.Offset(1, 0).Select
    
     'iの繰り返し処理
      Next i

     '<<ここから、ループを抜けた後の処理>>
   '「電車が到着しました!!」と出力
     ActiveCell.Value="電車が到着しました!!”

    'セルを1つ下に移動する
    ActiveCell.Offset(1,0).Select
    
   End Sub



最後にシートをキレイにして終了致します。
シートをクリアした後、ホームポジションであるセルA1を選択します。

Sub シートのクリア()

'ワークシート「はじめてのループ」をクリアする
Worksheets("はじめてのループ").Cells.Clear

'セルA1を選択する
Range("A1").Select

End Sub

皆さま、大変お疲れ様でした。
この記事最後のブレイクタイムPhotoは・・・

江ノ電 鎌倉高校前の海と、

江ノ電グッズのタオルです。

お優しい方は、私のThreadsフォローもお願いします!!

https://www.threads.net/@nekosiestr77

やった〜〜〜!!!

あなたのことが、とっても、
大好きです☆*:.。. o(≧▽≦)o .。.:*☆

最後までご精読、誠にありがとうございました!!

仕事や勉強のリフレッシュに、趣味で写真を撮っておりますので、宜しかったら フォトストック写真ACさん の投稿もご覧頂けますと、大変嬉しい限りでございます!!

こちら、無料の「ダウンロードユーザー」に登録して頂けると、無料で写真のダウンロードが可能になります。

※ 先にGoogleアカウントを作成して頂くと、登録が ラク です♪

写真素材素材【写真AC】

 

最後までご精読、誠にありがとうございました!!

自己紹介


VBA自作サンプルプログラム集へ戻る

取りあえず事務職で働きたいから手っ取り早くExcel教えてくれ


MOSなどの資格試験対策

04VBAのIF分岐をドラクエ・メタルスライムで習得!!

この記事では、VBAのIF文による分岐を、ドラクエのメタルスライムを攻撃するという設定で習得します。

メタルスライムのHPを100として、プレイヤーの攻撃レベルが100以上だったらメタルスライムを倒せるというコードを書いていきます。

文字列型変数「敵の名前」に「メタルスライム」と代入して、攻撃レベルに数字を入れて、IF文による分岐をします。

攻撃レベルが100以上の時は、「メタルスライムを倒した!!」と表示させ、それ以外では何も表示させないコードです。

Sub IF文1()
     
  '文字列型変数「敵の名前」と数値型変数「攻撃レベル」を宣言
  Dim 敵の名前 As String, 攻撃レベル As Integer

  '変数「敵の名前」に「メタルスライム」を代入
  敵の名前 = "メタルスライム"

  '攻撃レベルを入力
  攻撃レベル = InputBox("攻撃レベルを入力して下さい。")
       
   'IF文による分岐 100以上かどうか
       If 攻撃レベル >= 100 Then
         MsgBox 敵の名前 & "を倒した!!  "
       End If
   
   End Sub

実行してみます。

まずは100以上の値、120を入力します。

「メタルスライムを倒した!!」とメッセージが表示されました。

今度は100未満の80を入力します。

何も起こりませんでした。

お疲れ様でした。
ここで一旦、写真で休憩を挟みます。

スカイツリーです。
浅草駅から少し歩いた所から撮りました。


次に、100未満だったら、「少しくたばった。」と表示されるようにElse を用いてコードを修正します。

Sub IF文2()
     
  '文字列型変数「敵の名前」と数値型変数「攻撃レベル」を宣言
  Dim 敵の名前 As String, 攻撃レベル As Integer

  '変数に代入
  敵の名前 = "メタルスライム"

  '攻撃レベルを入力
  攻撃レベル = InputBox("攻撃レベルを入力して下さい。")
       
    'IF文による分岐 100 以上かどうか
       If 攻撃レベル >= 100 Then
         MsgBox 敵の名前 & "を倒した!!  "
     Else '←ここを修正
        MsgBox 敵の名前 & "は、少しくたばった。"
       End If
   
   End Sub

実行してみます。
まずは120を入力すると、先ほどのプログラムと同じように「メタルスライムを倒した!!」と表示されました。

では、80を入力します。

「少しくたばった」と表示されました。

お疲れ様でした。
ここで一旦、写真で休憩を挟みます。

スカイツリー限定、「ソラカラちゃんパフェ」です。


さらに、100未満であっても、80以上では
「勇者頑張れ!!もう一息!!」というメッセージを表示させます。
また、80未満の場合は、「YOU LOSE….」と表示させます。

Sub IF文3()
     
  '文字列型変数「敵の名前」と数値型変数「攻撃レベル」を宣言
  Dim 敵の名前 As String, 攻撃レベル As Integer

  '変数に代入
  敵の名前 = "メタルスライム"

  '攻撃レベルを入力
  攻撃レベル = InputBox("攻撃レベルを入力して下さい。")
       
    'IF文による分岐 100 以上かどうか
       If 攻撃レベル >= 100 Then
         MsgBox 敵の名前 & "を倒した!!  "
       ElseIf 攻撃レベル>=80 Then  '←ここを修正
         MsgBox "勇者頑張れ!!もう一息!!"
       Else
        MsgBox "YOU LOSE...."
       End If
   End Sub

実行してみます。
少しややこしくなってしまったので、全てのケースでトレースして行きます。

100以上の120を入力すると、

では、80以上の90を入力すると、

最後に、80未満の70を入力すると

この様に、全てのケースのトレースが出来ました。

お疲れ様でした。
ここで一旦、写真で休憩を挟みます。

写真は、スカイツリーと河津桜です。


最後に、登場したキャラが「メタルモンスター」でしたら、「勇者はメタルモンスターを攻撃した!」と表示して、そうでなければ「こんにちは。」と挨拶をするプログラムを作ります。

Sub IF文4()
     
  '文字列型変数「ターゲット」と「登場キャラ」を宣言
  Dim ターゲット As String, 登場キャラ As String

  '変数ターゲットに「メタルスライム」を代入
  ターゲット = "メタルスライム"

  '登場キャラを入力
  登場キャラ = InputBox("登場キャラを入力して下さい。")
       
    'IF文による分岐 メタルスライムかどうか
       If 登場キャラ = ターゲット Then
         MsgBox "勇者は" & ターゲット & "を攻撃した!!  "
       Else
        MsgBox 登場キャラ & "さん、こんにちは。"
       End If
   End Sub

実行します。
登場キャラに「メタルスライム」と入力すると、

※文字の先頭や後ろにスペースが入っていると、正しく分岐されないので、インプットボックス内にスペースが入っていないかご確認をお願い致します。

この様にメッセージが出力されました。

メタルスライム以外の、例えば「村人」と入力すると、

「こんにちは。」と出力されました。

皆さま、大変お疲れ様でした。
この記事最後のブレイクタイムPhotoは・・・

スカイツリーからの眺めです。

ところで、何故普通のスライムではなく「メタルスライム」なのか、ということですが、個人的にはメタルスライムが好きなんですよね。
好きなのにプログラムの中で一杯攻撃しちゃって、メタルスライムさん、
ごめんねm(_ _)m

最後までご精読、誠にありがとうございました!!

仕事や勉強のリフレッシュに、趣味で写真を撮っておりますので、宜しかったら フォトストック写真ACさん の投稿もご覧頂けますと、大変嬉しい限りでございます!!

こちら、無料の「ダウンロードユーザー」に登録して頂けると、無料で写真のダウンロードが可能になります。

※ 先にGoogleアカウントを作成して頂くと、登録が ラク です♪

写真素材素材【写真AC】

 

最後までご精読、誠にありがとうございました!!

自己紹介


VBA自作サンプルプログラム集へ戻る

取りあえず事務職で働きたいから手っ取り早くExcel教えてくれ


MOSなどの資格試験対策

09 VBAのSelect case文で打ち上げ花火を上げよう

この記事ではVBAのSelect case文を、打ち上げ花火に例えて解説しております。

IF文は、2つか3つぐらいの分岐にでは良く使いますが、流石に7つの分岐となると、IF、IF、IF・・・・とIFを7回も書くのは面倒ですね。

そんな時に便利なのが、Select case文です。

それでは、これからあなたが打ち上げ花火を上げるとして、赤、 青、黄、緑、ピンク・・・・と色を指定して花火を打ち上げるイメージで、Select case 文を学習して行きます。

まず、Excel側でシートを新しく作って、そのシートに「花火」と名付けます。
シートはExcel内の部品であり、それを「オブジェクト」と言います。

花火の色は、文字型の「色」という変数を使って、「赤、青、黄、ピンク、緑、紫、オレンジ」の7色の 花火を打ち上げるという、分岐処理を書いていきます。
実際には、ワークシートの色を7色から選択して、全て塗りつぶします。

それ以外の色が入力されたら、7色のうちのいずれかを入力する様に、メッセージボックスで出力します。

早速、コードを掲載します。
Interior.Color=vb色、または、Interior.Color=RGB指定で、塗りつぶす色を指定します。

Sub 打ち上げ花火()

'文字列型の変数「色」を宣言
Dim 色 As String
 
'インプットボックスで色を入力
 色 = InputBox("赤、青、黄、ピンク、緑、紫、オレンジ", "打ち上げ花火の色を入力して下さい。")


 'Select 文の開始
 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)


  ' else の場合
 Case Else:

  'メッセージボックス
  MsgBox "「赤、青、黄、ピンク、緑、紫、オレンジ」のいずれかの色を入れて下さい"
 

'Select文の終わり
 End Select

'シート「花火」のセルA1を選択
 Worksheets("花火").Range("A1").Select
 
End Sub

コードが書けたらボタンを作成します。
ボタンは、Excelシートの開発 → 挿入 → フォームコントロールのボタンマークで、マクロ「打ち上げ花火」を登録します。

では、今作ったボタンを押して実行します。

インプットボックスに「黄」と入力します。
(入力するとき、スペースが入らないように気をつけて下さい。もしも入ってしまったら、elseのところに分岐してしまいますので、特に字の前に気をつけて、スペースがあったら削除してから「OK」を押して下さい。)

実行結果です。

こんな感じでシートが真っ黄色になりました。
イメージ的には黄色の花火を打ち上げている感じです。

他の色も試してみます。

「紫」

「赤」

きちんと分岐出来ました。
それでは、elseの時の分岐を行います。

例えば「小豆色(あずき色)」と入力します。

実行結果です。

もしも、上記以外の色を入れると、 このようなメッセージボックスが出て、elseの時の分岐が行えました。


ここで、ブレイクタイムとしてミュージックビデオを掲載します。

DAOKOさん×米津玄師さんの「打上花火」

歌詞の中に「打ち上げ花火」が出てくる「夏祭り」のオリジナルはジッタリン・ジンさん

カバーはWhiteberryさん

懐かしいな。

皆さま、大変お疲れ様でした。
この記事最後のブレイクタイムPhotoは・・・

撮りたてホヤホヤの、いたばし花火大会2023の写真です。

仕事や勉強のリフレッシュに、趣味で写真を撮っておりますので、宜しかったら フォトストック写真ACさん の投稿もご覧頂けますと、大変嬉しい限りでございます!!

こちら、無料の「ダウンロードユーザー」に登録して頂けると、無料で写真のダウンロードが可能になります。

※ 先にGoogleアカウントを作成して頂くと、登録が ラク です♪

写真素材素材【写真AC】

 

最後までご精読、誠にありがとうございました!!

自己紹介


VBA自作サンプルプログラム集へ戻る

取りあえず事務職で働きたいから手っ取り早くExcel教えてくれ


MOSなどの資格試験対策

自己紹介(私、「猫★シエスタ」について)

初めまして !!

障害者雇用で働きながら、PCスキル(Google Workspace、Microsoft Office、プログラミング、Photoshop)などの勉強をしている、「猫★シエスタ」と申します。
宜しくお願い致します。

この度は、私のプロフィールをご覧頂きまして、誠にありがとうございます(=^x^=)!

私の連絡先は、このブログの1番下にリンクの掲載を致しましたので、ご意見・ご感想のある方は、そちらからご連絡をお願いします。
(携帯番号やメアド、LINE IDではないです。)

このブログでは、中高年の学び直しについて扱っておりますが、私は決して勉強が好きな訳でも、頭が良い訳でもありません。

・精神的、経済的に自立したい

・自分の学びをどなたかのお役に立てたい為、アウトプットして情報発信し
たい

という目的で、2019(令和元)年にこのブログを設立致しました。

発達障害(自閉症スペクトラムASD、不注意が頻発のADHD)、HSP(5人に1人の繊細さん)に該当している為、まるで、「マイノリティや生きづらさのデパート」のようで、毎日がしんどくて生きづらいですが、少しでも楽しいことを見つけて、残りの人生を幸せに暮らしたいです。

PCスキルを習得して、それをアウトプットすることによって、自分だけでなく、読者の皆様の人生をより豊かに出来たらと思っております。

私には発達障害だけでなく、よく人から「考えすぎ、気にしすぎ」と言われて来たことが多かったので調べたところ、HSPの特性にも全部当てはまっていました。

しかし、私は発達障害に加えてHSP気質があるからと言って、「どうせ何をやってもダメだ」と諦めるのでは無く、私の現状が月に1度の精神科の通院が必要であり、一般の方よりも学習に時間がかかってしまう、という現在地点を自覚した上で、仕事、PCスキル習得、プログラミング、写真などを精進して行きたいと思っています。

ロスジェネ(就職氷河期世代)で2000年卒です。
それもあって、20代の頃は色々と言われて来ましたが、例えその時点で「一部の人から」そう思われていたとしても、私の人生は、最後に必ず勝ちます!!

障害があり、働きながらのPCスキルの勉強は勿論大事ですが、それ以上に、自分のメンタルケアも大事なので、勉強と並行してメンタルケアもきちんとやって行きたいです。「とにかく無理をしないこと」に重点を置きながら学習を進めて行きたいと思います。

コロナ禍、アフターコロナのテレワーク対策に備えて、Google Workspaceをツールごとに記事に掲載致しました。

プログラミングの学習進捗は、ドットインストールの学習ロードマップよりご覧いただけます。

また、「仮の物」ですが練習でポートフォリオを作成しました。


私のプログラミングの勉強法は、プログラミング初心者の立場から、入門者の方へ向けた記事にまとめました。

カメラはOLYMPUSのミラーレス一眼を使っています。結構色々な場所に行っておりますので、ご興味のある方はご覧頂けると嬉しいです。
(三脚は使っていないです。ほんの趣味程度なので・・・。手ぶれ補正に頼りっぱなしです。)

AdobeのPhotoshopも始めました。


それでは、プロフィールの詳細に入ります。

ハンドルネーム:猫★シエスタ
シエスタとは、スペインやイタリアなどの南ヨーロッパのお昼寝のことです。
「ねこさん」と、気軽に読んでもらえたら嬉しいです。
私の前世もその前もずっと、イタリアの海辺などの南ヨーロッパの海で暮らす野良猫で、自由気ままに生きていて、現世が人間1回目のような気がします。
だからなのか、ベイエリア・港町に行くと心が落ち着くんです。
これまで上手くいかなかったのも、もしかしたら人間として生きて行くことが初めてだから、なのかもしれません・・・。

所在:だいたい東京都にいます。
「東京都」と言っても、とてつもなく広いのですが、私がいるのは東京の中でも、かなり辺鄙な所です(笑)

仕事:障害者雇用の事務補助のお仕事で、都内で働いています。
発達障害に配慮して頂いていて、週3日、1日8時間勤務です。
パソコンの基本的な操作が出来れば、それ程困らないぐらいのお仕事ですが、もっと会社で役に立ちたいと思っております。
それには技術的な自己啓発に留まらず、会社での信頼関係を築くことも大事だと私は考えております。
そこで、今の仕事に対して、責任感を持って、誰よりも正確で丁寧で素早い仕事を心がけております。
パソコンにデータ入力するお仕事の他に、清掃や書類の封入作業などの軽作業も兼務しています。

会社で障害者の採用や業務を担当されている方支援機関の方は以下の記事も併せてご覧頂けますと、大変嬉しいです。
【会社の障害者の担当の方と支援者の方へ】精神・発達障害者の採用・雇用・接し方

精神・発達障害者の方は、他の障害者の方より見た目では分かりづらく配慮が難しいので、東京都内での就活は激戦でした。

1つの採用枠に100人の求職者が集まることなんてざらですし(東京都の合同面接では。他の道府県のことは分かりません。)今の職場での採用を勝ち取るためには資格を取れる限りは取って、資格の欄に書き切れないぐらい取得致しましたし、取りたい資格は全て取得した現在では、プログラミング等PCスキルの勉強を継続します。

(Microsoft社で有名なMOSの試験で、私が取得した中でも最も古いバージョンでは2002年の試験もございましたが、あまり古い内容を書くと逆に印象悪くしそうなので、2017(平成29)年の就活においては、2013年以降のバージョンのみを記載しました。

あまり資格の話をすると嫌われる(自慢していると思われる??)こともございますが、私は自分が何の取り柄も無い人間であることに、小学5年生の時(昭和の終わり頃)に、どういう訳か突然気がついてしまい、書道やピアノ、水泳といった習い事を全部を辞めて塾通いをして、「才能が無いのだったら、学歴を付けるしかない」という考えになりました。

その後、イジメを受けたり病気などもあって受験に失敗して、高校も大学も第3志望の私立の学校を卒業しました。

人に誇れるような大した学歴も無いのだったら、今度は資格を取れるだけ取るしかないと思って、そこまでやるか?というぐらいに資格を取得致しました。

そのような経緯もありますので、「勉強が好きなの?」と聞かれると、少々複雑な心境でございます・・・。

学歴と資格について:
小中学校を地元の公立校で過ごし、
高校は私立(共学)進学校 理系特別進学コース(1996年 平成8年卒)
大学も東京都内の所で、工学部を卒業しました。(2000年 平成12年卒)
高校は都立・県立のトップ校に落ちた人が行くようなそこそこの進学校で、大学は東京理科大学などに落ちた人が行く、関東で理系だったら知っているかも・・・ぐらいの所の出身です。
随分勉強を頑張ったのですが、地頭とか環境とか障害の有無とか、本人の努力だけではどうにもならない壁のような物の存在を、私は受験勉強を通して気づいてしまいました。
保有資格と勉強法や教材の紹介です。

このブログでは、中高年の方やあまり勉強が得意では無い方向けに、PCスキルやプログラミング、その他資格試験のオススメ教材などを扱っており、障害者雇用の採用状況を含めた現実を知った上で、私のメッセージが届く方には届いて欲しいです。

あとは、生年月日などの自己紹介をさせて頂きます。

生年月日:1977年(昭和52年)5月19日(木曜日)
同じ誕生日の有名人に、神木隆之介さんやハライチの澤部佑さんがいます。
同じ日に凄い方がいると言うだけで、私自身は凄くもなんともありません。

血液型:B型
「やっぱり、そうだと思った!」と言われることや、逆に「え、ウソ!?A型だと思った!」と言われることもあるので、血液型占いってあまり信憑性が無いのかな、なんて思います。

趣味:
プログラミング
写真(カメラはOLYMPUSミラーレス一眼、E-M5Mark2を使っております。)
ねこあつめ
落書き

ロスジェネについて:
私の世代の「ロスジェネ」とは2000年頃に大学などを卒業した就職氷河期世代、ロストジェネレーションのことで、この世代の発達障害者やHSPの方といった、マイノリティの方々の多くは、幼少期や学生時代に適切な配慮が全く受けられなかったことで、それらの特性を上手く活かすことができずに、自己肯定感がドン底まで落ち込み、生きづらさで悩みを抱えています。

今では発達障害やHSPという言葉が浸透していても、私が20代の頃は全部まとめて「負け組」と揶揄されておりました。
恐ろしいですね(怖)

マイノリティは、まとめて「負け組」認定でした。

今では考えられないことですね・・・。

勝ち組・負け組という言葉が使われるよりも前の私が小学生ぐらいの頃は、人と違う意見を言うと、

「なか〜ま はずれが1人いる、
ぴっぴーぃ!」と歌いながら指を刺されました。

この歌の最後の「ぴっぴーぃ!」の意味は良くわからないのですが、少数意見の子が1人の時に、その子を指差すと同時にする掛け声のような物でした。

私の考え方が周囲の方と異なることもあり、私が決断したことに対して、親、教師、同級生からことごとく「それは違う!!」と反対されて来たため、私はずっと、「自分がダメだから、自分の人生は人に決めてもらった方が良い」という考えを持っておりました。

まさに、

多数決の弊害

ですね・・・。

人と違う意見を持つことは、現代においては多様性やSDGsなどで尊重されていますが、私が幼少期の頃は、人と違う意見は悪いこと、みんなと同じでないといけない、それが20代になる頃には周囲と違うこと、レールから外れたら即、負け組と揶揄されていました。

学生時代は教育虐待が当たり前のように横行していて、忘れ物をしたり、何かが出来なかったりすると罰を与えられ、就職活動では圧迫面接を受け、新卒で就職した会社からの無視や全否定を耐え、「最初の会社に3年勤められない若者は、どこに行っても働けない」という世論に怯えてハラスメントに耐え続け退職した頃には精神科に通うようになり、今ではロスジェネも中年になり、「人が足らなくてもいらない」とまで言われています。

頑張っているのに、頑張り続けて来たのに、心が折れてしまいました。

そういった経緯もあり、ロスジェネでマイノリティを抱えていらっしゃる方は、判断・決断が年齢の割には苦手だったりするのでは無いでしょうか。
自分に対する自信を失ってしまっているのは、私だけでは無いと思います。

ですので、THE SUPER FRUIT(スーパーフルーツ、略してスパフル)さんの、チグハグという歌の、

「人と違うことは、愛しいこと」

と言う歌詞に救われました。
スパフルさんはロスジェネ世代よりも30年ぐらい若い男の子たちのグループなので、ロスジェネ世代の方には若い方は苦手だと言う方も多くいるかも知れませんが、例えそうであっても、負け組だと揶揄されて苦しんだ方にこそ聞いて欲しい歌です。

歌詞と動画はこちらです。

その他に好きなこと、夢中になっていたことを書きます。

■ 推理ゲームが大好き! ■

J.B.ハロルド、神宮寺、此花などいくつかの推理アドベンチャーゲームをプレイしてきましたが、私が一番夢中になったのは、MISSING PARTSです。
そこで、MISSSING PARTS愛を語りたいと思って、覚えたてのHTML/CSS/JavaScriptを使ってファンサイトを作ってみました。

サイト制作をすることは、自分のスキルアップや、将来に備えて手に職を付けたいという目的が最も大事ですが、勉強したことで好きな推理ゲームについて語れるのでしたら、そちらの方面にも使えるのであれば使って、推理ゲームに夢中になった方を、少しでも熱くさせたいという思いもあり、日々プログラミング学習を頑張っています。

覚えたてのHTML/CSS/JavaScriptを使って、推理アドベンチャーゲーム MISSING PARTSの【非公式】応援サイト を作りました。

プログラミング学習は、まずは「GAS(Google Apps Script)/HTML/CSS/JavaScript//jQuery/PHP」を固めて、自分自身のスキルアップを優先した上で、推理ゲームのことも語りたいと思って、毎日勉強アプリのStudyPlusで記録を付けて学習に励んで行きます!

■ 子供の頃のヒーロー ■

私にとってのヒーローは、志村けんさん(コメディアン、故人)です。

小学生の頃に志村けんさんのギャグに一目惚れして、将来の夢は「大きくなったら、変なおじさんになること!!」でした。(両親や先生は、私を公務員か、薬剤師か、教師か、医療事務の仕事に就かせたかったので、とてもそんな本心は言えませんでした・・・。)

多分私は、「人を喜ばしたい、笑わせたい、楽しませたい」という気持ちが物凄く強いのかも知れません。お笑い芸人になる道もありますが、自分の適性としては、プログラミングでクイズを作って、クイズ問題を解いて下さる方に喜んで貰えることが向いていることに気づき、推理アドベンチャーゲーム「MISSING PARTS」の4択クイズを作りました。

また、このブログでも志村けんさんを題材としたプログラミングの自作サンプルを掲載しています。

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

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

■ 好きなミュージシャンや良く聴く曲 ■

Mr.Childrenさんに最近ハマりました。
10代の頃は、ラジオやテレビなどで聴いたことはありましたが、その当時の私にはミスチルの良さが理解出来ず、「聴いたことがある」ぐらいでした。
しかし、45歳になって突然ミスチルに目覚めて、通勤途中や休みの時間に聞いています。

サザンの桑田佳祐さんとミスチルの楽曲の「奇跡の地球(ほし)」に特にハマっています。

コロナ前は、Alexandrosさんや、BACK-ONさんの曲を良くカラオケで歌っていました。

Run Away /Alexandros

Alexandrosさんについては、Pythonの勉強をしていた頃に、曲の長さを並べ替える簡単なプログラムを作ってみました。

リスト・辞書を並び替えてsort、sortedの処理時間を計測して[Alexandros]の曲の長さ順に表示

BACK-ONさんの中で特に好きな曲は、Ice Creamです。
たまたま普段聴かないラジオ局にチューニングを合わせていたら流れていた曲で、すっごいカッコいい曲だと思いました。もしも素人カラオケ大会とかに出るとしたら、私は絶対この歌で勝負したいと思います。BACK-ONさんとは地元が近く、綾瀬駅東口辺りで活動していたようです。

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

その他に、自費出版や、Kindleのセルフ出版ではありますが、本を2冊ほど出版しました。本の内容の説明文がちょっと長いですが、要点をまとめたYouTube動画も用意しましたので、お時間のある時にでもご覧頂けると嬉しいです。

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

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

私には、発達障害(ASD自閉症スペクトラム及びADHD)と双極性障害があり、現在障害者雇用2社目で働いております。

前職である障害者雇用の1社目での失敗を振り返り、読者様に同じ失敗をして欲しくない、また、私自身が現在の職場で同じ失敗をしない為に、仕事・通勤・人間関係・発達障害の依存症をプログラミングで解消した方法・発達障害を巡るSNSの使い方等、「あの時、こうしておけば良かったのに!!」と言った後悔も書きました。

障害者雇用1社目をクビ同然で退職し、そこから立ち直って4ヶ月で障害者雇用2社目の内定に直結した履歴書等応募書類の揃え方、添え状や自己PR書(Excelの技術を可視化したサンプル)の公開もしております。

その際、精神・発達障害者が障害者雇用での高倍率を突破して内定に直結した時に用いた応募書類の資料を画像と解説文を用いてかなり詳細に公開しています。

履歴書・職務経歴書などの応募書類を印刷する時に使う紙、印刷物を入れる高透明のクリアホルダーの選び方、添え状とパソコンのスキルが分かる自己PR書(サンプル)の制作物を個人情報を伏せて掲載しています。

発達障害で特別な才能を持たない私が障害者雇用事務職で働き続ける為に行っている健康法や対人関係の捉え方、障害者雇用の事務職で知って置きたいパソコンのスキル(Excelなどのショートカットキーで20年以上パソコンを操作してきた知識の集大成)、発達障害の方に良くありがちな依存症(私の場合は電話占い依存)をプログラミングで解消した話も掲載しております。

事務職の方も10分程度あればプログラミングを始められる方法も書いています。事務職といえば今後AIに奪われてしまうのではないかと危惧したことを、実際にAIで使われているプログラミング言語のPythonの環境構築をして検証しました。

私はロスジェネ(就職氷河期世代)であり、今後の8050問題への不安や対処法についても思いつく限りのことを書いております。

ストレスが溜まりやすい発達障害者の方へ、趣味でやっている写真を見て心を癒して頂けたらと思い、イルミネーション・花見・自然風景・ハロウィンなどのお気に入りの写真を掲載しました。

発達障害には色々なタイプの方がいるからこそ、多くの方に本を出版して欲しいと思い、Kindle版でのセルフ出版の手順も解説しております。

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


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

発達障害当事者として、2012年に私が書きました「就職氷河期世代 & 大人の発達障害」を紹介させて頂きます。

ロスジェネ(就職氷河期世代)とASD(自閉症スペクトラム)の両方の生きづらさを抱えながら正社員としての一般就労、そこから障害者雇用に就労形態を変えて行った時の職業訓練、企業実習の様子、初めての障害者雇用の様子について書き綴っております。

私の年代ですと発達障害の診断が遅くなり、私の場合は31歳で初めて診断され、それまでの学生時代や一般就労での苦しみ、障害が分かった後からも支援者からの虐待、企業実習で辛い思いをしたことなどを赤裸々に綴っています。

ご興味ある方はご覧下さい!!この本の内容をYouTube動画でも紹介しておりますので、そちらの動画をご覧頂いた上で、ご検討を何卒宜しくお願いします。

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

ここから先は、読者さまによっては知りたく無いことも書いてあるかもしれませんので、無理だと思いましたら遠慮なく離脱されて下さい。
あなたのメンタルが心配なことを書いてしまいましたので・・・。

以降 閲覧注意!!!!!

実は私は、性的マイノリティLGBTQの当事者でもあります。
私に該当するのは、トランスジェンダーのFTMです。
トランスジェンダーとは心と体の性別が一致しない人たちのことで、逆に大多数の方はシスジェンダーと呼ばれています。

トランスジェンダーの1つであるFTMとは、Female ​to Maleの略で、女性として生まれたのに対して、自分の性自認は男性の人たちのことです。
端的に言うと、心は男です。
性別違和感は小学生頃から顕著になり、「自分は男性だ」という性自認を持っているのですが、私は戸籍と体は女性で、恋愛対象は女性です。
小学5年生の頃(昭和の終わり頃)にクラスメートの女の子に初恋をしたことで、確信しました。

その初恋の女の子のことを今でも好きかというと、どちらかというとあまり思い出したくありません。
小中学校の時代は嫌な記憶が芋づる式に思い出されてしまうので、無かったことにしたいです。

性別違和感については性別適合手術も考えましたが、基礎疾患(発達障害の他に、喘息持ちで、今は発作が起きるのは3年に1度あるか無いかぐらいにまで回復しました。)があるので、私は受けないことにしました。

戸籍変更も、誰かと両思いになる確率が極めてゼロに近いことや、そこまで女の子らしい可愛いキラキラネームでは無いので、親からもらった本名のままで通すことにしました。

(流石に、「姫様」と書いて「プリンセス」なんて名前を付けられたら改名を検討すると思います。まだキラキラネームという概念が無かった、昭和生まれで良かった・・・。)

勿論、名前を見れば女性だと分かるような名前ではありますので、自分のフルネームは極力言いたく無いです。
事務手続き上で必要であれば渋々言う所です。

お子様に、「”男”と書いて”アダム”」だとか、「”姫様”と書いて”プリンセス”」みたいなキラキラネームを付けることを検討されている、パパさん・ママさん、そのお子様がLGBTQの当事者である可能性も考えて、慎重に名前を付けてください。
当事者からのお願いです。

上記のように書くと、「女性だったら誰でも良いのか!?」、
「私のことを好きになられても困る!!」という声もあると思います。
ただ、そう仰る方に限って、
「全然タイプじゃない上に、全く眼中にすら無い!」のですよね(笑)

トランスジェンダーに加えて発達障害やHSPもあるので、私の場合は自分の人生から「恋愛と結婚」をキッパリ諦めて、それ以外のことで人生を充実させることを決断しました!!

スキルアップの勉強をしながら仕事で結果を出すこと、自分の気持ちと体調を最優先して自分を労うこと、趣味や推し活を充実させるといった、恋愛と結婚以外の楽しみを大事にしていきたいです。

推し活は、推しが1人だけですと、私の場合は気持ちが暴走して、その推しに対して馴れ馴れしくなってしまい兼ねません。

また、私はどんなに深く推しを愛していても、推しにとっては私という存在は、「沢山いるファンの1人」に過ぎず、存在すらも知られていないかも知れません。

その現実と向き合うために、こちらも推しを5人以上作ることにしました。
それによって、気持ちに余裕を持って応援出来るからです。

人によっては、だいぶ年下の芸能人を応援することに対してあまり肯定的ではない意見をお持ちの方もいらっしゃるとは思いますが、

⚫︎ 仕事と体調や自分の生活を最優先

⚫︎ 常識的に失礼な言動や、馴れ馴れしい言い方をしない


⚫︎ 推しと私は、決して結ばれない


ということを念頭に置いていれば、推し活に年齢は気にしなくても良いのでは・・・と私は考えております。
(勿論、自分の考えが必ずしも正しいとは限りません。)

個人的な目標は、

60歳ぐらいからそれ以上になったら、【令和生まれの推し】を応援出来る体力と経済力を持って、気ままなソロライフを充実させること!!

です(笑)

読者様にとってショックなことを書いてしまいました。
大変申し訳ございません。

長々と書いてしまったプロフィールをご覧頂き、誠にありがとうございました。

メインメニューに戻る



コロナ禍・アフターコロナの新しい働き方(Google Workspace)

取りあえず事務職で働きたいから手っ取り早くExcel教えてくれ



これからプログラミングをはじめる方へ

プログラミングと資格

基本情報技術者試験



心がラクになる本

私の連絡先はこちらです。

(上記の記事に、私のTwitterのアカウントとアメブロのメッセージの送り方について書いています。)

写真素材素材【写真AC】

 

最後までご精読、誠にありがとうございました!!

【会社の障害者の担当の方と支援者の方へ】精神・発達障害者の採用・雇用・接し方

この記事では、障害者雇用の担当者になって間もない方、以前担当者でしたが、当事者と上手く行かなかった経験がある方や、支援機関の方など、障害者への接し方に悩む全ての支援者の方向けに、発達障害の当事者の視点で「採用選考の仕方」や「されて嫌だったことの箇条書き」で、お伝えしたいことをまとめました。

障害者雇用における、「会社側と当事者側のミスマッチ」当事者との関わり方に悩む支援者の方の悩みや不安を少しでも減らせればと思い、この記事を書くことに致しました。

◆ 採用選考は、出来れば「筆記・実技試験」を実施して欲しい ◆

障害者雇用で困ることに一つに、当事者が仕事が出来ないことだと思います。
そこで、適性のある当事者を採用する方法として、「筆記・実技試験」を通して適性を確認してみると、採用前にミスマッチに気づけることも可能になります。

適性検査の内容としては、業務で必要となる読み書き計算が出来る内容が望ましいと思います。
また実技試験では実際の業務で使うデータに模した仮のデータの入力をさせてみて、適性を見るなどです。

これはもしも不採用になった場合でも、当事者側が「自分はこの会社の仕事の適性が無かったのだ」と諦めが付きやすいので、理由が分からないのに落とされたと揉めるリスクも減らせられます。
また、求職者本人も、自分が御社に向いているのかどうか、入社前に判断がしやすくなります。

◆ 職場の担当者や支援者にされて嫌だったこと ◆

精神・発達障害者は、見た目で分かりやすい身体・知的障害者の方と異なり、パッと見普通に見える分、職場での配慮に悩まれるかと思いますので、「もしも、当事者を傷つけるようなことを言ってしまったらどうしよう。」と気にされる方もいらっしゃるかもしれません。

あなたがその点を気にして下さったのでしたら、きっとあなたは真面目で優しくて、障害者の担当に向いています!
このブログに辿り着いた時点で、「障害者の担当者として大丈夫な方」です!
そもそも、不真面目な方は、こんなブログ読みませんから・・・・。

なので、私が言うのもなんですが、自信を持って下さい!!!

では、箇条書きで、私が実際に「こういうことはやめて欲しかった」と思ったことを書いていきます。

● 子ども扱いをする

● 無視や仕事を与えない、こちらが挨拶をしても返さない。

● 大声で怒鳴る

● 軽蔑する、バカにする、見下す

● こちらが真剣に話していることに対して、笑い飛ばしたり、話を遮ったりする

● 明らかに適性や興味のないことを一方的かつ強制的にやらせる

● 希望していない進路を、当事者の気持ちを無視して一方的に強制する

今このブログを、ここまでご覧になられたあなたは、決してこんなことはしない方だと思います。

逆に、「障害者なんて、適当に放っておけばいいや」と、このブログをスルーされた方は、当事者からみて「かなりヤバイ担当者、支援者」です。

当事者に対して、「私は、あなたのことを、決して軽く見たり、馬鹿にしませんよ」ということが伝わるようにして頂けると、私の場合は安心して仕事に打ち込めます。

あとは、細かいことですが、「息が臭い」とか「体にベタベタ触る」となども、ちょっと苦手だったりしました。

「体にベタベタ触る」は、場合によってはセクハラになりますし、そこまで行かなくても、私は年配女性の方に体を触られることが多いことで、「この方は、支援者としては優秀なんだけれど、あまり私の体に触らないで欲しい。でも、そういうことは言いにくいしな・・・。言ったら支援してもらえなくなってしまうかもしれない・・・・。」と、言い出せずに随分悩んでいたこともありました。

その方には就職活動のアドバイスでは、「とても感謝をしている」のですが、結局「触らないで」は言い出せませんでした。

偏見かもしれませんが、関西の方と年配の方は距離を詰められ過ぎてこちらがビックリしてしまうこともありました。
なので、若い方や関東の方は結構安心なのですが、それでもこれまで沢山の方から裏切られたり見捨てられてきた、蔑視さてきたことがありましたので、若い方や関東の方だからと言って、それだけで安心することはございません。

(東京都民と一言で言っても沢山の方がいますし、東京都民だから良い人だ、なんて思っていたら、最終的に自分がどう扱われてしまうのか・・・ということは心得ております)


現状、ハラスメントを受けても当事者側から言い出すことはまずありません。
大概泣き寝入りして、突然会社などに行けなくなってしまいます。
悲しいことですが、私自身も結構警戒心が強くなってしまいました。
本当はもっと人を信じたいですし、会話を楽しんで仕事にも自信を持ちたいです。

精神・発達障害者の方は、辛い経験が多くトラウマも沢山抱えております。
自分の障害や過去の苦しみへの葛藤と向き合いながら生きている当事者が殆どです。
そういった背景があることが伝わりましたら幸いでございます。

あなたの職場には、色々な種類の障害を抱える方がいらっしゃると思います。
私に該当する発達障害について簡単に1分でまとめた動画を掲載致します。

(途中から音が出るので、音量注意でご視聴頂けましたら幸いです。)

それでは、あなたと、あなたが担当する障害者の方との関係が「良好であること」を、1当事者として願っております。

お時間とご興味のある方は、宜しかったらこちらもご覧下さいませ。


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

発達障害当事者として、2012年に私が書きました「就職氷河期世代 & 大人の発達障害」を紹介させて頂きます。

ロスジェネ(就職氷河期世代)とASD(自閉症スペクトラム)の両方の生きづらさを抱えながら正社員としての一般就労、そこから障害者雇用に就労形態を変えて行った時の職業訓練、企業実習の様子、初めての障害者雇用の様子について書き綴っております。

私の年代ですと発達障害の診断が遅くなり、私の場合は31歳で初めて診断され、それまでの学生時代や一般就労での苦しみ、障害が分かった後からも支援者からの虐待、企業実習で辛い思いをしたことなどを赤裸々に綴っています。

ご興味ある方はご覧下さい!!この本の内容をYouTube動画でも紹介しておりますので、そちらの動画をご覧頂いた上で、ご検討を何卒宜しくお願いします。

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

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

私には、発達障害(ASD自閉症スペクトラム及びADHD)と双極性障害があり、現在障害者雇用2社目で働いております。

前職である障害者雇用の1社目での失敗を振り返り、読者様に同じ失敗をして欲しくない、また、私自身が現在の職場で同じ失敗をしない為に、仕事・通勤・人間関係・発達障害の依存症をプログラミングで解消した方法・発達障害を巡るSNSの使い方等、「あの時、こうしておけば良かったのに!!」と言った後悔も書きました。

障害者雇用1社目をクビ同然で退職し、そこから立ち直って4ヶ月で障害者雇用2社目の内定に直結した履歴書等応募書類の揃え方、添え状や自己PR書(Excelの技術を可視化したサンプル)の公開もしております。

その際、精神・発達障害者が障害者雇用での高倍率を突破して内定に直結した時に用いた応募書類の資料を画像と解説文を用いてかなり詳細に公開しています。

履歴書・職務経歴書などの応募書類を印刷する時に使う紙、印刷物を入れる高透明のクリアホルダーの選び方、添え状とパソコンのスキルが分かる自己PR書(サンプル)の制作物を個人情報を伏せて掲載しています。

発達障害で特別な才能を持たない私が障害者雇用事務職で働き続ける為に行っている健康法や対人関係の捉え方、障害者雇用の事務職で知って置きたいパソコンのスキル(Excelなどのショートカットキーで20年以上パソコンを操作してきた知識の集大成)、発達障害の方に良くありがちな依存症(私の場合は電話占い依存)をプログラミングで解消した話も掲載しております。

事務職の方も10分程度あればプログラミングを始められる方法も書いています。事務職といえば今後AIに奪われてしまうのではないかと危惧したことを、実際にAIで使われているプログラミング言語のPythonの環境構築をして検証しました。

私はロスジェネ(就職氷河期世代)であり、今後の8050問題への不安や対処法についても思いつく限りのことを書いております。

ストレスが溜まりやすい発達障害者の方へ、趣味でやっている写真を見て心を癒して頂けたらと思い、イルミネーション・花見・自然風景・ハロウィンなどのお気に入りの写真を掲載しました。

発達障害には色々なタイプの方がいるからこそ、多くの方に本を出版して欲しいと思い、Kindle版でのセルフ出版の手順も解説しております。

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

お忙しい所、この記事の最後までご覧頂き、誠にありがとうございました。

自己紹介に戻る

メインメニューに戻る

03「ザ・スーパーマリオブラザーズ・ムービー」で覚えるVBAの変数とコメントの基本的な使い方

この記事では、VBAの変数の基本的な使い方コメントの書き方を、2023年にヒットした映画、「ザ・スーパーマリオブラザーズ・ムービー」を通して学習します。

変数は、箱をイメージして下さい。
Amazonの段ボール箱でも何でも良いです。
注文した品物によって、段ボールの大きさが変わりますよね。

数値でしたら、Integerという大きさの箱を使います。
これは服のサイズで言ったら、Sサイズ、Mサイズ、Lサイズ、みたいなものでしょうか。

その変数の箱に、「変数に付けたい名前」を書いた紙を貼るイメージで、
変数に名前を付けます。

下記のプログラムでは、マリオドンキーコングに攻撃する「回数」に数値型の変数を割り当てます。

その変数である、ドンキーコングに攻撃する「回数」を、プログラム実行中にユーザーが好きな値を入力出来るように、InputBoxという入力するボックスを使って、回数を入力します。

変数を定義するとき、Dimと記述します。
コードを分かりやすくするため、コメントを入れました。
コメントは、「’」(シングルクォーテーション)で記述します。
数値と文字列を連結するのに「&」(アンパサンド)を使います。

 Sub 変数1()
    
    Dim 回数 As Integer '数値型の変数「回数」を宣言
    回数 = InputBox("ドンキーコングを攻撃する回数を入力して下さい。")
    MsgBox " マリオはドンキーコングを" & 回数 & " 回攻撃した!!"
 
 End Sub

回数を5とします。
InputBoxに入力します。

Enterを押すと、このようにメッセージボックスで、入力した回数が表示されました。

お疲れ様でした。
ここで一旦、写真で休憩を挟みます。

みなとみらいの夜景、横浜ランドマークタワーから撮影しました。


次に、文字を入れる変数の箱を用意します。
箱の大きさは、Stringというサイズの箱を用意します。
箱には「敵の名前」と書いた紙を貼っておくイメージです。
InputBoxで、「敵の名前」に入れる名前を「クッパ」と入力します。

数値型の回数には「678」を入れます。
今度は結果をイミディエイトウィンドウに出力します。

Sub 変数2()
    
    '文字列型の変数「敵の名前」と数値型の「回数」を宣言
    Dim 敵の名前 As String, 回数 As Integer
    
    敵の名前 = InputBox("敵の名前を入力して下さい。")
    回数 = InputBox("攻撃する回数を入力して下さい。")
    Debug.Print "マリオは" & 敵の名前 & "を" & 回数 & " 回攻撃した!!"
 
 End Sub

「クッパ」と入力してEnterを押します。

「678」と入力してEnterを押します。全角でも大丈夫です。

イミディエイトウィンドウの出力結果です。

お疲れ様でした。
ここで一旦、写真で休憩を挟みます。

お台場レインボーブリッジです。


次に、変数の演算をしてみましょう。
マリオはクッパにパンチとキックをして攻撃をします。
変数「パンチ」の回数と、変数「キック」の回数を合計して、
その合計値を変数「ダメージ」に格納します。

式で書くと、

ダメージ=パンチ+キック

になります。

Sub 変数3()
    
    '文字列型の変数「敵の名前」と数値型の「ダメージ」を宣言
    Dim 敵の名前 As String, ダメージ As Integer
    
    '数値型の変数パンチとキックを宣言
    Dim パンチ As Integer, キック As Integer
    
    '敵の名前やパンチ、キックの回数を入力
    敵の名前 = InputBox("敵の名前を入力して下さい。")
    パンチ = InputBox("マリオのパンチの回数を入力して下さい")
    キック = InputBox("マリオのキックの回数を入力して下さい")
    
     'ダメージを「足し算」して求める
     ダメージ = パンチ + キック
    
    'メッセージボックスに結果を出力
    MsgBox "マリオは" & 敵の名前 & "に" & ダメージ & "のダメージを与えた!!"
 
 End Sub

実行してみます。

名前に「クッパ」と入れます。

マリオのパンチの回数を「2」と入力します。

マリオのキックの回数を「4」と入力します。

出力結果です。

上記のプログラムではメッセージボックスに出力しましたが、今度はExcelシート上のセルに出力してみます。

下のコードに「←を変更」と書いた所と、プロシージャー名を「変数4」にした箇所以外は、そのままです。

Sub 変数4()
    
    '文字列型の変数「敵の名前」と数値型の「ダメージ」を宣言
    Dim 敵の名前 As String, ダメージ As Integer
    
    '数値型の変数パンチとキックを宣言
    Dim パンチ As Integer, キック As Integer
    
    '敵の名前やパンチ、キックの回数を入力
    敵の名前 = InputBox("敵の名前を入力して下さい。")
    パンチ = InputBox("マリオのパンチの回数を入力して下さい")
    キック = InputBox("マリオのキックの回数を入力して下さい")
    
     'ダメージを「足し算」して求める
     ダメージ = パンチ + キック
    
    ' Excelシート上のセルに出力  ←ここを変更
    Range("A1").Value = "マリオは" & 敵の名前 & "を"
    Range("A2").Value = パンチ & "回" & "パンチして、"
    Range("A3").Value = キック & "回" & "キックして、"
    Range("A4").Value = ダメージ & "のダメージを与えた!!"
    
 
 End Sub

実行結果は、このようにExcelのシートに出力されました。

お疲れ様でした。
ここで一旦、写真で休憩を挟みます。

江ノ電 鎌倉高校前の海



今度はRangeでは無く、Cells指定にします。
これまで、

ダメージ = パンチ + キック

と計算していた所を掛け算にして、

ダメージ = パンチ * キック

としてみます。
×は「*」(アスタリスク)を使います。

 Sub 変数5()
    
    '文字列型の変数「敵の名前」と数値型の「ダメージ」を宣言
    Dim 敵の名前 As String, ダメージ As Integer
    
    '数値型の変数パンチとキックを宣言
    Dim パンチ As Integer, キック As Integer
    
    '敵の名前やパンチ、キックの回数を入力
    敵の名前 = InputBox("敵の名前を入力して下さい。")
    パンチ = InputBox("マリオのパンチの回数を入力して下さい")
    キック = InputBox("マリオのキックの回数を入力して下さい")
    
     'ダメージを「掛け算」して求める ← ここを掛け算にします。
     ダメージ = パンチ * キック
    
    ' Excelシート上のセルに出力  ← Cellsで指定しています。
    Cells(8,2).Value = "マリオは" & 敵の名前 & "を"
    Cells(9,3).Value = パンチ & "回" & "パンチして、"
    Cells(10,4).Value = キック & "回" & "キックして、"
    Cells(11,5).Value = ダメージ & "のダメージを与えた!!"
    
 
 End Sub

同じように、
敵の名前=「クッパ」
キック=「2」
パンチ=「4」
と入力しました。

その出力結果です。
ダメージは2×4で8になっています。

掛け算を追えたところで、今度は「べき乗」を求めます。
掛け算では 2×4で8でしたが、べき乗にすると、2を4回かけるので、2×2×2×2=16になります。

(2の何乗に興味のある方は、ITパスポート基本情報記述者試験のページをご参照下さい。)

べき乗は、キーボード右上の「へ」の所にあります。
ダメージの計算結果は、メッセージボックスに出力します。

 Sub 変数6()
    
    '文字列型の変数「敵の名前」と数値型の「ダメージ」を宣言
    Dim 敵の名前 As String, ダメージ As Integer
    
    '数値型の変数パンチとキックを宣言
    Dim パンチ As Integer, キック As Integer
    
    '敵の名前やパンチ、キックの回数を入力
    敵の名前 = InputBox("敵の名前を入力して下さい。")
    パンチ = InputBox("マリオのパンチの回数を入力して下さい")
    キック = InputBox("マリオのキックの回数を入力して下さい")
    
    'ダメージを「べき乗」して求める ← ここをべき乗にします。
    ダメージ = パンチ ^ キック
    
    'Excelシート上のセルに出力  ← メッセージボックスに出力します
    MsgBox "マリオは" & 敵の名前 & "に" & ダメージ & "のダメージを与えた!!!"
     
 End Sub

パンチとキックは「半角数字で」入力して下さい。
私の環境では全角で入力したら、オーバーフローしてしまいました。

お疲れ様でした。
ここで一旦、写真で休憩を挟みます。

江ノ電、鎌倉高校前駅の海です。


いよいよ最後です。
「ザ・スーパーマリオブラザーズ・ムービー」の映画チケット代金を出力します。
一般1,500円です。

チケット代は、 Currency(カレンシー)という通過型の箱を用意します。
「チケット代」と紙に書いて、それを箱に貼るイメージです。
文字列型の「映画タイトル」の箱も用意します。
ここでは簡単に、「マリオの映画」と入力します。

Sub 変数7()

'通過型Currencyの変数チケット代と、文字列型映画タイトルを宣言
 Dim 映画タイトル As String, チケット代 As Currency 

 映画タイトル = InputBox("見たい映画のタイトル名を入力して下さい。")
 チケット代 = InputBox("チケット代を入力して下さい。") 

 MsgBox 映画タイトル & "の一般料金は、" & チケット代 & "円です。" 

 End Sub

上記のプログラムを、


映画タイトル:「マリオの映画」


チケット代:「1500」

と入力すると

この様に出力出来ました。

参考にした記事:
【超初心者向き】Subプロシージャの基本を5分で理解する
【VBA】Currency (通貨型変数)
ザ・スーパーマリオブラザーズ・ムービー特別映像解禁
「ザ・スーパーマリオブラザーズ・ムービー」のムビチケ前売り券が12月16日より販売開始


皆さま、大変お疲れ様でした。
この記事最後のブレイクタイムPhotoは・・・

逗子海岸です。

最後までご精読、誠にありがとうございました!!

仕事や勉強のリフレッシュに、趣味で写真を撮っておりますので、宜しかったら フォトストック写真ACさん の投稿もご覧頂けますと、大変嬉しい限りでございます!!

こちら、無料の「ダウンロードユーザー」に登録して頂けると、無料で写真のダウンロードが可能になります。

※ 先にGoogleアカウントを作成して頂くと、登録が ラク です♪

写真素材素材【写真AC】

 

最後までご精読、誠にありがとうございました!!

自己紹介


VBA自作サンプルプログラム集へ戻る

取りあえず事務職で働きたいから手っ取り早くExcel教えてくれ


MOSなどの資格試験対策

02VBAの基本的なメッセージ・セル出力・イミディエイトウィンドウ・ボタンのマクロ登録

この記事から、VBAで本格的なコーディングに入ります。
と言っても、最初は簡単なメッセージを表示させるぐらいですので、是非、肩の力を抜いてご覧下さい。

メッセージの所には、あなたの好きな言葉や推しなどの好きな人等、ご自由に表示して下さい。

ここでは、2023年7月に始動したSNSのThreads(スレッズ)について、
「Threadsフォロー宜しく!!」というメッセージを表示させます。

エディタにこのように記述します。
名称は、全角文字でもOKです。

Sub スレッズ()
        MsgBox "Threadsフォロー宜しく!!"
End Sub

それでは、プレイボタンから実行致します。

マクロ名を選択して実行を押します。

すると、メッセージボックスが表示されました!!

お疲れ様でした。
ここで一旦、写真で休憩を挟みます。

江ノ電、七里ヶ浜の海です。


では、VBAでメモ的に使う、「ちょっとした確認の時に使う」、 「イミディエイトウィンドウ」を表示します。

表示 → イミディエイトウィンドウを選びます。
下の方に表示されたウィンドウがイミディエイトウィンドウです。

用意が出来ましたらコードを書きます。

Sub スレッズ2()
         Debug.Print "Threadsフォロー宜しく!!"
End Sub

これを実行すると、

こんな感じに表示されます。

このイミディエイトウィンドウは、変数の値を確認したい時などにも 便利なので、今後も掲載致します。

お疲れ様でした。
ここで一旦、写真で休憩を挟みます。

いたばし花火大会2019です。コロナ前の最後ですね。


次は、このメッセージを、Excelのセル「A1」に入力します。
このセルA1のことを、「ホームポジション」と言います。

Rangeは、「レンジ」と読みます。
ここではセルの場所を指定する時に使うんだな〜程度に軽く押さえて頂くぐらいで大丈夫です。

Sub スレッズ3()
          Range("A1").Value = "Threadsフォロー宜しく!!"
End Sub

書き終わりましたら実行を押して、いつものExcelの画面に切り替えます。
VBAの画面の左上を押すと切り替わります。

実行すると、

この様にセルA1に入力できます。

他のセルに入力する時は、この様にセルの番地を変えてみます。
例えば、B3に入力したい場合、

Sub スレッズ4()
          Range("B3").Value = "Threadsフォロー宜しく!!"
End Sub

と、セルの番地を変えると、この様に出力されます。

お疲れ様でした。
ここで一旦、写真で休憩を挟みます。

江ノ電七里ヶ浜の海


セル番地の指定方法は、 Rangeで指定する方法と、Cellsで指定する方法があります。これ以降に出て来る、繰返し処理(ループ)を学ぶ時に大事になるので、
早い段階で慣れておきましょう。

セルB3に「Threadsフォローありがとう!!」と上書き入力します。
B3は3行目の2列ですよね。
Cellsで指定する時は、(3,2)と、行を先に書きます。

Sub スレッズ5()
          Cells(3, 2).Value = "Threadsフォローありがとう!!"
End Sub

実行すると、この様にセルの内容が置き換えられました。

お疲れ様でした。
ここで一旦、写真で休憩を挟みます。

江ノ電、鎌倉高校前駅の海


色々入力したので、
一旦シートの入力内容を消去致します。

Sub 一旦クリアする()
    Cells.Clear
End Sub

これで、Excelシートの入力内容が消えていると思います。

それでは、最後にボタンを2つ作って終わります。
ボタンに「スレッズ5」と「クリア」を登録して、ボタンを押すとそれぞれのプログラムが動く様に致します。

開発タブを選択して、挿入 → フォームコントロールのボタンを押します。

Windows

Mac

シートにボタンを描画すると、
このようなダイアログボックスが出て来ます。
さっき作った「スレッズ5」を登録します。

あとは、ボタンのまわりに○が付いている状態で、
文字を編集します。

(左クリックで実行、右クリックで編集が出来ます。)

こんな感じでボタンが出来ました。
同じように、「クリア」ボタンも登録します。

これで、ボタンを押して何度もプログラムを実行することが 出来ました。

皆さま、大変お疲れ様でした。
この記事最後のブレイクタイムPhotoは・・・

江ノ電鎌倉高校前駅の海です。

最後までご精読、誠にありがとうございました!!

お優しい方は、私のThreadsフォローもお願いします!!

https://www.threads.net/@nekosiestr77

やった〜〜〜!!!

あなたのことが、とっても、
大好きです☆*:.。. o(≧▽≦)o .。.:*☆

仕事や勉強のリフレッシュに、趣味で写真を撮っておりますので、宜しかったら フォトストック写真ACさん の投稿もご覧頂けますと、大変嬉しい限りでございます!!

こちら、無料の「ダウンロードユーザー」に登録して頂けると、無料で写真のダウンロードが可能になります。

※ 先にGoogleアカウントを作成して頂くと、登録が ラク です♪

写真素材素材【写真AC】

 

最後までご精読、誠にありがとうございました!!

自己紹介


VBA自作サンプルプログラム集へ戻る

取りあえず事務職で働きたいから手っ取り早くExcel教えてくれ


MOSなどの資格試験対策

ねこ先生がプログラミングをガリ勉してみた(=^x^=)♪

2019年(令和元年)11月1日設立

「Amazonのアソシエイトとして、[猫★シエスタ]は適格販売により収入を得ています。」

ご訪問ありがとうございます!!このサイトの管理人の「猫★シエスタ」と申します。

・ロスジェネ(就職氷河期世代)

・発達障害(自閉症スペクトラムASD 旧アスペルガー症候群 、ADHD)

・HSP(5人に1人の割合の繊細さん)

・その他のマイノリティ(詳細は自己紹介をご覧下さいませ)

上記の様に、自分に自信を持てなかった私が、同じようにお悩みの方のPCスキル習得のハードルを極限まで下げる為に、役立つ学びをアウトプットしたブログを設立致しました。

■ はじめに ■

自己紹介
 
【人事採用担当者様と支援機関の方宛】精神・発達障害障害者への接し方

■ Portfolio

私のポートフォリオ

ポートフォリオ作成に役立ったサイト

■ ExcelなどのMicrosoft Office ■

取りあえず事務職で働きたいから手っ取り早くExcel教えてくれ!

急にプレゼン資料を作ることになったから手っ取り早くパワポ教えてくれ!!!!!

Wordのポイントを手っ取り早く教えてくれ!!!

■ スプレッドシートやChromeなどのGoogle Workspace ■

Google Workspaceをツール別に紹介

GAS(Google Apps Script)

■プログラミングのマインド■

プログラミング学習で関わってはいけない人達と逃げるべき環境

プログラミングと資格について

基本情報技術者試験トップへ  

■ Web開発(HTML/CSS/JavaScript/Bootstrap/PHPなど)プログラミング学習 ■

挫折経験者が語る!!これからプログラミングを始められる方へ


ドットインストールの学習ロードマップ(基礎編)

推理アドベンチャーゲーム MISSING PARTSファンサイト

Adobe製品

プログラミングのアンケートにご協力頂ける方はこちらのフォームで勉強法など色々と教えて下さい。

■自作サンプルプログラム■

GAS(Google Apps Script)


paizaレベルアップ問題集をPythonとGASの両方で解いてみた。

Python

C言語

アセンブラCASL2

Java

VBA

SQL

■子供向けプログラミングの情報■

保護者の方へ。子ども(小学生向け)プログラミングの予習

■プログラミングと健康■

プログラミングの疲れ目対策と視力維持に向けて

プログラマこそストレッチ(子ども&大人向け)

風呂グラミング(入浴剤紹介)

写真の投稿を始めました。
(写真AC)のプロフィールページです。

■ 息抜き ■

息抜きに、写真で癒し(=^x^=)

ストレス解消グッズなど 

■ おススメ本! ■

発達障害と健康 


心がラクになる本

何の本を読んだらよいのか分からない時に読む記事

■ アロマ ■

ハッカ愛からハッカー!?

01 VBAを始める準備をしよう

この記事ではVBAを始めるまでの準備をコンパクトにまとめました。
まず、Excelを起動して、開発タブを表示させます。

Windowsの方は、
ファイル → オプション → リボンのユーザー定義 → 開発の所にチェックを入れて、OKを押してください。


そうすると、

無事に開発タブが表示されました。

Macの方は、
ExcelをアクティブにするとExcelの画面よりも更に上にメニューが表示されているので、Excel → 環境設定 を選択すると、

この様な画面が表示されますので、赤枠の「表示」を選択します。

するとこのようなダイアログボックスが表示されるので、表示にチェックを入れてウィンドウを閉じます。

Macでも無事に開発タブが表示されました。

エディタの準備をする前に、先に名前をつけて保存をします。
保存って本当にプログラミングでも事務作業でも大事なんですよね。

[F12]を押して、ファイル名に「VBA入力レッスン」など、分かりやすいと思う名前を入力します。

※ 1点注意がございます

「ファイルの種類」は、「Excelマクロ有効ブック(. xlsm)」を指定します。
VBAで動かす時は、普段Excelを使っている時の拡張子がxlsxでは無いので、そこだけ注意が必要になります。

開発タブの一番左のVisual Basicまたは、ショートカットキーで[Alt] + [F11] を押します。

これで、VBAのコードを記述するエディタが開きました。

画面左側の、ThisWorkbookを選択した状態で、挿入 → 標準モジュール の順番にクリックします。

それから、「Module1」を選択します。

その状態で、「オブジェクト名」に「まずは入力の練習から」と入力して[Enter]を押すと、

練習に使うエディタが作成されました。

次から、実際にコーディングしていきます(=^・^=)

お疲れ様でした。
勉強のリフレッシュに、写真で息抜きを致します。

最後までご精読、誠にありがとうございました!!

仕事や勉強のリフレッシュに、趣味で写真を撮っておりますので、宜しかったら フォトストック写真ACさん の投稿もご覧頂けますと、大変嬉しい限りでございます!!

こちら、無料の「ダウンロードユーザー」に登録して頂けると、無料で写真のダウンロードが可能になります。

※ 先にGoogleアカウントを作成して頂くと、登録が ラク です♪

写真素材素材【写真AC】

 

最後までご精読、誠にありがとうございました!!

自己紹介


VBA自作サンプルプログラム集へ戻る

取りあえず事務職で働きたいから手っ取り早くExcel教えてくれ


MOSなどの資格試験対策