VBA オブジェクト定義エラー
VBA初心者です。
アプリケーション定義エラーまたはオブジェクト定義エラーが出ました。
原因を教えてください。
A=2800
B=3300
委託料＝AとBの合計の５％
Cell(5,j)のセルにAとBの合計の５%の数値"305"を入力したいです。
Sub syouhinbubetu()
Dim Sheetobj As Worksheet
Dim A As Integer
Dim B As Integer
Dim 委託料 As Integer
Set Sheetobj = ThisWorkbook.Worksheets("Sheet1")
With Sheetobj
A = .Cells(3, j)
B = .Cells(4, j)
委託料 = .Cells(5, j)
For j = 3 To 6
.Cells(5, j) = (A + B) * 0.05
Next j
End With
End Sub
定義は、きちんと整数の定義にしているはずなのですが、どうしてでしょうか？
それから、もう一つ教えてください。
C/Dの値をセルに入れるのは次の式でよいと思いますが、
.Cells(7,j)=C/D
その数値が少数になる場合四捨五入をした値（小数点以下すべて切り捨て）を入れる場合はどのような式になりますか？
初心者過ぎて申し訳ありません。
VBAの基本の本で勉強したのですが、それを応用して実践する場合にどのようなプログラムになるのかが分かりません。
良い本があれば紹介していただけないでしょうか。
私が勉強した本は、「世界で一番簡単なExcel VBAのe本」です。
分かりやすい応用編の本があれば教えてください。
たくさんの質問で申し訳ありませんが、よろしくお願いいたします。
お礼
ご回答ありがとうございました。 正常に動きました!!!