Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
24730 / 76738 ←次へ　｜　前へ→
【57355】Re:条件判断
回答  りん E-MAIL  - 08/8/13(水) 18:09 -
引用なし
パスワード
   daiya さん、こんばんわ。

>199999までなら40％を表示
>200000なら45％を表示
>
>倫理式　　Ａ１＞1
>真の場合　＝ＩＦ（Ａ１＞＝199999,"*40",ＩＦ（Ａ１＞200000,"*45"))
>偽の場合　0

マクロの場合
Sub test()
　 Dim pp As Long
　 With Application.ActiveSheet.Range("A1")
　　　Select Case .Value
　　　　 Case Is < 200000: pp = 40
　　　　 Case 200000:　　　pp = 45
　　　　 Case Else:　　　　pp = 0
　　　End Select
　　　'結果表示
　　　MsgBox .Value * pp / 100, vbInformation, pp & " %"
　 End With
End Sub

数式の場合

=IF(A1=200000,A1*0.45,IF(A1<200000,A1*0.4,0))

こんな感じです。
4 hits
▼ 【57354】条件判断 daiya 08/8/13(水) 15:40 質問
【57355】Re:条件判断 りん 08/8/13(水) 18:09 回答≪
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
24730 / 76738 ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free