EXCEL

Отправлено 29 октября 2006 - 13:30

спасибо большое, добрый человек...))

по поводу кнопок..хз, в задании не сказано, значит лучше не надо

А как в ВБА со строкой работают? если мне надо из исикукода первую цифру считывать? Для этого есть какая-то функция типа substr? И если есть, то какого её описание?

И все-таки, почему у меня там появляется #REF, что это за ошибка такая?

• Наверх
• 

Отправлено 29 октября 2006 - 14:08

Sub Laen()
	Dim ipp As Double
	Dim vpp As Double
	Dim LS As Long
	Dim lkp As Date
	Dim tmt As Date
	Dim tkp As Date
	
	
	ipp = Cells(5, 3) * 100
	vpp = Cells(6, 3) * 100
	LS = Cells(7, 3)
	lkp = Cells(8, 3)
	tmt = Cells(9, 3)
	tkp = Cells(10, 3)
	
	Cells(11, 3) = tkp - lkp

	Cells(12, 3) = (LS * ipp) / 100 * Cells(11, 3)
	
	If tkp <= tmt Then
		Cells(13, 3) = 0
	Else
		Cells(13, 3) = (vpp * (tkp - tmt)) / 100 * LS
	End If
		
	Cells(14, 3) = LS + Cells(12, 3) + Cells(13, 3)
	
End Sub

• Наверх
• 

Отправлено 29 октября 2006 - 15:40

• Наверх
• 

Отправлено 30 октября 2006 - 19:46

• Наверх
• 

Отправлено 30 октября 2006 - 20:25

Sub date1()
	Dim today As Date
	Dim otherDay As Date
	
	today = Date
	otherDay = Cells(1, 1)
	
	Cells(1, 2) = today - otherDay
End Sub

• Наверх
• 

Отправлено 30 октября 2006 - 22:04

• Наверх
• 

Отправлено 30 октября 2006 - 22:17

• Наверх
• 

Отправлено 31 октября 2006 - 10:28

...
Cells(10, 3) = ha * 100
	   
	today = Date
	otherDay = Cells(22, 5)
	Cells(22, 8) = today - otherDay

• Наверх
• 

Отправлено 31 октября 2006 - 12:46

Выкладывай! т.к у меня все работает

• Наверх
• 

Отправлено 31 октября 2006 - 16:32

вот...

Прикрепленные файлы

•  Valemid.rar   105,58К   7 Количество загрузок

• Наверх
• 

Отправлено 31 октября 2006 - 22:26

ошибка вылетает в коде ideaal()
t = Cells(24, 5)

t у тебя Double, а в Cells(24, 5) "Vanus päe."


да и почемуто код вычисления дней находится в kaup()

• Наверх
• 

Отправлено 31 октября 2006 - 22:50

• Наверх
• 

Отправлено 01 ноября 2006 - 00:28

вот это жестокое задание
я порылся в нете и вот
для 5ой формулы Y вроде получилась

y = (PI / 5) * (Log(Abs((a - (2.718282 ^ (x + 3))) / ((b * x) + 3.2))) / Log(10)) - (((a ^ 2 + x ^ 2) / b ^ 2) ^ (1 / 5))

5Z

z = ((Cos(y ^ 3) ^ 2) / (2 * (a ^ 3))) + b * Tan((PI * (x ^ 2)) / (2.5 * a)) + Sin((b * y) / (a + x)) ^ 2

Сообщение изменено: BFG (01 ноября 2006 - 09:46 )

• Наверх
• 

Отправлено 01 ноября 2006 - 12:09

хехеехе, не знаю, как ты получил ответ но у меня не получается...
там, кстати, z не 5 формула, а вторая но я твою пятую тоже попробовал и не получил правильный ответ)

вот...

Прикрепленные файлы

•  Valemid.rar   105,49К   4 Количество загрузок

• Наверх
• 

Отправлено 01 ноября 2006 - 12:50

Sub arv_valem()
	Dim a As Double
	Dim b As Double
	Dim x As Double
	Dim y As Double
	Dim z As Double
	Dim PI As Double
	
	PI = 3.141592654
	a = Cells(10, 2)
	b = Cells(10, 3)
	x = Cells(10, 4)
	
	y = (PI / 5) * (Log(Abs((a - (2.718282 ^ (x + 3))) / ((b * x) + 3.2))) / Log(10)) - (((a ^ 2 + x ^ 2) / b ^ 2) ^ (1 / 5))
	Cells(10, 7) = y
	
	z = ((Cos(y ^ 3) ^ 2) / (2 * (a ^ 3))) + b * Tan((PI * (x ^ 2)) / (2.5 * a)) + Sin((b * y) / (a + x)) ^ 2
	Cells(10, 8) = z
	
End Sub

• Наверх
• 

Отправлено 02 ноября 2006 - 15:58

фух, вроде теперь все заработало, большое спасибо!)) а ты тоже делаешь эти задания или ты просто вроде Мать Тереза?

• Наверх
• 

Отправлено 02 ноября 2006 - 23:00

• Наверх
• 

Отправлено 02 ноября 2006 - 23:03

• Наверх
• 

Отправлено 02 ноября 2006 - 23:36

Слухай я в эстонском Null
не вкуриваю чего сделать надо

• Наверх
• 

Отправлено 02 ноября 2006 - 23:37

• Наверх
• 

Отправлено 03 ноября 2006 - 15:47

Задание такое:

Предприятие изготавливает детали разных с разными размерами, из разных материалов и покрывает их какой-то краской.

Реализовать следующие задания с формой детали, которая определяется вариантом:
1. Нарисовать в MS DRAWING схему детали
2. Составить в MS Equation 3.0 формул для нахождения площади полной поверхности и объема детали.
3. Составить формулы в Эксель, которые позволяют найти:
а)площадь полной поверхности и объем.
количество материала и его стоимость (в зависимости от марки)
c)количесвто краски и стоимость краски для данного материала
d)общие расходы на деталь (материал+краска+другие расходы)
Другие расходы определяются процентом от стоимости материала и краски
4. не могу точно перевести)
5. составить ВБА функцию для нахождения площади полной поверхности и объема детали. Функции должны содержать проверку совместимости данных. Сделать копию рабочего листа и заменить на новом рабочем листе Ексэль формулы обращением к функции ВБА.

Материал и краску выбрать в зависимости от материала (смотри ниже приведенную таблицу вариантов) с листов Materjalid и Värvid.
Для выбора марки материала и краски использовать список валедирования(хз. что это).
Для нахождения цены материала и расхода краски из таблицы использовать функции LOOKUP() или VLOOKUP()

у меня такие данные:
а=7
b=3
c=10 (0)
вариант 37

• Наверх
• 

Отправлено 03 ноября 2006 - 16:56

• Наверх
• 

Отправлено 03 ноября 2006 - 17:01

• Наверх
• 

Отправлено 18 декабря 2006 - 19:29

• Наверх
• 

Отправлено 19 декабря 2006 - 15:16

• Наверх
•