Вопрос № 95295: Дан текст.Найти наибольшее количество цифр,идущих в нем подряд....Вопрос № 95305: добрый день. подскажите пожалуйста какую литературу и где ее взять для изучения VBA. очень надо. Заранее спасибо...
Вопрос № 95.295
Дан текст.Найти наибольшее количество цифр,идущих в нем подряд.
Отвечает: Over
Private Sub Command1_Click()
Dim st As String
Dim n As Integer, m As Integer
Dim count As Integer, session As Boolean, max As Integer
Dim tmp As Variant
session = False
count = 0
max = 0
st = "текст"
For i = 1 To Len(st)
tmp = Mid(st, i, 1)
If Val(tmp) <> 0 Then
session = True
count = count + 1
Else
session = False
If count > max Then max = count
count = 0
End If
Next
MsgBox max, vbApplicationModal, "" '
End Sub
переменная max содержит максимальное количество цифр подряд
Ответ отправил: Over (статус: 3-ий класс)
Ответ отправлен: 16.07.2007, 14:44
Отвечает: PsySex
Здравствуйте, Сочнева Анна Алексеевна!
Код в приложении. Ищет самую длиную последовательность любой цифры.
Приложение:
--------- Bom Shankar!
Ответ отправил: PsySex (статус: Практикант)
Ответ отправлен: 16.07.2007, 16:41
Отвечает: Черников Игорь Владимирович
Здравствуйте, Сочнева Анна Алексеевна!
Откройте любой файл Документ Microsoft Word, вставте в него текст, в котором нужно найти цифры.
Создайте макрос (Сервис-Макрос-Макросы...-Впишите в строке "Имя" macros и нажмите кнопку Создать, затем вставьте туда где мигает курсор этот код:
затем нажмите F5
Selection.EndKey Unit:=wdStory
Selection.TypeText Text:=Chr(182)
Selection.HomeKey Unit:=wdStory
10 r$ = ActiveDocument.Range(Start:=Selection.End, End:=Selection.End + 1)
If r$ = Chr(182) Then
Selection.Delete
MsgBox ("Максимальное кличество цифер, идущих подряд= " & MaxKolCifer)
Exit Sub
End If
Select Case r$
Case 0, 1, 2, 3, 4, 5, 6, 7, 8, 9
KolCiferPodryad = KolCiferPodryad + 1
If MaxKolCifer < KolCiferPodryad Then
MaxKolCifer = KolCiferPodryad
End If
Case Else
KolCiferPodryad = 0
End Select
добрый день. подскажите пожалуйста какую литературу и где ее взять для изучения VBA. очень надо. Заранее спасибо
Отправлен: 16.07.2007, 15:06
Вопрос задал: Крендель (статус: Посетитель)
Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 1)
Отвечает: Nance
Здравствуйте, Крендель!
посмотрите внимательно по этой ссылке, там есть несколько учебников которые можно скачать.
Сама начала изучение с нуля по книге "Програмирование для Microsoft Exel 2000 на Visual Basic за 21 день" очень доходчиво написано, автора и точное название не помню.
Ответ отправила: Nance (статус: 3-ий класс)
Ответ отправлен: 16.07.2007, 15:36
Отвечает: gella
Здравствуйте, Крендель!
Я учила по http://firststeps.ru/vba/excel/vbaexcel1.html - отличный старт, все доходчиво, все с примерами, а дальше уже само пойдет.
--------- Cos I can.
Ответ отправила: gella (статус: 3-ий класс)
Ответ отправлен: 16.07.2007, 15:52
