カテゴリー: Microsoft Office

新型コロナが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)とセルを移動するので、この様な実行結果になります。

また、iを2にすると、
(i,j)は、(2,0)、(2,2)、(2,4)・・・(2,10)と移動するので、

この様になります。

二重ループは慣れるまでちょっと時間がかかりましたので、私は外側のループをコメントアウトして固定をしてみた所、だいぶ解きほぐれて来ました。

二重ループに悩まれていらっしゃる方の一助になりましたら幸いでございます。

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

立川市の国営昭和記念公園で撮影した小ぶりのひまわり、サンフィニティです。

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

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

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

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

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

自己紹介


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

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

MOSなどの資格試験対策

この記事では、VBAの二重ループを使って、東京観光が味わえる様なコードを掲載しております。

ちょっと、ループが心配だという方は先に
05 はじめてのFor Nextループ（ループは1つのみ）
06 二重ループでソーシャルディスタンス（二重ループがはじめての方向け）
をご覧頂けますと幸いでございます。

では早速、二重ループを使って、「スカイツリー ・ お台場 ・ 新宿都庁 ・ 水元公園」の観光をご案内致します!!

この上記の４箇所の「観光地」が、「外側のループ」で変数iを使います。

内側のループでは、「写真を撮る・帰宅する・SNSにアップする」と、「やること」を変数jで使います。

つまり、

観光地を外側のループで「スカイツリー」で固定して、内側のループで「写真を撮る」・「帰宅する」・「SNSにアップする」の3つ「やること」を行って、内側のループを抜けます。

次に、外側のループで観光地を「お台場」に固定して、「写真を撮る」・「帰宅する」・「SNSにアップする」の、3つ「やること」を行って、内側のループを抜けて、次の場所の「新宿都庁」に移動して、最後に「水元公園」まで繰り返します。

以上で、4×3で12の観光旅行の工程を楽しみます！！

「観光地」を外側ループのカウンタ変数 i、 「やること」を内側ループのカウンタ変数 jにして、ループをぐるぐる回して東京観光を楽しむイメージです。

この東京観光の二重ループのイメージを表にすると、

この様な表にまとまりました。
この表は、シート「東京観光」に作成しました。
では下記のコードで、同じシート「東京観光」の表の右１つ開けて、セルD1に出力します。

※ 先にシート「東京観光」を作成してから実行して下さい。

セルの値を利用するので、観光地のiは1から12まで3つ飛ばしで増やし、やることのjは1から3の1つずつ増やします。
（「やること」の、「写真を撮る」・「帰宅する」・「SNSにアップする」は、内容が同じなので、最初の「スカイツリー」の右の値である2行目、3行目、4行目を使います。）

まず、観光地「スカイツリー」はセルA2です。
Cellsで表わすと、セルA2はCells(2,1)になります。
Cellsは（行 , 列）と表記するので、（タテ , ヨコ）です。
外側の変数は「i」なので、i=1の時、Cells(i+1,1)になります。

内側の最初のやることは、「写真を撮る」で、 これはセルB2です。
このセルB2はCells(2,2）なので、j=1の時はCells（j+1,2)でCells(2,2)になります。
「観光地」と「やること」を「＆」で結合しています。

それでは、内側をjを1～3まで回わすので、次はj=2です。
「帰宅する」はセルB3なのでCellsでは(3,2)です。
j=2で、Cells（j+1,2)は、Cell(3,2)になります。

その次はj=3で、「SNSにアップする」はセルB4なのでCellsでは(4,2)です。
Cells(j+1,2)は Cells(4,2)になります。

内側ループの最後は「SNSにアップした」なので、jが3まで行ったら内側のループを抜けて、外側の場所を「お台場」に移動します。

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

このプログラムを動かして出力する側の最初のセルD1は、黄色い所です。
これを1つずつ下に下げていきます。ActiveCell.Offset(1,0).Selectで、
Offsetを使って、相対的に移動します。

場所が「スカイツリー」から「お台場」に移動する時、1つ行を空けます。
その部分はIF文を使っていますね。
これは外側の変数が最後の「スカイツリー」〜「都庁」の時だけ、下に1行空けるように移動するといった、調整しています。

スカイツリーの時のiの値は1、お台場では4、都庁では7、水元公園では10になります。

最後の観光地の水元公園の時にi=10になるので、「それ以外の時には」次の場所に移る前に空白行を空けたいので、1行下に移動します。

これは、言葉で伝えるとややこしいので、コメントアウトしてみたり、実際にコーディングして、 感覚的にあ～、なるほどって感じで感覚を掴んで行きます。

VBAのコードはこちらです。

Sub 二重ループで東京観光()

'ループのカウンタ変数iとjを宣言
 Dim i As Integer, j As Integer
 

'シート「東京観光」をアクティブにする
Worksheets("東京観光").Activate


'表の右1つ開けてセルD1をアクティブにする
Range("D1").Activate


 '外側のループのカウンタ変数iで「観光地」を表す
  For i = 1 To 10 Step 3
  
  
    '内側のループのカウンタ変数jで「やること」を表す
    For j = 1 To 3
    
    
    'アクティブセルに「観光地」と「やること」を出力する
     ActiveCell.Value = Cells(i + 1, 1).Value & Cells(j + 1, 2).Value
     
     
     
   'セルを1つ下に移動する
    ActiveCell.Offset(1, 0).Select


     '内側ループを進める
    Next j


 '内側ループを抜けて外側ループに入る
 'もしもi<10場合は、次の観光地に移る前に1行空ける
 If i < 10 Then
 ActiveCell.Offset(1, 0).Select
 End If
 
'外側ループを進める
 Next i
 
End Sub

実行結果です。

このように、次の場所に移る際に1行空けていますね。
これは先ほどのIF文の所をコメントアウトすると、

このように、ちょっと見辛い出力結果になってしまいました。
プログラミング学習で、「これはどういう処理なんだろう・・・？」と疑問に思ったことは、コメントアウトしてみて出力結果から思考すると、プログラミング学習が一層楽しめると思います。

このコードとは話が逸れますが、プログラミング学習よりも大事なことをお伝えします！！

SNSに写真をアップするのは、「帰宅後・事後報告」でお願いします。
外出中にアップすると、「あの家、留守だ！！」と思われて、「特定屋」といった人達に特定されて、ご自宅が危険になってしまう恐れもあります。

そのため、このプログラムの内ループでも、「 写真を撮る → 帰宅する → SNSにアップする」という流れに致しました。

皆さまが（私も）安心安全にプログラミング学習を進められることを願っております。

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

このプログラムに登場した観光地です。

● スカイツリー（2022年11月、浅草から撮影したスカイツリーのライトアップは「粋」です。）

● お台場（2022年12月、お台場海浜公園から冬のレインボー花火大会を撮影しました。）

●新宿都庁（2019年4月、世界自閉症デーのライトアップ）

● 水元公園（2018年GWに新緑のグリーンエクササイズを楽しみました。）

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

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

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

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

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

自己紹介


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

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

MOSなどの資格試験対策

この記事ではVBAでSelect Case文を学習します。
この文法を「エレベーター」を使って学習したことが、私には分かりやすかったです。

このSelect Caseでは条件分岐を行います。
イメージとして、あなたがエレベーターに乗っている所を想像して見て下さい。

押したボタンによって、止まる階が変わりますよね。
ですので、エレベーターはまさに「リアルSelect Case」なんです!!

電車を降りて駅の改札を出て、駅ビルに入りました。
ここは地下1階です。

話を簡単にする為に、この駅ビルは地下と地上1〜4階までのシンプルな駅ビルにします。

図で表すとこんな感じです。

文字でも図に合わせて書きます。

４ 4階：レストラン街
３ 3階：文房具店
２ 2階：洋服屋
１ 1階：パン屋
現在あなたは「地下・改札」にいます。

では、早速コードを見ていきます。

ボックス内の改行は「vbCrLf」を使い、「&」で結合します。
コードを改行する時は「_ (アンダーバー)」を使います。

Sub エレベーターで掴むSelectCase()

 ' 数値型の変数フロアを宣言
 Dim フロア As Integer

 'インプットボックスを使って降りる階を表示
 フロア = InputBox("1：1階のパン屋" _
 & vbCrLf & "2：2階の洋服屋" _
 & vbCrLf & "3：3階の文具店" _
 & vbCrLf & "4：4階のレストラン街", "何階で降りますか？")


'Select文を開始
 Select Case フロア

 '1階
 Case 1:
 MsgBox "1階に到着しました" _
 & vbCrLf & "「パン屋だ！！美味しそう！！」"


 '2階
 Case 2:
 MsgBox "2階に到着しました" _
 & vbCrLf & "「洋服屋だ！！良いジャケットあるかな♪」"


'3階
 Case 3:
 MsgBox "3階に到着しました" _
 & vbCrLf & "「ボールペンあるかな。」"


'4階
 Case 4:
 MsgBox "4階に到着しました" _
 & vbCrLf & "「広島風お好み焼き食べたい!!」"

'範囲外の場合
 Case Else
 MsgBox "スタッフオンリー です。1〜4を入力して下さい。"
 
 'Select文の終了
End Select

End Sub

1～4を入力すると、エレベーターであなたが行きたい階で止まります。
例えば、「4」を押すと、レストラン街に到着します。

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

これでエレベーターのスイッチで４階を押せました。

4階に到着すると、広島風お好み焼きが食べられるみたいです。

では、範囲外の「9」を入力してみます。

と、Elseの場合も処理されました。

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

目白庭園の紅葉です。

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

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

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

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

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

自己紹介


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

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

MOSなどの資格試験対策

配列ってなんだか難しそうな感じですよね。
でも、きっと大丈夫です!!

この記事では国民的アニメの「サザエさん」を使って、VBAの配列を勉強して行きます。

サザエさんのメインキャラを、「サザエ一家」と言う 配列に格納して、デバックプリントを使って、イミディエイトウィンドウに書き出して（出力して）行きます。

Excel側でシート「国民的アニメ」を用意して、表の中のキャラクター名を
配列「サザエ一家」に格納します。

配列は、

サザエ一家[0]=磯野波平
サザエ一家[1]=磯野フネ
サザエ一家[2]=フグ田マスオ
サザエ一家[3]=フグ田サザエ
サザエ一家[4]=磯野カツオ
サザエ一家[5]=磯野ワカメ
サザエ一家[6]=フグ田タラオ

です。

この様に配列は「0から」始まります。
この0から始まる部屋番号みたいなものを、添え字といいます。

では、下記のコードで実際に「波平さん(=0) ～ タラちゃん(=6)」までの名前を配列「サザエ一家」に格納して、それをイミディエイトウィンドウに出力します。

Sub 配列1()

'文字列型の配列「サザエ一家(6)」と、添え字の変数i（数値型）を定義
    Dim サザエ一家(6) As String, i As Integer
 
'ループでiを0から6まで配列の長さ分指定する
     For i = 0 To 6

'ExcelのセルB3の磯野波平から順番に配列「サザエ一家」に格納する
       サザエ一家(i) = Worksheets("国民的アニメ").Cells(3 + i, 2).Value

'デバックプリントに配列「サザエ一家」を出力する
       Debug.Print サザエ一家(i)

'配列の添え字iを進める
   Next i

End Sub

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

では次に、サザエさん一家の中から代表して、「磯野波平」さんに一家のメンバーカラーを割り当ててみましょう。

メンバーカラーも、配列を使います。
配列名を「メンバーカラー」とします。

配列メンバーカラーの型は、Variant（バリアント型）という何でも入る型を使います。
このVariant型は、段ボール箱に四次元ポケットの機能を付けたようなイメージです。

ここでも、配列は0から始まります。

インプットボックスに0から4までの数字を入力して、波平さんにメンバーカラーを割り当てます。

「配列メンバーカラー」は

メンバーカラー[0]=赤
メンバーカラー[1]=青
メンバーカラー[2]=黄
メンバーカラー[3]=緑
メンバーカラー[4]=紫

としました。

ここでは波平さんに4番の「紫」のメンカラを割り当てます。

出力結果です。

コードです。
配列はArrayを使って作成します。

Sub 配列2()

'Variant型の配列「メンバーカラー」と、数値型の「番号」を宣言
    Dim メンバーカラー As Variant, 番号 As Integer

'配列メンバーカラーの色を「赤、青、黄、緑、紫」とする
      メンバーカラー = Array("赤", "青", "黄", "緑", "紫")

'インプットボックスを使って、メンバーカラーの番号を入力する
      番号 = InputBox("赤：0、青：1、 黄：2、緑：3、紫：4", "「磯野波平」氏にどのメンバーカラーを割り当てますか？")

'メッセージボックスに、「磯野波平氏」のメンバーカラーは「メンバーカラー(番号)ですと出力する
     MsgBox ("磯野波平氏のメンバーカラーは" & "「" & メンバーカラー(番号) & "」です☆★")

End Sub

皆様お気付きの通り、サザエさん一家に大事なキャラクターの「タマ」がいません！
そこで先ほどの配列「サザエさん一家」を自動で範囲の拡張をさせます。

新たに、配列「サザエ一家」に「タマ」も追加したい時、配列に自動的に追加出来るようなコードを書いて行きます。

行の「上端」と、「下端」と、「配列の最後（この場合は[7]）」を、このExcelの全ての行を使って用意します。

このExcelの表を下にず〜〜〜〜とスクロールして、スクロールして、更に下に行くと、とてつもなく大きい数の行数があります。

数えきれないので、下記のVBAのコードでは
「このExcelの全ての行数 = ActiveSheet.Rows.Count」
と掲載します。

一番下である「このExcelの全ての行数」から上に向かって最初にぶつかるのが、
「タマ」の行です。
ここでは10行目で、変数「下端」に代入します。

変数「上端」は、B1から最初にぶつかるのが、「サザエ一家」という見出しで2行目です。

一家の行数は全部で8行で、配列は0から始まって7で終わります。
10行目から見出しの2行目を引いた数が行数として8行と求まります。
配列の最後の添え字は7なので、そこから1を引いています。

下記のコードで、LBoundは配列「サザエ一家」の一番小さい番号で[0]、
UBoundは一番大きい番号で[7]です。

Sub 配列3()

'文字列型の配列「サザエ一家」、ループの添え字数値型「i」、Long型の「上端」、Long型の「下端」、Long型の「配列の要素数」、Long型の「このExcelの全ての行数」を宣言

    Dim サザエ一家() As String, i As Long, 上端 As Long, _
       下端 As Long, 配列の要素数 As Long, このExcelの全ての行数 As Long

'ワークシート「国民的アニメ」をアクティブにする
       Worksheets("国民的アニメ").Activate

'このExcelの全ての行数をActiveSheet.Rows.Countを使って求める
      このExcelの全ての行数 = ActiveSheet.Rows.Count

'「上端」をセルB1、1行目2列目から下に向かって求める
      上端 = Cells(1, 2).End(xlDown).Row

'「下端」を行が「このExcelの全ての行数」で、列がB列（2列目）から上に上がって求める
      下端 = Cells(このExcelの全ての行数, 2).End(xlUp).Row

'「配列の要素数」の[7]を下端(10)-上端(2)-1から求める
      配列の要素数 = 下端 - 上端 - 1

'ReDimを使って、新たに配列を出力
       ReDim サザエ一家(配列の要素数)

'Forループで配列の最初（LBound)から配列の最後(UBound)までを添え字iに代入
          For i = LBound(サザエ一家) To UBound(サザエ一家)

      '配列「サザエ一家」に、Excelのシート「国民的アニメ」のセルB3からB7までを格納
             サザエ一家(i) = Worksheets("国民的アニメ").Cells(上端 + i + 1, 2).Value

'デバックプリントを使って、イミディエイトウィンドウに配列サザエ一家[i]を出力
          Debug.Print サザエ一家(i)

'ループを進める
         Next i

End Sub

実行すると、無事に自動で「タマ」も出力されました。

お疲れ様でした。

ここでサザエさんTipsですが、サザエさんは「あわび女子学園大学」を卒業されています。
参考記事：サザエさんの登場人物の学歴がヤバい…卒業した大学や就職先を公開

サザエさんのBGMが聴きたい方は、こちらの動画がオススメです。
この記事を書き終わって、私も思わず聴きに行きました。

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

いたばし花火大会2023の「にこちゃんマーク」の花火です。
「♪はだしで かけてく、陽気なサザエさん」 に合いそうな写真だと、個人的に思います。

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

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

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

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

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

自己紹介


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

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

MOSなどの資格試験対策