Troitsky
Водник Водкин | Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Fantom 14
Цитата:| меня тут попросили написать прогу на Excel VBA по профилю я с ним не занимался и нету пока причин с ним заниматься |
А разве то, что тебя попросили не является причиной? 
Цитата:| потому что считают, что студенты обычного гуманитарного универа должны знать его |
Цитата:| меня только попросили сделать прогу на ВБА |
Я к тому спрашиваю, что может ты с VB путаешь, т.к. на VBA, в принципе, прогу не напишешь, а лишь макрос(ы), дополнив таким образом документ и сделав его подобным приложению.
Вообще, задание мутное какое-то
Без всяких изощренных проверок если, то будет выглядеть вроде этого
Код: Private Type MyType
Number As Integer
Position As Integer
End Type
Sub Find()
Dim strNum As String
Dim intLen As Integer
Dim i As Integer
Dim intCur As Integer
Dim iMax As MyType
Dim iMin As MyType
iMax.Number = 0
iMax.Position = 0
iMin.Number = 9
iMin.Position = 0
' Ввод числа из ячейки A1
strNum = ActiveSheet.Cells(1, 1).Text
intLen = Len(strNum)
For i = 1 To intLen
intCur = Val(Mid(strNum, i, 1))
If intCur >= iMax.Number Then
iMax.Number = intCur
iMax.Position = i
End If
If intCur <= iMin.Number Then
iMin.Number = intCur
iMin.Position = i
End If
Next i
If iMax.Position > 1 Then
' Вывод цифры, которая стоит левее максимальной цифры, в ячейку B1
ActiveSheet.Cells(1, 2).Formula = Mid(strNum, iMax.Position - 1, 1)
Else
ActiveSheet.Cells(1, 2).Formula = "фиг вам"
End If
If iMin.Position > 1 Then
' Вывод цифры, которая стоит левее минимальной цифры, в ячейку C1
ActiveSheet.Cells(1, 3).Formula = Mid(strNum, iMin.Position - 1, 1)
Else
ActiveSheet.Cells(1, 3).Formula = "фиг вам"
End If
End Sub |
----------
Мы в хорошем настроении гуляем по лесам.
Кто обидеть нас захочет – сам получит по усам.
Сам полу- получит по усам. Сам полу- получит по усам! |
|
Всего записей: 795 | Зарегистр. 13-12-2003 | Отправлено: 20:33 17-02-2006 | Исправлено: Troitsky, 20:38 17-02-2006 |
|
