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

winfacks · 04.02.2009, 14:10

Че только неделал - есть трабла с округлениями взятого числа из диапазона в большую сторону (а мне надоть чтоб не округляло

)
Видать кде то лоханулся с типом данных - тока не пойму кде ...
ПАМАГИТЕ!!!!!

Примерчик вота:
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 · 04.02.2009, 14:21

Решил траблу так:
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") после запятой - дробная часть

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

КаМММ · 04.02.2009, 23:30

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

04.02.2009, 14:10	#1
winfacks Пользователь Регистрация: 25.04.2008 Сообщений: 33	Трабла с округлениями. Задачу решил. Но - может есть еще более симпатишные варианты... Че только неделал - есть трабла с округлениями взятого числа из диапазона в большую сторону (а мне надоть чтоб не округляло) Видать кде то лоханулся с типом данных - тока не пойму кде ... ПАМАГИТЕ!!!!! Примерчик вота: 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; 04.02.2009 в 14:29. Причина: Задачу решил. Но - может есть еще более симпатишные варианты...

04.02.2009, 14:21	#2
winfacks Пользователь Регистрация: 25.04.2008 Сообщений: 33	Решил траблу так: 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") после запятой - дробная часть Если у кого то более симпатишные варианты -выкладывайте, не ленитесь Египетский бог Сет отвечал за переменные окружения.

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Нужно решить еще задачу в паскале! Срочно	Lenochka082	Помощь студентам	4	19.01.2009 16:26
быть может поможете еще с одной задачкой=)	Julia-21	Паскаль, Turbo Pascal, PascalABC.NET	2	18.01.2009 22:47
BORLAND C++, решил простую задачу с функцией, кажеца что-то не так.	Graf Xandr	Помощь студентам	2	06.12.2008 19:57
Мало мне плееров которые есть, вот свой решил замутить.	Magog	Qt и кроссплатформенное программирование С/С++	0	16.03.2008 18:48

04.02.2009, 23:30	#3
КаМММ Почти "Чайник" Форумчанин Регистрация: 09.06.2008 Сообщений: 134	Тип Integer - целое число? Убери из объявления Integer И траблов не будет (по крайней мере мне так кажется.)