Вопрос № 53084: Уважаемые эксперты не подскажите:
1.Как найти все гиперсылки в html-документе?
2.Вывести все предложения в тексте, содержащие определенное выражение, в отдельный текстовый файл?
Актуально для VB6 и VBA.
С уважением, Vavunchik.
vla...Вопрос № 53100: Доброго времени суток, Уважаемые. Пишу программу по учету посещаемости для школы,т.к. БД обещает быть небольшой то делаю все в Excel. Возникали некоторые трудности:
1)Делал отчет по выюранному периоду т.е. выбирают период с такого по такое и клас...
Вопрос № 53.084
Уважаемые эксперты не подскажите:
1.Как найти все гиперсылки в html-документе?
2.Вывести все предложения в тексте, содержащие определенное выражение, в отдельный текстовый файл?
Актуально для VB6 и VBA.
С уважением, Vavunchik.
vladicom2005@mail.ru
Отправлен: 24.08.2006, 05:54
Вопрос задал: Vavunchik (статус: Посетитель)
Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)
Отвечает: EPDSota
Здравствуйте, Vavunchik!
Можно использовать поиск строк вподстроке:
1. см. пример 1
2. смю пример 2. Можно при желании перед началом анализа заменить в тексте все знаки ! и ? на точки.
Приложение:
--------- Открыть глаза навстречу солнцу
Ответ отправил: EPDSota (статус: Специалист)
Ответ отправлен: 25.08.2006, 11:33
Вопрос № 53.100
Доброго времени суток, Уважаемые. Пишу программу по учету посещаемости для школы,т.к. БД обещает быть небольшой то делаю все в Excel. Возникали некоторые трудности:
1)Делал отчет по выюранному периоду т.е. выбирают период с такого по такое и класс либо ученика. Програмного аналога автофильтра с условием не нашел, воспользовался встроенным в Excel. Получилось довольно сложно:
Private Sub CommandButton1_Click()
Dim i, f As String
Sheets("Текущая база").Select
Range("h3").Value = TextBox1.Text
Range("i3").Value = TextBox2.Text
Range("j3").Select
ActiveCell.FormulaR1C1 = "=DATEVALUE(RC[-2])"
Range("k3").Select
ActiveCell.FormulaR1C1 = "=DATEVALUE(RC[-2])"
Range("J3:K3").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("J3").Select
UserForm3.TextBox3.Text = [J3]
UserForm3.TextBox4.Text = [k3]
i = TextBox3.Text
f = TextBox4.Text
Columns("G:G").Select
Selection.Copy
Columns("L:L").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Rows("2:2").Select
Selection.AutoFilter
With Selection
.AutoFilter Field:=2, Criteria1:=ComboBox2.Value
.AutoFilter Field:=7, Criteria1:=">=" & i, Operator:=xlAnd, _
Criteria2:="<=" & f
End With
Range("A1:F1").Select
Selection.Copy
Range("A2").Select
ActiveSheet.Paste
Range("A3").Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.Copy
Sheets("Отчет").Select
Range("A2").Select
ActiveSheet.Paste
Код ставит афтофильтр, копирует в соседние ячейки даты введенные в текстбоксы в соседние с ними извлекает значение дат, вставляет значения в скрытые текстбоксы на форме, значение этих текстюоксов является переменными, кои подставляются в условия автофильтра. Отчет работает без проблем, но код довольно громоздкий, плюс хотелось бы обойтись без этих вставлений переставлений по ячейкам и доп текстбоксам.
Отправлен: 24.08.2006, 10:56
Вопрос задал: Bahus (статус: Посетитель)
Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)
Отвечает: EPDSota
Здравствуйте, Bahus!
Код в приложении тоже работает "без проблем".
Приложение:
--------- Открыть глаза навстречу солнцу
Ответ отправил: EPDSota (статус: Специалист)
Ответ отправлен: 25.08.2006, 16:50 Оценка за ответ: 5 Комментарий оценки: Чутка поправил, а так супер. Спасибо большое!!!
