写真で癒し

メインメニューに戻る
自己紹介へ
風呂グラミング(入浴剤紹介)
これからプログラミングをはじめる方へ

インスタ再開しました。(約4年間放置していた(;^_^A)

Twitterやアメブロ、YouTubeで写真を投稿しています。
その中で、投票結果を元に掲載致します。

◆季節の写真

2021年春、緊急事態宣言が解除され、お花見に行ってきました。
撮影のみで飲食はしていないです。

OLYMPUS DIGITAL CAMERA

これらの写真を写真動画にまとめました。
YouTubeのチャンネル登録数やいいねが増えなくて困っているので、優しい方は見て下さるとうれしいです。

足立区と埼玉県の県境ぐらいの所で撮りました。
穴場なので、桜の木をほぼ独り占め状態です。


梅雨時
アジサイとバラの写真です。
雨の日の代々木公園で撮りました。
花びらが雨露で濡れていて、みずみずしい仕上がりです。
癒されちゃってください!!

OLYMPUS DIGITAL CAMERA

コロナ禍での猛暑
東京差別、東京外しなどで、蚊帳の外の東京都民。
そこで、冷感マスクを使ったアートを撮影しました。
※撮影後は洗って使っています。

この撮影に使ったグッズです。

女の子用のもあるそうです。
性別で分けるってのも、子どものLGBTもあるので、複雑ですが。

私の精神年齢、これぐらいかな・・・。

冷感マスクです。

◆夜景部門第1位
横浜ランドマークタワー、みなとみらいの夜景



◆夜景部門第2位
とうきょうスカイツリー、ソラマチの夜景



◆自然部門第1位
等々力渓谷(東京都世田谷区)



◆自然部門第2位
水元公園(東京都葛飾区)



また、YouTubeの中で、この記事を更新している2020年5月29日現在、
もっとも人気がるのが、ハロウィン動画です。
六本木ヒルズで撮影しました。



写真はサイズが重いですよね。
そこで、写真の保存やバックアップには
こちらのUSBハードディスクを使っています。

また、工作といっても手先が不器用ですが、
それでもスライムやピタゴラス、琉球ガラス
オルゴナイトを使って簡単に夜景を作ることも出来ました。



メインメニューに戻る
心がラクになる本
発達障害と健康の本
これからプログラミングをはじめる方へ

VLOOKUP関数とIF関数でソーシャルディスタンス!

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

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

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

本日は、ビジネスで良く使う、VLOOKUP関数、IF関数の
合わせ技を掲載します。
これ出来ておくと、Excelの作業で、
安心して任せてもらえるかもしれません。
時間のある方は、ちょっとだけ読んでやってください。

前の人との距離を赤丸のプルダウンメニューから選ぶと、
その距離に応じて百合子知事のメッセージが変わります。

まず、プルダウンメニューを作ります。
データタブ→データの入力規則→設定
で、入力値の種類を「リスト」にします。

このリストの範囲として、
メートルの下の肌色のセルをドラッグします。
ダイアログボックスを閉じます。

リストを作ったセルの右隣の黄色いセルに、
=IF(O5=””,””,VLOOKUP(O5,O8:P10,2,FALSE))
と、式を入れます。
これは、メートル、1,2,3に対して、
列方向でメッセージを変える処理をしています。

最後に、百合子知事の吹き出しを選択します。
その状態で数式バーをクリックします。

「=」とイコールを押して、
メッセージの内容を変える黄色いセルをクリックし、
Enterキーを押します。

選択する数字を変えると、百合子知事のセリフも変わります。

第二波に備えて、油断せずに、
距離を取って行きましょう!!にゃ(=^・^=)

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

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

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

ExcelVBAで密です!ソーシャルディスタンス!!

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

新型コロナで「密です!」ゲームが流行していますね。
ExcelVBAで単純ながら密ですゲームみたいなものを作ってみました。

こんな感じにシートを用意して、ボタンを作ります。
ボタンは、「開発タブ→挿入」から作れます。
開発タブは、任意のタブを右クリックして、「リボンのユーザー設定」の
右側のメニューからチェックで表示できます。

では、このプロシージャに戻ります。
ボタン「密です!!」を押すと、

このように「人」が密集します。
3密ですね。

では、ボタン「ソーシャルディスタンス」を押します。

で、このように感覚を空けました。

各ボタンについて解説します。

●密です!!

Range(“A1:K11”) = “人”
で、セルA1からK11までの全てのセルに、
「人」を入れます。

●ソーシャルディスタンス

Cells.Clear
で、シートのお片付けをして、全てのセルをキレイにします。
その後、

Range(“a1”).Select
で、ホームポジションのA1を選択肢、
この位置を基準をして、2行2列置きに「人」を入れて、
間隔を保ちます。

行をi、列をjにします。
内側のForループでjを2つずつ増やし、
外側のループでiを2つずつ増やします。

コードはこんな感じです。
もう、緊急事態宣言が解除されて、
そんなにヒマではなくなったかもしれませんが、
ヒマで何かしたい方は、作ってみてください!

Sub 密です()
Range(“A1:K11”) = “人”
End Sub

Sub ソーシャルディスタンス()
Cells.Clear
Range(“a1”).Select
For i = 0 To 10 Step 2
For j = 0 To 10 Step 2
ActiveCell.Offset(i, j) = “人”
Next
Next
End Sub

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