| 
    
     |  | ▼隼 さん: >1.セルA1に、H,L,Fのいずれかを入力します。
 >2.Hを入力した場合は、セルA10にHと表示する。
 >3.Lを入力した場合は、セルA20にLと表示する。
 >4.Fを入力した場合は、セルA30にFと表示する。
 
 [A1]セルの値が変化したとき、処理をするようなコードは
 そのシートのモジュールに書きます。
 対象ワークシートの シート見出し(TABといいます) を右クリックする
 と、一番下に「コードの表示」ってメニューがありますから、これを
 クリックして出てくる シートモジュールに 以下のサンプルを貼り付け
 てみてください。
 
 Private Sub Worksheet_Change(ByVal Target As Range)
 If Target.Address(0, 0) <> "A1" Then Exit Sub
 
 Dim S As String
 S = Target.Value
 Select Case S
 Case "H": [A10].Value = S
 Case "L": [A20].Value = S
 Case "F": [A30].Value = S
 End Select
 End Sub
 
 
 > 5.H,L,Fの入力はそれぞれ複数回行います。
 この意味が ちょっと「?」です。
 
 |  |