![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?a65a0e2)
No.6ベストアンサー
- 回答日時:
こんにちは。
補足質問の件ですが、こういう意味です。
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Target.Address = "$B$2" And IsNumeric(Target.Value) Then
Target.Value = Int(Target.Value * 1.05)
End If
Application.EnableEvents = True
End Sub
このコードを以前の解説に従って貼り付けてください。
(注意)
この例では、B2セルに値を入れた場合のみ税率をかけるように
記述されています。
余談ですが、
もし、B列のどのセルでも税率計算したい場合は、
Target.Address = "$B$2"
の部分を、例えば
Target.Column = Range("B1").Column
に置き換えてください。
以下は、税率なども変数にした場合です。
興味があれば参考にしてください。
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo ErrorTrap
Dim TaxRate As Single
Dim Col As String
TaxRate = 5 '税率5%
Col = "B" 'B列に適応
If Selection.Count > 1 Then Exit Sub
Application.EnableEvents = False
If Target.Column = Range(Col & 1).Column And IsNumeric(Target.Value) Then
Target.Value = Int(Target.Value * (100 + TaxRate) / 100)
End If
Application.EnableEvents = True
Exit Sub
ErrorTrap:
Application.EnableEvents = True
MsgBox "エラー番号:" & Err.Number
Resume Next
End Sub
この度はとても親切に教えていただきまして
ありがとうございました。
結局B列に適応できるようにコードを貼り付けましたら
無事にできました。
本当に助かりました。
No.5
- 回答日時:
どなたも追加回答されないようなので、
横やりの私が回答します。
1)下のシート名のタブの上で右クリック
2)「コードの表示」をクリック
3)左側のプロジェクトエクスプローラーで、
VBAProjectの中に複数のシートがあると思いますが、
今、自動で税込価格を表示させたいシートをダブルクリック
(プロジェクトエクスプローラーが表示されていなければ、
上部の「表示」メニューから選択表示できます。)
4)右側にコードを貼り付けます。
実行は、税抜き価格を入力確定すれば自動的に行われます。
コードは#1のmshr1962さんのものをコピーされると思いますが、
#3のzap35さんの指摘のように、
Application.EnableEvents = False
処理の記述
Application.EnableEvents = True
を追加したほうが良いと思います。
これを記述しておかないとイベントが多重に発生し、
無限ループに陥る可能性があります。
この説明で分からなければ追加で補足してください。
この回答への補足
丁寧に教えていただいてありがとうございます。
1)から4)までコードを貼り付けるところまではできたのですが、
その後に
Application.EnableEvents = False
処理の記述
Application.EnableEvents = True
の追加ですが、どの部分の後に記述すればいいのでしょうか?
処理の記述も入れるのでしょうか?
本当に何も知らないのにマクロを使おうとするものだから・・・
申し訳ありませんが、またよろしくお願い致します。
No.4
- 回答日時:
こんにちは。
回答は既に出ています。
質問とは直接関係ない余談ですが、
消費税は今後上昇する可能性があります。
税率5%は、変数(またはセル絶対参照)にしておいた
方がいいですよ。
No.3
- 回答日時:
>自動的に税込価格に変換されるようにする
とは入力したセルの値を直接1.05倍するのですか? それとも別のセルに表示するのでも良いですか?
後者であればA1に税抜き額を入力して
=ROUND(A1*1.05,0) 小数点以下1位を四捨五入
=ROUNDDOWN(A1*1.05,0) 〃 を切り捨て
で求めることができます
前者であれば#01さんの言われるようにマクロが必要になります。
ただ#01さんのマクロには、2行追加がいるかもしれません
Application.EnableEvents = False
処理の記述
Application.EnableEvents = True
この回答への補足
ご回答ありがとうございます。
入力したセルの値を直接1.05倍にするほうですので
マクロを使えばできるのですね。
でもマクロの使い方がわかりませんので
困っています。
No.1
- 回答日時:
VBAを使えば可能ですが...
例:B2に数値が入力されたら、消費税5%を付加するマクロです。
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$2" And IsNumeric(Target.Value) Then
Target.Value = Int(Target.Value * 1.05)
End If
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- その他(買い物・ショッピング) 税込み98価格のお店があります。 税抜き98価格のお店はズルいなと思ったことはありませんか。 結局、 2 2023/03/08 20:10
- 相続・譲渡・売却 不動産譲渡益の計算 3 2022/08/04 13:17
- 飲食店・レストラン 飲食店で、税込価格も税抜価格も1円単位の端数がつく場合があります。 例 レストランのガスト 現金支払 5 2022/11/27 05:53
- テレビ 家電量販店の無料保証3年と5年の違い(液晶テレビ)はどういう基準で決まるのですか? 8 2023/08/06 08:22
- その他(お金・保険・資産運用) 至急!【Wolt】各メニューの価格設定の簡単な計算方法 3 2023/03/05 11:58
- 消費税 消費税の納税額の計算 1 2023/02/19 18:12
- ディスカウントストア・ドラッグストア ある税込価格ドラックストアに行ったら、客人は中々居て、賑わっていました。 次に、すぐ近くの別のドラッ 1 2023/04/30 08:04
- その他(税金) 今って税込価格の表示が義務付けられていますが、未だに個人店など内税での表示があります。特に飲食店。 4 2022/07/28 12:36
- 運輸業・郵便業 クーリエ使用時のインボイスの貿易条件(NCV) 1 2022/10/20 15:24
- 一戸建て プロパンガスの残存価格について 3 2022/05/31 14:08
このQ&Aを見た人はこんなQ&Aも見ています
-
初めて見た映画を教えてください!
初めて見た映画を覚えていますか?
-
初めて自分の家と他人の家が違う、と意識した時
子供の頃、友達の家に行くと「なんか自分の家と匂いが違うな?」って思いませんでしたか?
-
あなたの「プチ贅沢」はなんですか?
お仕事や勉強などを頑張った自分へのご褒美としてやっている「プチ贅沢」があったら教えてください。
-
あなたの人生で一番ピンチに陥った瞬間は?
これまでの人生で今振り返ると「あの時、1番ピンチだったなぁ...」という瞬間はありますか?
-
14歳の自分に衝撃の事実を告げてください
タイムマシンで14歳の自分のところに現れた未来のあなた。 衝撃的な事実を告げて自分に驚かせるとしたら何を告げますか?
-
エクセル 同一セル内での消費税計算方法
Excel(エクセル)
-
Excel。消費税を計算してくれる関数を教えて下さい。
Excel(エクセル)
-
印紙や証紙などが一部欠けてしまった場合
その他(法律)
-
-
4
エクセルで既存数値を税抜きに変更する方法
Excel(エクセル)
-
5
エクセルマクロでの消費税計算式(他シ-トへの転記含む)を教えてください
IT・エンジニアリング
-
6
条件付き書式のコピーについて(参照先も自動で変更したい)
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・一番好きなみそ汁の具材は?
- ・泣きながら食べたご飯の思い出
- ・「これはヤバかったな」という遅刻エピソード
- ・初めて自分の家と他人の家が違う、と意識した時
- ・いちばん失敗した人決定戦
- ・思い出すきっかけは 音楽?におい?景色?
- ・あなたなりのストレス発散方法を教えてください!
- ・もし10億円当たったら何に使いますか?
- ・何回やってもうまくいかないことは?
- ・今年はじめたいことは?
- ・あなたの人生で一番ピンチに陥った瞬間は?
- ・初めて見た映画を教えてください!
- ・今の日本に期待することはなんですか?
- ・集中するためにやっていること
- ・テレビやラジオに出たことがある人、いますか?
- ・【お題】斜め上を行くスキー場にありがちなこと
- ・人生でいちばんスベッた瞬間
- ・コーピングについて教えてください
- ・あなたの「プチ贅沢」はなんですか?
- ・コンビニでおにぎりを買うときのスタメンはどの具?
- ・おすすめの美術館・博物館、教えてください!
- ・【お題】大変な警告
- ・洋服何着持ってますか?
- ・みんなの【マイ・ベスト積読2024】を教えてください。
- ・「これいらなくない?」という慣習、教えてください
- ・今から楽しみな予定はありますか?
- ・AIツールの活用方法を教えて
- ・最強の防寒、あったか術を教えてください!
- ・歳とったな〜〜と思ったことは?
- ・モテ期を経験した方いらっしゃいますか?
- ・好きな人を振り向かせるためにしたこと
- ・スマホに会話を聞かれているな!?と思ったことありますか?
- ・それもChatGPT!?と驚いた使用方法を教えてください
- ・見学に行くとしたら【天国】と【地獄】どっち?
- ・これまでで一番「情けなかったとき」はいつですか?
- ・この人頭いいなと思ったエピソード
- ・あなたの「必」の書き順を教えてください
- ・14歳の自分に衝撃の事実を告げてください
- ・人生最悪の忘れ物
- ・あなたの習慣について教えてください!!
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excel 偶数月の15日(土日祝...
-
Excelの数式について教えてくだ...
-
Excelのメニューについて
-
VLOOKUP FALSEのこと
-
エクセル内に読み込んが画像の...
-
【マクロ】1回目の実行後、2...
-
勤務外時間を出す表が作りたい
-
Excelで作成した出欠表から日付...
-
エクセルの数式について教えて...
-
【マクロ】参照渡しとモジュー...
-
Excelの条件付書式について教え...
-
【マクロ】シート追加時に同じ...
-
マクロを実行すると、セル範囲...
-
【マクロ】参照渡しについて。...
-
Excel 日付の表示が直せません...
-
エクセルで、数字の下4桁の0を...
-
【マクロ】Call関数で呼び出し...
-
別のシートの指定列の最終行を...
-
Excelのデーターバーについて
-
Excelでの文字入力について
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
【マクロ】重複する同じ行を、...
-
Excelの条件付き書式のコピーと...
-
vba 印刷設定でのカラー印刷と...
-
VBA の単語の意味を教えて下さい。
-
Excel 日付の表示が直せません...
-
エクセル 同じ行の隣り合う数字...
-
エクセル条件付き書式について。
-
エクセルの数式につきまして
-
ファイル名の変更
-
エクセル 数字のみ抽出につて
-
Excelの開始ブックを固定したい...
-
エクセルの数式について教えて...
-
エクセルのセルをクリックする...
-
=INDIRECT(RIGHT(CELL("filenam...
-
エクスプローラーで見ることは...
-
Excelの関数で質問です
-
至急お願いいたします 屋上の備...
-
エクセルでセルに入力する前は...
-
関数を教えて下さい
-
Excel 関数での質問です
おすすめ情報