過去ログ

                                Page     836
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
   通常モードに戻る  ┃  INDEX  ┃  ≪前へ  │  次へ≫   
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
 ▼コントロール  晴香 03/3/6(木) 10:21
   ┣Re:コントロール  つん 03/3/6(木) 10:57
   ┗つんさんありがとう!!  晴香 03/3/6(木) 11:14

 ───────────────────────────────────────
 ■題名 : コントロール
 ■名前 : 晴香
 ■日付 : 03/3/6(木) 10:21
 -------------------------------------------------------------------------
   excelのシート上にボタンやチェックボックスを作って
動かしています。VBのようにTabキーでフォーカスを
遷移するように(マウスを使わないで操作できるように)したいのですが、
どのようにしたらいいのでしょうか?
 ───────────────────────────────────────  ■題名 : Re:コントロール  ■名前 : つん <honey@sweetparty.ne.jp>  ■日付 : 03/3/6(木) 10:57  -------------------------------------------------------------------------
   晴香 さん、おはようございます。

>excelのシート上にボタンやチェックボックスを作って
>動かしています。VBのようにTabキーでフォーカスを
>遷移するように(マウスを使わないで操作できるように)したいのですが、
>どのようにしたらいいのでしょうか?

こうかな?
試してみてね。

Private Sub CheckBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

  If KeyCode = vbKeyTab Then
    CheckBox2.Activate
  End If
  
End Sub

Private Sub CheckBox2_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

  If KeyCode = vbKeyTab Then
    CheckBox1.Activate
  End If
  
End Sub
 ───────────────────────────────────────  ■題名 : つんさんありがとう!!  ■名前 : 晴香  ■日付 : 03/3/6(木) 11:14  -------------------------------------------------------------------------
   おはようございます。

つんさんの案を採用させていただきます。
また困ったときはヨロシクね♪
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━    通常モードに戻る  ┃  INDEX  ┃  ≪前へ  │  次へ≫    ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━                                 Page 836