|    | 
     ▼隼 さん: 
>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の入力はそれぞれ複数回行います。 
この意味が ちょっと「?」です。 
 | 
     
    
   |