目次
VBA初心者必見!ユーザーフォームにセルのアドレスを渡す方法
こんにちは!大阪市住之江区に拠点を置く会社『縁紡ぐ』の稲垣です。
当社は、Excel、ACCESS、RPAなどのシステム開発や既存ツールを使った業務効率化の提案、また、ITスキルアップのための教育に力を入れています。効率的なビジネス運営を目指している企業様、ITスキルの向上を図りたい企業や個人の方に、最適なご提案をさせていただきます。業務プロセスの改善とITスキルアップをサポートし、共に成長するパートナーでありたいと考えています。
VBA(Visual Basic for Applications)を使って、Excelの操作を自動化する方法を学びましょう。特に、ユーザーフォームにセルのアドレスを渡す技術は、データ管理を効率化するために非常に役立ちます。
ユーザーフォームにセルのアドレスを渡す方法
ユーザーフォームを作成し以下のコードを記載します。
Private pCellAddress As String
Public Property Let CellAddress(ByVal Address As String)
pCellAddress = Address
Me.TextBox1.Value = pCellAddress ' TextBox1はフォームに追加したテキストボックスの名前
End Property
ユーザーフォームにはテキストボックスをひとつ置いています。
シートモジュールのコード
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim myForm As UserForm1
Set myForm = New UserForm1
myForm.CellAddress = Target.Address
myForm.Show
End Sub
ポイントは、ユーザーフォームをShowで表示する前に、インスタンス化してメンバー変数の pCellAddress に値を設定しておくことです。
実行結果
テキストボックスに、セルのアドレスが表示されました😊
まとめ
VBAを使ってユーザーフォームにセルのアドレスを渡す方法を学びました。このスキルを使って、Excelの操作をさらに効率化しましょう。ぜひ他のVBA機能も試してみてください。
記事を書いた人
稲垣
- Excel、ACCESSでのシステム開発が得意
- ITスキルを共有し実践的に学びながら成長する人を見るのが幸せ
- 自家焙煎するほどのコーヒー好き
- 使用言語 VBA、Python、Javascript、Java、HTML、CSS etc.
- 保有資格 Kintoneアソシエイト、日商簿記検定2級、マンション管理士、管理業務主任者、情報セキュリティマネジメント、ExcelVBA etc.
- 業務フロー図の作成や業務時間分析を通して、効率化ポイントを探る人
- お客様にとって本当に良いことかを第一に考える人
コメント