Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


74884 / 76732 ←次へ | 前へ→

【6301】今ごろ書いても見ないと思うけど...。
回答  Jaka  - 03/6/23(月) 9:43 -

引用なし
パスワード
   おはようございます。
結構手抜いて書いてます。
キー操作だけの事で考えました。
クラスとか使っていません。

フォームレイアウトが、こんな場合として書いてあります。

Label1   Label2   Label3
textBox1  textBox5  textBox9
textBox2  textBox6  textBox10
textBox3  textBox7  textBox11
textBox4  textBox8  textBox12
            CommandButton1


Private Sub TextBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
  If KeyCode = 9 Or KeyCode = 13 Or KeyCode = 38 Or KeyCode = 40 And Left(ActiveControl.Name, 4) = "Text" Then
    LabelFont 1
  End If
End Sub

Private Sub TextBox2_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
  If KeyCode = 9 Or KeyCode = 13 Or KeyCode = 38 Or KeyCode = 40 And Left(ActiveControl.Name, 4) = "Text" Then
    LabelFont 1
  End If
End Sub

Private Sub TextBox3_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
  If KeyCode = 9 Or KeyCode = 13 Or KeyCode = 38 Or KeyCode = 40 And Left(ActiveControl.Name, 4) = "Text" Then
    LabelFont 1
  End If
End Sub

Private Sub TextBox4_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
  If KeyCode = 9 Or KeyCode = 13 Or KeyCode = 38 Or KeyCode = 40 And Left(ActiveControl.Name, 4) = "Text" Then
    LabelFont 1
  End If
End Sub

Private Sub TextBox5_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
  If KeyCode = 9 Or KeyCode = 13 Or KeyCode = 38 Or KeyCode = 40 And Left(ActiveControl.Name, 4) = "Text" Then
    LabelFont 2
  End If
End Sub

Private Sub TextBox6_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
  If KeyCode = 9 Or KeyCode = 13 Or KeyCode = 38 Or KeyCode = 40 And Left(ActiveControl.Name, 4) = "Text" Then
    LabelFont 2
  End If
End Sub

Private Sub TextBox7_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
  If KeyCode = 9 Or KeyCode = 13 Or KeyCode = 38 Or KeyCode = 40 And Left(ActiveControl.Name, 4) = "Text" Then
    LabelFont 2
  End If
End Sub

Private Sub TextBox8_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
  If KeyCode = 9 Or KeyCode = 13 Or KeyCode = 38 Or KeyCode = 40 And Left(ActiveControl.Name, 4) = "Text" Then
    LabelFont 2
  End If
End Sub

Private Sub TextBox9_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
  If KeyCode = 9 Or KeyCode = 13 Or KeyCode = 38 Or KeyCode = 40 And Left(ActiveControl.Name, 4) = "Text" Then
    LabelFont 3
  End If
End Sub

Private Sub TextBox10_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
  If KeyCode = 9 Or KeyCode = 13 Or KeyCode = 38 Or KeyCode = 40 And Left(ActiveControl.Name, 4) = "Text" Then
    LabelFont 3
  End If
End Sub

Private Sub TextBox11_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
  If KeyCode = 9 Or KeyCode = 13 Or KeyCode = 38 Or KeyCode = 40 And Left(ActiveControl.Name, 4) = "Text" Then
    LabelFont 3
  End If
End Sub

Private Sub TextBox12_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
  If KeyCode = 9 Or KeyCode = 13 Or KeyCode = 38 Or KeyCode = 40 And Left(ActiveControl.Name, 4) = "Text" Then
    LabelFont 3
  End If
End Sub

Sub LabelFont(No)
  For i = 1 To 3
    With Me.Controls("Label" & i)
      If i = No Then
        .Font.Underline = True
        .ForeColor = &HC0&
      Else
        .Font.Underline = False
        .ForeColor = &H80000012
      End If
    End With
  Next
  DoEvents
End Sub

Private Sub UserForm_Initialize()
  With Label1
    .Font.Underline = True
    .ForeColor = &HC0&
  End With
End Sub

Private Sub CommandButton1_Click()
  Unload Me
End Sub

Private Sub CommandButton1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
  For i = 1 To 3
    With Me.Controls("Label" & i)
      .Font.Underline = False
      .ForeColor = &H80000012
    End With
  Next
  DoEvents
End Sub

0 hits

【5986】TextBoxのフォーカス時ラベルの書式変更PartII 123 03/6/11(水) 13:54 質問
【6014】Re:TextBoxのフォーカス時ラベルの書式変更... ichinose 03/6/11(水) 23:00 回答
【6020】Re:TextBoxのフォーカス時ラベルの書式変更... 123 03/6/12(木) 12:28 発言
【6022】Re:TextBoxのフォーカス時ラベルの書式変更... ichinose 03/6/12(木) 13:23 発言
【6023】Re:TextBoxのフォーカス時ラベルの書式変更... Jaka 03/6/12(木) 13:39 発言
【6165】Re:TextBoxのフォーカス時ラベルの書式変更... 123 03/6/18(水) 9:53 お礼
【6301】今ごろ書いても見ないと思うけど...。 Jaka 03/6/23(月) 9:43 回答
【6313】余計な物が.... Jaka 03/6/24(火) 9:02 発言

74884 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free