エクセルのVBAで質問です。 (1/2)

VBAを使うという以外に、別途入力用のシートを追加し、
現状のシートを表示用としてみなし、表示用のシートに
計算式を埋めこみ、入力用シートの数値に対して税抜・税込の
計算を行う、というのはどうでしょう？

ちょっとずれているかもしれませんが、
＞（もしくは、もっと良い方法があれば教えてください。）
とのことですので、回答させていただきました。

投稿日時 - 2009-11-28 09:27:39

'シートモジュールへ
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Not Intersect(Target, Range("a1:d5")) Is Nothing Then
Target.Value = Int(Target.Value * 1.05)
ElseIf Not Intersect(Target, Range("a8:d10")) Is Nothing Then
Target.Value = Int(Target.Value / 1.05)
End If
Application.EnableEvents = True
End Sub

投稿日時 - 2009-11-27 21:14:31

no2です。

税抜き価格と税込価格との間は2行の空白と見てもよろしいのですよね？
下記で確認お願いします。

tuki = Cells(1, 1).End(xlToRight).Column

For i = 1 To tuki
For kanzyo = 1 To Cells(1, 1).End(xlDown).Row
If IsNumeric(Cells(kanzyo, i).Value) Then
Cells(kanzyo, i).Value = Int(Cells(kanzyo, i).Value * 1.05)
End If
Next
Next

h = kanzyo + 2
For i = 1 To tuki
For kanzyo = h To Cells(h, 1).End(xlDown).Row
If IsNumeric(Cells(kanzyo, i).Value) Then
Cells(kanzyo, i).Value = Int(Cells(kanzyo, i).Value / 1.05)
End If
Next
Next

投稿日時 - 2009-11-27 16:14:02

入力された価格が、税抜か税込か、というのはどうやって判断
されるのでしょう？

投稿日時 - 2009-11-27 13:42:11

例えばA列に税抜き価格が入力されていると仮定して・・

For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
If IsNumeric(Cells(i, 1).Value) Then
Cells(i, 1).Value = Int(Cells(i, 1).Value * 1.05)
End If
Next

逆にB列に税込価格が入力されていると仮定して・・

For h = 1 To Cells(Rows.Count, 2).End(xlUp).Row
If IsNumeric(Cells(h, 2).Value) Then
Cells(h, 2).Value = Int(Cells(h, 2).Value / 1.05)
End If
Next

こんな感じでしょうか？
基本的には記載されているURLを認識していると見ているので
これを参考に同じように書いてみました。

投稿日時 - 2009-11-27 13:40:13