小技集

トップ > 小技集 > 記事
小技集一覧へ
限定コンテンツ一覧へ



2025年10月10日【ID:0】

メンバー限定

【ExcelVBA】双方向の入力を実現する方法

※IT予備メンバーに加入して連携すると、
一部の広告が非表示になります。


以下の書類フォーマットは、書類の中に直接入力することも、書類の下の表に入力して書類の中に反映させることもできます。

※こちらで開発したファイルは、記事の最後にて配布しています。

このような、双方向からの入力を実現する方法について解説していきます。


1. 開発準備

今回は、予め指定したセルに値を入力すると同時に、そのセルに紐づいた別のセルにも同じ値を入力する仕組みを作っていきます。

そのように、該当するシートの特定のセルを編集すると同時に何かしらの処理を実行するには、「シートモジュール」「イベントプロシージャ」を活用します。
シートモジュールは、該当するシートのタブ上で右クリックし、[コードの表示]を選択することで表示することができます。

選択すると、以下のエディタ画面(VBE)が表示されます。
また、該当するシートのシートモジュールが表示された状態になります。
「Option Explicit」は、VBEの設定内容次第では表示されません。「Option Explicit」についての解説はこちらでは省略します。

次に、該当するシートのセルを編集すると同時に処理が実行される特殊なプロシージャ(イベントプロシージャ)を用意する必要があります。
そのためには、シートモジュールの左上のリストから「Worksheet」を選択します。

「Worksheet」を選択すると、自動で「Worksheet_SelectionChange」というプロシージャが表示されます。
このプロシージャは、該当するシート上のいずれかのセルが選択されると同時に処理が実行されるイベントプロシージャになります。

ただ、今回使用するイベントプロシージャは、セルを編集すると同時に処理が実行されるものになります。
そのため、右上のリストから「Change」を選択します。

表示された「Worksheet_Change」というプロシージャを活用します。
「Worksheet_SelectionChange」というプロシージャに関しては削除して問題ないです。


2. コードの記述

以下のコードを記述します。


続きはIT予備メンバー限定です。

メンバー限定コンテンツになります。




IT予備メンバーページと連携することで内容を確認することができます。

メンバーとは


すでにメンバーの方は、
ログインして連携してから、こちらを更新すると閲覧できます。
※連携しても確認ができない場合は、少し時間を置いてご確認ください。

ログイン(新しいタブ)
※[ログイン]→[設定]→[IT予備-連携]で連携できます


パソコンで開く場合は、記事の最後に「リンクコピー」があるためご活用ください。

※IT予備メンバーに加入して連携すると、
一部の広告が非表示になります。


メンバー募集
ExcelVBA学習ロードマップ配布 ExcelVBA学習ロードマップ配布





リンクの共有はこちらから行えます。

  リンクコピー    X Facebook はてなブックマーク Pocket
トップ > 小技集 > 記事
小技集一覧へ
限定コンテンツ一覧へ


- 人気の記事 -



- メンバー限定 [一覧] -



サイト累計閲覧数

6690801

有料動画講座
(買い切り)

Excel完全制覇


ちょっとした機能 便利ツール
【小技集】

【Excel・Googleスプレッドシート】マウスで横方向へスクロール

【Excel】表の最終行を瞬時に選択

【ExcelVBA】完了タスクを非表示にして着手中タスクを上位表示する

【Excel】片方にしか存在しない値を見つける

【Excel】TRUEとFALSEを理解する

【Excel】リンク更新の警告が表示されないようにする

【Excel】「=」と「EXACT関数」の違いとは

【Excel】ピボットテーブルで集計値の大きい順にする

【Excel】セルを非表示にする際はグループ化

【Excel】BYROW(COL)関数でスピル非対応の関数を対応させる

【Excel】数値以外の連続した文字を入力

【Excel】指定したセル数までしか値を入力できない仕組み

【Excel】空白演算子でマトリックス表から値抽出

【Excel】海外資料を数式でサクッと翻訳

【Excel】FILTER関数で存在しない場合に好みのデータを表示

【Excel】リンク付きの目次を簡単に作成

【Excel】今日の日付の行を色付け

【Excel】FILTER関数で空白を空白のまま抽出する

【Excel】姓と名の間に半角スペースの入力を強制

【Excel】数式の引数に途中の行から最終行までを指定

【Excel】表から自動で請求書を作成する方法

【ExcelVBA】双方向の入力を実現する方法

【ExcelVBA】現在の日時を取得

【Excel】期限に応じた優先度を自動で表示させる

【ExcelVBA】マークされた行を削除する





一覧ページへ

トップ > 小技集 > 記事
小技集一覧へ
限定コンテンツ一覧へ