powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / ПОМОГИТЕ!!! Для тех кто знает VBA
9 сообщений из 9, страница 1 из 1
ПОМОГИТЕ!!! Для тех кто знает VBA
    #37297642
вот база данных... тут нужно прописать в VBA через ехе1 формулу ВПР(H3;$A$3:$D$7;4;0)*J3. как это сделать, что то не понимаю... там всего 3 формулы... 2 я сделала, одну не могу... помогите
...
Рейтинг: 0 / 0
ПОМОГИТЕ!!! Для тех кто знает VBA
    #37297658
Снежана Ломакина,

никто не может помочь? (( жаль...

Модератор: Тема перенесена из форума "Вопрос-Ответ".
...
Рейтинг: 0 / 0
ПОМОГИТЕ!!! Для тех кто знает VBA
    #37297695
Снежана Ломакина,

может все же кто то что то знает...хоть подскажите)
...
Рейтинг: 0 / 0
ПОМОГИТЕ!!! Для тех кто знает VBA
    #37297875
Фотография AndreTM
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Видимо, вы не пользуетесь поиском...
Схожая тема была уже 9865803 , поизучайте...
...
Рейтинг: 0 / 0
ПОМОГИТЕ!!! Для тех кто знает VBA
    #37297883
Фотография AndreTM
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
А, понял... Вы её и использовали.
Тогда вам надо заполнить формулы в таблице с помощью VBA?
Код: plaintext
1.
Range("K3").Formula="=VLOOKUP(H3;$A$3:$D$7;4;0)*J3"
Range("K3").AutoFill Destination:=Range("K3:K32")
...
Рейтинг: 0 / 0
ПОМОГИТЕ!!! Для тех кто знает VBA
    #37297891
AndreTM,

хм...но тут нужно типа

Private Sub kv_Change()
If Val(pp.Text) = "Одеса - Севастопіль" Then
vpv.Text = Val(kv.Text) * Val(zin.Text)
ElseIf Val(pp.Text) = "Одеса - Ялта" Then
vpv.Text = Val(kv.Text) * Val(zin.Text)
ElseIf Val(pp.Text) = "Одеса - Керчь" Then
vpv.Text = Val(kv.Text) * Val(zin.Text)
ElseIf Val(pp.Text) = "Одеса - Феодосія" Then
vpv.Text = Val(kv.Text) * Val(zin.Text)
Else
vpv.Text = Val(kv.Text) * Val(zin.Text)
End If
End Sub

но и тут что то не так((
...
Рейтинг: 0 / 0
ПОМОГИТЕ!!! Для тех кто знает VBA
    #37297904
Фотография AndreTM
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Это шутка?
Val(pp.Text) есть ЧИСЛО, а "Одеса - Севастопіль " - СТРОКА... и что вы сравниваете?
Вообще, для вычисления достаточно одной строки
Код: plaintext
vpv.Text = Val(kv.Text) * Val(zin.Text)
Вы учитывайте, что kv.Text вы заполняете вручную, а zin.Text изменяется в sud_Change()
Если же вы подразумеваете, что стоимость зависит еще и от километража, то у вас есть vids.Text , изменяющийся в pp_Change() , достаточно в формуле еще и на него домножить...
...
Рейтинг: 0 / 0
ПОМОГИТЕ!!! Для тех кто знает VBA
    #37297906
AndreTM,

я просто уже переусерствовала...
огромное спасибо вам AndreTM...

чесно говоря, я просто немного затупила(((
...
Рейтинг: 0 / 0
ПОМОГИТЕ!!! Для тех кто знает VBA
    #37300487
Фотография Ser Artur
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
МОгу программно сделать через макрос если интересует то пишите и еще Поподробнее опишите что откуда и куда должно вписываться :)
С уважением Артур
...
Рейтинг: 0 / 0
9 сообщений из 9, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / ПОМОГИТЕ!!! Для тех кто знает VBA
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]