Трабла с округлениями. Задачу решил. Но - может есть еще более симпатишные варианты...

[winfacks]

Че только неделал - есть трабла с округлениями взятого числа из диапазона в большую сторону (а мне надоть чтоб не округляло)
Видать кде то лоханулся с типом данных - тока не пойму кде ...
ПАМАГИТЕ!!!!!

Примерчик вота:
Private Sub CommandButton1_Click()

Dim val1 As Integer

val1 = Range("d2")

Range("d1") = val1
Range("C9").Select
ActiveSheet.PivotTables("СводнаяТаб лица2").CalculatedFields("выторг/м-кв").StandardFormula = "=Факт/площадь/" & val1
Range("d2").Select

End Sub

[winfacks]

Решил траблу так:
Private Sub CommandButton1_Click()

Dim val1 As Integer
Dim val2 As Integer

val1 = Range("f25")
val2 = Range("f26")

Range("C9").Select
ActiveSheet.PivotTables("СводнаяТаб лица2").CalculatedFields("выторг/м-кв").StandardFormula = "=Факт/площадь/" & val1 & "." & val2
Range("d2").Select

End Sub

кде:
val1 = Range("f25") целая часть числа
val2 = Range("f26") после запятой - дробная часть

Если у кого то более симпатишные варианты -выкладывайте, не ленитесь

[КаМММ]

Тип Integer - целое число?
Убери из объявления Integer
И траблов не будет (по крайней мере мне так кажется.)