この記事では、VBAコードを使用してシングルクリックでテキストをポップアップする方法を学習します。

[.underline]＃例を挙げて理解しましょう：＃特定のセルをクリックしたときにテキストボックスのポップアップを表示するには、次の手順に従う必要があります。[開発者]タブをクリックします。[コード]グループから、[VisualBasic]を選択します

img1

Sheet1に次のコードを入力します

Private Sub Worksheet_SelectionChange（ByVal Target As Range）

Intersect（Target、Range（ “A1″））が何もない場合

ActiveSheet.Shapes.Range（Array（ “TextBox 1″））。Visible = False

その他

ActiveSheet.Shapes.Range（Array（ “TextBox 1″））。Visible = True

終了If

サブの終了

img2

SelectionChangeイベントにより、セルA1がクリックされるたびに、テキストボックスがポップアップ表示されます。以下のスナップショットを参照してください

img3

このようにして、他の人に自分の情報を正しく入力させることができます。