Программа по VBA

[Anku]

Здрасте всем. Скажу сразу я немного не варю в VBA то если можете помогите, в такой простой программе:
Ввести произвольное предложение, удалить из него слова, начинающиеся с заданной буквы
Написал до такого момента:

Sub main()
Dim saa As String
saa = InputBox("Введите текст ", "Программа", "тухлая вена")
ch = InputBox("Введите символ для удаления:")
For i = 1 To Len(saa)
If i <> 1 Then
If Mid(s, i, 1) = " " And Mid(s, i + 1, 1) <> " " And Mid(s, i + 1, 1) = a Then
k = k + 1
End If
Else
If Mid(s, 1, 1) = a Then
k = k + 1
End If
End If
Next
MsgBox "Из Выражения <" & ch & "> Удаляеться слово" & Sum & " <" & saa & ">"
End Sub

Дальше я не знаю что делать, и куда вставлять оператор DELETE. Подскажите что не нужно и что нужно)

[SAS888]

Попробуйте так:

Sub Main()
    Dim saa As String, ch As String, saa1 As String
    saa = InputBox("Введите текст ", "Программа", "тухлая вена")
    ch = InputBox("Введите символ для удаления:"): saa1 = saa
    For Each wrd In Split(saa, " ")
        If Left(wrd, 1) = ch Then saa1 = Replace(saa1, wrd, "")
    Next
    MsgBox "Было: " & saa & vbCrLf & "Стало: " & saa1
End Sub

[kolokol4ik]

Привет !!! у меня вот такой встал вопрос как запрограммировать ячейку в accsse через VBA что бы она при двойном щелчке копировала текст ячейки в другую ячейку,при том что эти ячейки на разных формах!!!!
Заранее спасибо за ответы!!!!

[Teslenko_EA]

Привет kolokol4ik.
для получения ответа на свой вопрос стоит создать собственную тему.
Если Вы хотите "в другую ячейку", то Вам скорее всего на форум обсуждающий Excel, понятие "ячейка" в СУБД MS Access не применяется.
Евгений.

[Алира]

Добрый вечер. Очень прошу помощи - в выявлении ошибки в этой программе.
Здесь надо вычислить интеграл методом трапеций (а=0, в=3, n=176). Написала согласно алгоритму, а ошибку выдает в виде "invalide procedure call or argument"
что здесь может быть неверно?(

Sub trap(a, b, n, s)
Dim x, h As Single
Dim i As Integer
h = (b - a) / n
s = fx(a) + fx(b)
x = a
For i = 1 To n - 1
x = x + h
s = s + 2 * fx(x)
Next i
s = h / 2 * s
End Sub
Function fx(x)
fx = Atn(Sqr(x / (x + 1) * (1 - x ^ 2)))
End Function
Public Sub integral()
Dim an As Integer
Dim a1, b1, z, s As Single
a1 = InputBox("введите a1")
b1 = InputBox("введите b1")
n = InputBox("введите число разбиений")
Call trap(a1, b1, n, s)
z = fy(b1) - fy(a1)
Range("A4").Value = s
End Sub
Function fy(x)
fy = x * Atn(Sqr(x / (x + 1) * (1 - x ^ 2))) - srq(x) + Atn(Sqr(x))
End Function

*надеюсь отдельную тему создавать не обязательно, ведь от смысла этой вроде не отступаю)

[Teslenko_EA]

Добрый вечер Алира.
"..надеюсь отдельную тему создавать не обязательно.." - не верные у Вас надежды, один вопрос = одна тема.
Евгений.
P.S. ищите ошибку в формуле функции Function fx(x)..