hawk007回答ポイントなし

エクセルVBAマクロを教えてください。（エクセル2003使用です）

エクセルVBAマクロ

CheckBox1のチェックがOFFで値がfalseになった時、TEXTBOX１にカーソルが自動的に移動し、
そしてTEXTBOX１内のデータ（数値）をクリアして、データ入力待ち（0-9.）の状態になる。

数値入力後エンターキーを押すと、commandbox１上にカーソルが自動移動する。
数値入力せずにエンターキーを押すと、自動的に0.5が入力され、commandbox１上にカーソルが自動移動する。

CheckBox1のチェックがONで値かtureの時、TEXTBOX１は、入力不可。

と動作させたいと考えております。

ユーザフォーム上でのCheckBox1,TEXTBOX１,commandbox１ではなく、
エクセルのワークシート上にコントロールツールボックスからCheckBox1,TEXTBOX１,
commandbox１を貼り付けた状態です。

上述の動作をさせる為のエクセルVBAマクロを教えてください。（エクセル2003使用です）

ログインして回答する

ベストアンサー

うぃんど2011/11/25 13:58:55

どのタイミングで何をやりたいのかがわからなかったのでスルーしてたのですが、
キャンセルして質問文作り直しされたので、パズルがてらやってみました

Private Sub CheckBox1_Click()
    With TextBox1
        If CheckBox1 = True Then
            .Enabled = True: 'テキストボックスを有効化
            .Value = "": 'テキストボックスを空っぽに
            .BackColor = &HC0FFC0: '背景色を元の色に
            .Activate
        Else
            .Enabled = False: 'テキストボックスを無効化
            .BackColor = &HC0C0C0: '判りやすいように背景をグレーに
        End If
    End With
End Sub

Private Sub TextBox1_KeyPress(ByVal KeyCode As MSForms.ReturnInteger)
    ' 数値と小数点以外の文字は無効化するための処理
    If KeyCode >= 48 And KeyCode <= 57 Then
        ' 0-9
    ElseIf KeyCode = 46 And InStr(TextBox1.Value, ".") = 0 Then
        ' 小数点
    Else
        ' その他のキー
        KeyCode = 0
    End If
End Sub

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    ' Enterキーの判定はこちらで行う
    If KeyCode = 13 Then
        CommandButton1.Activate
    End If
End Sub

Private Sub CommandButton1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    MsgBox "CommandButton1が押されたよ" & vbCrLf & "値は[" & TextBox1.Value & "]だね"
End Sub

スター

1件のコメントを見る
うぃんど 2011/11/25 14:06:27

テストケースを投稿してしまったので、再投稿してます
人力検索上に表示されているものが最新です

 スター

エクセルVBAマクロを教えてください。（エクセル2003使用です）

ベストアンサー

うぃんど2011/11/25 13:58:55

うぃんど 2011/11/25 14:06:27

その他の回答

この質問へのコメント

この質問への反応（ブックマークコメント）

質問の情報

この質問のカテゴリ

この質問に含まれるキーワード

人気の質問

メニュー

PC版