多重ループで「地獄」で「はだか踊り」か??

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

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

今日この頃、新卒の時の会社(一般就労)で、
同僚からモラハラを受けたことの
フラッシュバックがハンパないです。
2001年(平成13年)ぐらいの大昔ですが、
私にとってはその時の苦痛が、鮮明に脳内でループしています!!

その同僚、今頃パフェでも食っていたら、
マジ、ムカツク!!

出来れば、

駅、ハローワーク、地獄、面接会場

などの「場所」で、

う◎こ漏らす、はだか踊りする、パンツ破れる、お●め納豆のオバサンみたいと言われる

などがあれば良いと思います。

それぞれの場所で、それぞれの「バチ」が当たれば良い。
つまり、

場所を「駅」で固定して、
「う◎こ漏らす」~「お●め納豆のオバサンみたいと言われる」
の、4つのバチ、

次に、場所を「ハローワーク」に固定して、
「う◎こ漏らす」~「お●め納豆のオバサンみたいと言われる」
の、4つのバチ、
・・・
と、4×4で16の災いが起これば良いと思います!!

この同僚は、お●め納豆のキャラクターソックリです。
それでも、本人は、イケてる女になる為に、
一生懸命でしたので、ちょっとだけ同情はしますが・・・。

この同僚が私にしたことは、
モラハラメールを送り付けたことと暴言です。
怖くて消してしまいましたが、今思うと、
データを取っておいて、訴えてやれば良かったと思います。

・あなたは誰々さんに迷惑をかけている
・無意識に迷惑をかけている
・あなたは何にも出来ない人だ
・負けている
・イケてない
・いいかげんにしてください

この様なことを言われたり、書かれたりしたので、
ちょっとだけお灸をすえてやろうと思いました。
特に、私の障害特性の疲れやすさについて、
色々理不尽なことを行ってきました。
訴えてやりたいのですが、証拠もないし、
プログラミングで解消するしかなさそうです・・・。

という訳で、お灸をすえる為に、多重ループやります。

お仕置きする「場所」を外側ループのカウンタ変数i、
「バチ」を内側ループのカウンタ変数j
にして、ぐるぐる回してやれ!!

イメージとしては、こんな感じの表を用意します。
表の見出しを「多重ループ」とします。

こういったプロシージャ―を作りました。


Sub 多重ループで地獄に堕ちろ()

Dim i As Integer, j As Integer
Worksheets(“多重ループ”).Activate

Range(“D1”).Select

For i = 1 To 4
For j = 1 To 4
ActiveCell.Value = Cells(i + 1, 1).Value & Cells(j + 1, 2).Value
ActiveCell.Offset(1, 0).Select
Next j

If i < 4 Then
ActiveCell.Offset(1, 0).Select
End If

Next i
End Sub

まず、「駅で」はセルA2です。
Cellsで表わすと、Cells(2,1)になります。
外側の変数は「i」なので、
i=1の時、Cells(i+1,1)になります。
Cellsは、(行、列)、(タテ、ヨコ)です。

内側のバチの最初は、「う◎こ漏らした」です。
これはセルB2です。
Cellsで表すとCells(j+1,2)になります。
「場所」と「バチ」を「&」で結合しています。

それでは、内側をjを1~4まで回わすので、
次はj=2です。
「はだか踊りした」は、j=2で、Cells(j+1,2)、つまり
Cell(3,2)になります。

その次は、「パンツ破れた」で、j=3、Cells(j+1,2)つまり、
Cells(4,2)です。

内側ループ、最後は
「お●め納豆のオバサンみたいと言われた」なので、
j=4、Cells(j+1,2)、つまり、
Cells(5,2)です。

4まで行ったら、外側の場所を、
「ハローワーク」に移動します。

こうやって、内側を速く回して、
外側をゆっくり固定しながら回す、
というイメージでグルグル回していきます。

代入する側のセルは、黄色い所です。
これを1つずつ下に下げていきます。
ActiveCell.Offset(1,0).Selectで、
Offsetを使って、相対的に移動します。

場所が「駅」から「ハローワーク」に移動する時、
1つ行を空けます。

最後だけ、ちょっと注意ですが、
IF文を使っていますね。
これは外側の変数が最後の「面接会場」の時だけ、
下に移動するセルを調整しています。
これは、言葉で伝えるとややこしいので、
コメントアウトしてみたり、実際にコーディングして、
感覚的にあ~、なるほどって感じで良いかもです。

実行結果です。

黄色いセルから下へお灸をすえられました。
お疲れ様でした。
今日は、ここまでです。

これ、お●め納豆のキャラに似ている本人が見ていたら笑えるな~~

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

初めてのSelectCaseによる条件分岐

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

今日は、初めてのSelectCaseによる条件分岐をやります。

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

向こうから、パワハラBBAがやってきました!
以下の武器を投げて攻撃します。

1黒板けし
2唐辛子入り目薬
3トイレのスッポンすっぽん
4バカボンの下駄

プロシージャ―はコチラ

Sub 初めての条件分岐でパワハラBBAをやっつけろ()

Dim 武器 As Integer

武器 = InputBox(“1:黒板消し” _
& vbCrLf & “2:唐辛子入り目薬” _
& vbCrLf & “3:便所掃除用スッポンすっぽん” _
& vbCrLf & “4:バカボンの下駄”, “パワハラBBAを何で攻撃しますか?”)

Select Case 武器

Case 1:
MsgBox “パワハラBBA:” _
& vbCrLf & “「ゴホッゴホっ。ゲホツげほ」”

Case 2:
MsgBox “パワハラBBA:” _
& vbCrLf & “「ぎゃ~~☆@!?@**~~」”

Case 3:
MsgBox “パワハラBBA:” _
& vbCrLf & “「いや~~ん、鼻が曲がる」”

Case 4:
MsgBox “パワハラBBA:” _
& vbCrLf & “「アタシ、バカ田大学行こうかしら。偏差値丁度良さそうヨ」”

Case Else
MsgBox “1~4を入れてね”

End Select

End Sub

1~4を入力すると、それぞれの武器が投げられ、
パワハラBBAを攻撃します。

例えば、「4」を押すと、
バカボンの下駄をBBAに投げつけることが出来ます。

インプットボックスに「4」と入力します。


これでバカボンの下駄を投げられます。

投げると、BBAがおかしなことを言います。

バカ田大学の偏差値は高いのだ。
でも、BBAはバカだから入れるのだ。
バカ田大学に入学して、人生やりなおしてね。

改行は、「vbCrLf」を使っています。
「&」で結合することで、文字列を改行させられます。

コードを改行する時は、
「 _」(半角スペースと半角アンダースコア)を使います。
アンダースコアは、[Shift]キーと、[ろ](キーボードの右下)を
一緒に押します。
これで、改行しても、エラーになりません。

因みにこのパワハラBBAが私にしたことは、

● 新しく入った人に、私(このブログの製作者)とは関わるなと言って、
職場で孤立させた
● 「仕事はない!」といって、仕事を与えず放置
● 仕事を与えない一方で、残業はさせた
● 個室でネチネチ説教した

といった、陰湿なパワハラをしていました。
2013年ぐらいにそのパワハラを受けていました。
BBAがどうなったのか知りません。


う◎こでも踏んでくれ!!

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

私刑したいヤツの名前+DEATH

Java自作サンプルに戻る
これからプログラミングを始める方へ
プログラミングと資格
息抜きに、写真で癒し(=^・^=)

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

今、ムシャクシャしている相手のいる方向けの、
Javaによる簡単な文字列表示のプログラミングです。

こ●したいヤツの名前+DEATH!
と表示させます。

画像とコードです。
ファイル名を「siltukei」とします。


import java.util.Scanner;
public class siltukei{

public static void main(String[] args){

//System.in キーボード入力を受け付けるための引数
Scanner scn=new Scanner(System.in);
System.out.print(“デスノートに書く名前を入力:”);

//キーボード入力を受け付ける
String name=scn.next();
System.out.println(name+”DEATH!!”);
}
}

コンパイルした後、
実行させます。

デスノートに書く名前を入力:
と表示されたら、
例えば「五木不利太郎」など、
今、あなたが、もっとも憎たらしいと思っている
ヤツの名前をキー入力します。

Enterを押すと、
五木不利太郎DEATH!と表示されます。

結果画像です。

憎たらしい気持ちは、悔しいですが、
実力行使できないです。
ヤツラは要領が良いから。
なので、このプログラミングで怒りを抑えて下さい。

お疲れ様でした。

Java自作サンプルに戻る
これからプログラミングを始める方へ
プログラミングと資格
息抜きに、写真で癒し(=^・^=)

COUNTIF関数でブラック企業をぶっつぶせ!!

メインメニューに戻る
これからプログラミングをはじめる方へ

プログラミングと資格
息抜きに、写真で癒し(=^・^=)
心がラクになる本

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

今日は、ブラック企業について考えて見ます。

ブラック企業の条件って、何でしょうか。
私が今まで勤めてきた会社では、

・新入社員に即戦力を求める
・プライベートを拘束する
・挨拶を無視する
・仕事を与えない
・悪い噂を流す

こういったことを、一般就労でも、
最初の障害者雇用でも味わってきました。

個人的にはブラック度が高いと思います。
ハローワークにも相談したのですが、
企業に指導まで至りませんでした。

ここに、A社からG社まであります。
ブラック度が50以上の会社は何社あるか
数えるのに、
COUNTIF関数を使います。

黄色いセルに
=COUNTIF(B2:B8,”>=50″)
と入力すると、ブラック度の範囲から、
50以上に該当するのが2社と求められます。

退職代行とか使ったことが無いのですが、
そういうのも頭の片隅には置いておこうかな。

くれぐれも無理しないで下さい。
辛かったら逃げても良いと思います。

でも、本当に辛いと、逃げるという判断も
出来なくなるから、ブラック企業って
タチが悪いです。

この世からブラック企業が無くなって、
心を病んでしまうことが無くなるよう、
こういった例題を作ってみました。

見てますか!!
企業のお偉いさん!!

では、今日は、ここまで(=^・^=)

メインメニューに戻る
これからプログラミングをはじめる方へ

プログラミングと資格
息抜きに、写真で癒し(=^・^=)
心がラクになる本

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

JAVAエラーなどの学習ログ

Java自作サンプルに戻る
これからプログラミングを始める方へ
プログラミングと資格
息抜きに、写真で癒し(=^・^=)

Javaのエラーの対処で、最初にやるべきことは、
今の時刻の確認です。
もし、夜の12時過ぎていたら、いったん寝て、
明日早起きして朝ごはん食べてから、
エラーの対応をしましょう。
驚くほど簡単にエラーの対処が出来ました。

java:7:エラー この文字(0x80)は、エンコーディングwindows-31jに
マップできません。

対処法
コンパイルする時に、

javac -encoding UTF-8 ファイル名.java

とやって見た所、無事、実行できました。

java:10: エラー: doubleは間接参照できません
変数=
の=を「.」とやってしまった。

javac:11:エラー: シンボルを見つけられません
変数名のスペルミス

java:15;エラー:”;”がありません
セミコロン忘れ

文字化け

ここが分かりやすいと思います。
https://qiita.com/lunatea/items/53f4adcc6ea3f316e781
色々あたふたしながらいじってたら日本語出ました!!

36:エラー:’uff1b’は不正な文字です

セミコロン「;」が全角になっていたので
半角にしました。

72:エラー:構文解析中にファイルの終わりに移りました。
{ }が足りなかったので付け足しました。

エラー クラスにmain(String[])メソッドが見つかりません。
javac ファイル名.javaでコンパイルは無事に出来ましたが、
java ファイル名.javaで実行するとエラーが出ました。
そこで、java ファイル名.javaの拡張子を削除して、
java ファイル名で実行した所、出来ました。

23:エラー:シンボルを見つけられませんでした
boolenではなくboolean

104:エラー:シンボルをみつけられません
System.out.printfの、
outをourにしてしまった。

エラー:式の開始が不正です
{ が
}で閉じられていなかった

Java自作サンプルに戻る
これからプログラミングを始める方へ
プログラミングと資格
息抜きに、写真で癒し(=^・^=)

簡単な足し算を作ってみました

Java自作サンプルに戻る
これからプログラミングを始める方へ
プログラミングと資格
息抜きに、写真で癒し(=^・^=)

簡単な足し算を行います。
嫌なヤツを2人ほど思い浮かべて下さい。

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

baka=18782…イヤナヤツ
aho=18782…イヤナヤツ
を足し算すると、
37564…ミナゴロシ

になる、プログラムを作ります。

1+2=3
といった結果も普通に出ますが。

Cドライブの下にJavaSampleというフォルダーを
作って、tashizanというファイルで保存します。


import java.util.Scanner;

public class tashizan {
public static void main(String[] args){

Scanner scn=new
Scanner(System.in);

int baka,aho;
baka=0;
aho=0;

System.out.printf(“baka= “);
baka=scn.nextInt();

System.out.printf(“aho= “);
aho=scn.nextInt();

System.out.println(baka+aho);
}
}

1行目の「util」、これ、
私よく、「until」って書いちゃうんですけど、
「n」はいらないです。

実行して見ます。

「baka= 」に、18782、と入れてEnter、
「aho= 」に、18782 と入れてEnter、
を押すと、結果に37564
と出て来ます。

もっと簡単に書く方法もあるかと思いますが・・・。
色々調べながら初めて自分で作ってみました。
いつもは写経ばっかりですが。

では。

Java自作サンプルに戻る
これからプログラミングを始める方へ
プログラミングと資格
息抜きに、写真で癒し(=^・^=)

IF関数

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

メインメニューに戻る

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

攻撃レベルが80以上だったら、
「蚊に刺されろ」
表示されるようにします。

黄色いセルに、
=IF(B2>=80,”蚊に刺されろ”)

と式を入れます。

このまま、
攻撃レベルを空欄にした場合、

この様に「FALSE」と表示されますが、
刑の列も何も表示されないように
したい場合は、

=IF(B2=””,””,IF(B2>=80,”蚊に刺されろ”))

このような式に変えます。
これで、空欄の時には、何も表示させない
という意味になります。

80未満に「尻文字書け」という条件を
加えたい時には、
条件偽を追加して、式を、
=IF(B2=””,””,IF(B2>=80,”蚊に刺されろ”,”尻文字を書け”))
のように変えます。

更に、
攻撃レベルが60以上の場合に、
「便所に財布を落とせ」と
条件を加えたい時には、

=IF(B2=””,””,IF(B2>=80,”蚊に刺されろ”,IF(B2>=60,”便所に財布を落とせ”,”尻文字を書け”)))
と書き加えます。

IF関数は実務でかなり使用頻度が高いと思います。

連絡先

メインメニューに戻る

お問い合わせの前に、下記事項のご確認をお願します。

当サイトはリンクフリーです。
Webサイト(ブログ含め)やTwitterなどの
SNSでリンクを貼りたい場合には、
特に連絡を頂かなくても大丈夫です。

仕事、介護、プログラミング、慢性的な体調不良のため、
対応が遅れることもございます。

下記に当たる場合は、申し訳ございませんが、
対応し兼ねますので、何卒ご了承願います。

● 「Excelって何?」など、
Googleなどで調べれば見つかる様なこと。

● 反社会的、勧誘、セールス、ビジネス、宗教、
誹謗中傷

何でも気軽にどうぞ!!と言いたい所ですが、
世の中色々な方がいらっしゃるので、
(特にネットでは)ご理解の程宜しくお願いします。

twitterアカウント
(こちらもフォロー自由です。)

@nekosiestr775

twitterの検索欄に入れると表示されます。

また、このアカウントをGoogleなどの検索エンジンで検索すると、
twitterのリンクが表示されます。


まずは、「いいね」や「リプ」から、少しずつ
仲良くなって行きたいです。

日常については雑談的にアメブロを使っています。

https://ameblo.jp/nekosiestr77lafn/

環境設定から「HelloWorld」まで

Java自作サンプルに戻る
これからプログラミングを始める方へ
プログラミングと資格
息抜きに、写真で癒し(=^・^=)

ここでは、Javaの環境設定から、
実行結果、HelloWorldまでの手順を
画像を含めてお伝えします。

このURLに行きます。

https://www.sublimetext.com/

「DOWNLOAD FOR WINDOWS」をクリックします。

左下にある、「Sublime Text Build…exe」をクリック
して、「はい」をクリック

Nextをクリック

チェックを入れてNextをクリック

Installをクリックしてインストール
して、Finishをクリック

すると、デスクトップに戻ると思いますので、
画面左下隅の
スタートのWindowsマークをクリック

最近追加されたものから、
「Smblime Text 3」をデスクトップにドロップ

このアイコンをダブルクリックして起動します。

このコードを入力します。

※ 矢印の所、printlnは「小文字のエル」です。
※ 全角スペースはエラーになるので、
必ず半角にしてください。


public class HelloWorld {
public static void main(String[] args){
//Hello worldを表示する
System.out.println(“Hello world”);
}
}

 


これを保存する場所を作ります。

エクスプローラーを立ち上げます。
[Windowsキー] + [E]

で、Cドライブを開きます。

[Ctrl] + [Shift] + [N]
で、新しいフォルダーを作って、
「JavaSample」と名前を付けます。

Javaのエディターに戻って、
保存します。
File → Save asをクリックします。
( [Ctrl] + [Shift] + [S] でも出来ます。)

Cドライブ → JavaSampleフォルダーの中に、
「HelloWorld.java」と付けて保存します。



このように、カラ―になりました。

ここから、コマンドプロンプトを開いて実行します。
[Windowsキー] + [R]
を押します。

すると、このダイアログボックスが出て来るので、
「cmd」と入力します。

①出てきたウィンドウに、
「cd c:\JavaSample」と入力して、
Enterを押します。

②すると、さっきCドライブの下に作ったフォルダーに移動しました。

次に、「dir」と入力して、Enterを押します。
ファイル、「HelloWorld」が保存されていることが
確認出来ます。

そこで、プログラムがキチンとしたものか
確認する為に使うコマンドを入力します。

javacと入力すると、
このようなエラーが出ます。

ここまでやって、夜の12時になりましたので、
いったん寝て明日朝早く起きて続けました。

次の日。
javacコマンドが使えなくて、昨日は暗礁に乗り上げて
しまいましたが、「JDK」とかいうのをインストールすると、
コマンドプロンプトでjavacが使えるようになるという
情報を得たので、朝起きてからやることにしました。

JDKをインストールする前に、
ご使用のパソコンが、OSが64ビットか32ビットが調べます。

スタート → Windowsシステムツール → コントロールパネル


システムとセキュリティをクリックして、
システムをクリックします。


すると、64ビットであることが分かります。

これからJDKをダウンロードします。


https://www.oracle.com/technetwork/java/javase/downloads/index.html

このアイコンをクリックします。

下にスクロールして、○Accept License Agreementにチェックを入れます。
すると、このように表示が変わりました。


まず、この2つをダウンロードします。
下から2番目をクリックします。

画面左下隅をクリックして、開きます。
何度か次へを押します。
暫く待ちます。

閉じるを押します。

次に、一番下をダウンロードします。

同様に行い、これでインストール完了しました。
どこにインストールされたのか
確認します。

[Windowsキー] + [E]
で、エクスプローラーを開きます。

PCの下のCドライブをダブルクリックします。

ProgramFilesをダブルクリックします。

Javaをダブルクリックします。

jdk-XX-.X.X (Xはバージョン)をダブルクリックします。

上にパスが出てきたので、メモ帳などに貼り付けて控えます。
C:\Program Files\Java\jdk-13.0.1

次に、環境変数の設定をします。


スタート → Windowsシステムツール コントロールパネル システムとセキュリティ


システム→システムの詳細設定

システムのプロパティが出てきたら、
「環境変数」をクリックします。

「新規」を押して、

変数名に
「JAVA_HOME」、
変数値に
「C:\Program Files\Java\jdk-13.0.1」
(先ほどJDKをインストールした場所)
を入れてOKを押します。

このように、追加されました。

それから、「Path」を選択して、「編集」を押し、

新規を選びます。

先ほどの保存場所に「\bin」を加えた、
「C:\Program Files\Java\jdk-13.0.1\bin」を追加します。


このように追加されました。

最後に、JAVA_HOMEが登録されていることを
確認して、もしなければ。

変数名に
「JAVA_HOME」、
変数値に
「C:\Program Files\Java\jdk-13.0.1」
を追加します。

これで、コマンドプロンプトに戻ります。
pathと入力して、


これが出ていることを確認します。

javac HelloWorld.java
で、コンパイルをして、


java HelloWorld.java
で実行しました。

エラーメッセージ、
「u3000’は不正な文字です」が出た場合は、
「全角スペース」が入っている場合があるので、
消して半角スペースにしてら、エラー治りました。

大変、本当に、大変お疲れ様でした。
ここまで、丸二日かかりました(=^・^=)

参考URL
https://eng-entrance.com/java-basic-compile
https://eng-entrance.com/java-install-env

Java自作サンプルに戻る
これからプログラミングを始める方へ
プログラミングと資格
息抜きに、写真で癒し(=^・^=)

例文で覚えるセルの書式

メインメニューに戻る
これからプログラミングをはじめる方へ

プログラミングと資格
息抜きに、写真で癒し(=^・^=)
心がラクになる本

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

ここで学ぶこと
・数字にカンマを付ける
・円マークを付ける
・日付形式にする
・パーセントを付ける
・書式を標準に戻す

4つの例文を使います。

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

1、中学時代のいじめっ子のO君が、
バナナの皮でスッ転んだ回数を、
3桁ごとのカンマ区切りにする。

[Ctrl] + [Shift] + [1ぬ!]

を押すと、こうなりました。

次は、

2、パワハラ上司のTが株で損した額を
円マークを付けて金額の書式にする。

[Ctrl] + [Shift] + [4$う]

金額になりました。

3(1)
ノストラダムスは予言した。
マウント取りOLのKさんは、
「2020年11月25日」に、
うんこを踏む。

日付が入るはずなのに、
黄色いセルには44160と数字が入っています。
これは、1900年1月1日を1として
カウントした数字が入っています。

[Ctrl] + [Shift] + [3#あ]

を押すと、

日付の形式になります。

それでは、その、マウント取りOLの
Kさんがうんこを踏む確率を見てみます。

0.91234これをパーセント表示にするには、

[Ctrl] + [Shift] + [5%え]

を押します。

小数点以下の桁数を変えたい時には
[Ctrl] + [1ぬ!]
を押すと、

このダイアログボックスが出てくるので、
「表示形式」タブ、パーセンテージ、
小数点以下の桁数をチェックします。

このダイアログボックスは、タブを切り替えれば、
フォントで色を変えたり、文字の大きさを変えたりも
出来ます。

ダイアログボックスを閉じるときは、
[ESC]

です。

金額やパーセンテージを最初の形に戻したい時は、

[Ctrl] + [Shift] + [へ^~]
を押すと戻ります。

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

メインメニューに戻る
これからプログラミングをはじめる方へ

プログラミングと資格
息抜きに、写真で癒し(=^・^=)
心がラクになる本

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