Народ, помогите пожалуйста, нужно написать програмку в эксель VBA 2. Написать программу...

Question

Народ, помогите пожалуйста, нужно написать програмку в эксель VBA
2. Написать программу распознающую по длинам сторон среди всех видов треугольников прямоугольные.
3. Даны два целых числа D (день) и М (месяц), определяющие правильную дату невисокосного года. Вывести значения D и М, для даты следующей за указанной.

Comments

Данные откуда брать, куда выводить? Все через лист Эксель или через диалоговые окна?

---

лист эксель

Answer 1

Во вложении - рабочая книга MS Excel 2003 с двумя листами. На каждом - по задаче. Коды находятся в соответствующих листах.

---

Скачать вложение Excel (XLS)

Comments

Можно так покороче

---

Sub Swap(a, b)
t = a
a = b
b = t
End Sub

Sub ex2()
a = CDbl(Cells(1, 2))
b = CDbl(Cells(2, 2))
c = CDbl(Cells(3, 2))
Cells(4, 2) = "Íå ïðÿìîóãîëüíûé"

If a < b Then Call Swap(a, b)
If a < c Then Call Swap(a, c)
If b ^ 2 + c ^ 2 = a ^ 2 Then Cells(4, 2) = "Ïðÿìîóãîëüíûé"
End Sub