Сам не могу придумать такой простой макрос

@vitavtas · Регистрация: 22.04.2012

Студворк — интернет-сервис помощи студентам

Здравствуйте! Никак не могу разобраться, как решить вот такую задачу в своей
базе данных:
упрощенно все выглядит так - у меня лист с данными о финансовых движениях, и
соответственно еще два листа - покупатели и поставщики. Ввожу стандартные данные - дата, кто, сумма, и, собственно, имя корреспондирующего листа. Так вот как мне заставить перенестись при вводе в следующую пустую ячейку колонки G на листе с деньгами слОва "поставщики" все остальные данные из этой строки на следующую незаполненную строку в листе "поставщики" и при вводе, соответственно, слова "покупатели" перенести данные в лист "покупатели".
Вот так. Собственно, я в этих делах не особо волоку, но понимаю, что для знающего человека это ерунда. Помогите пожалуйста, а то меня эта идея крепко зацепила, да не по зубам. Заранее благодарен.

@vitavtas · 25.04.2012, 21:30 **[ТС]**

Я ВЕСЬ В НЕТЕРПЕНИИ!!!

25.04.2012, 21:39

Послал...

@vitavtas · 26.04.2012, 23:02 **[ТС]**

Сумрак! Огромное СПАСИБО!
Это именно необходимый мне старт. Дальше я плясать сам начал как надо.
А может, мне пива бандеролью отослать? Я серьезно. Только на мыло мне необходим почтовый адрес. Если он будет - воспринимаю это как руководство к действию.
Хоть когда жду. (даже через год не забуду. на полном серьезе говорю).
И еще (не достал еще?): вот только это теперь понять не могу - ну почему он мне говорит, что
expected end sub?
наверное, тут меня каждый поправить сможет. Ведь ЭТО семечки?

Visual Basic
1
2
3
4
5
6
7
8
9
Private Sub CMD1_Click()
If Проверка = True Then
    Private Sub OB1_Click()
        If Проверка = True Then
    Заполнить 1
        End If
    End Sub
End If
End Sub

Моя ламерская логика подсказывает, что надо именно так. А комп против...

27.04.2012, 12:16

Доброго времени суток
Хех... За пиво спасибо. Буду в Ваших краях выпьем :-)
Нельза процедуру в процедуру запихивать

Visual Basic
1
2
3
4
5
6
7
8
9
Private Sub CMD1_Click()
  If Проверка = True Then
    OB1_Click
  End If
End Sub.
 
Private Sub OB1_Click()
  If Проверка = True Then Заполнить 1
End Sub

Врт это будет работать...

Процедурой считается все что между

Visual Basic
1
2
3
Sub
' - - -
End Sub

Но можно их вызывать по имени из других процедур

@vitavtas · 28.04.2012, 12:51 **[ТС]**

Ну, спасибо! это ведь и действительно элементарно.
А можно последний-последний вопрос? =)
Вот то, что у меня там две валюты было заложено - это очень хорошо.(я тугрики в рубли переименовал)
И вот каким теперь кодом устроить проверку на четыре комбинации:
Баксы в поставщиков, баксы в покупателей (Ну, это и так было)
РУБЛИ в поставщиков и РУБЛИ в покупателей.
Так еще и загвоздка в том, что внутри базы все исчисляется баксами, и
в листе рублей есть колонки "курс" и "в баксах" Так в лист с покупателями
должна попадать сумма , полученная путем деления рублевой суммы на курс.
Это легче устроить через вставку в форму дополнительного поля ввода (курс)?
Наверное, надо сделать так: когда нажата кнопка покупатели/поставщики, проверить, была ли выбрана позиция "Рубли", и если так, то считать данные из поля "курс", Разделить на эту цифру введенную рублевую сумму и полученный результат воткнуть в лист покупатели/поставщики и в ячейку колонки "в баксах" на рублевом листе.
Правильно?
ВНИМАНИЕ, ВОПРОС

как это должно выглядеть в VBA?
С уважением к программистам, рекламист.

29.04.2012, 12:50

ПРоверка...с вариантами...
Select case True
Case A<>С and B<>D
... действия
Case A=С and B=D
... действия
Case ... Другое выражение
... действия
End select

29.04.2012, 12:55

Да.. при Select case
Поверяются все значения
если выражение
select case true
case a<>b
a=b
case a=b
a=c
end select
Ввыполнятся согласно выражений выполнятся оба действия. В итоге а будет равно с

Новые блоги и статьи Все статьи Все блоги /
Программное добавление префикса в нумерацию документов Maks 27.10.2026 Реализация из решения ниже выполнена в самописной конфигурации на БСП (помощь начинающему коллеге). Задача: Программно добавить префикс в нумерацию документов. Решение: В модуле объекта. . .	После закрытия оутлука продолжает висеть процесс в диспетчере задач Maks 27.10.2026 С недавнего времени в продакшене возникла проблема: при закрытии оутлука в диспетчере задач продолжал висеть процесс outlook. exe. Проблема возникла после установки MS Office 2021 LTSC на машинах, под. . .	Baragoz - DPS/HPS бот для WoW 3.3.5a, многоязычный AmbA 26.10.2026 Хотите ещё ботов? У меня есть один! А я пока отдохну от него. https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=12062&stc=1&d=1793007952 Инструкция внутри. https:/ / youtu. be/ VpfFZSUDGnQ. . .	Особенности gif сгенерированных в Си russiannick 21.10.2026 Рассмотрим генерацию gif файлов, которые в Си имеют свои особенности. Gif представляет собой графический формат популярный в интернете. Посмотрим на палитру. Gif файл сгенерированный в си отличается. . .
FPS контроллер с анимированными Y-Bot и 3D-звуком miniaudio (Box3D, Recast, BehaviorTree.CPP, ozz-animation, ImGui, OpenGL и SDL3) 8Observer8 18.10.2026 Содержание блога \| English Version Полное мультиплатформенное руководство по стартовому проекту с FPS-контроллером игрока, анимированными роботами Y-Bot с 4-слойным блендингом, 3D-физикой Box3D,. . .	Локальный http сервер Argus19 17.10.2026 Локальный http сервер На работе, на двух локальных компьютерах круглосуточно работают программы опроса приборов с записью в книги Excel,которые раз в сутки записываются на сервер компании. Т. к. . . .	Копировать Windows на новый диск на UEFI damix 17.10.2026 https:/ / uriesk. wordpress. com/ 2016/ 11/ 01/ move-window-10-to-ssd-on-a-uefi-dualboot-system-with-basic-linux-tools/ TL DR Вставляем диск, а старый подключаем через переходник, грузимся с лайва. . .	ИИ не может найти нужный язык в списке Supersumestria 05.10.2026 Я ему даю вот такое изображение и прошу найти и подчеркнуть немецкий язык. Возвращает он вот это: https:/ / i. **********/ vqBWLe2. png Нужную строчку в 3й колонке просто выдумал. . Это. . .

@vitavtas 0 / 0 / 0 Регистрация: 22.04.2012 Сообщений: 8

	Сам не могу придумать такой простой макрос 22.04.2012, 17:13. Показов 4918. Ответов 26 Метки нет (Все метки) Здравствуйте! Никак не могу разобраться, как решить вот такую задачу в своей базе данных: упрощенно все выглядит так - у меня лист с данными о финансовых движениях, и соответственно еще два листа - покупатели и поставщики. Ввожу стандартные данные - дата, кто, сумма, и, собственно, имя корреспондирующего листа. Так вот как мне заставить перенестись при вводе в следующую пустую ячейку колонки G на листе с деньгами слОва "поставщики" все остальные данные из этой строки на следующую незаполненную строку в листе "поставщики" и при вводе, соответственно, слова "покупатели" перенести данные в лист "покупатели". Вот так. Собственно, я в этих делах не особо волоку, но понимаю, что для знающего человека это ерунда. Помогите пожалуйста, а то меня эта идея крепко зацепила, да не по зубам. Заранее благодарен. 0

@vitavtas 0 / 0 / 0 Регистрация: 22.04.2012 Сообщений: 8
	25.04.2012, 21:30 [ТС]
	Я ВЕСЬ В НЕТЕРПЕНИИ!!! 0

@vitavtas 0 / 0 / 0 Регистрация: 22.04.2012 Сообщений: 8
	28.04.2012, 12:51 [ТС]
	Ну, спасибо! это ведь и действительно элементарно. А можно последний-последний вопрос? =) Вот то, что у меня там две валюты было заложено - это очень хорошо.(я тугрики в рубли переименовал) И вот каким теперь кодом устроить проверку на четыре комбинации: Баксы в поставщиков, баксы в покупателей (Ну, это и так было) РУБЛИ в поставщиков и РУБЛИ в покупателей. Так еще и загвоздка в том, что внутри базы все исчисляется баксами, и в листе рублей есть колонки "курс" и "в баксах" Так в лист с покупателями должна попадать сумма , полученная путем деления рублевой суммы на курс. Это легче устроить через вставку в форму дополнительного поля ввода (курс)? Наверное, надо сделать так: когда нажата кнопка покупатели/поставщики, проверить, была ли выбрана позиция "Рубли", и если так, то считать данные из поля "курс", Разделить на эту цифру введенную рублевую сумму и полученный результат воткнуть в лист покупатели/поставщики и в ячейку колонки "в баксах" на рублевом листе. Правильно? ВНИМАНИЕ, ВОПРОС как это должно выглядеть в VBA? С уважением к программистам, рекламист. 0

Сумрак
	29.04.2012, 12:50
	ПРоверка...с вариантами... Select case True Case A<>С and B<>D ... действия Case A=С and B=D ... действия Case ... Другое выражение ... действия End select

Сумрак
	29.04.2012, 12:55
	Да.. при Select case Поверяются все значения если выражение select case true case a<>b a=b case a=b a=c end select Ввыполнятся согласно выражений выполнятся оба действия. В итоге а будет равно с