Excel VBA質問箱 IV

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

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


1850 / 13645 ツリー ←次へ | 前へ→

【71521】ステートメントを教えてください 12/3/14(水) 12:21 質問[未読]
【71522】Re:ステートメントを教えてください kanabun 12/3/14(水) 12:47 発言[未読]
【71523】Re:ステートメントを教えてください 12/3/14(水) 13:53 お礼[未読]

【71521】ステートメントを教えてください
質問    - 12/3/14(水) 12:21 -

引用なし
パスワード
   1.セルA1に、H,L,Fのいずれかを入力します。
2.Hを入力した場合は、セルA10にHと表示する。
3.Lを入力した場合は、セルA20にLと表示する。
4.Fを入力した場合は、セルA30にFと表示する。
5.H,L,Fの入力はそれぞれ複数回行います。
上記のステートメントはどのようにすれば宜しいのでしょうか。
色々考えましたが、私の力ではどうにもなりませんでした。

【71522】Re:ステートメントを教えてください
発言  kanabun  - 12/3/14(水) 12:47 -

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

【71523】Re:ステートメントを教えてください
お礼    - 12/3/14(水) 13:53 -

引用なし
パスワード
   ▼kanabun さん:
回答をありがとうございます。
>▼隼 さん:
>>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の入力はそれぞれ複数回行います。
>この意味が ちょっと「?」です。

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