いつもお世話になっています。
もしも、3万より小さい場合 → 承認1
3万より大きく、10万より小さい場合 → 承認2
10万以上は → 承認3
としたいのですがオーバーフローします。
根本的におかしいのでしょうか?
ご教授ください。
宜しくお願い致します。
Sub 最終承認者() '承認者判定
Dim y As Long
Dim i As Long
Dim 条件金額 As Integer
y = Sheets("スポット一覧").Range("AZ" & Rows.Count).End(xlUp).Row
With Sheets("スポット一覧")
For i = 7 To y
条件金額 = .Range("BE" & i).Value
If 条件金額 < 30000 Then
Range("BF" & i).Value = "承認1"
ElseIf 条件金額 >= 30000 And 条件金額 <= 100000 Then
Range("BF" & i).Value = "承認2"
ElseIf .Range("BE" & i) > 100000 Then
Range("BF" & i).Value = "承認3"
End If
Next i
End With
End Sub
No.1ベストアンサー
- 回答日時:
> Dim 条件金額 As Integer
Integer は
32,768 〜 32,767
の範囲の整数です。
その範囲から外れた値を代入しようとしたら
オーバーフローのエラーになります。
【参考】
データ型の概要
https://docs.microsoft.com/ja-jp/office/vba/lang …
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) エクセル マクロ(A1:A10)までの中で一番多く出た数字をB10に表示 6 2023/04/25 17:01
- Visual Basic(VBA) 稀に1円合いません? Sheet1から金額と個数を貼り付ける下記コードで、金額を切り上げるコードを何 3 2022/09/05 15:11
- Visual Basic(VBA) 前回ご教授いただいたコードに覚えたてのループ処理で品名りんごAから順に20回for nextでループ 7 2023/01/13 22:01
- Visual Basic(VBA) Sheet3から2つの条件でオートフィルターで抽出した個数をSheet2へ入力するマクロで、一つ目の 4 2023/01/12 23:40
- Visual Basic(VBA) まとめシートから集計シートへA列のコードが一致したら1行コピーするマクロをネット上で見つけました。こ 1 2022/08/30 14:11
- Excel(エクセル) VBAの指示の内容 昨日こちらでご教示頂いたのですが初心者な為、一つ一つの指示が何をやっているのかわ 2 2022/10/25 18:08
- Excel(エクセル) VBAについて 3 2022/06/19 18:19
- Visual Basic(VBA) 動きっぱなしです。止め方とプロシージャの間違いを教えて下さい! 5 2022/08/15 23:08
- Visual Basic(VBA) VBAでoutlook365が起動しません。 4 2022/08/25 13:31
- Visual Basic(VBA) VBA 請求書自動作成 3 2022/04/24 01:58
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
請求書の金額が異なる場合の、...
-
数百万円って いくらでしょうか?
-
期末現在の資本金等の額
-
【エポスカード】支払金額確定...
-
NTTドコモ 「eximo」
-
出産祝いプレゼントを有志であ...
-
振込金額(税引後)から支払金...
-
給与/報酬の「支給額」と「支...
-
「初穂料はお志」の「お志」と...
-
agoda予約サイトについて
-
【問題1】 ある仕事をするのに ...
-
扶養控除の130万円とはどの金額...
-
word&excel 2007での差込印刷で...
-
結婚相談所等で年収を提示する...
-
期日前投票立会人の仕事
-
ふるさと納税で同じ自治体に同...
-
振込の時の領収書の書き方
-
クイックペイは、スマホがモバ...
-
誕生日とか記念日って面倒くさ...
-
ふるさと納税に詳しい方、障害...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
請求書の金額が異なる場合の、...
-
数百万円って いくらでしょうか?
-
振込の時の領収書の書き方
-
まいばすで働いてたんですが、...
-
出産祝いプレゼントを有志であ...
-
word&excel 2007での差込印刷で...
-
給与/報酬の「支給額」と「支...
-
【エポスカード】支払金額確定...
-
VBA テキストボックスに3桁カ...
-
「初穂料はお志」の「お志」と...
-
源泉徴収票の「給与所得控除後...
-
1976年の7万円は現在だといくら...
-
クイックペイは、スマホがモバ...
-
内金の返却について
-
Excelで原価計算
-
agoda予約サイトについて
-
期日前投票立会人の仕事
-
FROM句の構文エラー ACCESS SQL
-
未払い給与がある場合の確定申告
-
数字にカンマを入れる方法
おすすめ情報
条件金額 = .Range("BE" & i).Value ここでオーバーフローします。