Excel VBA質問箱 IV

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

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


8416 / 76732 ←次へ | 前へ→

【73890】Re:セレクト関数
発言  kanabun  - 13/3/10(日) 11:14 -

引用なし
パスワード
   ▼ぴぐもん さん:

案その2 です

Private Sub CommandButton1_Click()
  Dim ss$, s$
  Select Case Text重量.Value
    Case Empty
      ss = "50k未満"
      s = "0"
    Case 0 To 49
      ss = "50k未満"
      s = "1"
    Case 50 To 99
      ss = "100k未満"
      s = "2"
    Case 100 To 299
      ss = "300k未満"
      s = "3"
    Case 300 To 499
      ss = "500k未満"
      s = "4"
    Case Is >= 500
      ss = "500k以上"
      s = "5"
  End Select
  With Sheets("入力シート")
    .Range("Q11").Value = ss
    .Range("L13").Value = s
  End With
End Sub
257 hits

【73888】セレクト関数 ぴぐもん 13/3/6(水) 0:03 質問
【73889】Re:セレクト関数 ponpon 13/3/6(水) 13:40 発言
【73890】Re:セレクト関数 kanabun 13/3/10(日) 11:14 発言

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