Softex Celware

ExcelVBA専門技術ブログ

中級者向けVBA課題 No.4 (ボタンからセル入力)

概要

今回は「実装出来たら便利!」って問題

第3回までより難易度をぐっと下げてみました。

 

↓課題内容

 

この実装が出来れば、キーボード入力ドロップダウンリストからの入力よりもさらに効率的に作業ができるようになる場面が出てきます。

実装のポイント

下記項目をクリアすれば同じようなものが作れます。

詳細はググるなり、今時なら生成AIに聞けば答えが出てくるので詳細の解説は行いません。

  • シート上のコマンドボタンを押すと、そのコマンドボタンのテキスト文字が選択セルへ入力される(コマンドボタンのプロパティから情報取得)
  • コマンドボタンに登録されるマクロは同じものとする。
  • 押されたコマンドボタンをマクロ内で特定が必要(Application.Callerを利用)
  • 入力される範囲は限定されるようにする(Intersect関数を利用)
  • 複数セルが選択されている場合はそのセル範囲全体に値入力(For~EachもしくはRangeオブジェクトのValueプロパティ)

コード

休、有、朝、昼、夜に登録されているマクロのコードのリンクです。

自分用の汎用プロシージャを流用しているため処理は冗長になっておりますが、実際に実装時に記述したのは「S_ボタンから入力」「Get__入力範囲」のみです。

S_ボタンから入力 · GitHub

 

頂いた回答

今回も回答をいただきました。毎度ありがとうございます!

 

前回課題

softex-celwear.hatenablog.com

次回課題

softex-celwear.hatenablog.com

PR

ExcelVBAでのツール開発を承っております。(対応実績350件以上 2023.8月)

お気軽にご相談ください。