| ← Июнь 2013 → | ||||||
|
1
|
2
|
|||||
|---|---|---|---|---|---|---|
|
4
|
5
|
6
|
7
|
8
|
9
|
|
|
10
|
11
|
12
|
13
|
14
|
15
|
16
|
|
17
|
18
|
19
|
20
|
21
|
22
|
23
|
|
24
|
25
|
26
|
27
|
28
|
29
|
30
|
За последние 60 дней ни разу не выходила
Сайт рассылки:
http://prog.rusfaq.ru/basic
Открыта:
14-03-2002
Статистика
0 за неделю
RFpro.ru: Программирование на Basic / VBA
Хостинг портала RFpro.ru: РАССЫЛКИ ПОРТАЛА RFPRO.RU
Лучшие эксперты по данной тематике
/ КОМПЬЮТЕРЫ И СОФТ / Программирование / Basic/VBA
Консультация # 173955: Доброго времени суток! VBA Access Скажите пожалуйста, можно ли добавить запись в таблицу при помощи кода VBA если нет формы, на основе этой таблицы.... Консультация # 153625: Добрый вечер, Уважаемые Эксперты! Помогите, пожалуйста с решением задачи: Дана строка произвольной длины. Выяснить, имеются ли в строке числа и выделить их. Код :
Sub Ex()
Dim строчка As String
Sheets("Лист1").Select
CКонсультация # 32970: Приветствую вас, уважаемые Эксперты. Продолжение вопросов 32064 и 32222 1. --- У Екселя есть событие Private Sub Workbook_Open Поставил как сказали - в заголовок макроса встроенной к... Доброго времени суток!
Дата отправки: 04.11.2009, 09:21 Консультирует HookEst: Здравствуйте, fomservl. Код : INSERT INTO Таблица1 ( [value] ) VALUES (NewValue); теперь, в VBA мы можем написать: Код : Sub t()
With CurrentDb.QueryDefs("Запрос1")
.Parameters("NewValue") = "Новое значение"
.Execute
End With
End Subвыполнение этого кода, добавит запись в Таблица1 c value = "Новое значение".... также мы можем напрямую выполнять SQL запросы на добавление записей, но здесь приходиться учитывать синтаксис SQL: Код : Sub t2()
CurrentDb.Execute "INSERT INTO [Таблица1 ] ([value]) VALUES (""Новое значение"")"
End Sub
можно использовать Recordset... например, для ADODB: Код : Sub t3()
With New ADODB.Recordset
.Open "Таблица1", CurrentProject.Connection, adOpenDynamic, adLockOptimistic
.AddNew
.Fields("value") = "Новое значение"
.Update
.Close
End With
End Subи т.д. и т.п. Успехов..
Добрый вечер, Уважаемые Эксперты! Код :
Sub Ex()
Dim строчка As String
Sheets("Лист1").Select
Cells.Clear
Cells(1, 1) = "Лабораторная работа №2. Обработка строк"
Cells(2, 1) = "Задание:"
Cells(3, 1) = "Выяснить имеются ли в строке числа, и выделить их."
Cells(4, 1) = "Выполнил Ст.гр."
Cells(5, 1) = "Исходный массив:"
строчка = InputBox("введите предложение из нескольких слов, используя цифры")
Cells(6, 1) = строчка
Cells(7, 1) = "Результат решения"
Cells(8, 1) = RazborStroki(строчка)
With Range("A1:A5, A7").Font
.Name = "Times New Roman"
.Bond = True
.Size = 14
End With
End Sub
'возвращает TRUE, если аргумент является символом-разделителем слов
'(пробел, кавычки, точка, запятая и тд)
Public Function IsDelimeter(simbol As String) As Boolean
If simbol = " " Or simbol = """" Or simbol = "'" Or simbol = "." Or simbol = "," Then IOsDelimeter = True Else IsDelimeter = False
End Function
'возвращает True, если аргумент является цифрой
' 1 2 3 4 5 6 7 8 9 0
Public Function IsChislo(simbol As String) As Boolean
simbol = UCase(simbol)
If simbol = "1" Or simbol = "2" Or simbol = "3" Or simbol = "4" Or simbol = "5" Or simbol = "6" Or simbol = "7" Or simbol = "8" Or simbol = "9" Or simbol = "0" Then IsChislo = True Else IsChislo = False
End Function
'разбираем строки на слова и показываем в некоторых соответствие с заданным критерием
Public Function RazborStroki(s As String) As String
Dim i, p As Integer 'вспомогательные переменные
Dim flag As Boolean 'флаг, при разборе строки он равен True "внутри" слова, иначе False
Dim words As New Collection 'коллекция(список) для хранения выделенных слов
Dim word As Variant 'отдельное слово из коллекции
Dim mess As String 'строка для визуального вывода результата
'смотрим: первый символ строки - разделитель или нет
If IsDelimeter(Mid(s, 1, 1)) Then
flag = False
Else
flag = True
End If
'цикл разбора строки на слова
For i = 1 To Len(s)
If IsDelimeter(Mid(s, i, 1)) = False And flag = False Then
'если очередной символ строки - не разделитель, и мы не внутри слова, то это означает начало нового слова
p = i
flag = True
End If
If IsDelimeter(Mid(s, i, 1)) = True And flag = True Then
' иначе, т.е. если встречен разделитель и мы "внутри" слова,
' то значит очередное слово закончилось и его надо выделить
' и добавить в список найденных
words.Add Mid(s, p, i - p)
flag = False
End If
Next i
'если по завершению цикла флаг остался true, тогда надо выделить последнее слово
If flag = True Then words.Add Mid(s, p, Len(s) - p + 1)
'печатаем слова, которые начинаются и заканчиваются на гласные
mess = ""
For Each word In words
If IsChislo(Mid(word, 1, 1)) = True And IsChislo(Mid(word, Len(word)), 1) = True Then mess = mess + word + ""
Next
RazborStroki = mess
End Function
не могу найти и, собственно, исправить ошибку...
Дата отправки: 09.12.2008, 17:05 Консультирует PsySex (Профессионал): Здравствуйте, Amidala! Приложение:
Приветствую вас, уважаемые Эксперты.
Дата отправки: 10.01.2006, 16:36 Консультирует PornoSlon: Здравствуйте, Eugenius!
Консультирует AlexanderZh: Здравствуйте, Eugenius!
Консультирует Николай К: Здравствуйте, Eugenius!
Консультирует Залетин Виталий Викторович: Здравствуйте, Eugenius!
Оценить выпуск | Задать вопрос экспертам
главная страница
|
стать участником
|
получить консультацию
© 2001-2012, Портал RFPRO.RU, Россия
Авторское право: ООО "Мастер-Эксперт Про" Калашников О.А. | Гладенюк А.Г. Хостинг: Версия системы: 2011.6.36 от 26.01.2012 |
| В избранное | ||
