| ← Май 2011 → | ||||||
|
1
|
||||||
|---|---|---|---|---|---|---|
|
2
|
3
|
4
|
5
|
7
|
8
|
|
|
9
|
10
|
11
|
12
|
14
|
15
|
|
|
16
|
17
|
18
|
19
|
21
|
22
|
|
|
23
|
24
|
25
|
26
|
28
|
29
|
|
|
30
|
31
|
|||||
За последние 60 дней ни разу не выходила
Сайт рассылки:
http://msexcel.ru
Открыта:
17-06-2006
Адрес
автора: job.education.exl-owner@subscribe.ru
Статистика
3.827 подписчиков
0 за неделю
0 за неделю
Andrey Lenets>> Re: CheckBox... Истина, ложь...
Профессиональные приемы работы в Microsoft Excel Выпуск 19 Подписчиков: 6013 Рассылка сайта "Профессиональные приемы работы в Microsoft Excel"
Новости сайта в формате RSS Порекомендуйте нашу рассылку друзьям Обратная связь Наши рассылки: Наши сайты Профессиональные приемы работы в Microsoft Excel bonifatiy.narod.ru Собор Смоленских святых. Жития, иконы, календарь памятных дат Смоленской епархии. StudentTools.Narod.Ru Для тех, кто любит учиться Наши друзья VBAtips.ru - wordexpert.ru planetaexcel.ru |
Новые сообщения форума "Профессиональные приемы работы в Microsoft Excel"
Код: Private Sub CheckBox1_Click()
If CheckBox1 Then Cells(2, 1) = "Есть" Else Cells(2, 1) = "Нет" End Sub Andrey Lenets>> Re: Макрос выгрузки данных в файл 2011-05-12 13:48 http://forum.msexcel.ru/profiles/nitrolis-u1631.html Как сделать, чтобы если нет доступа к компу, то макрос просто пропускал код выгрузки? (т.е. ну нет доступа, пропустили выгрузку, в следующую минуту если доступ появился - выгрузку сделал). добавьте первой строчкой в макросе следующий код:Код: On Error Resume Next 
Bomont>> Re: Макрос выгрузки данных в файл 2011-05-12 14:24 http://forum.msexcel.ru/profiles/bomont-u4849.html Спасибо, работает! Последний нюанс, можно если возникает ошибка - записать куда нибудь в ячейку сообщение об ошибке? Aleks373>> Самое частое текстовое значение 2011-05-12 14:58 http://forum.msexcel.ru/profiles/aleks373-u85015.html Сразу прошу прощения, если мой вопрос банальный... Опыт работы в Excel'e очень маленький, а в интернете нашел только функцию MODE, которая используется только для чисел.  Данные: множество наименований проданой продукции (текст) Цель: вывести в ячейке чаще всего продаваемый товар Заранее спасибо. MCH>> Re: подщет количества значений в таблице по нескольким парамертам 2011-05-12 15:10 http://forum.msexcel.ru/profiles/mch-u48782.html решение "в лоб" Код: =СУММПРОИЗВ(((ПРАВСИМВ($A$3:$O$3;2)<>"Вс")*($P$4:$P$29="6:00")+(ПРАВСИМВ($A$3:$O$3;2)<>"Сб")*(ПРАВСИМВ($A$3:$O$3;2)<>"Вс")*($P$4:$P$29="8:00"))*($Q$4:$Q$29="ПРОИЗВ")*($A$5:$O$30="23"))
vutaly>> Re: CheckBox... Истина, ложь... 2011-05-12 16:03 http://forum.msexcel.ru/profiles/vutaly-u74440.html Спасибо, работает) Все оказалось проще чем я думал)...но всплыл еще один вопрос, может глупый, но решить не смог. Привязываю к определенному листу через Worksheets и выдает ошибку Invalid use. Это важно, так как в книге несколько листов, по умолчанию первый, а изменение необходимо произвести на втором. Poltava>> Re: подщет количества значений в таблице по нескольким парамертам 2011-05-12 16:08 http://forum.msexcel.ru/profiles/poltava-u39021.html Ну спасибо как я сам не додумался почти сутки мучался!!!  Спасибо за ответ ну и конечно +1Poltava>> Re: Самое частое текстовое значение 2011-05-12 16:11 http://forum.msexcel.ru/profiles/poltava-u39021.html Отвечу за многих для простоты ПРИМЕР В СТУДИЮ MCH>> Re: Самое частое текстовое значение 2011-05-12 16:15 http://forum.msexcel.ru/profiles/mch-u48782.html Формула массива (вводится нажатием ctrl+shift+enter) Код: =ИНДЕКС(A1:A10;ПОИСКПОЗ(МАКС(СЧЁТЕСЛИ(A1:A10;A1:A10));СЧЁТЕСЛИ(A1:A10;A1:A10);0)) вместо A1:A10 укажите свой диапазон
GWolf>> Re: Работа из Excel с сайтом. Передача данных и прием результата. Расче маршрута. 2011-05-12 16:54 http://forum.msexcel.ru/profiles/gwolf-u4652.html entTyp = "Trace&City1=" & toIz & "&City5=" & toOu '& Chr(34) .WebTables = "57" исправила эти две строчки и все заработало Спасибо polioli ! Теперь осталось результат: лист marsrut, привести к табличному виду. Полагаю сделать это макросом.... diggydong>> требуется формула для расчета суммы за период, очень прошу помочь 2011-05-12 16:55 http://forum.msexcel.ru/profiles/diggydong-u85031.html Суть такова: имеются имеются три столбца 1 - время (чч:мм:сс); 2 - сумма покупки в 1 кассе; 3 - сумма покупки во 2 кассе. Необходима формула расчета суммы всех покупок в каждой кассе за каждую минуту, час, 12 часов  Буду очень признателен за помощь... GWolf>> Re: CheckBox... Истина, ложь... 2011-05-12 16:58 http://forum.msexcel.ru/profiles/gwolf-u4652.html Спасибо, работает) Все оказалось проще чем я думал)...но всплыл еще один вопрос, может глупый, но решить не смог. Привязываю к определенному листу через Worksheets и выдает ошибку Invalid use. Это важно, так как в книге несколько листов, по умолчанию первый, а изменение необходимо произвести на втором. Без примера кода привязки, трудно сказать, но ... попробуйте конструкцию: With worksheets("MyWS") End with Andrey Lenets>> Re: Макрос выгрузки данных в файл 2011-05-12 17:15 http://forum.msexcel.ru/profiles/nitrolis-u1631.html Спасибо, работает! как-то так:Последний нюанс, можно если возникает ошибка - записать куда нибудь в ячейку сообщение об ошибке? Код: For m = 1 To 100 'перебираем ячейки
Err.Clear If Sheets("Output").Cells(m, 11).Value <> "" Then MyFile = Sheets("Output").Cells(m, 11).Value ' путь к файлу указан в соседней ячейке Open MyFile For Output As #1 'открываем файл для чтения Print #1, Sheets("Output").Cells(m, 8).Value 'записываем все что есть в ячейке Close #1 End If If Err.Number <> 0 Then Sheets("Output").Cells(m, 13).Value = Err.Number & " - " & Err.Description Next m Bomont>> Re: Макрос выгрузки данных в файл 2011-05-12 17:28 http://forum.msexcel.ru/profiles/bomont-u4849.html Огромное спасибо! max write>> Отправка оповещений по email при изменении в файле и при наступлении выделенной 2011-05-12 18:07 http://forum.msexcel.ru/profiles/max_write-u85030.html Доброго времени суток, Необходимо написать программу, которая будет выполнять следующие задачи: Задача 1. Рассылка уведомлений на несколько email адресов при сохраненном изменении в одном из excel файлов. Пример уведомления: "Было совершенно изменение в файле "имя файла" на листе "имя листа" в ячейке A1 обратите внимание." Грубо говоря, где-то в свойствах файла сделать опцию/кнопку "при изменении файла отсылать уведомления на email адреса: xxx@kkk.com; yyy@xxx.ru (набиваются вручную)" Задача 2. Рассылка уведомлений на несколько email адресов при наступлении какой-то из дат в excel файле. Пример уведомления: "наступила дата, указанная в файле "имя файла" на листе "имя листа" в ячейке A1 обратите внимание. Грубо говоря, где-то в свойствах файла сделать опцию/кнопку "при наступлении какой-то из дат в файле отсылать уведомления на email адреса: xxx@kkk.com; yyy@xxx.ru (набиваются вручную)" Excel файлы к которым будут применяться данная программа лежат на локальном сервере. Пример файл... Б.Александр>> Выпадающие строки по коду + выборка и суммирование даных 2011-05-12 18:11 http://forum.msexcel.ru/profiles/baleksandr-u85024.html 1. Нужно сделать выпадающий список по выборе КОДа, чтобы на листе ЩОДЕННА при выборе (например) КОДа 99 автоматом заполнялись строчки Найменування об"єкту - Ш/пр біля ст. м. Нивки и Дільниця - Пн МЕД. 2. Сделать чтобы на листе НАКОПИЧУВАЛЬНА суммировались числа выбранные из листа ЩОДЕННА по марке асфальта и по КОДу пример: в ячейке Н6 должно получиться число 56.00 , это равно сумме ячеек выбраных из листа ЩОДЕННА по марке асфальта - холодный и по КОДу - 01. и.т.д. ....но это нужно сделать с перспективой заполнения таблицы в будущем, чтобы EXCEL сам автоматом выбирал и суммировал в нужные ячейки. Andrey Lenets>> Re: Отправка оповещений по email при изменении в файле и при наступлении выделенной 2011-05-12 18:15 http://forum.msexcel.ru/profiles/nitrolis-u1631.html очень много слабых мест... пользователь может отключить макросы вручную, их может отключить система безопасности или может быть не установлен в Офисе VBA... тогда ни о каких изменениях вы не узнаете. Пользователь может пересохранить файл у себя, исправить его дома, где угодно... без интренета, перезаписать и вы опять ничего не узнаете... если нужно отслеживать изменения в файле - лучше воспользоваться журналом изменений. ИМХО Serge 007>> Re: требуется формула для расчета суммы за период, очень прошу помочь 2011-05-12 22:05 http://forum.msexcel.ru/profiles/serge_007-u25260.html Ну и где пример? Нам рисовать? ZORRO2005>> Re: Самое частое текстовое значение 2011-05-12 23:19 http://forum.msexcel.ru/profiles/zorro2005-u4225.html для кучи: Код: =ИНДЕКС(A1:A10;МОДА(ПОИСКПОЗ(A1:A10;A1:A10;0)))
Serge 007>> Re: Самое частое текстовое значение 2011-05-13 00:10 http://forum.msexcel.ru/profiles/serge_007-u25260.html Aleks373, а если в массиве несколько лидирующих текстовых значений встречаются одинаковое число раз? Какое выводить? Почему не приложить пример? Мигель>> Re: Макрос? 2011-05-13 09:35 http://forum.msexcel.ru/profiles/migel-u84558.html А макрос сложный? есть какая нибудь инфа где подобные примеры разбирались? можете ссылку дать? я читал про макросы, но там какие то другие разбирались примеры и я не нашел применения к моей задаче Про точки, допустим написано 13,58 я точно так же переписываю 13,58 (ставлю запятую, а не точку) и он считает сумму! наверное придется все "старые" запятые на "новые" переписывать? можно ли этот процесс тоже как то автоматизировать? надеюсь это не так сложно как с первой задачей... подскажите пожалйуста, а то я свихнусь около 2 000 000 запятых переставлять! очень много данных (11 лет продаж и закупок автомобильных запасных частей) Виктория Зуева>> Re: Макрос? 2011-05-13 10:14 http://forum.msexcel.ru/profiles/buka3-u2668.html Про точки, допустим написано 13,58 я точно так же переписываю 13,58 (ставлю запятую, а не точку) и он считает сумму! наверное придется все "старые" запятые на "новые" переписывать? можно ли этот процесс тоже как то автоматизировать? надеюсь это не так сложно как с первой задачей... подскажите пожалйуста, а то я свихнусь около 2 000 000 запятых переставлять! очень много данных (11 лет продаж и закупок автомобильных запасных частей) С заботой о Вашем рассудке: посмотрела файл. У Вас там вроде число как текст хранится, вот и не считает. Сделайте ТАК: 1) Введите на листе в пустой ячейке 1. Выделите эту ячейку, скопируйте в буфер обмена. 2) Выделите столбцы "чисел" с зелеными уголками в верхнем левом углу. 3) Правка (или в контекстном меню - [abbr=клик правой кнопкой мыши]ПКМ[/abbr])- Специальная вставка - в разделе Операция переключатель на пункт Умножить. ОК Виктория Зуева>> Re: Макрос? 2011-05-13 10:49 http://forum.msexcel.ru/profiles/buka3-u2668.html У меня вот такая не простая задача. Есть куча файлов с кучей данных которые нужно привести к "нормальному виду". Можно ли этот процесс автоматизировать? В прилагаемом файле: лист 1 - то что имеется лист 2 - то что нужно получить Чем обусловлен именно такой "нормальный" вид? На мой взгляд, на обоих листах - очень неправильная организация хранения данных. Совсем непригодная для сортировки, фильтрации, обработки через [url=http://msexcel.ru/content/view/34/2/]_сводные_[/url] таблицы. cheshiki1>> Re: Выпадающие строки по коду + выборка и суммирование даных 2011-05-13 12:40 http://forum.msexcel.ru/profiles/cheshiki1-u14363.html по первому вопросу - см вложение с 418 строки. Б.Александр>> Re: Выпадающие строки по коду + выборка и суммирование даных 2011-05-13 12:50 http://forum.msexcel.ru/profiles/baleksandr-u85024.html по первому вопросу - см вложение с 418 строки. СУПЕР! Расскажите пожалуйста как Вы это сделали? по пунктам если можно Wasilic>> Re: Выпадающие строки по коду + выборка и суммирование даных 2011-05-13 13:59 http://forum.msexcel.ru/profiles/wasilic-u24852.html Ну, или так! Макрос обьяснять не буду!  cheshiki1>> Re: Выпадающие строки по коду + выборка и суммирование даных 2011-05-13 14:50 http://forum.msexcel.ru/profiles/cheshiki1-u14363.html для списка смотри: Диспетчер имен и Проверка данных. Для 2007 вкладки Формулы-Диспетчер имен и Данные-Проверка данных. А все остальное всего лишь формулы. по каждой функции использованной в формуле есть справка. Или задавай конкретный вопрос, что именно не понятно. Wasilic>> Re: Выпадающие строки по коду + выборка и суммирование даных 2011-05-13 15:57 http://forum.msexcel.ru/profiles/wasilic-u24852.html Добавил цвет участка! Б.Александр>> Re: Выпадающие строки по коду + выборка и суммирование даных 2011-05-13 16:29 http://forum.msexcel.ru/profiles/baleksandr-u85024.html Спасибо Огромное! cheshiki1 и Wasilic А как на счёт второго вопроса? ...там где нужно сделать выборку-сбор данных из таблицы на отдельный лист. cheshiki1>> Re: Выпадающие строки по коду + выборка и суммирование даных 2011-05-13 17:02 http://forum.msexcel.ru/profiles/cheshiki1-u14363.html Так у Wasilic сделано. Если что то не то пишите. alexexcel>> Формула возвращающая название листа не работает для слова Сняткова 2011-05-14 00:37 http://forum.msexcel.ru/profiles/alexexcel-u29749.html Для Снятков работает и для Сняткован работает. А для Сняткова формула =MID(CELL("filename",C1),FIND("]",CELL("filename",C1))+1,256) выдает #VALUE! Эксель 2003. Баг? Валерий DVL>> Re: VBA Access. Использование ADO 2011-05-14 13:29 http://forum.msexcel.ru/profiles/dvl41-u1476.html Спасибо! Всё "ok" evg>> Веб запрос с параметром 2011-05-14 13:39 http://forum.msexcel.ru/profiles/evg-u85287.html Всем привет. При выполнении макроса, выполняется веб запрос с параметром, я ввожу параметр и у меня всё прекрасно работает, а возможно ли сделать так, чтобы значение параметра не вводить самому, т.е. чтобы Excel брал значение параметра из какой-то определенной ячейки, значение которой я буду менять после выполнения запроса. Aleks373>> Re: Самое частое текстовое значение 2011-05-14 15:00 http://forum.msexcel.ru/profiles/aleks373-u85015.html для кучи: Работает почти так как мне надо, только в случае одинакового кол-ва выдаёт то значение, которое стоит выше, а хотелось бы, чтобы выдало оба (или более, если их много).Код: =ИНДЕКС(A1:A10;МОДА(ПОИСКПОЗ(A1:A10;A1:A10;0))) Пример могу выложить такой (не думаю что данные имеют значение, написал что попало). Prist>> Re: Самое частое текстовое значение 2011-05-14 15:14 http://forum.msexcel.ru/profiles/prist-u4859.html Что-то вроде того(см.пример) Ошибку можно подавить Условным форматированием или утяжелением формулы. Prist>> Re: Веб запрос с параметром 2011-05-14 15:16 http://forum.msexcel.ru/profiles/prist-u4859.html Здравствуйте. конечно, возможно. Меняйте на здоровье. P.S. Если Вы всерьез думаете, что не видя текст макроса можно подсказать что-то более емкое, чем высказанное мной выше - Вы очень сильно ошибаетесь. Prist>> Re: Формула возвращающая название листа не работает для слова Сняткова 2011-05-14 15:20 http://forum.msexcel.ru/profiles/prist-u4859.html Только один вопрос: Что такое Сняткова, что записано в С1 и почему мы не видим примера с данным багом? Могу сказать одно: это не баг, а Ваш косяк. Где-то Вы что-то упустили. Ищите различия между Сняткован-Снятков-Сняткова. Мигель>> Re: Макрос? 2011-05-14 16:04 http://forum.msexcel.ru/profiles/migel-u84558.html Спасибо за помощ! с суммой все получилось  Со сводными таблицами разбираюсь  тоже вроде не плохая тема спасибо
alexexcel>> Re: Формула возвращающая название листа не работает для слова Сняткова 2011-05-14 16:40 http://forum.msexcel.ru/profiles/alexexcel-u29749.html Не знаю, не знаю. Я все перепробовал, проверял десятки раз, копировал, перебивал, не работало. Как только менял хотя бы одну букву - работало. Опять менял букву на исходную - не работало. Файл был сохранен, все как надо. А сейчас не могу воспроизвести. В ячейке С1 ничего не было. Это явно баг, но проявляющийся при очень специфическом стечении обстоятельств. Единственное, чего я не делал, это не закрывал файла. А сегодня вот закрыл и баг пропал. Prist>> Re: Формула возвращающая название листа не работает для слова Сняткова 2011-05-14 16:45 http://forum.msexcel.ru/profiles/prist-u4859.html Это НЕ БАГ Если книга была только что создана и еще не сохранена - то функция CELL("filename",C1) выдаст ПУСТО. Т.к. Вы работаете с еще фактически не существующим файлом, не имеющим постоянного места на диске. Соответственно, функция FIND("]",CELL("filename",C1)) резултатом выдаст #VALUE!, потому что ничего не сможет найти в строке нулевой длины. Значит общим результатом формулы будет тоже #VALUE! Как только Вы сохраниет файл - фукция будет работать. alexexcel>> Re: Формула возвращающая название листа не работает для слова Сняткова 2011-05-14 17:08 http://forum.msexcel.ru/profiles/alexexcel-u29749.html Дружище, во-первых я написал, что я сохранил файл. А во-вторых, не работало только для слова Сняткова, для всех остальных (Сняткову, Сняtкова и т.д.), работало. Так что все не так просто. evg>> Re: Веб запрос с параметром 2011-05-14 17:14 http://forum.msexcel.ru/profiles/evg-u85287.html Да конечно привожу тело макроса: Sub Макрос5() Cells.Select Selection.Delete Shift:=xlUp Range("A1").Select With ActiveSheet.QueryTables.Add(Connection:= _ "FINDER;C:\Users\Komp\Desktop\zapros.iqy", Destination:=Range("$A$1")) .Name = "zapros_976" .FieldNames = True .RowNumbers = False .FillAdjacentFormulas = False .PreserveFormatting = True .RefreshOnFileOpen = False .BackgroundQuery = True .Refreshstyle="xlInsertDeleteCells" .SavePassword = False .SaveData = True .AdjustColumnWidth = True .RefreshPeriod = 0 .WebSelectionType = xlSpecifiedTables .WebFormatting = xlWebFormattingNone .WebTables = "10,16" .WebPreFormattedTextToColumns = True .WebConsecutiveDelimitersAsOne = True .WebSingleBlockTextImport = False .WebDisableDateRecognition = True .WebDisableRedirections = False .Refresh Backgroun... Prist>> Re: Формула возвращающая название листа не работает для слова Сняткова 2011-05-14 17:50 http://forum.msexcel.ru/profiles/prist-u4859.html Дружище, во-первых я написал, что я сохранил файл. Тогда заново: что есть Сняткова? или надо сидеть и догадываться? Это слово чего? Имя файла или слово в ячейке? Какое отношение оно имеет к теме? Что Вы видите при пошаговом вычислении формулы? У меня работает со Сняткова.А во-вторых, не работало только для слова Сняткова, для всех остальных (Сняткову, Сняtкова и т.д.), работало. Так что все не так просто. Пока Вы подробно не распишите свои действия и подробности - что откуда и куда и что чем является - попытки помочь Вам представляются мне быссмысленным занятием. И еще раз повторю: это не баг. Это проблема локальная. Цитрую самого себя: Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы... alexexcel>> Re: Формула возвращающая название листа не работает для слова Сняткова 2011-05-14 18:50 http://forum.msexcel.ru/profiles/alexexcel-u29749.html Сняткова - это название листа, больше нигде это слово не фигурирует. Оно должно было возвращаться той формулой в одной из ячеек. Но именно это слово формула не возвращала, в отличие от десятков других слов. Как я уже сказал, сегодня я тоже не могу воспроизвести вчерашнюю ситуацию. Но с учетом сказанного ранее, это именно очень специфический баг. Подумайте сами, реакция была только на это слово. Alex_ST>> Как перенести настройки Excel на другой компьютер 2011-05-15 23:03 http://forum.msexcel.ru/profiles/alexst-u65623.html Ситуация, наверное, типичная… Я юзаю два компа: один на работе (под ХРюшей), другой дома (Виста). На обоих компах Excel-2003. Большую часть макросов в Personal.xls и доработок панелей управления делаю на работе :p За несколько лет наделал много своих кнопочек для вызова макросов, своих менюшек со своими кнопочками, своих кнопочек в стандартных менюшках... Хочется и дома иметь такой же настроенный "под себя" Excel, как и на работе. Но к сожалению просто тупо подложить домашнему Ёкселю файл Excel11.xlb вместе с папочкой XLSTART нельзя, т.к. не совпадают пути к макросам, лежащим в Personal.xls А сидеть и просто в режиме настройки перепрописывать макросы, прикреплённые к каждой кнопочке жутко лень. Вот я и начал на разных форумах мучить знатоков вопросом "Как перенести настройки Excel на другой компьютер?" После не очень продолжительных допросов уважаемый Дмитрий (The_Prist) в форуме на своём сайте доделал-таки давно "зачаты...
doro162>> Re: Обрезка номера слева справа. 2011-05-16 13:07 http://forum.msexcel.ru/profiles/doro162-u43981.html А можно еще подсказать как например указать что бы из 8 значного кода удалить число идущее по счету 6 ..из 44555р56 букву p например. Serge 007>> Re: Обрезка номера слева справа. 2011-05-16 13:44 http://forum.msexcel.ru/profiles/serge_007-u25260.html Код: =ЗАМЕНИТЬ(A1;6;1;"") Код: =ЛЕВСИМВ(A1;5)&ПРАВСИМВ(A1;2) Alex_ST>> Re: Как перенести настройки Excel на другой компьютер 2011-05-16 16:06 http://forum.msexcel.ru/profiles/alexst-u65623.html Ещё чуть подпилил(с помощью Дмитрия, естественно) Ну вот, теперь уже, кажется, финальный вариант Путь в OnAction теперь меняется только у тех кнопок, которые ссылаются на макросы, расположенные в Personal.xls Да и путь к Personal.xls самостоятельно вбивать в ячейки нет необходимости. А код, кстати, получился компактный настолько, что его можно даже просто модулем в Personal.xls хранить и при необходимости прямо в нём и запускать. Ну, или вот отдельным файлом: vutaly>> Re: CheckBox... Истина, ложь... 2011-05-16 16:38 http://forum.msexcel.ru/profiles/vutaly-u74440.html Я привязывал так: Код: Private Sub CheckBox1_Click() Worksheets ("пример") If CheckBox1 Then Cells(11, 3) = "Есть" Else Cells(11, 3) = "Нет" End Sub Предложений Вами метод применить так же не удалось( Александ_е_р>> Re: Уcловное форматирование, диапазон данных 2011-05-16 16:46 http://forum.msexcel.ru/profiles/aleksander-u85468.html Добрый день! Уважаемые форумчане, подскажите, пожалуйста как из множества текста, находящегося в одном столбце выбрать и вывести на экран только слова, в которых содержится определенная буква или символ? Andrey Lenets>> Re: CheckBox... Истина, ложь... 2011-05-16 16:49 http://forum.msexcel.ru/profiles/nitrolis-u1631.html нужно использовать With Код: Private Sub CheckBox1_Click()
with sheets("пример") If CheckBox1 Then .Cells(11, 3) = "Есть" Else .Cells(11, 3) = "Нет" end with End Sub Maximus_23>> Формирование нового файла с листами по условию Excel 2011-05-17 02:16 http://forum.msexcel.ru/profiles/maximus23-u29115.html Доброго времени суток! Во вложенном файле есть макрос по созданию на основе шаблона (Шаблон РЛ) в новом файле расчётных листков. В работе макроса всё устраивает но появилась необходимость создать расчёток в новом файле на разных листах с разделением по цехам (отделам) и что бы названия листов соответствовали наименованию цеха, отдела (столбец С). Перечитал много форумов но нигде ничего подобного не нашёл. Заранее благодарен kip89>> Код функции на excel 2011-05-17 10:43 http://forum.msexcel.ru/profiles/kip89-u85522.html На склад поступило некоторое количество товара. Данные о наименовании товара и его цене занесены в таблицу. Один из товаров имеет самую низкую стоимость. Определить наименование этого товара. boa>> Re: Код функции на excel 2011-05-17 11:27 http://forum.msexcel.ru/profiles/boa-u4698.html может здесь почитать? Serge 007>> Re: Код функции на excel 2011-05-17 11:28 http://forum.msexcel.ru/profiles/serge_007-u25260.html Определить наименование этого товара. Это приказ?Ну так выполняйте. IKor>> Re: Уcловное форматирование, диапазон данных 2011-05-17 12:20 http://forum.msexcel.ru/profiles/ikor-u6827.html Если текст размещен в отдельных ячейках столбца (пропуски строк допускаются, но не желательны), то при помощи Автофильтра (необходимо выделить весь значимый диапазон и выбрать меню ДАННЫЕ \ ФИЛЬТР) можно отображать только те значения списка, которые отвечают условиям, заданным в Автофильтре. boa>> Тормознутое открытие файлов Ехсе! 2007 на виртуальной машине 2011-05-17 12:29 http://forum.msexcel.ru/profiles/boa-u4698.html Решили установить мощный сервер для работы офиса Сервер организован как виртуальная машина с несколькими серверами на одном из которых размещена прога написанная в Ехсе! 2007 Структура проги - 3 надстройки и 18 файлов которые запускаются из надстройки. Во время запуска в некоторых из них выполняются автомакросы, некоторые файлы запускаются только в чтении. самый "тяжелый" файл с данными - 1,5м таких три остальные 300-700кб на локальной машине прога запускается достаточно быстро (Server 2008) "надстройки открыты за 00:00:02" "полное открытие базы прошло за 00:01:12" По локальной сети - от 1,5 до 3-х минут в зависимости от подключения на виртуальном сервере прога запускается как во сне (Server 2003) "надстройки открыты за 00:01:28" "полное открытие базы прошло за 00:05:58" Системщик делать ничего не хочет, говорит что дело в майкрософте или непосредственно в проге Хотелось бы узнать причину такого тормоза т.к. реально, в диспетчере задач, процессор просто простаивает Может кто сталк... Астроном>> Re: Код функции на excel 2011-05-17 12:38 http://forum.msexcel.ru/profiles/astronom-u8080.html Может так? kip89>> код на vba 2011-05-17 13:41 http://forum.msexcel.ru/profiles/kip89-u85522.html На склад поступило некоторое количество товара. Данные о наименовании товара и его цене занесены в таблицу. Один из товаров имеет самую низкую стоимость. Определить наименование этого товара. Нужно написать функцию код на VBA SergioGach>> Форма с ComboBox и TextBox. Формат ввода 0.00 и суммирование TextBox-сов. 2011-05-17 13:43 http://forum.msexcel.ru/profiles/sergiogach-u5136.html Добрый день! Не подскажете, как можно решить подобную задачу: Есть форма с ComboBox и TextBox, 10 строк. Нужно Количество (без формата) * Цену (0,00) = Сумма (0,00). Внизу суммировать колонку Сумма (0,00). Пересчет приизменении любого TextBox-а. См. прикрипленный файл. Спасибо! Andrey Lenets>> Re: Форма с ComboBox и TextBox. Формат ввода 0.00 и суммирование TextBox-сов. 2011-05-17 14:28 http://forum.msexcel.ru/profiles/nitrolis-u1631.html пример в файле... не знаю, так совпало или Вы намеренно сделали имена суммируемых ТекстБоксов кратными 5, но это ОЧЕНЬ помогло! там работы еще хватает - проверять, например, вводимые значения на признак isnumeric, на пустое значение и тд, чтобы исключить ошибки в момент заполнения формы... можно оптимизировать цикл - просматривать не все контролы, а только нужные, присвоив им определенные имена (признаки)... или заключив их в определенных рамках порядковых номеров на форме и тд.. Удачи!
SergioGach>> Re: Форма с ComboBox и TextBox. Формат ввода 0.00 и суммирование TextBox-сов. 2011-05-17 14:44 http://forum.msexcel.ru/profiles/sergiogach-u5136.html Да, спасобо, но Вы начали с конца. Как ввести в TextBox (Цена) например 2,15 (формат 0,00). Вылетает ошибка. Еще проблемы с локализацией (. или ,). Oleg X>> Re: код на vba 2011-05-17 15:19 http://forum.msexcel.ru/profiles/gacol-u3251.html так? kip89>> Re: код на vba 2011-05-17 16:38 http://forum.msexcel.ru/profiles/kip89-u85522.html почти,только надо создать макрос и записать код туда для поиска название с наименьшей стоимостью Andrey Lenets>> Re: Форма с ComboBox и TextBox. Формат ввода 0.00 и суммирование TextBox-сов. 2011-05-17 16:43 http://forum.msexcel.ru/profiles/nitrolis-u1631.html Да, спасобо, но Вы начали с конца. Как ввести в TextBox (Цена) например 2,15 (формат 0,00). Вылетает ошибка. Еще проблемы с локализацией (. или ,). -разделитель запятой проверяется с помощью Application.DecimalSeparator и разделитель заменяется на нужный.-проверять изменения нужно в каждом ТекстБоксе по которому считается сумма. ничего сложного здесь нет - нужно для себя понять логику! удачи! SergioGach>> Re: Форма с ComboBox и TextBox. Формат ввода 0.00 и суммирование TextBox-сов. 2011-05-17 17:30 http://forum.msexcel.ru/profiles/sergiogach-u5136.html Цитировать -разделитель запятой проверяется с помощью Application.DecimalSeparator и разделитель заменяется на нужный. -проверять изменения нужно в каждом ТекстБоксе по которому считается сумма. Тут ясно, но в количество нельзя ввести разделитель (напр. 0,25 ) и в TextBox цифры представлены в виде текста. Напр. Цена 2,55 в TextBox9, а на ячейку вставляется 2,00 .Cells(ActiveCell.Row, "E") = Val(Прихидна.TextBox9) Andrey Lenets>> Re: Форма с ComboBox и TextBox. Формат ввода 0.00 и суммирование TextBox-сов. 2011-05-17 17:50 http://forum.msexcel.ru/profiles/nitrolis-u1631.html Тут ясно, но в количество нельзя ввести разделитель (напр. 0,25 ) и в TextBox цифры представлены в виде текста. я не обратил внимание, что разные ед измерения, наложил ограничение на целое число...Напр. Цена 2,55 в TextBox9, а на ячейку вставляется 2,00 .Cells(ActiveCell.Row, "E") = Val(Прихидна.TextBox9) код чекера не сложный же! чтобы в кол-ве можно было ввести дробное число замените строчку: Код: If IsNumeric(cValue) Then Me.Controls(cName).Value = Round(cValue, 0) наКод: If IsNumeric(cValue) Then Me.Controls(cName).Value = cValue по поводу второго вопроса - все TextBox, в частности TextBox9 в ячейки данные скидывают без проблем в числовом виде! проверяйте форматы ячеек, куда выгружаете данные! и саму выгрузку... SergioGach>> Re: Форма с ComboBox и TextBox. Формат ввода 0.00 и суммирование TextBox-сов. 2011-05-17 19:36 http://forum.msexcel.ru/profiles/sergiogach-u5136.html Большое Спасибо!!! Все получилося. Цитировать по поводу второго вопроса - все TextBox, в частности TextBox9 в ячейки данные скидывают без проблем в числовом виде! проверяйте форматы ячеек, куда выгружаете данные! и саму выгрузку... Сделал так: .Cells(ActiveCell.Row, "H") = Str(UserForm.TextBox3) Underwater Aviator>> Работа с текстом 2011-05-17 21:17 http://forum.msexcel.ru/profiles/underwater_aviator-u85599.html Всем привет. Я раньше не интересовался экселем на проф. уровне, так что ничего об этом не знаю. Сейчас работаю с яндекс директом и нужно реализовать некоторые фишки для работы с текстом. Что нужно конкретно: - Копирование текста из колонки 1 в колонку 2 и 3. - Потом нужно в колонке 2 и 3 убрать символ ", и заменить первую букву в каждой ячейке колонки 2 и 3 на заглавную. - Еще нужно из колонок 2 и 3 удалить все слова перед которыми есть "-". Ну вообщем как то так. Каким образом это можно реализовать? Спасибо. Serge 007>> Re: Работа с текстом 2011-05-17 22:02 http://forum.msexcel.ru/profiles/serge_007-u25260.html Здравствуйте. Каким образом это можно реализовать? Макросом (можно записать рекордером) или формулами.
Daria>> Создание формы поиска с условиями 2011-05-17 22:15 http://forum.msexcel.ru/profiles/daria-u85603.html Здравствуйте! Должно быть, тему не раз поднимали на форуме, но, куда ни гляну, - всё для продвинутых пользователей, владеющих VBA. А я - блондинка и при виде кода впадаю в ступор. Имеется некий журнал с реквизитами входящих документов (столбцы: № п/п, Содержание, Фамилия, Дата и т.д.). Так как документов поступает много, функция поиска очень пришлась бы к месту. Ctrl+F не подходит, потому что журналом будут пользоваться самые разные люди. Надо бы создать универсальную форму с полями и поиском по столбцам. Причём, поиск должен осуществляться не только по точным значениям, но и с условиями типа "от... до...". Например, найти все письма, поступившие с 20 по 25 марта и расписанные Иванову Ивану Ивановичу. Подскажите, пожалуйста, как это реализовать без кода? Просто формами/ActiveX и макросами? Своей головой не додумать dav>> Подсчет различных текстовых символов (иероглифов) в строках и столбцах 2011-05-18 04:33 http://forum.msexcel.ru/profiles/dav-u85633.html Помогите написать макрос. Задача подсчитать количество выученных слов (ироглифов) в таблице xls. Выученные слова занесены в столбец, причем в одной ячейке могут быть слова из 2, 3 или более слов. Слова я подсчитал, а вот входящие в них иероглифы не смог. Например: 花裙子 报道 十字路口 口 Некоторые иероглифы в словах совпадают, необходимо подсчитать только различные иероглифы, и не считать пустые ячейки (пробелы). Диапазон подсчета столбец B23:B65536. Результат вывести в ячейку А4. Пробовал функциями не получилось, может можно реализовать макросом? Mart222>> Re: Создание формы поиска с условиями 2011-05-18 08:56 http://forum.msexcel.ru/profiles/mart222-u74687.html Зачем вам ActiveX? Обыкновенный [url=http://msexcel.ru/content/view/27/2/]_автофильтр_[/url]. Если будете заниматься формами, все равно код нужен будет, кудаж без него.Andrey Lenets>> Re: Подсчет различных текстовых символов (иероглифов) в строках и столбцах 2011-05-18 13:08 http://forum.msexcel.ru/profiles/nitrolis-u1631.html пример в файле...  iron priest>> функция LOTTO 2011-05-18 17:48 http://forum.msexcel.ru/profiles/iron_priest-u20725.html доброго дня! давно не появлялся здесь(( есть вопрос по поводу функции ЛОТТО, которую нашел на просторах инета, и которая отбирает случайные позиции. вот её код: Код: Function Lotto(Bottom As Integer, Top As Integer, Amount As Integer) Dim iArr As Variant Dim i As Integer Dim r As Integer Dim temp As Integer Dim Out(10000) As Variant Application.Volatile ReDim iArr(Bottom To Top) For i = Bottom To Top iArr(i) = i Next i For i = Top To Bottom + 1 Step -1 r = Int(Rnd() * (i - Bottom + 1)) + Bottom temp = iArr(r) iArr(r) = iArr(i) iArr(i) = temp Next i j = 0 For i = Bottom To Bottom + Amount - 1 Out(j) = iArr(i) j = j + 1 Next i Lotto = Application.Transpose(Out) End Function проблема состоит в том, что функция не работает если в условие ТОП указать число более 32766. а мне необходимо приблизительно чтобы топ был гдето 100 тыс. прошу помощ... Andrey Lenets>> Re: функция LOTTO 2011-05-18 17:54 http://forum.msexcel.ru/profiles/nitrolis-u1631.html в определении переменных Integer на Long замените iron priest>> Re: функция LOTTO 2011-05-18 18:10 http://forum.msexcel.ru/profiles/iron_priest-u20725.html мерси! Daria>> Re: Создание формы поиска с условиями 2011-05-18 18:50 http://forum.msexcel.ru/profiles/daria-u85603.html Спасибо большое за ответ, но, понимаете, [url=http://msexcel.ru/content/view/27/2/]_автофильтр_[/url] не очень подходит, потому что этим файлом будут пользоваться и те люди, которые с компьютером на очень дальнее "вы", и про [url=http://msexcel.ru/content/view/27/2/]_автофильтр_[/url] даже не слыхали... Вот если бы прямо над таблицей с данными сразу закрепить область с формой поиска, наподобие [url=http://msexcel.ru/content/view/27/2/]_автофильтр_[/url]а, было бы проще. Наверно, нужно всё-таки постигать тайны VBA И ещё, скажите, пожалуйста, как вы в прикреплённом файле вынесли отфильтрованные результаты отдельно от самой таблицы? Александ_е_р>> Re: Уcловное форматирование, диапазон данных 2011-05-18 20:02 http://forum.msexcel.ru/profiles/aleksander-u85468.html Суть в следующем: у нас есть база данных наших клиентов и партнеров, часть информации из нее скопирована в Excel, мне нужно сделать так, что бы в таблице отображались только адреса электронной почты, .т.е я хочу отфильтровать по @, для рассылки новостей нашим клиентам. Раньше ставил в фильтре «содержит @» и все получалось, сейчас не выходит. Помогите, пожалуйста, в чем дело. Прикрепляю выжимку из моей таблицы. feodosij>> Нужно хитро объединить ячейки 2011-05-18 23:42 http://forum.msexcel.ru/profiles/feodosij-u85715.html Есть такая таблица Нужно объединить ячейки таким образом Подскажите, пожалуйста, какими методами можно это осуществить? dav>> Re: Подсчет различных текстовых символов (иероглифов) в строках и столбцах 2011-05-19 02:00 http://forum.msexcel.ru/profiles/dav-u85633.html Спасибо огромное все получилось, посчитал количество иероглифов, которыми владею - 2360, слов- 5327 Andrey Lenets>> Re: Подсчет различных текстовых символов (иероглифов) в строках и столбцах 2011-05-19 02:27 http://forum.msexcel.ru/profiles/nitrolis-u1631.html Спасибо огромное все получилось, посчитал количество иероглифов, которыми владею - 2360, слов- 5327 теперь буду знать к кому обращаться, если письмо из Джапании получу
Mart222>> Re: Создание формы поиска с условиями 2011-05-19 05:33 http://forum.msexcel.ru/profiles/mart222-u74687.html И все таки я считаю что [url=http://msexcel.ru/content/view/27/2/]_автофильтр_[/url] достаточно простое и удобное средство даже для начинающего пользователя (возможно с небольшим инструктажом). Еще одну таблицу я получил просто скопировав ее чуть ниже, требование только одно - между таблицами должна быть как минимум одна строка не содержащая никаких данных, при этом никто не мешает сделать при необходимости [url=http://msexcel.ru/content/view/27/2/]_автофильтр_[/url] по нижней таблице вместо верхней. dav>> Re: Подсчет различных текстовых символов (иероглифов) в строках и столбцах 2011-05-19 05:34 http://forum.msexcel.ru/profiles/dav-u85633.html Конечно обращайтесь. можно на мыло dav@chita.so-ups.ru. Могу книжку скинуть собственного сочинения о китайской пище, что и как заказать в Китайских ресторанах (особенно на отдыхе на желтом море полезная вещь) nilem>> Re: Нужно хитро объединить ячейки 2011-05-19 08:22 http://forum.msexcel.ru/profiles/nilem-u30547.html Например, выделяем диапазон (на картинке C5:D15), запускаем это: Код: Sub HitrOb() Результат запишется справа, через столбец.Dim x, y(), i&, j&, n&, k$ If Selection.Columns.Count <> 2 Then Exit Sub x = Selection.Value: ReDim y(1 To UBound(x), 1 To 2) With New Collection On Error Resume Next For i = 1 To UBound(x) k = CStr(x(i, 2)) If IsEmpty(.Item(k)) Then j = j + 1: .Add j, k y(j, 1) = "(" & x(i, 1) & ")" y(j, 2) = x(i, 2) Else n = .Item(k) y(n, 1) = Replace(y(n, 1), ")", ", " & x(i, 1) & ")") End If Next End With Selection.Offset(, 3).Value = y End Sub feodosij>> Re: Нужно хитро объединить ячейки 2011-05-19 08:54 http://forum.msexcel.ru/profiles/feodosij-u85715.html выражаю огромную благодарность. Надо по-тихоньку изучать макросы... Alex_ST>> Re: код на vba 2011-05-19 10:03 http://forum.msexcel.ru/profiles/alexst-u65623.html 1. Я удивляюсь, как топик с таким названием ещё не заперли модераторы. Ну неужели так трудно придумать осмысленное название темы? 2. Вы просили код функции на VBA, вы его от Oleg X и получили. Результат работы кода - в ячейке D15. Или по-вашему функция findtovar , прописанная в D15 - это стандартная функция листа Excel, которую "мелко-мягкие" ввели в Офис, предугадав, что она вам понадобится? На сегодня все. До встречи на следующей неделе. |
| В избранное | ||
