» Excel FAQ (часть 2)

init0
В функцию Change текстового поля с наименованием вставляешь примерно такой код:
Код: Private Sub TextBox1_Change()
r = Range("A12:A20").Find(TextBox1.Value, LookIn:=xlValues).Row
TextBox2.Value = Cells(r, 2).Value
TextBox3.Value = Cells(r, 3).Value
End Sub

Добрый день. У меня загвоздка. Как внедрить длинную таблицу Excel в Word, чтобы она не застревала на 1 странице?. Для невнимательных уточню, именно внедрить, не вставить простым копипастом. Работаю с версией 2000.

Yuk
Можно по-подробнее действия описать. Я в Excel'e не очень силен.

init0
Вопрос, который я должен был задать в первую очередь. Что за форма? Сам делал? Кто-то другой? Или из меню Данные-Форма?

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

init0
а автофильтр не пробовали?
Выбираете нужный швеллер и получите нужные параметры
но это если Вам просто посмотреть!!!
если нужно для рассчетов, то приведите пример таблицы, тогда будет понятнне что Вам надо и как решать данную задачу

Yuk, спасибо тебе огромное.

P.S. Не подскажите можно ли ограничить максимальное кол-во символов в ячейке, скажем 30 включая пробелы?

Gatti

Цитата:

можно ли ограничить максимальное кол-во символов в ячейке, скажем 30 включая пробелы?

Данные - Проверка, Тип данных - Длина текста, Значение - меньше или равно, Максимум - 30

Спасибо, очень выручил.

Цитата:

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

init0
Это можно сделать с помощью функции ВПР.

init0
2 способа.

1. С формулами. Плюс - не нужно использовать VBA. Минусы - если наименование не найдено или не введено, выдаст ошибку; при вводе новых строк, нужно также копировать формулы.

2. Через VBA. Плюсы и минусы противоположные формулам. А также более гибкая обработка ошибок; макрос запускается при любом изменении на листе расчетов.

Какой вариант выбрать - решать тебе.
Итак,

1. В ячейку B2 листа ЛистКалькуляция вводишь формулу:

Код: =ИНДЕКС(ЛистСортамент!B$2:B$200;ПОИСКПОЗ(ЛистКалькуляция!$A2;ЛистСортамент!$A$2:$A$200;0);1)

init0
Пришли мне на мыло,я попробую разобраться.

есть задача: ячейка содержит 10001, необходимо добавить спереди 0 и разбить через 2 числа пробелом, то есть как 01 00 01
как это можно сделать?

hansi
Числа всегда пятизначные? Если да, то вот так =ЛЕВСИМВ(0&A1;2)&" "&ПСТР(0&A1;3;2)&" "&ПРАВСИМВ(0&A1;2)

hansi

Цитата:

есть задача: ячейка содержит 10001, необходимо добавить спереди 0 и разбить через 2 числа пробелом, то есть как 01 00 01   как это можно сделать?

В формате ячейки поставь следующее:
00" "00" "00

ZORRO2005
Способ интересный А если у hansi будут 3-значные числа?

Mushroomer

Цитата:

Способ интересный А если у hansi будут 3-значные числа?

А если он захочет умножить твое число?
Лучше узнать у hansi что ему больше подходит.

Цитата:

А если у hansi будут 3-значные числа?

Получится 00 01 23
Но можно формат назначить разный для разных чисел

Yuk
Все отлично заработало! Попробовал оба варианта. Второй вариант мне показался удобнее. Спасибо огоромнейшее за терпение и столь полное решение данного вопроса. С меня пиво
P.S.: Так же хочу поблагодарить Vetal303 и ZORRO2005 за отзывы.

День добрый.
Данного вопроса ранее не увидел.

Имею много листов Excel - листы в целом однотипные, но с чуть разным расположением данных и разной информацией. С этих различных листов надо, например, получить значения полей «Тип организации».

Если указывать абсолютную ссылку, то вот так работает нормально:
=ВПР("Тип организации";Лист1!$1:$65536;2;ЛОЖЬ)

Но поскольку листов много (если сведут всю информацию - несколько сотен), вручную изменять наименование листов замучаешься, пытаюсь автоматизировать, и делаю один столбец (самый первый) с номерами листов, и пытаюсь получить данные следующим способом:
=ВПР("Тип организации";"Лист"&ДВССЫЛ(АДРЕС(0;1;3;ЛОЖЬ);ЛОЖЬ)&"!$1:$65536";2;ЛОЖЬ)

Но Excel выдает ошибку, причем когда я смотрю пошагово, то мою формулу он «сворачивает» вот до такого (с наличием кавычек, которые как я понимаю, означают, что у меня в итоге вместо задания диапазона получился просто текст):
=ВПР("Тип организации";"Лист1!$1:$65536";2;ЛОЖЬ)

Вопрос знатокам: как избавиться от этих кавычек и получить диапазон для функции? Точнее, как правильно написать формулу?

init0
Хорошая постановка задачи - практически решенная задача!


Цитата:

Токлько заметил: в раскрывающемся списке наменований позиции отображаются не до конца.

В сортаменте: В выпадающем списке:
Труба кв. сечения 14х14 Труба кв. сечения 14х14
Труба кв. сечения 15х15 Труба кв. сечения 15х15
Труба кв. сечения 16х16 Труба кв. сечения 16х16
Труба кв. сечения 17х17 Труба кв. сечения 17х17
Труба кв. сечения 20х20 Труба кв. сечения 20х20
Труба кв. сечения 25х25 Труба кв. сечения 25х25
Труба кв. сечения 30х30 Труба кв. сечения 30х30
Труба кв. сечения 35х35 Труба кв. сечения 35х35
Труба кв. сечения 40х40 Труба кв. сечения 40х40
Труба кв. сечения 50х50 Труба кв. се
Труба кв. сечения 60х60
Труба кв. сечения 70х70
Труба кв. сечения 80х80
Труба кв. сечения 90х90
Труба кв. сечения 100х100

С чем это может быть связанно?
И можно ли отключить макрос выпадающего списка ячейки?

Ограничение на длину формулы в Проверке (там все значения через запятую).
Простой выход - копировать колонку наименований в ЛистКалькуляция (можно формулами типа =ЛистСортамент!А2), а в Проверку вставлять эту область вместо реальных значений. Тогда можно и без макроса обойтись.


Добавлено:
GeorgeAS
Странная формула. $1:$65536 означает весь лист, правильно? Не медленно работает?
Попробуй заключить весь 2-й параметр ВПР в ДВССЫЛ еще раз.

Yuk
Ну что я могу сказать?
Похоже я еще на одну бутылку пива встрял)))
Спасибо!

Yuk
1) Странная формула. $1:$65536 означает весь лист, правильно? Не медленно работает?
- не медленно, хотя действительно переборщил, сделаю поменьше
2) Попробуй заключить весь 2-й параметр ВПР в ДВССЫЛ еще раз.
- УРРРААА!! Заработало! Огромное спасибо!
а MS - редиска, там ни в одном из хэлпов не было, что ДВССЫЛ может отсылать не только к ячейкам, но и к диапазону!

GeorgeASилиYuk

Цитата:

Попробуй заключить весь 2-й параметр ВПР в ДВССЫЛ еще раз. - УРРРААА!! Заработало! Огромное спасибо!

Напишите пожалуйста окончательную формулу т.к. вопрос очень хороший

Наконец получилось у самого
ВПР("Тип организации";ДВССЫЛ("Лист"&ДВССЫЛ(АДРЕС(0;1;3;ЛОЖЬ);ЛОЖЬ)&"!$1:$65536");2;ЛОЖЬ)

Господа, тут человек дублей наплодил по незнанию, т.ч. я осмелюсь обратиться от его имени...

Цитата:

Что случилось с Excelем ? Раньше работал нормально. Сейчас же появился глюк.
Заполняю ячейки. Все хорошо. Но как только становлюсь мышкой на движок справа, - комп виснет. Причем очень круто. Помогает только Reset. Макровирусов нет. Проверял.
Может у кого-нить была подобная...

...не спец я в Excele, не работаю в нем. Просто юзера достали. У них открыто несколько прог на компе, причем некоторые работают в реале. И вот из-за Excel приходится бутать машину. В общем воплей достаточно.
Может какие-то проги конфликтуют с Экселем? Может дело всеже в макровирусах, но ни NOD32, ни DrWeb их не видят? Черт его знает.

Кличут чела albich.
Помогите болезному

Pitersky

Цитата:

Макровирусов нет. Проверял.

А как насчет макросов? Есть?
Поотключать все настройки. Зайти в VBA редактор (Alt F11) и посмотреть, что там работает.
В крайнем случае возможно придется переустановить офис. Кстати, как в других приложениях офиса?


Цитата:

некоторые работают в реале

Не совсем понял, что это значит.

Всем привет.
Есть вопросик.
Соорудил калькулятор в экселе. Он показывает сколько денег щас подщитали.

Надо чтобы по нажатии кнопочки он скидывал деньги в графу где сейф.
Т.е. если есть там щас деньги то по нажатии Прибавить они прибавлялись, а при нажатии Отнять они отнимались.
Думаю что это при помощи макросов, только как незнаю.

Подскажите пожалуйста как это осуществить.
Зарнее спасибо.

Господа, помогите разобраться.
На лист вставил форму "список", ну т.е. из списка выбирается фамилия, как сделать чтобы на печать выводился только текст, без рамки самой формы и определенного стиля (шрифт, размер и т.д.).

Спасибо за участие.


Цитата:

А как насчет макросов? Есть?
Поотключать все настройки. Зайти в VBA редактор (Alt F11) и посмотреть, что там работает.
В крайнем случае возможно придется переустановить офис. Кстати, как в других приложениях офиса?

Макросов нет. Вообще-то тетки одну и ту же табличку заполняют. ( ну там - проданные билеты, тарифы, суммы) Больше ничего в Экселе они не делают. С Wordом проблем нет.
Офис переставлял. Ничего не изменилось.
У меня было подозрение, что жесткий диск сбоит. Но после перестановки офиса сделал дефрагментацию, а глюк в экселе все равно остался.


Цитата:

некоторые работают в реале

Не совсем понял, что это значит.

Я имел ввиду клиент-серверные приложения. Ну в общем - бронирование билетов. У тетки-агента открыто 3 таких программы. Плюс почта, плюс эксель, иногда ворд.
Она посылает запрос на сервак, бронирует. Потом переключится в Эксель, чтобы внести туда данные. А комп и завис. Снова все нужно грузить. В общем приятного мало.
Главное что все это не так давно началось. Месяца два назад.

sizop
Ты сделал через Данные -> Проверка -> Тип Данных -> Список? Шрифт и все такое надо делать прямо на этой ячейке со стрелкой. Рамка у меня никакая не печатается. А на предварительном просмотре у тебя тоже рамка есть?