ユーザーフォームに配置したラベルの文字をプロパティのキャプションで指定するのではなく、セルの値を取得して表示させたいことありませんか？

そしてさらに、2つのセルの値を足した合計値をラベル表示させられたら、もって便利ですよね。

単純な足し算・引き算・掛け算・割り算ならば、難しいことは全くないので基本となる加減乗除した値をラベルのキャプションに書き換えるVBAコードをご紹介します。

ラベル名＝セル番地　加減乗除　セル番地

ラベル名をセルの値の合計値で書き換えたいならば、単純に「セル番地」「加減乗除」「セル番地」で完成です。

ここでは、ユーザーフォームに配置したラベルをクリックすると計算したセルの値がラベルに表示されるようにします。

普段のエクセル関数と全く同じなのでとても簡単ですよ。

足し算

引き算

掛け算

割り算

関連記事

ユーザーフォームに配置したラベル（Label）を使う時は、テキストボックスなどと一緒に説明書きやタイトルに使う事が多いですが、ラベル名（キャプション）を検索結果やセルの値を取得して書き換えたいと思ったことありませんか？

そして2つの別々のセルの値を1つのラベルにまとめて表示させることもできたら便利だと思いませんか？

この方法は意外と簡単でセル番地の間に「＆」を入力するだけでできるようになるので、VBAコードをご紹介します。

セル番地や”名前”を「＆」で結合

ここでは、ラベル（label）のプロパティにあるキャプションを「登録者数」とすることで、ユーザーフォームが開くとラベル名が「登録者数」と当然表示されます。

そして、新規追加登録をする（コマンドボタンを押す）と自動的にラベル名が「登録者数＋セルの値＋名」で表示させるようにします。

これにより、今何名登録されているのかが分かるようになりますが、ここではラベルのキャプション取得に絞って記載します。

また、2つのセルの値を結合するならば（セルA2とセルB2の場合）下記のように「セル番地 ＆ セル番地」にするだけですよ！

関連記事

名前が表示させているコマンドボタンを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コードです。

関連記事

マクロを組み込んだエクセルを他のスタッフと共有して使っている時に、誤ってユーザーフォームに配置した「オプションボタン」を選択しないで次に進まれてしまい、意図しないエラーに遭遇したことありませんか？

このような押し忘れを防ぐ為には、選択漏れがあった場合にはメッセージを表示させて次に進めないようにすれば解決できますので、VBAコードをご紹介します。

IfステートメントとMsgBoxだけで解決

オプションボタンは2つ以上配置して、その中から1つを必ず選択する為のコントロールパーツです。

よく見かけるのは、性別などを選択する時に下記のように選べるようになっています。

オプションボタンの特徴は、上の図を参考にすると「男」を選択すると（True）もう一方の「女」は自動的に未選択状態（False）に設定されます。

これにより、グループ内にたくさんのオプションボタンがあっても1つしか選択できないようになっています。

オプションボタンの基本的な使い方については、内容が重複するので下記をご覧くださいませ。

オプションボタンのVBAコード

例えば上記のように支払方法を選択させるオプションボタンが8つ配置されていて、選択を忘れてしまった場合（全てのオプションボタンが選択されていない場合）の対処法として、メッセージを表示させて次に進めないようにする方法をご紹介します。

ここでは、選択されたオプションボタンの支払方法がセルA1に表記させるようにします。

と、このようになり「全てのオプションボタンが選択されていない場合のVBA対処法」とは、赤字で記載した2行があれば解決できるとても簡単な方法でした。

関連記事

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

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

ワークシートの構成要素

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

行番号・列番号

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

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

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

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

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

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

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

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

シートの見出し

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

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

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

数式バー

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

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

ステータスバー

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

リボンツールバー

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

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

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

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

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

関連記事

ユーザーフォームに配置したオプションボタンって住所録の性別選択などで使用していると思いますが、セルの値が「男」「女」を自動的に見つけてオプションボタンの状態が自動取得できたら、調べる手間が省けたらいいなあと思ったことありませんか？

ここでは、セルの値を自動取得してオプションボタンの状態を選択状態の「True」、未選択状態の「False」が反映させてユーザーフォームを表示できるようにする方法をご紹介します。

オプションボタンの状態をセルから自動取得

この方法は実は複雑なVBAコードを駆使するのではなく、意外とシンプルなVBAコードを書くだけで出来てしまうのです。

ここでは、オプションボタン1が「男」、オプションボタン2が「女」で設定しています。

関連記事

ユーザーフォームに配置したチェックボックスの使い方としては、基本的にチェックを入れたら指定したセルに文字や数字を記載するために使いますが、その逆の使い方でセルの値を読み取って自動的にチェックを入れることができないのかなと思ったことありませんか？

このような場合、チェックボックスのプロパティでは状況判断する設定は無いので、IFステートメントを使って表示させることが可能なので、ご紹介いたします。

基本的なチェックボックスの使い方については重複してしまうので、ここでは省略しますので下記を参考にしてください。

セルの値からチェックボックスの状態を取得しよう

IFステートメントで取得

下の図のようにセルA1に「DM」と入力されていたら、DM希望するチェックがある状態として（True）、空欄だったらDM不要ととしてチェックが無い状態として（False）とします。

そうすることにより、セルA1の値が【DM】となっていたらチェックを入れた状態にして、空欄だったらチェックを外すことができるので、セルの状態によってチェックボックスの状態を自在にコントロールできるようになります。

それでは、ユーザーフォームに配置したコマンドボタン1をクリックするとチェックボックス1がセルA1の状態を認識してチェックの有無ができるようなVBAコードをご紹介します。

もちろん、セルA1の値を消して空欄にしたらコマンドボタンを押してもチェックボックスには何も入りません。

関連記事

オリジナルの入力フォームを作ったのに、シート上の文字やセルの上に表示されているので位置を変えたいと思ったことありませんか？

初期設定の画面中央から好きな位置にプロパティを使って設定する方法をご紹介します。

StartUpPositionプロパティ

ユーザーフォームの表示初期設定は、画面中央に表示されるように設定されていますので、表示位置を変更したいユーザーフォームのプロパティから設定可能です。

まず、VBAProjectの中から表示位置を変更したいUserFormを選びます。

上の図ではUserForm1をクリックして表示してあります。

そして、ユーザーフォーム自体をクリックすると、プロパティが表示されますので、プロパティ内の「StartUpPosition」の設定値を変更するだけです。

設定方法

StartUpPositionの設定方法は簡単で、StartUpPositionの文字自体をクリックすると、右側に設定値0～３が選択できるようになります。

初期設定値は「１」です。

• 「０」手動
• 「１」エクセル画面中央
• 「２」ディスプレイ画面中央
• 「３」画面の左上

手動を選択したら、表示させる高さや横位置も自由に設定することができるので、この手動を選択することがほとんどです。

手動でユーザーフォームの表示位置を自由に設定

手動を選んだら高さと位置を設定しましょう。

これにより、自由にユーザーフォームを表示する位置を自分で決めることができ、ユーザーフォームごとに指定できるのでとても重宝しています。

表示高さの設定

StartUpPositionの2つ下の項目「Top」で表示高さの位置を指定できます。

「０」で入力すると画面の一番上に表示されます。また、画面サイズによりますが、200ぐらいで中央付近ですね。

表示横位置の設定

StartUpPositionの15個上の項目「Left」で左からの位置を指定できます。

「０」で入力すると画面の一番左端に表示されます。同じく画面サイズによりますが、350ぐらいが中央付近ですね。

関連記事