名前が表示させているコマンドボタンを1回押すと「出席」、もう1回押すと「欠席」、さらに1回押すと再び名前表示するようにコマンドボタンのキャプションを変更させたいと思ったことありませんか？

この場合、IFステートメントを3回繰り返して使用することで簡単にできるのでVBAコードをご紹介します。

クリック毎に表示名を変更する

コマンドボタンのキャプションが、もし「名前」だったらキャプションを「出席」に、そうではなく「出席」だったらキャプションを「欠席」に、さらに「欠席」だったら「名前」にするという文章になります。

これをそのままVBAコードで書くだけですが、コマンドボタンのプロパティ内のCapition名も最初に表示したい名前にする必要があります。

ここでは「とりっぷぼうる」とします。

キャプション名を直接記載する方法

コマンドボタンのキャプション名をVBAコード内に””で挟んで直接記載する方法です。

これで、コマンドボタンをクリックするたびにキャプション名が順番に表示されます。

キャプション名をセルとリンクさせる方法

ここでは仮に10個のコマンドボタンが必要でも「出席」「欠席」は共通で、メンバーが変わる可能性があるという前提で、メンバーをセルの値にリンクさせます。

これにより、コマンドボタンのプロパティを最初に設定も不要になり、メンバー表のリストが変わると自動的に「メンバー名」キャプションが変更されるようにしますので、実用的ですよ。

メインバーの名前はセルA1に記載されているメンバーの名前を「とりっぷぼうる」の代わりに設定します。

”とりっぷぼうる”と記載していたVBAコードの部分が、セル1A1を指定するように書き換えただけです。

もちろんシート名を指定していないので、セルA1に名前が書いてあるシート上でユーザーフォームが開くことを前提にしています。

関連記事

ユーザーフォームに配置したコマンドボタンに表示されるキャプションは「文字」なのですが、複数のボタンが並んでいる時は「文字」ではなく「画像」で表示させたいと思ったことありませんか？

JPEG画像・BMPファイルなどを用意すれば、意外と簡単にコマンドボタンの文字の部分を画像にすることができますので、設定方法をご紹介いたします。

Picture設定で画像選択

コマンドボタンに画像を設定する方法は2つあり、プロパティ設定で済ませる方法とVBAコードを記述して設定する2つの方法があります。

プロパティで画像設定

何かしらの条件によってコマンドボタンに設定した画像を変更させるような事が無く、常時表示させるならばVBAコードを記述しなくてもプロパティから設定することができますので、とても簡単です。

画像変更・消去

ちなみにプロパティで設定した画像を変更するならば、上記の手順で再度行えば画像変更はできます。

また、設定済みの画像を消去して、元の文字（キャプション）にするには、画像設定により表示された「ビットマップ」にカーソルを合わせてクリックしてから、「delete」キーを押せば画像消去できます。

VBAコードで画像設定

LoadPicture関数を使う事により、ユーザーフォームを開いた時に自動的にコマンドボタンの文字を画像に変更したり、コマンドボタンをクリックしたら画像に切り替わるように設定することができます。

ここで少しややこしいのが、画像ファイル名を正確に記述しなくてはいけない事です。

画像ファイル名が「train.jpg」なのですが、これだけではマクロエラーになりますので、どこのドライブのどこのファイルに保存されている「train.jpg」ファイルまで必要になります。

画像ファイル名の調べ方

それほど難しくはなく正確なファイル名もコピペできるので簡単です。

関連記事

エクセルで作業効率化の為に作ったオリジナルの入力フォーム（ユーザーフォーム）に配置したコマンドボタンの表示名を1行表示ではなく、改行して2行表示にしたいと思ったことありませんか？

Excel-VBAでの初期設定では1行で、文字の間にカーソルを置いてEnterキーを押しても改行できませんが、プロパティからでもなくVBAコードを記載すれば、簡単に2行表示できますので改行方法ご紹介いたします。

コマンドボタンのキャプション改行

エクセルVBAでよく使われる基本的な改行コードの「vbCrLf」（キャリッジリターン）を使うことで、改行してカーソルを文頭へ移動することができるようになっています。

ここでは、ユーザーフォームを開いたらコマンドボタンのキャプションが２行表示させるVBAコードや、コマンドボタンをクリックしたら２行表示に切り替わるVBAコードです。

ユーザーフォーム表示時に改行表示

初期設定ではコマンドボタンの文字（キャプション）は、１行表示になっています。

ユーザーフォームが開く直前に処理を実行することができるUserForm_Initializeに、コマンドボタンのキャプションを１行目に「どこかに」２行目に「ビューーン！」と、２行表示させるVBAコードを書くと、下記のようになります。

ちなみに「UserForm_Initialize」の使い方を詳しく知りたい方は、下記を参照してくださいね。

コマンドボタンをクリックしたら２行表示

次に、コマンドボタンをクリックすると2行表示になり、もう1回クリックすると元の1行表示にさせるVBAコードです。

関連記事

ワークシート上にある罫線やリボンなど7つの項目を表示したり非表示することができる切替ボタンがあったら便利だと思いませんか？

不要な項目をワンクリックで切り替えられると便利な方法をまとめてご紹介いたします。

ワークシートの構成要素

ワークシートには下記のように画面構成されて、７つの要素を消すことにより無駄なスペースが無くなるので表示可能エリアが広がり、見栄えもスッキリしますよ。

行番号・列番号

エクセル画面の左側にある1.2.3・・・と縦に続く行番号、上部にあるA.B.C・・・と横に続く列番号が表示されています。

この表示が無ければ、1行・1列づつですが、表示できる範囲が広がるのと見た目がスッキリするので非表示するのもひとつの方法です。

セルの枠線（グリッド線）

エクセルの各セルには縦横枠になっているグリッド線が表示されています。

表を作成して罫線が必要ならば、自分自身で使えばいいので、見た目スッキリさせるには必要ない線なので消してしまいましょう。

水平・垂直スクロールバー

エクセル画面の右下にある左右にセルの移動ができるのが水平スクロールバーで、右端にある上下にセルの移動ができるのが、垂直スクロールバーとなっています。

スクロールバーを使えば自由に表示範囲外のセルに簡単に移動できるのですが、マクロを組んでいると勝手に移動させたくない時があるので、非表示にしてしまえば解決できます。

シートの見出し

エクセル画面の一番下にSheet1、Sheet2・・・とシートが記載されています。

シート名をクリックすれば別シートに移動できますが、勝手に移動させたくない場合がマクロを組んでいるとありますよね。

そんな時はシート非表示にしてしまえば、勝手に移動できなくなりますよ。

数式バー

エクセル画面のリボンツールバーとワークシートの間にある隙間で、セルに入力されている数式や値を表示しています。

意地悪をして苦労して組み合わせた数式を見せたくないときなんかには、非表示にして隠してしまいましょう。

ステータスバー

エクセル画面の一番下にシート名や水平スクロールバーが表示されている部分で、シート名もスクロールバーも非表示にしたならば、ステータスバー自体も不要になるので、非表示にしてしまいましょう。

リボンツールバー

エクセルの画面上部にある見慣れた基本操作パネルみたいなもので、リボンツールバーが表示されていないと、保存も文字の大きさ変更などの基本操作すらできなくなってしまいます。

ユーザーフォームでの操作に限定させたり、各種配置したボタンなどからだけの操作に限定させたい場合などにはとても有効です。

非表示・表示を繰り返すマクロ

ここでは、ワークシート上に配置したボタンに7つの要素を非表示・表示を繰り返し切り替えてくれるVBAコードを書いています。

このように全てのエクセル要素が非表示になり画面スッキリ、表示エリア拡張できました。

関連記事

ユーザーフォームに配置したコマンドボタンの文字色を条件に応じて変更したいと思いませんか？

Excel-VBAのForeColorプロパティとStaticステートメントを使うことで、コマンドボタンをクリックするたびに黒色文字と赤色文字が交互に表示できるようになります。

ForeColorプロパティ

エクセルに標準機能として用意されているVBA「ForeColorプロパティ」は、RGBの色番号を指定することで文字色を変更することができます。

文字色変更するVBAコード

まず基本となるユーザーフォームに配置したコマンドボタン1をクリックすると文字色を初期設定の「黒色」から「赤色」に変更するだけならば、下記のようにVBAコードを記述すれば簡単にできます。

IFステートメント追加で戻せるようにする

それでは、次に黒色文字の時にクリックすると赤色文字になり、赤色文字の時は黒色文字に変更できるようにするには、条件分岐のIFステートメントを追加します。

このようなVBAコードを記述すると、コマンドボタンをクリックするたびに文字色が黒色と赤色を繰り返し表示されるようになります。

Staticステートメント

マイクロソフトのサイトを見るとこのように記載されています。

プロシージャ レベルで変数を宣言し、ストレージ領域を割り当てるために使用します。 Static ステートメントで宣言された変数は、コードが実行されている間はその値を保持します。

マイクロソフト公式サイトより引用

難しいことが書いてありますが、簡略すると・・・

好きな名前で変数を宣言（ここではonoff）してEnd Ifまでは、状態が有効になっているので、文字色が今何色なのかを見続けることができています。

そして真偽を判定でき「Boolean (ブール型変数)」を使う事で、黒色の場合・赤色の場合と判定ができるようになります。

そして最後に「変数」＝Not「変数」でスイッチのように入り切りできるようになるので、黒文字と赤文字がクリック毎に切り替わるようになります。

関連記事

ホームページのURLアドレスをユーザーフォームのコマンドボタンに登録して、クリックすると指定したホームページが別ウィンドウで開くようにしたいと思ったことありませんか？

Followメソッドを使えば簡単に設定できるので登録方法をご紹介します。

Followメソッドを使う

Followメソッドは、指定したハイパーリンクを実行させるためのもので、ホームページなどのアドレスURLをコマンドボタンに指定すれば、任意のサイトを開くことができます。

ここでは、ユーザーフォームに配置したコマンドボタン1に”エクセルの目次ページ”を表示させるVBAコードです。

関連記事

ユーザーフォームに複数配置したコマンドボタンの名前を1個ずつ書くのは意外と面倒なので、セルの値から自動的に取得して書き換えができたら便利だと思いませんか？

エクセルVBAの繰り返し処理For～Nextを使うと簡単に書き換え処理ができるので時短にもつながるのでご紹介します。

セルA1～A40の値コマンドボタン１～40に表示

ここでご紹介する例としては、ユーザーフォーム配置した40個のコマンドボタンは、クリックすると指定したシートのセル番地へジャンプするようにしています。

上の図のようにコマンドボタンを配置しただけなので、当然ながら表示名（キャプション）はCommandButton1～40になっていますので、どのボタンを押したらどこへジャンプするか分からない状態になっています。

この表示名を1個ずつ書くのは面倒なので、セルの値を自動的に取得してからユーザーフォームを表示するようにVBAコードを書くと、常にセルの値に連動するので便利ですよ。

ここではセルA1～A40に記載されている値を、コマンドボタン1～40に記載してからユーザーフォームを開くVBAコードをご紹介します。

これでコマンドボタン40個の名前がフォームが開くと同時に自動的に取得して表示されるようになります。

関連記事