Excel VBA質問箱 IV

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

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


28278 / 76732 ←次へ | 前へ→

【53756】Re:条件式
発言  VBWASURETA  - 08/2/5(火) 21:17 -

引用なし
パスワード
   ▼多摩川 さん:

こんばんは。

ちょっと気になったので以下のような
関数を作って確認してみました。


Function calc(x As Range) As Double
  If x.Value >= 1 And x <= 3 Then
    calc = x.Value + 0.1
  Else
    MsgBox "エラー"
  End If
  
End Function

Sub main()
  MsgBox calc(ActiveSheet.Cells(20, 1))  'A20のセルを渡す。 A20(値:2.9) + 0.1 = 3
End Sub


シートのA20セルには計算式:A19 + 0.1 = 2.9が入っています。

で上記のソースで確認しましたらちゃんと3という結果を
得られましたけど違います?

0 hits

【53746】条件式 多摩川 08/2/5(火) 17:08 質問
【53747】Re:条件式 Jaka 08/2/5(火) 17:30 発言
【53748】Re:条件式 多摩川 08/2/5(火) 17:30 質問
【53749】Re:条件式 多摩川 08/2/5(火) 17:43 質問
【53755】Re:条件式 りん 08/2/5(火) 21:11 発言
【53756】Re:条件式 VBWASURETA 08/2/5(火) 21:17 発言
【53758】Re:条件式 ichinose 08/2/5(火) 21:48 発言
【53759】Re:条件式 追伸 ichinose 08/2/5(火) 21:52 発言
【53760】Re:条件式 訂正 ichinose 08/2/5(火) 22:11 発言
【53764】Re:条件式 多摩川 08/2/6(水) 9:06 お礼
【53852】Re:条件式 ichinose 08/2/11(月) 22:52 発言
【53855】Re:条件式 多摩川 08/2/12(火) 8:50 お礼

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