2020年5月29日 | ねこ先生がプログラミングをガリ勉してみた(=^x^=)♪

TikTok始めました。
始めた理由は、TikTokの仕組みに興味を持ったからです。若い方限定のSNSなので、自分には無理だと思っていたのですが、他のSNSが時間に影響を受ける仕組みに対してTikTokは時間に影響を受けないループ型なので、良い動画であれば過去の動画も見て頂けるという仕組みに興味を持って始めました。TikTokは、Twitterが使える方なら多分すぐ慣れると思いますし、動画編集に至っては、YouTubeの100倍以上楽です。

インスタ再開しました。

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

写真のアンケートを実施しております。
宜しかったらご回答頂けますと、大変励みになります(=^x^=)

フォトストック写真ACさんに投稿をしております。

メインメニューに戻る
自己紹介

初めてのPhotoshop

VLOOKUP関数とIF関数、IFERROR関数でイタリア語の数字に触れてみよう!!

この記事では、Excel関数の中でも特に実務での使用頻度が高い、VLOOKUP関数とIF関数、そしてIFERROR関数の合わせ技について掲載します。

この使い方に慣れておくと、「Excel関数だったら、是非あなたにお任せしたい！！」と、安心してお仕事を任せて貰える可能性が高まりますので、宜しかったらご覧下さい。

また、ドロップダウンリストで検索値をリストから入力出来る方法も掲載致しました。

まず、この様な簡単な表を用意します。

※ 数字は半角に統一しておくと、学習がスムーズになります。 ※

イタリア語の数字のサイトを参照しました。

では、早速VLOOKUP関数を使ってみます。
セルA1の検索値を「2」にしてみます。

では、ここで隣の黄色いセルB1にVLOOKUP関数を入力致します。

「 =vl 」まで入力したら、「Tabキー」を押すと、VLOOKUP関数が選択出来ます。
この様な式を入れます。

=VLOOKUP(A1,A4:B6,2,FALSE)

関数の中身ですが、

・検索値の所をA1セルをクリック
・範囲の所をA4:B6で表を囲う様にドラック
・列番号を2
・完全一致にするので「0」または「FALSE」

ここまで入力したらEnterを押します。
この関数の中身のことを「引数」と呼びます。

セルB1にこの様な式が入りました。

この様に、B1セルにイタリア語の２に当たる「due（ドゥエ）」が表示されたらOKです！

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

目白庭園の紅葉

ところで、検索値のA1セルを消すと、黄色いセルにこの様にエラーが出てしまいました。

このエラーをまずはIF関数を使って修正します。
黄色いセルB1に

=IF(A1=””,””,VLOOKUP(A1,A4:B6,2,FALSE))

と入力します。
式の意味は、もしも検索値のセルA1に何も入っていなかったら空白を返し、数字が入っていたら対応するイタリア語を表示する、と言う意味です。

これで、無事にエラーが消えました。

試しにここで、セルA1の検索値に1〜3の数字を入れると、この様に表示されます。
例としてセルA1に検索値を3にしました。

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

目白庭園の紅葉

では、1~3以外の数、例えば検索値に「7」が入っていたとします。

この場合はIFERROR関数を使います。

=IFERROR(値,”エラーメッセージ”)
となる様に、黄色いセルのB1に下記の式を入力します。
VLOOKUP関数の部分が値に該当して、なるべく分かりやすいエラーメッセージを入れます。

=IFERROR(VLOOKUP(A1,A4:B6,2,FALSE),”1から3までの数字を入力して下さい”)

この式では、もしも値が正しかったら該当するイタリア語を表示して、エラーだったらエラーメッセージを表示すると言う意味です。

現在この様になっていればOKです。

関数の中に関数を入れることを「ネスト」と呼びます。

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

目白庭園の紅葉、ピンボケ（笑）

検索値の1,2,3を手打ちで都度入力するのは面倒ですよね。
それに、7などの数を入力されてしまうこともあります。

そこで誤入力を防ぐ為にも、検索値のセルA1にリストを設定します。
一旦、セルA1の7を削除してからドロップダウンリストを作成します。

まず、セルA1を選択して、
「データ」タブ → データの入力規則 で、下記のダイアログボックスが出ます。
一番左の「設定」タブを選択して、入力値の種類を「リスト」にします。

次に、リストにする値を指定します。

「元の値」の右の横のボタンをクリックして、ピンク色のセルのA4〜A6をドラッグしてOKを押します。

これで、Windowsの方は、「Alt」+「↓」、Macの方は「option」 + 「↓」で、リストで「1,2,3」と選択出来るようになりました。

これで実際にリストから数字「1」を選んでみます。

無事にリストから選択出来、黄色いセルに表示されました。

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

写真は、地元の東京のすっごく辺鄙な所（笑）の桜です。

■ Excel / スプレッドシートの学習にオススメ本の紹介 ■

「できるYouTuber式 Excel現場の教科書（長内孝平氏）」
単行本（ソフトカバー）
Kindle版

「できるYouTuber式 Googleスプレッドシート現場の教科書」
（神川陽太氏＆長内孝平氏）
単行本（ソフトカバー）
Kindle版

「なんの才能もない発達障害者の声: 〜届かない声を届けたい〜 (障害者雇用向け)」
私、猫★シエスタの著作です。
殆どが「発達障害者として働くことの悩み」の内容ですが、Excelを含む障害者雇用の事務作業に便利なショートカットキーについても少しだけ掲載しております。
Kindle版

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

立川市の昭和記念公園の、サンフィニティという小ぶりの向日葵の写真です。

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

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

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

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

フォトストック写真ACさんのプロフィールページ

最後までお付き合い頂き、誠にありがとうございました！！

06For Nextループその2 ExcelVBAで密です！ソーシャルディスタンス！！

新型コロナが2類から5類に引き下がり、イベントでは「密です！」状態ですね。
ExcelVBAで単純ながら、密ですゲームみたいなものを作ってみました。

ボタンを2つ作ります。
１つ目のボタンは「密です!!」、2つ目のボタンは「ソーシャルディスタンス」です。
ボタンを押したらプログラムが動くようにします。

先に、これからコーディングするプログラムの実行結果の画面を掲載します。
ボタン「密です！！」を押すと、

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

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

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

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

●「密です！！」ボタン
Range(“A1:K11”) = “人”で、セルA1からK11までの全てのセルに、「人」という文字を入れます。

●「ソーシャルディスタンス」ボタン
一旦シートを、Cells.Clear でクリアをしてから、Range(“A1”).Select で、ホームポジションのA1を選択して、この位置を基準をして、2行2列置きに「人」を入れて間隔を保ちます。

カウンタ変数の行をi、列をjにします。
（ここで、カウンタ変数って何？ループまだちょっと自信がないよ！と言う方は前回の記事の、はじめてのFor Nextループ をご覧下さい）

カウンタ変数iは外側のループで行（縦）を操作、jは内側のループで列（横）を操作します。

外側のループを固定して、内側のForループでjを2つずつ増やし、内側のループを抜けてから外側のループでiを2つずつ増やします。

コードは以下のようになります。

● ボタン「密です!!」に登録するコード

Sub 密です()
 
'セルA1からK11まで「人」で埋めつくして密にする
Range("A1:K11") = "人"

End Sub

● ボタン「ソーシャルディスタンス」に登録するコード

Sub ソーシャルディスタンス()

' カウンタ変数iとjを宣言する
Dim i As Integer, j As Integer

' シートをクリアする
 Cells.Clear

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

'外側のループでiを0から10まで2ずつ増やす
For i = 0 To 10 Step 2

    '内側のループでjを0から10まで2ずつ増やす
    For j = 0 To 10 Step 2
    
     'セルA1を基準として、下にi、右にj分移動したセルをアクティブにして「人」と言う字を入れる
      ActiveCell.Offset(i, j).Value = "人"
      
     '内側のループjを進める
     Next j
     
' 外側のループiを進める
Next i

End Sub

コードが書けたらボタンを作成します。
ボタンは、開発タブから作れます。

Windowsの場合は開発タブは、任意のタブを右クリックして「リボンのユーザー設定」の右側のメニューからチェックで表示できます。

または、ファイル → オプション → リボンのカスタマイズ → リボンの設定から表示する方法もあります。

Macの場合は、Excel → 環境設定 → 表示 → 一番下あたりの開発タブにチェックを入れます。

以下の様に感じにシートを用意して、ボタンを2つ作ります。

iとjの挙動が分かり辛い場合は、外側のループのiをコメントアウトして、i=0で固定して、内側のループのみ動かしてみると少し分かりやすくなるかも知れません。

 'i= 0で固定して内側のループのみを動かす

Sub ソーシャルディスタンス()

' カウンタ変数iとjを宣言する
 Dim i As Integer, j As Integer


' シートをクリアする
Cells.Clear


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


'外側のループでiを0から10まで2ずつ増やす
'For i = 0 To 10 Step 2  ←コメントアウト

    '内側のループでjを0から10まで2ずつ増やす
    For j = 0 To 10 Step 2
    
     'セルA1を基準として、下にi、右にj分移動したセルをアクティブにして「人」と言う字を入れる
     ActiveCell.Offset(0, j).Value = "人" ' ← iを0にする
     
     '内側のループjを進める
     Next j
     
' 外側のループiを進める
'Next i  ←コメントアウト

End Sub

すると、(i,j)は(0,0)、(0,2)、(0,4)・・・(0,10)とセルを移動するので、この様な実行結果になります。