20.12.2023 12:38:16
Здравствуйте. Может спрашиваю чушь несусветную: можно как-то заполнять ListBox, не задействуя лист и не вписявая вручную в UserForm_Initialize. А, к примеру, как у меня на форме, вносим в TextBox значение, кнопкой 1 заносим его в ListBox, а это значение бы записывалось в UserForm_Initialize. И наоборот, при выборе в ListBox, кнопкой 2 удалялось. Просто ради небольшого списка держать лист... Что скажите?
|
|
|
18.12.2023 18:40:41
Здравствуйте. В процессе работы в книге заполняется лист "Калькуляция". После окончания работы лист "Калькуляция" копируется, сохраняется в новой книге, которая закрывается. В книге, которой вели заполение, таблицы очищаются от заполнения и книга закрывается с сохранением (чистый шаблон для новой работы).
Макрос: 1. Копирование листа из книги №1 и сохранение его в новой 2. Очистка таблиц на листе в книге №1 3. Закрытие книги №1 с сохранением Первый и третий пункты выполняются, а второй нет. Посмотрите, пожалуйста, в чём причина. Для теста нужно внести любой текст в А1 (учавствует в имени нового файла), какие-нибуди записи в таблицы, любую цифру в столбце "Стоимость" и нажать на кнопку "Сохранить" |
|
|
18.12.2023 08:30:56
Здравствуйте. В нескольких файлах использовал выложенный код и он работал нормально (разница только, что имя листа брал из Textbox, сейчас из ячейки). В новом файле выдаёт ошибку в строке, в которой присваивается имя листу. Пробовал вместо текста из ячейки вписать конкретный текст, но безрезультатно. Подскажите в чём ошибка
|
|||
|
15.12.2023 08:23:10
Здравствуйте. Никак не получается увеличить размер таблицы. Прошу поправить код
|
|||
|
14.12.2023 16:34:38
Здравствуйте. Создаю умные таблицы с именами "Таблица1", "Таблица2" и т.д. Нашёл код, который выводит список имён на лист. Как можно выделить из кода только номер последней таблицы или, используя другой метод, сделать это? Цифру буду использовать для номерации следующих таблиц. Сделаю счётчик: счётчик. текст= полученное значение+1
|
|||
|
14.12.2023 06:31:00
Здравствуйте. Книга заполнения калькуляции. При окончании работы лист "Калькуляция" сохраняется в новой книге, а файл, в котором работали закрывается без сохранения. В процессе работы возникают моменты, когда нужно не в листе "Калькуляция" сделать изменения (новые цены, ед. изм и т.д.). Хотел на кнопку сделать код, что после внесённых изменений все листы сохраняются за исключением листа "Калькуляция", так как в нём могут быть уже внесённые данные (это до закрытия книги), но найти подходящий не смог. Прошу помочь с кодом
|
|
|
06.12.2023 10:01:26
Здравствуйте. Нашёл код, в котором происхотит поиск текста в умной таблице. Строка найдена - это хорошо, но не могу найти как адресно внести изменения в столбцах этой строки. Нашёл пример: With ActiveSheet.ListObjects("Таблица1")
Debug.Print .Range.Cells(5, 4) Debug.Print .ListColumns(4).Range(5) Debug.Print .ListRows(4).Range(4) End With но выдаётся ошибка. Прошу помочь
|
|||
|
03.12.2023 09:03:35
Здравствуйте. При вводе текста в Combobox "ИмяПодраздела" происходят странные вещи. Если текст по-английски, то всё нормально. Если по-русски, то смотря с какой буквы начало текста. Не все буквы проверял, но на "Б" - ошибка, на "П" - нормально. Вообще код должен работать примерно так: проверка на наличие в столбце "А" наименований таблиц (они же входят в заполнение Combobox "ИмяПодраздела"). Если текста, который вносим в Combobox "ИмяПодраздела" поиск не дал положительного ответа, то завершение макроса. Помогите найти ошибку
|
|||
|
30.11.2023 14:22:17
Здравствуйте. На форме "БазаФурнитуры" есть кнопка, при помощи которой я могу добавить лист с именем, введённым в Combobox "ИмяРаздела". В последствии все имена созданных листов являются заполением Comobox "ИмяРаздела". Всё работает, всё замечательно, но при дальнейшей работе мне нужно стало соэдать формы с именами "БазаМатериала", "БазаРабот", "БазаУслуг". На них тоже есть кнопки для создания листов и комбобоксы, в которые должны входить соответствующие имена листов (кодов на них нет). Помогите с кодом, который будет сортировать имена листов в соответствующий комбобокс (с какой формы создавали лист, в комбобокс этой формы он и входит.
|
|
|
27.11.2023 09:23:37
Здравствуйте. Заполняю Combobox ("ИмяФурнитуры") диапазоном из 1 столбца умной таблицы. Нашёл код, но в Combobox приходит и текст первой строки таблицы ("Наименование"). Как взять диапазон от строки наименований и ниже или взять диапазон из Диспетчера имён (в нём диапазон без строки наименований)? Исправьте пожалуйста код
|
|||
|
25.11.2023 11:12:18
Здравствуйте. В Combobox2 выпадающий список состоит из заголовков таблиц на листе (Текст1, Текст2 и.т.д). Combobox1 нужно заполнить данными, расположенными между выбранным текстом в Combobox2 и его следующим текстом (к примеру выбрали Текст2. Combobox1 должен заполниться данными из таблицы от Текста 2 до Текста3). При выборе в Combobox2 к примеру Текст1 - должен очиститься лист Combobox1 от предыдущего заполнения и заполнится данными от Текста1 до Текста2. Я написал код, но заполнение Combobox1 выдаёт ошибку. Прошу проверить её
|
|
|
20.11.2023 13:55:58
Здравствуйте. Не получается заполнить лист ИмяФурнитуры (Combobox) кнопкой "Войти" из первого столбца таблицы ИмяПодраздела.Text (текст в TextBox). Таблица создаётся с именем из текста в TextBox "ИмяПодраздела", но при вставке в код ИмяПодраздела.Text - получается ошибка. Если в код вписать "Кухонные" вместо ИмяПодраздела.Text, то код работает. Таблиц предполагается много, поэтому нужно обращаться к имени таблицы. Не могу разобраться, прошу помочь.
Этот код не работает
Этот работает
|
|||||
|
08.11.2023 09:53:13
Здравствуйте. Есть лист с таблицей, в которой нужна проверка на заполенность хотя бы одной ячейки от столбца "B" до столбца "U" в каждой строке. Если есть заполенность, то строка копируется и вставляется на лист "Печать" со второй строки (первая нужна для заголовка). Прошу помочь с макросом
|
|
|
04.05.2023 14:49:07
Здравствуйте. Сравниваю столбцы I листов Калькуляция и HiddenSheet на несовпадение. Не могу написать код для определения строк, на которых в столбце I отличаются значения. Нашёл код, переделал его, но не получилось. Прошу помочь. И просьба, чтобы MsgBox в сообщении писал все адреса этих строк. Спасибо
|
|
|
02.05.2023 13:17:24
Здравствуйте. Прошу помочь решить вопрос. На защищённом листе в столбце I:I может появиться текст "Нет цены в прайсе", полученный формулой. Если появляется такой текст, то в ячейке G в той же строке разблокируется ячейка. Код срабатывает, если разблокировать лист, встать в строку формул ячейки с текстом "Нет цены в прайсе" и нажать на Ввод (в этот момент лист снова блокируется макросом). Получается, что для работы макроса нужно какое-то обновление. Что подскажите?
|
|||
|
01.05.2023 05:28:31
Здравствуте. На форме расположены кнопки, макросы которых скрывают ненужное и показывают таблицу, соответстующую кнопке. Пока не добавил в макросы отключение и включение обновления экрана, таблицы были вверху листа, но было видно действие макроса. После отключения и включения обновления экрана стал хаос - некоторые таблицы вверху листа, некоторые внизу листа и, чтобы с ними работать, нужно лифтом поднять вверх. Что сделать, чтобы все таблицы после нажатия на кнопку былы вверху листа?
|
|
|
22.04.2023 06:28:16
Здравствуйте. Нашёл файл с макросом, в котором производится раскрой погонных материалов. Просьба внести изменения в код, чтобы результат раскроя можно было регулировать до десятых и целых. В ячейку E1 вписывать точность округления. Некоторый материал можно приобретать не целой штукой, а её частью. Спасибо
|
|
|
23.03.2023 15:17:20
Здравствуйте. Не могу разобраться. Макрос "НеВыпускают" срабатывает 2 раза. В ячейках I75:I83 значение "не бывает" получено формулой. Для теста этого макроса нужно выбрать в производителе Антарес_38, в категории 3 или 4, или 5, или 6, в наименовании Столешница 4200*600*38. Прошу помочь
|
|||
|
22.03.2023 09:13:48
Здравствуйте.
Идея1: При выборе из выпадающего списка значений в В75:В83, состоящих из W2:W9 на листе "Вспом" (они же на листе "Калькуляция" К75:К82, но это только для проб), в соседней ячейке С75:С83 должен появиться текст "нет_категории". Если так: If Range("B75").Value = "Скиф" Then Range("C75").Value = "нет_категории", то макрос выполняется, но Excel потом зависает, да и макрос будет очень большой, так как нужно перебрать возможный выбор и это повторить для диапазона В75:В83 - не вариант Идея2 (альтернативная, но лучше сделать идею1): Начал делать через MsgBox, убрав появленние в ячейке текста "нет_категории", и вместо него сделал MsgBox с текстом: "В столбце *Категории* выбирайте *нет_категории*", но сообщение в одном макросе выходит второй раз при выборе нужного текста в ячейке столбца С, либо в другом макросе появляется такое количество раз, сколько ячеек заполняем в столбце В. Я написал кучу макросов, но ни один из них не работает как нужно (на листе 6 (Калькуляция)) Идея3: И ещё подобный макрос, но отрабатывающий ячейку в столбце I. Если в этой ячейке появляется текст "не бывает" (результат формулы), то MsgBox сообщает: "Столешницы в выбранном сочетании не выпускают". MsgBox тоже появляется 2 раза. Для теста этого макроса нужно выбрать в производителе Антарес_38, в категории 3 или 4, или 5, или 6, в наименовании Столешница 4200*600*38., макрос Sub НеВыпускают. Прошу исправть макросы или написать что исправить. Файл прилагаю. Спасибо |
|
|
26.02.2023 15:13:58
Здравствуйте. Нашёл 2 кода, но оба не соответствуют нужному. При выполнении первого кода картинка может быть значительно меньше размеров объединённых ячеек. При выполнении второго кода картинка по высоте равна высоте объединённых ячеек, но может быть значительно шире. Нужное - это загрузка картинки по размеру объединённых ячеек, но с сохранением пропорций. Прошу исправить код и написать каким пользоваться. Спасибо
|
|||||
|
24.02.2023 07:06:58
Здравствуйте. Просьба помочь в написании кода. На форме «Замер» кнопка «Выбрать файлы замера». При нажатии на неё выбираем папку с картинками (расширения картинок могут быть разными), переименовываем картинки по именам Заказ.Поле1_9 & «1», Заказ.Поле1_9 & «2» и т.д., создаём папку с именем «Дизайн-проект & Заказ.Поле1_9» рядом с рабочим файлом Excel, в ней создаём папку с именем «Замер & Заказ.Поле1_9» и в неё сохраняем выбранные и переименованные картинки; в Замер. Label2.Caption записываем путь сохранения папки «Дизайн-проект & Заказ.Поле1_9». На форме «Оформить» кнопка «Оформить и выйти». При нажатии на неё листы «Проект» и «Комплектация» сохраняются отдельными книгами в папку «Дизайн-проект & Заказ.Поле1_9» (путь для неё записан в Замер. Label2.Caption при сохранении картинок). Заранее спасибо. |
|
|
19.02.2023 07:29:38
Здравствуйте. Код работает на заполнение таблицы. Заполненных строк может быть 2 или 3, или 4. Нужно, чтобы провёлся подсчёт заполненных ячеек в столбце "О" в диапазоне работы макроса и столько ячеек объеденились в столбце "N". Я нашёл код по подсчёту заполненных ячеек, переделал под себя, но видимо не правильно, так как постоянно выдаёт, что заполненных ячеек 1. Записал код объединения ячеек, чтобы его переделать, но пока он стоит без доработки, так как для него не могу определить диапазон. Прошу помочь в написании кода объединения ячеек в столбце "N". Код на форме "Навигация". Спасибо
|
|||
|
15.02.2023 13:28:47
Здравствуйте. На форме "Заказ" находятся комбобоксы и текстбоксы. Рассмотрим работу комбобокса с именем Поле1_8. Список для ComboBox: Поле1_8.List = Лист5.[C2:C10].Value. На форме есть кнопка, которая закрывает форму (Hide), открывает Лист5 для внесения в список изменений или дополнений и на листе размещает кнопку "ИзФирма" для выхода с Листа5 и открывания формы "Заказ" для дальнейшей работы. Если изменения на Лист5 внесены, то они не отображаются в Поле1_8. Если я к кнопке "ИзФирма" добавляю Unload Заказ, то появляется изменённый список, но внесённые данные в текстбоксах пропадают, а мне нужно, чтобы они остались, чтобы можно было дальше заполнять форму с обновлённым комбобоксом. Напишите, пожалйста, код обновления формы или комбобокса, но, чтобы внесённые данные в других Controls оставались . Спасибо
|
|
|
01.02.2023 09:43:11
Здравствуйте. Коды работают, но немного между собой конфликтуют. Понимаю, то, что сам написал, то так и работает. Прошу поправить код. Суть вот в чём: На форме «ЦокольПлинтус» есть несколько рамок (Frame1, Frame3, Frame4, Frame5), в которых находятся поля для проверки их заполнения (TextBox и ComboBox). 1. Конкретно для каждого поля есть код проверки с выдачей MsgBox нужной информации (какое поле не заполнено). 2. Есть код для проверки, если начали заполнять в определённой рамке, но не закончили (есть в некоторых полях данные, а в некоторых нет) 3. Есть код для проверки, что все поля в рамке заполнены, но не нажата кнопка завершения выбора материала (кнопка суммирует с полей всю информацию и она проявляется в Label, расположенном рядом с кнопкой) 4. После заполнения всех полей рамки и нажатой кнопки есть вариант выйти и закрыть форму. Если я это прописываю в коде, то мы выходим и закрываем форму, а для выбора следующего материала, нужно снова открыть форму – не очень удобно. Чтобы это избежать, я сделал MsgBox с 2-мя кнопками Остаться или Выйти. 5. Вот здесь и начинается моя проблема. При незаполненных полях или не нажатой кнопке при выборе следующего материала, выходят сообщения MsgBox из выбора первого материала. Как сделать, чтобы они не выходили? Коды почти все писал сам, так что не падайте в обморок от моей безграмотности. Если будете оптимизировать вообще принцип проверок заполнения, то прошу сделать с комментариями, так как форм будет много, в которых будет подобная проверка, и мне нужно будет подгонять код под них. Спасибо |
|
|