テキストボックスをマウスクリック時に全選択状態にする。 Posted on 2012年2月15日2012年2月18日 by スナフ クリック時のイベントで以下のように記述。 Private Sub テキスト0_Click() With Screen.ActiveControl .SelStart = 0 .SelLength = Len(.Text) End With End Sub