Excel VBA質問箱 IV

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

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


6210 / 13644 ツリー ←次へ | 前へ→

【46588】Select Caseの方法? VBA習いたて 07/2/7(水) 15:47 質問[未読]
【46589】Re:Select Caseの方法? Jaka 07/2/7(水) 15:55 発言[未読]
【46590】Re:Select Caseの方法? VBA習いたて 07/2/7(水) 16:02 お礼[未読]
【46594】Re:Select Caseの方法? VBA習いたて 07/2/7(水) 16:56 質問[未読]
【46595】Re:Select Caseの方法? Blue 07/2/7(水) 17:10 回答[未読]

【46588】Select Caseの方法?
質問  VBA習いたて  - 07/2/7(水) 15:47 -

引用なし
パスワード
   はじめましてかなり初心者なのでよろしくお願いします。

A列に年齢が記入してあり、B列に該当する○歳以上○歳未満といった文字列を返したいのですが、方法がわかりません。select caseを使用するのが良いと思うのですがいまいちコードがわかりません。どなたか教えてください。(丸投げに近い質問なのでヒントだけでもかまいません)

【46589】Re:Select Caseの方法?
発言  Jaka  - 07/2/7(水) 15:55 -

引用なし
パスワード
   For i = 1 To 20
Select Case Cells(i, 1).Value
  Case 0 To 13
    Cells(i, 2).Value = "0〜13"
  Case 14 To 25
    Cells(i, 2).Value = "14〜25"
  Case Else
    Cells(i, 2).Value = "他"
End Select
Next

【46590】Re:Select Caseの方法?
お礼  VBA習いたて  - 07/2/7(水) 16:02 -

引用なし
パスワード
   ▼Jaka さん:
>For i = 1 To 20
>Select Case Cells(i, 1).Value
>  Case 0 To 13
>    Cells(i, 2).Value = "0〜13"
>  Case 14 To 25
>    Cells(i, 2).Value = "14〜25"
>  Case Else
>    Cells(i, 2).Value = "他"
>End Select
>Next

Jakaさんありがとうございました。がんばってみます。

【46594】Re:Select Caseの方法?
質問  VBA習いたて  - 07/2/7(水) 16:56 -

引用なし
パスワード
   ▼Jaka さん:
>For i = 1 To 20
>Select Case Cells(i, 1).Value
>  Case 0 To 13
>    Cells(i, 2).Value = "0〜13"
>  Case 14 To 25
>    Cells(i, 2).Value = "14〜25"
>  Case Else
>    Cells(i, 2).Value = "他"
>End Select
>Next

すいません実際にこのコードで実施してみたのですが行数を増やしたら止まらなくなってしまいました。どうすれば直りますか?
For i = 1 To 20←1000位

【46595】Re:Select Caseの方法?
回答  Blue  - 07/2/7(水) 17:10 -

引用なし
パスワード
   ▼VBA習いたて さん:
>すいません実際にこのコードで実施してみたのですが行数を増やしたら止まらなくなってしまいました。どうすれば直りますか?
>For i = 1 To 20←1000位
1000程度ではとまらなくはならないと思いますが。
何かほかに無限ループになるような処理を足していませんか?

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