Помогите создать макрос.

05.10.2006, 11:58. **Показов** 2066. **Ответов** 5

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

Имеются два листа одной книги Excel. На одном листе существуют три столбца значений (длина, ширина и высота) и пустой столбец. На другом листе забиты параметры для определенных длины ширины и высоты. Необходимо сделать процедуру , при выполнении которой эти значения подставлялись на первый лист для совпадающих длины, ширины и высоты. Как это можно сделать? Через массивы??

@Masalov · 05.10.2006, 13:44

Не думаю, что для такой задачи необходимо писать отдельный макрос...

Наверно можно обойтись только функцией =ВПР(...)

Единственное ВПР() сравнивает по одному параметру, а у Вас 3, но можно использовать дополнительную колонку, в которой объединить все 3 через функцию =СЦЕПИТЬ(...; ...; ...)

Удачи

@Ser Artur · 05.10.2006, 22:43

А Вы сделайте форму на неё вставтье ComboBox1, TextBox1,TextBox2, TextBox3
и впишите код для ComboBox1 в свойстве RowSource вставь Вase!A1:A100

Visual Basic
1
2
3
4
5
6
7
8
9
10
Private Sub ComboBox1_Change()
For n = 1 To 100
If ComboBox1.Text = Worksheets("Base").Range("A" & n) Then
TextBox1.Text = Worksheets("Base").Range("B" & n)
TextBox2.Text = Worksheets("Base").Range("C" & n)
TextBox3.Text = Worksheets("Base").Range("D" & n)
Exit For
End If
Next n
End Sub

И для кнопки

Visual Basic
1
2
3
4
5
6
7
8
9
10
Private Sub CommandButton1_Click()
For n = 1 To 100
If ComboBox1.Text = Worksheets("A").Range("A" & n) Then
Worksheets("A").Range("B" & n) = TextBox1.Text
Worksheets("A").Range("C" & n) = TextBox2.Text
Worksheets("A").Range("D" & n) = TextBox3.Text
Exit For
End If
Next n
End Sub

Это самое простое из всех ПОМОЕМУ

@Ser Artur · 05.10.2006, 22:49

Забыл сказать яйчеки A1:A100 листов /Base/ и /A/ должны быть одинаковыми

09.10.2006, 18:36

Здраствуйте!!!
возникла проблема с написанием макроса в Exsel
есть табличка (ФИО, телефон,адрес, итд)
нужно сделать так, чтобы при выделении какой-либо фамилии на отдельном листе появлялась эта фамилия с сопутствующей ей информацией.
Как это можно сделать? VB знаю очень поверхностно

@VladConn · 09.10.2006, 19:18

CaNNNя,
Приветствуем вас на форуме. Своим вопросом вы начали новую тему, поэтому просьба вынести ее в отдельную тему.
VladConn

Новые блоги и статьи Все статьи Все блоги /
Символьное дифференцирование igorrr37 13.02.2026 / * Логарифм записывается как: (x-2)log(x^2+2) - означает логарифм (x^2+2) по основанию (x-2). Унарный минус обозначается как ! в-строка - входное арифметическое выражение в инфиксной(обычной). . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .	И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»
SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image 8Observer8 10.02.2026 Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .	Установка Qt-версии Lazarus IDE в Debian Trixie Xfce volvo 10.02.2026 В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .

Beast

	Помогите создать макрос. 05.10.2006, 11:58. Показов 2066. Ответов 5 Метки нет (Все метки) Имеются два листа одной книги Excel. На одном листе существуют три столбца значений (длина, ширина и высота) и пустой столбец. На другом листе забиты параметры для определенных длины ширины и высоты. Необходимо сделать процедуру , при выполнении которой эти значения подставлялись на первый лист для совпадающих длины, ширины и высоты. Как это можно сделать? Через массивы??

@Masalov 22 / 5 / 1 Регистрация: 05.09.2010 Сообщений: 370
	05.10.2006, 13:44
	Не думаю, что для такой задачи необходимо писать отдельный макрос... Наверно можно обойтись только функцией =ВПР(...) Единственное ВПР() сравнивает по одному параметру, а у Вас 3, но можно использовать дополнительную колонку, в которой объединить все 3 через функцию =СЦЕПИТЬ(...; ...; ...) Удачи 0

@Ser Artur 1 / 1 / 0 Регистрация: 19.07.2011 Сообщений: 285
	05.10.2006, 22:49
	Забыл сказать яйчеки A1:A100 листов /Base/ и /A/ должны быть одинаковыми 0

СаNNNя
	09.10.2006, 18:36
	Здраствуйте!!! возникла проблема с написанием макроса в Exsel есть табличка (ФИО, телефон,адрес, итд) нужно сделать так, чтобы при выделении какой-либо фамилии на отдельном листе появлялась эта фамилия с сопутствующей ей информацией. Как это можно сделать? VB знаю очень поверхностно

@VladConn 6 / 6 / 3 Регистрация: 17.10.2007 Сообщений: 1,119
	09.10.2006, 19:18
	CaNNNя, Приветствуем вас на форуме. Своим вопросом вы начали новую тему, поэтому просьба вынести ее в отдельную тему. VladConn 0