Excel VBA質問箱 IV

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

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


20872 / 76732 ←次へ | 前へ→

【61268】Re:検証して下さい。
回答  neptune  - 09/4/21(火) 15:34 -

引用なし
パスワード
   ▼一年生 さん:

>とりあえず、動きますが、
>手直しするところがあったら、教えて下さい。
自分の望んだ結果を得られ、且つ、半年後の自分が見てわかるなら
手直しの必要はないです。・・・・持論です。

・1つのデータを複数のデータで評価する場合は下記のように書く方が見易いです。
・Cellsでは、どのシートかが、明示されてませんので、Activeなシートの
セルを指定することになります。必ず明示的にシートから指定しましょう。

Private Sub ListBox3_Click()
  Select Case Me.listbox3.Value
    Case "1月"
      Cells(1, 15).Select
    Case "2月"
      Cells(5, 15).Select
    Case "3月"
      Cells(10, 15).Select
    Case "4月"
      Cells(15, 15).Select
    Case "5月"
      Cells(20, 15).Select
    Case "6月"
      Cells(25, 15).Select
    Case "7月"
      Cells(30, 15).Select
    Case "8月"
      Cells(35, 15).Select
    Case "9月"
      Cells(40, 15).Select
    Case "10月"
      Cells(45, 15).Select
    Case "11月"
      Cells(50, 15).Select
    Case "12月"
      Cells(55, 15).Select
  End Select
End Sub
1 hits

【61267】検証して下さい。 一年生 09/4/21(火) 15:05 質問
【61268】Re:検証して下さい。 neptune 09/4/21(火) 15:34 回答
【61269】Re:検証して下さい。 Yuki 09/4/21(火) 15:42 発言
【61270】Re:検証して下さい。 Yuki 09/4/21(火) 15:45 発言
【61271】Re:検証して下さい。 一年生 09/4/21(火) 16:29 質問
【61273】Re:検証して下さい。 neptune 09/4/21(火) 21:58 発言
【61279】Re:検証して下さい。 一年生 09/4/21(火) 23:45 お礼
【61281】Re:検証して下さい。 neptune 09/4/22(水) 9:10 発言
【61282】有り難うございました。 一年生 09/4/22(水) 10:03 お礼

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