| ← Январь 2012 → | ||||||
|
1
|
||||||
|---|---|---|---|---|---|---|
|
2
|
3
|
4
|
6
|
7
|
8
|
|
|
9
|
10
|
11
|
13
|
14
|
15
|
|
|
16
|
17
|
18
|
20
|
21
|
22
|
|
|
23
|
24
|
25
|
27
|
28
|
29
|
|
|
30
|
31
|
|||||
За последние 60 дней ни разу не выходила
Сайт рассылки:
http://excel.1gb.ru/content/view/98/74/
Открыта:
16-11-2006
Статистика
427 подписчиков
0 за неделю
0 за неделю
Asante>> Re: очистка ячеек
Форум по Microsoft Excel Выпуск 52 Подписчиков: 568 Рассылка сайта "Профессиональные приемы работы в Microsoft Excel"
Новости сайта в формате RSS Порекомендуйте нашу рассылку друзьям Обратная связь Наши рассылки: Наши сайты Профессиональные приемы работы в Microsoft Excel bonifatiy.narod.ru Собор Смоленских святых. Жития, иконы, календарь памятных дат Смоленской епархии. StudentTools.Narod.Ru Для тех, кто любит учиться Наши друзья VBAtips.ru - wordexpert.ru planetaexcel.ru |
Новые сообщения форума "Профессиональные приемы работы в Microsoft Excel".
dimaqaz>> Эскиз 2011-12-27 22:40 http://forum.msexcel.ru/profiles/dimaqaz-u120161.html Добрый день, меня препод напряг нужно сделать подобный эскиз, как в приложенном файле, только как это сделать ума не приложу((( Starter>> Re: Excel 2003 Расширенный Фильтр по ссылкам 2011-12-28 07:06 http://forum.msexcel.ru/profiles/starter-u119921.html Это классно. ВСЕМ ВСЕМ огромное СПАСИБО. Тему закрываю. Leanna>> Составление списка файлов и папок. 2011-12-28 08:19 http://forum.msexcel.ru/profiles/leanna-u81030.html Для решения нужно следующее: 1. Составить массив из названий файлов в папке Х 2. Составить массив из имеющихся папок в папке Х 3. Составить массив из открытых в данный момент документов Помогите пожалуйста с программными кодами к задачке. Starter>> Excel 2003 Колонка номер по порядку в фильтре 2011-12-28 09:28 http://forum.msexcel.ru/profiles/starter-u119921.html Подкиньте идею.Заклинило. Есть таблица.1-я колонка номер по порядку (текстом типа 00015,00016 и т.д) ,1-я строка -заголовок. Над таблицей работают фильтром, естественно нумерация в 1 колонке отображается не правильно. Как сделать так чтобы фильтранул номера по порядку, снял фильтр опять по порядку и в том же формате. Не спрашивайте почему такая нумерация. Юзеру так нравится. Leanna>> Re: Excel 2003 Колонка номер по порядку в фильтре 2011-12-28 09:36 http://forum.msexcel.ru/profiles/leanna-u81030.html У меня почему то по порядку список идет (вложение). Не очень понятно... _Boroda_>> Re: Excel 2003 Колонка номер по порядку в фильтре 2011-12-28 09:39 http://forum.msexcel.ru/profiles/boroda-u12234.html можно так Leanna>> Re: Эскиз 2011-12-28 09:42 http://forum.msexcel.ru/profiles/leanna-u81030.html Кажись это из раздела разберитесь и сделайте "за меня". Starter>> Re: Excel 2003 Колонка номер по порядку в фильтре 2011-12-28 09:52 http://forum.msexcel.ru/profiles/starter-u119921.html Спасибо. С вами все легко и просто. _Boroda_>> Re: Excel 2003 Колонка номер по порядку в фильтре 2011-12-28 10:04 http://forum.msexcel.ru/profiles/boroda-u12234.html Спасибо. С вами все легко и просто. Это потому, что вопросы конкретные и четко поставленные.MilanAC>> Re: Скрытие строк по 2 критериям (из разных столбцов) 2011-12-28 10:41 http://forum.msexcel.ru/profiles/milanac-u19092.html Спасибо, ответ по этому вопросу дали. Кому интересно - код должен выглядеть так: Код: Dim m1 As Range
Set RowsBlank = [D2:D10000] Application.ScreenUpdating = False For Each m1 In RowsBlank If m1 = "" Then If m1.Offset(, -2) <> "" Then m1.EntireRow.Hidden = True End If Next For Each m1 In RowsBlank If m1 < Date - 14 And m1 > DateValue("01.01.2000") Then m1.EntireRow.Hidden = True Next Application.ScreenUpdating = True SlaFFkaQC>> Re: Не работает гиперссылка 2011-12-28 11:04 http://forum.msexcel.ru/profiles/slaffkaqc-u111380.html Таки да. открылась. Значит проблемы в настройках безопасности в вашем офисе Leanna>> Re: Составление списка файлов и папок. 2011-12-28 11:37 http://forum.msexcel.ru/profiles/leanna-u81030.html У меня получилось найти код, который может строить список. Он выдает содержимое папки. Но как отфильтровать только список папок? отдельно как отфильтровать только список файлов? Код: Sub FileFolderList()
iPath = "N:\Личные папки пользователей\mirone\ПЛАН\" With CreateObject("Shell.Application") Dim iFolder As Object, iFolderItem As Object Set iFolder = .Namespace(iPath) If Not iFolder Is Nothing Then For Each iFolderItem In iFolder.Items i = i + 1 Range("A" & i) = iFolderItem Next Else MsgBox "Указанная папка изволит отсутствовать", , "" End If End With End Sub _Boroda_>> Re: Перевод единиц 2011-12-28 12:14 http://forum.msexcel.ru/profiles/boroda-u12234.html Используйте функцию РАДИАНЫ ping>> Замедление работы команды Insert в VBA 2011-12-28 12:35 http://forum.msexcel.ru/profiles/ping-u120261.html Написал модуль вывода системных сообщений, так чтобы последнее сообщение было наверху, а старые сообщения спускались бы вниз. Установил ограничение общего числа системных сообщений не более 1000, т.е. старые сообщения постепенно подчищаются. Проблема в том, что первоначально (до первой 1000) сообщения записываются практически мгновенно, далее происходит замедление работы макроса, как-будто эксель держит в памяти уже удаленные сообщения. Например, первоначально 1000 сообщений выводится за 50 сек. При втором запуске за 80 сек., при третьем за 110 сек. и т.д. Что пробовал: 1) заменить range на rows => без результата (замедление есть, но не такое активное) 2) сохранение документа, закрытие excel, перезагрузка компа во всех возможных сочетаниях положительного результата не дают (затупы сохраняются) 3) при проверке на превышение сообщений свыше 1000 можно дописать такую строку "z = ActiveSheet.UsedRange.Row" в таком случае excel не будет плодить пустые строки, которые почему-то висят в в... erv21>> Re: Не работает гиперссылка 2011-12-28 13:16 http://forum.msexcel.ru/profiles/erv21-u119652.html А где их поменять, не подскажете? А не может быть такое, что на сам ноутбук наложены какие-то запреты? И поменять их может только программист? Mimino>> Re: Необычная задача... 2011-12-28 16:13 http://forum.msexcel.ru/profiles/mimino-u42971.html Спасибо, Уважаемые!=) Очень полезная информация... Mimino>> Re: Необычная задача... 2011-12-28 16:48 http://forum.msexcel.ru/profiles/mimino-u42971.html Доброго времени суток! Скачал программу parser3_4_1_ru. Программа незнакомая как и работа с серверами и базами. Можете проконсультировать, какие действия нужно сделать, чтобы реализовать выше поставленную задачу. С уважением, Mimino. Wasilic>> Re: Составление списка файлов и папок. 2011-12-28 18:49 http://forum.msexcel.ru/profiles/wasilic-u24852.html А так? Код: Sub FileFolderList() PS Заменив True на False будут только файлы iPath = "N:\Личные папки пользователей\mirone\ПЛАН\" With CreateObject("Shell.Application") Dim iFolder As Object, iFolderItem As Object Set iFolder = .Namespace(iPath) If Not iFolder Is Nothing Then For Each iFolderItem In iFolder.Items If iFolderItem.IsFolder = True Then i = i + 1 Range("A" & i) = iFolderItem.Name End If Next Else MsgBox "Указанная папка изволит отсутствовать", , "" End If End With End Sub 
VZmiy>> Сохранение данных в ячейке 2011-12-29 10:16 http://forum.msexcel.ru/profiles/vzmiy-u119679.html Как сделать чтобы при изменении даты в ячейках сохранились введенные данные  gregory9791>> Объединение ячеек таблицы 2011-12-29 10:20 http://forum.msexcel.ru/profiles/gregory9791-u120406.html Добрый день, спецы Exel-я и с Наступающим НГ! Задача: необходимо объединить в столбцах ячейки имеющие одинаковое значение (с присвоением объединеным ячейкам этого значения). Например, если есть в столбце несколько подряд идущих строк со значением "груша", то в результате должна получиться одна объединенная ячейка со значением "груша" спасибо! Wasilic>> Re: Объединение ячеек таблицы 2011-12-29 10:44 http://forum.msexcel.ru/profiles/wasilic-u24852.html Вы не читали 2-й пункт [url=http://forum.msexcel.ru/pravila_foruma/pravila_foruma-t129.0.html]правил_форума[/url]. GregorY>> Re: Объединение ячеек таблицы 2011-12-29 10:52 http://forum.msexcel.ru/profiles/gregory-u12941.html Сорри, забыл! Исправляюсь. GregorY>> Re: Объединение ячеек таблицы 2011-12-29 11:05 http://forum.msexcel.ru/profiles/gregory-u12941.html Сводная не подойдет, т.к. расположение ячеек не должно меняться. GregorY>> Re: Объединение ячеек таблицы 2011-12-29 11:09 http://forum.msexcel.ru/profiles/gregory-u12941.html Хорошо бы в виде макроса сделать, увы в них я не силен  KuklP>> Re: Объединение ячеек таблицы 2011-12-29 11:27 http://forum.msexcel.ru/profiles/kuklp-u39713.html Код: Public Sub www()
Dim c As Range, i&: On Error GoTo www_Error Application.DisplayAlerts = 0 For Each c In UsedRange.Cells i = 2 Do If c(i).Value <> c.Value Then Exit Do i = i + 1 Loop Range(c(i - 1), c).Merge Next www_Error: Application.DisplayAlerts = -1 On Error GoTo 0 End Sub Bomont>> Проверить, есть ли формула в ячейке 2011-12-29 11:40 http://forum.msexcel.ru/profiles/bomont-u4849.html Добрый день господа! Воспользовался поиском, но не нашел. Подскажите пожалуйста, как проверить макросом - стоит ли в ячейке формула? Т.е. как выглядит условие для оператора End If Заранее, спасибо! _Boroda_>> Re: Объединение ячеек таблицы 2011-12-29 12:14 http://forum.msexcel.ru/profiles/boroda-u12234.html Еще вариант _Boroda_>> Re: Проверить, есть ли формула в ячейке 2011-12-29 12:26 http://forum.msexcel.ru/profiles/boroda-u12234.html HasFormula Код: Sub tt()
For i = 1 To 8 If Range("A" & i).HasFormula Then Range("B" & i) = "ф" Next i End Sub Bomont>> Re: Проверить, есть ли формула в ячейке 2011-12-29 13:14 http://forum.msexcel.ru/profiles/bomont-u4849.html Спасибо! Sanek13>> Re: Перевод единиц 2011-12-29 15:08 http://forum.msexcel.ru/profiles/sanek13-u119916.html Да Радианы это хорошая штука! Но ответы мне нужно получать в формате Градус - минута - секунда! ЕЩё ВАринты есть? onna>> списание товара с возможностью выбора склада для отгрузки 2011-12-29 15:12 http://forum.msexcel.ru/profiles/onna-u120452.html Есть таблица, в ней каждый продукт ведётся отдельно. Привожу во вложении кусок. Необходимо, чтобы при очередной отгрузке, когда я ввожу в графу Packs количество отгруженного товара, менялось не только общее количество данной позиции, но и в первую очередь количество на отдельно взятом складе, с которого произошла отгрузка. Как это возможно организовать в данной таблице? _Boroda_>> Re: Перевод единиц 2011-12-29 16:29 http://forum.msexcel.ru/profiles/boroda-u12234.html Цитировать Да Радианы это хорошая штука! Но ответы мне нужно получать в формате Градус - минута - секунда! ЕЩё ВАринты есть? Да куча!НО! Вы правила форума читали? Похоже, что нет. Перекладывайте тему в раздел Excel, рисуйте пример, кладите сюда, конкретно описывайте хотелки. Тогда будут и варианты. Wasilic>> Re: списание товара с возможностью выбора склада для отгрузки 2011-12-29 17:52 http://forum.msexcel.ru/profiles/wasilic-u24852.html Как вариант. Аннюточка060>> Re: уравнение полиномиальной линии тренда в excel 2011-12-30 01:23 http://forum.msexcel.ru/profiles/annyutochka060-u120523.html Здравствуйте!!! Нуждаюсь в помощи! Есть данные за 4 года по месяцам с 2008 г. по 2011 г. заготовки лома на предприятии. Необходимо сделать прогноз на 2 года вперед с помощью полинома 6 степени и тренда за последний период (так подсказали). Изначально планировала построить тренд с учетом роста и сезонности, но прогноз получился кривой....К сожалению, без понятия как это сделать в Excel с помощью полинома 6 степени. Исх .данные вложила, помогите, пожалуйста, решить данную задачку....  ShAM>> Re: списание товара с возможностью выбора склада для отгрузки 2011-12-30 07:55 http://forum.msexcel.ru/profiles/sham-u106530.html Wasilic, прошу прощения, но, по моему, вместо строки Код: If Cells(1, 1) + 4 >= Target Then должно бытьКод: If Cells(S, K) >= Target Then
onna>> Re: списание товара с возможностью выбора склада для отгрузки 2011-12-30 08:35 http://forum.msexcel.ru/profiles/onna-u120452.html Как вариант. Спасибо огромное. Если не сложно, подскажите, пожалуйста, как я могу аналогичное сделать самостоятельно? Это же не просто формула ЕСЛИ? Вообще это макрос? я не могу отобразить его как формулы ведь? nilem>> Re: Замедление работы команды Insert в VBA 2011-12-30 09:03 http://forum.msexcel.ru/profiles/nilem-u30547.html В Вашем коде некоторые строки закомментировал, некоторые - переставил. Попробуйте: [code]Option Explicit '***Public WCore As Worksheet 'Все происходит на активном листе (и код у вас находится в модуле этого листа) Sub start() Dim t_start!, i& 'Set WCore = ThisWorkbook.Worksheets("CORE") '***точно определяем книгу и лист Application.ScreenUpdating = False ' выключаем обновление экрана t_start = Timer For i = 1 To 1000 HistoryMsg 3, "Системное сообщение № " & i Next i Cells(1, 25) = Timer - t_start Application.ScreenUpdating = True ' включаем обновление экрана Application.CutCopyMode = False ' ***снимаем режим копирования ?? ActiveSheet.UsedRange End Sub Private Sub HistoryMsg(color As Byte, msg As String) ' сдвиг истории сообщений Range("A7:FG7").Copy ' копируем последнее сообщение Range("A8:FG8").Insert Shift:=xlDown ' вставляем его со смещением предыдущих сообщений вниз 'Range("A7:FG7").Font.ColorIndex = color '*** Если цвет один и тот же, то лучше установить... exceleved>> Re: Сохранение данных в ячейке 2011-12-30 09:38 http://forum.msexcel.ru/profiles/exceleved-u35802.html Вы хотите, чтобы данные из ст. C,D переносились в соотв. столбцы? Макросом можно сделать. Можно автоматически добавлять столбцы с новой датой. Wasilic>> Re: списание товара с возможностью выбора склада для отгрузки 2011-12-30 09:50 http://forum.msexcel.ru/profiles/wasilic-u24852.html должно быть Ну конечно же. Скопировал а поменять забыл.Код: If Cells(S, K) >= Target Then Сначала решение написал а потом условие дописывал. Спасибо. Я тоже исправлю. Wasilic>> Re: списание товара с возможностью выбора склада для отгрузки 2011-12-30 10:24 http://forum.msexcel.ru/profiles/wasilic-u24852.html подскажите, пожалуйста, как я могу аналогичное сделать самостоятельно? Да, это макрос. Чтобы сделать что-то аналогичное, надо, в некоторой мере, знать VBA. Не знаю как Вам подсказать. Вообще это макрос? я не могу отобразить его как формулы ведь? Выложите свой файл-оригинал, постараюсь привязать макрос. onna>> Re: списание товара с возможностью выбора склада для отгрузки 2011-12-30 10:50 http://forum.msexcel.ru/profiles/onna-u120452.html подскажите, пожалуйста, как я могу аналогичное сделать самостоятельно? Да, это макрос. Чтобы сделать что-то аналогичное, надо, в некоторой мере, знать VBA. Не знаю как Вам подсказать. Вообще это макрос? я не могу отобразить его как формулы ведь? Выложите свой файл-оригинал, постараюсь привязать макрос. Не представляете, как благодарна Вам. Я думала, это экселем всё можно решить. буду учить VBA Файл во вложении ShAM>> Re: списание товара с возможностью выбора склада для отгрузки 2011-12-30 10:54 http://forum.msexcel.ru/profiles/sham-u106530.html Цитировать Файл во вложении Что же Вы запароленный файл выкладываете?Wasilic>> Re: списание товара с возможностью выбора склада для отгрузки 2011-12-30 13:19 http://forum.msexcel.ru/profiles/wasilic-u24852.html Людмила, кажется, что же там такого конфедециального? Пустой лист. Поменяйте в этих строках макроса на выделенное синим. If Not Application.Intersect(Range("K3:K153"), Target) Is Nothing And Target > 0 Then K = Cells(1, 11) + 14 onna>> Re: списание товара с возможностью выбора склада для отгрузки 2011-12-30 13:43 http://forum.msexcel.ru/profiles/onna-u120452.html Людмила, кажется, что же там такого конфедециального? Пустой лист. Поменяйте в этих строках макроса на выделенное синим. If Not Application.Intersect(Range("K3:K153"), Target) Is Nothing And Target > 0 Then K = Cells(1, 11) + 14 Пустой, да не совсем.. Ура, получилось! Нижайший Вам поклон! ShAM>> Re: списание товара с возможностью выбора склада для отгрузки 2011-12-30 13:57 http://forum.msexcel.ru/profiles/sham-u106530.html Если не поздно, то добавлю и свои 5 коп.  Еще в этой строке: Cells(S, 11) = 0 onna>> Re: списание товара с возможностью выбора склада для отгрузки 2011-12-30 14:25 http://forum.msexcel.ru/profiles/onna-u120452.html Если не поздно, то добавлю и свои 5 коп. Еще в этой строке: Cells(S, 11) = 0 никогда не поздно) исправила) правда если с буквенными ячейками всё более или менее понятно, то с цифрами совсем не понимаю, что это...)) VZmiy>> Re: Сохранение данных в ячейке 2011-12-30 14:43 http://forum.msexcel.ru/profiles/vzmiy-u119679.html Да мне нужно чтобы из C,D данные автоматически переносились в колонки с соответствующей датой и после изменения даты там и оставались. Подскажите пожалуйста как это сделать. Wasilic>> Re: списание товара с возможностью выбора склада для отгрузки 2011-12-30 14:46 http://forum.msexcel.ru/profiles/wasilic-u24852.html Если не поздно, то добавлю и свои 5 коп. Еще раз спасибо!Еще в этой строке: Cells(S, 11) = 0 Чёй то я совсем не внимательный стал. если с буквенными ячейками всё более или менее понятно, то с цифрами совсем не понимаю, что это...)) Ну это просто, Cells(1, 1) = Ячейка(строка 1, колонка 1) тоесть А1 ну или Range("A1"). Читайте здесь: http://vtit.kuzstu.ru/books/shelf/book3/doc/chapter3.html Wasilic>> Re: Сохранение данных в ячейке 2011-12-30 15:46 http://forum.msexcel.ru/profiles/wasilic-u24852.html Подскажите пожалуйста как это сделать. Вам же подсказали, МАКРОСОМ. Вы с ним знакомы?
Alexxey>> Ссылка на массив в ячейке 2011-12-30 16:37 http://forum.msexcel.ru/profiles/alexxey-u21920.html Здравствуйте! Возможно ли в формулах ссылаться на массив, размещенный в одной ячейке? Пример во вложении. Заранее спасибо за ответ! VZmiy>> Re: Сохранение данных в ячейке 2011-12-30 18:14 http://forum.msexcel.ru/profiles/vzmiy-u119679.html Не много, но теперь понял как сделать. БОЛЬШОЕ СПАСИБО!!! exceleved>> Re: Ссылка на массив в ячейке 2011-12-30 18:52 http://forum.msexcel.ru/profiles/exceleved-u35802.html У Вас в ячейке С3 - формула, которая помещает в ячейку одно (первое) значение массива. Есть варианты с размещением массива в имени и с размещением массива в ячейке КАК ТЕКСТА с преобразованием его в массив с помощью макрофункции (тоже в имени): С.М.>> Re: Ссылка на массив в ячейке 2011-12-30 19:07 http://forum.msexcel.ru/profiles/sm-u19758.html Опоздал На всякий случай - с картинкой: С.М.>> Re: уравнение полиномиальной линии тренда в excel 2011-12-30 19:28 http://forum.msexcel.ru/profiles/sm-u19758.html Хочу выразить большую благодарность разработчикам MS Excel, что ограничились шестой степенью полиномиального ряда для линии тренда. Аннюточка060, не верьте на слово тем, кто "так подсказали". Alexxey>> Re: Ссылка на массив в ячейке 2011-12-30 21:11 http://forum.msexcel.ru/profiles/alexxey-u21920.html Спасибо, однако возможно ли применить данный способ для моего примера (см.вложение)? exceleved>> Re: Ссылка на массив в ячейке 2011-12-30 21:55 http://forum.msexcel.ru/profiles/exceleved-u35802.html Пишите Код: =ИНДЕКС(MyUnion2(C10:D10;F10:G10);3) Функция возвращает массив, ИНДЕКС выбирает элемент массива.exceleved>> Re: уравнение полиномиальной линии тренда в excel 2011-12-30 22:25 http://forum.msexcel.ru/profiles/exceleved-u35802.html Аннюточка060, невозможно сделать прогноз, основываясь ТОЛЬКО на этих данных. Смотрите: в 2008 и 2009 была тенденция: значения росли с начала года до сентября, потом падали к концу года. Если бы в последующие годы тенденция сохранялась, можно было бы построить тренд по месяцам, или усреднив по 2-3 соседних месяца. Но в 2010 характер кривой изменился: максимум в начале года, дальше спад. В 2011 характер кривой похож на 2008-2009, но максимум смещен к середине года. А сумма за 2011 год в 4,2 раза больше суммы за 2010 год. Чтобы спрогнозировать хотя бы следующий год, надо представлять себе, какие факторы вызвали столь резкий рост, и будут ли они действовать в 2012 году, или произойдет откат к цифрам 2008-2010 гг. Alexxey>> Re: Ссылка на массив в ячейке 2011-12-30 22:51 http://forum.msexcel.ru/profiles/alexxey-u21920.html Спасибо, exceleved. Однако моя упрощенная постановка вопроса не отражает большой объем вычислений для получения массива и их количество. Вычисление массива ЗАНОВО для каждой из ячеек, ссылающейся на его значения, ресурсоемко. Оптимально единоразово посчитать массив и брать из него значения. При этом необходимо массив не разворачивать на листе, а держать в одной ячейке, т.к. 50 массивов по 500 элементов неудобно и нет необходимости разворачивать на листе. exceleved>> Re: Ссылка на массив в ячейке 2011-12-30 23:54 http://forum.msexcel.ru/profiles/exceleved-u35802.html 1. Вам ячеек жалко? Разверните массивы на отдельном листе.2. Function MyUnion2 - это реальная функция, или упрощенная для примера? Она написана неоптимально. Можно ускорить раз в -дцать. Если надо - скажу как. 3. Нужна ли вообще функция, формирующая массивы? По индексу результирующего массива можно вычислить индексы исходных массивов и сложить два соответствующих элемента. Это можно и формулой листа сделать. Alexxey>> Re: Ссылка на массив в ячейке 2011-12-31 00:25 http://forum.msexcel.ru/profiles/alexxey-u21920.html 1. "Разверните массивы на отдельном листе". Этот способ будет работать, однако, возможно ли обойтись без дополнительных затрат? 2. Вероятно, функцию MyUnion2 Вы предлагаете заменить на {=трансп(array1)+array2}? 3. Формирующая массивы функция необходима, т.к. по индексу элемента результирующего массива невозможно вычислить индексы элементов исходных массивов. exceleved>> Re: Ссылка на массив в ячейке 2011-12-31 01:20 http://forum.msexcel.ru/profiles/exceleved-u35802.html 2. Нет, но этот вариант тоже интересный: в VBA получить значение этой матрицы с помощью Evaluate и переписать в одномерный массив. 3. Да ну? Попробуйте такую функцию: Код: Function MyIndex(Array1, Array2, ByVal d As Long) Она вполне эквивалентна формуле =ИНДЕКС(MyUnion2(Array1, Array2);d)Dim i&, j& d = d - 1 i = d \ Array2.Columns.Count j = d Mod Array2.Columns.Count MyIndex = Array1(1 + i) + Array2(1 + j) End Function Свойство Array2.Columns.Count, конечно, лучше не вызывать 2 раза, и переменные можно не использовать - но так нагляднее. Mimino>> Re: Необычная задача... 2011-12-31 03:46 http://forum.msexcel.ru/profiles/mimino-u42971.html Задаю, Excely, чистить через каждые 2 ячейки содержимое, не хочет, пишет Type Mismatch... В чем дело уважаемые? For Row = 1 To 200 Set TheCell = Range("A1").Offset(Row * 2 - 1, 0).Clear Next Row End Sub Alexxey>> Re: Ссылка на массив в ячейке 2011-12-31 08:12 http://forum.msexcel.ru/profiles/alexxey-u21920.html 3) Попробуйте такую функцию... UDF MyUnion2 только для примера. Реально используется ДРУГАЯ функция, формирующая массивы разной длины. Возможно ли переписать матрицу в одномерный массив без UDF? nilem>> Re: Необычная задача... 2011-12-31 08:15 http://forum.msexcel.ru/profiles/nilem-u30547.html Код: Dim i As Long
For i = 1 To 200 Step 2 Cells(i, 1).Clear Next i Алексей Шмуйлович>> Re: Необычная задача... 2011-12-31 11:28 http://forum.msexcel.ru/profiles/alexshm-u64.html Задаю, Excely, чистить через каждые 2 ячейки содержимое, не хочет, пишет Type Mismatch... В чем дело уважаемые? For Row = 1 To 200 Set TheCell = Range("A1").Offset(Row * 2 - 1, 0).Clear Next Row End Sub Дело в том, что clear - это метод, а не функция. Поэтому нельзя использовать конструкцию Set TheCell = ...Clear Можно просто: Range("A1").Offset(Row * 2 - 1, 0).Clear Хотя вариант nilema проще. Mimino>> Re: Необычная задача... 2011-12-31 17:18 http://forum.msexcel.ru/profiles/mimino-u42971.html Спасибо, Уважаемые! С наступающим Вас! Всех благ мирских и душевных! Кит>> Чем заменить условие "Если"? 2011-12-31 17:21 http://forum.msexcel.ru/profiles/kit-u120751.html Чем заменить условие "Если"? Проблема в ограничении уровня вложенности! Он, как известно, не привышает значения 64! Чего я хочу добиться: На листе есть база данных - это таблица из СНиПа "Климатология". Нужно чтобы при выборе города (их 450) из выпадающего списка, в ячейках появлялись значения температур, которые присущи этим городам. Смысл типа того (только нужно сделать другим способом и на больший диапазон) ("К" - название листа; "W1" - значение, присваемое выпадающим списком (соответствует порядковому номеру города в списке; столбец "В" содержит температурные значения городов): =ЕСЛИ(К!W1=1;К!B7; ЕСЛИ(К!W1=2;К!B8; ЕСЛИ(К!W1=3;К!B9; ЕСЛИ(К!W1=4;К!B10; ЕСЛИ(К!W1=5;К!B11; ЕСЛИ(К!W1=6;К!B12; ЕСЛИ(К!W1=7;К!B13; ЕСЛИ(К!W1=8;К!B14; ЕСЛИ(К!W1=9;К!B15; ЕСЛИ(К!W1=10;К!B16; ЕСЛИ(К!W1=11;К!B17; ЕСЛИ(К!W1=12;К!B18; ЕСЛИ(К!W1=13;К!B19; ЕСЛИ(К!W1=14;К!B20; ЕСЛИ(К!W1=15;К!B21; ЕСЛИ(К!W1=16;К!B22; ЕСЛИ(К!W1=17;К!B23; ЕСЛИ(К!W1=18;К!B24; ЕСЛИ(К!W1=19;К!B25; ЕСЛИ(К!W1=20;К!B26; ЕСЛИ(К!W1=21;К!B27;... Serge 007>> Re: Чем заменить условие "Если"? 2011-12-31 17:33 http://forum.msexcel.ru/profiles/serge_007-u25260.html Проблема в ограничении уровня вложенности! Он, как известно, не привышает значения 64! Количество вложений в разных версиях Excel разное.
exceleved>> ОФФ 2011-12-31 19:35 http://forum.msexcel.ru/profiles/exceleved-u35802.html Прикольное название поселка - Ерофей Павлович У него даже сайт есть: http://www.erofey-pavlovich.ru/ С НОВЫМ ГОДОМ!!! Алексей Шмуйлович>> Перенесено: ОФФ 2011-12-31 21:57 http://forum.msexcel.ru/profiles/alexshm-u64.html Тема перенесена в Общение. http://forum.msexcel.ru/index.php?topic=6968.0 Алексей Шмуйлович>> Re: Чем заменить условие "Если"? 2011-12-31 21:59 http://forum.msexcel.ru/profiles/alexshm-u64.html Можно использовать [url=http://msexcel.ru/content/view/20/2/]ВПР(_)[/url] Serge 007>> Re: Чем заменить условие "Если"? 2011-12-31 22:10 http://forum.msexcel.ru/profiles/serge_007-u25260.html Можно использовать ВПР(_) В данном конкретном случае достаточно ИНДЕКС() Алексей, с новым годом Вас! Удачи, счастья, успехов! ЗЫ И процветания этому замечательному сайту и форуму! Кит>> Re: Чем заменить условие "Если"? 2011-12-31 22:56 http://forum.msexcel.ru/profiles/kit-u120751.html Ребята, большое...да что уж большое!! ОГРОМНОЕ спасибо! Безгранично благодарен!!!!! С.М.>> Re: Чем заменить условие "Если"? 2012-01-01 00:11 http://forum.msexcel.ru/profiles/sm-u19758.html да что уж большое!! ОГРОМНОЕ спасибо! Естественно, с таким ник'ом .Всех форумчан - с Новым 2012 ! Алексей Шмуйлович>> Re: Чем заменить условие "Если"? 2012-01-01 00:30 http://forum.msexcel.ru/profiles/alexshm-u64.html С Новым Годом, уважаемые! Smarty_kazan>> Из ячейки в примечание 2012-01-01 14:41 http://forum.msexcel.ru/profiles/smartykazan-u110305.html Добрый день, господа. Сколько искал на форуме, не нашел нужного. Задача в том, чтобы значения из ячейки где формула с ВПР, копировались в примечания уже другой ячейки. Это нужно для экономии места на листе, а то затыкано все. Простите если задаю глупые вопросы.Заранее спасибо за помощь. exceleved>> Re: Ссылка на массив в ячейке 2012-01-01 20:29 http://forum.msexcel.ru/profiles/exceleved-u35802.html UDF MyUnion2 только для примера Ну вот, опять Если бы сразу сформулировали задачу полностью, возможно, уже получили бы решение. Возможно, массивы можно хранить в статических переменных, но мне эта тема уже не интересна.Выкладываю оптимизированные варианты вашей функции MyUnion2. Удалось ускорить в 33 раза. Смотрите, может, найдете полезные для себя приемы. Мои результаты по скорости работы функций (проц 1.6ГГц, WinXP, Excel2000). Запускайте Sub Test: Код: Функция Время Относительно исходной, раз
MyUnion2 27,06556 MyUnion3 2,136062 12,67077 MyUnion4 1,20525 22,45639 MyUnion5 0,803125 33,70031 exceleved>> Re: Из ячейки в примечание 2012-01-01 20:56 http://forum.msexcel.ru/profiles/exceleved-u35802.html Вопрос не глупый, но не полный. Это должно происходить каждый раз при изменении ячейки? В каком диапазоне? Пока ответ такой - вставить в примечание яч. В1 текст яч. А1: Код: on error resume next
[B1].comment.delete [B1].addcomment [A1].text Smarty_kazan>> Re: Из ячейки в примечание 2012-01-01 23:54 http://forum.msexcel.ru/profiles/smartykazan-u110305.html в общем дело такое.пусть будут формулы ВПР.их много.и они должны попадать в примечания определенные которые указаны. Например: лист1-там будут формулы ВПР с других файлов.они должны копироваться в примечания листа 2,3 и т.д.. и можно ли чтобы копировались два, три и более значений в одну ячейку? Mimino>> Re: Необычная задача... 2012-01-02 01:32 http://forum.msexcel.ru/profiles/mimino-u42971.html Доброго времени суток, Уважаемые! Возникла проблема. Имеется столбец с значениями 11, 11а, 116, 113а, 12а... Необходимо удалить значения с отличительной особенность, то есть а на конце.... Крутил вертел, но пока моих знаний недостаточно.... Range("A1:A500").Find(a).Delete... Превратить бы в цикл данное действие... Alexxey>> Re: Ссылка на массив в ячейке 2012-01-02 11:01 http://forum.msexcel.ru/profiles/alexxey-u21920.html Exceleved, спасибо Вам большое за помощь! Выкладывая UDF MyUnion я хотел всего лишь показать, что массив формируется именно UDF, что, возможно, влияет на решение вопроса. Я не выкладывал реальную сложную для понимания UDF, считаю, это отвлекает от задачи. Оптимизированные функции я изучу, спасибо! Почему "Забудьте про Integer и Single!!!"? Думаю, макросом назначить 100 именованных массивов. exceleved>> Re: Ссылка на массив в ячейке 2012-01-02 14:18 http://forum.msexcel.ru/profiles/exceleved-u35802.html > Почему "Забудьте про Integer и Single!!!"? 1. На 32-разрядных системах арифметика Long быстрее, чем Integer. 2. Индексы массивов, свойств типа Cells(i, j), Rows(i) и т.д. имеют тип Long. Если Вы используете в качестве индексов переменные типа Integer, это значит, что каждый раз компилятор вставляет функцию преобразования типа, т.е. фактически получается Cells(CLng(i), CLng(j)). Попробуйте объявить i,j,n как Integer в MyUnion5 - и увидите небольшое замедление. 3. Тип Integer не годится для нумерации строк листа начиная с Excel 97. Single не быстрее, чем Double, но сильнее склонен к накоплению погрешностей расчетов в связи с более короткой мантиссой. Попробуйте в окне Immediate: ?0.3-0.2-0.1 ?csng(0.3)-csng(0.2)-csng(0.1) На сколько порядков различается погрешность? То есть если Вы не используете массивы в 10 млн элементов и более, то использование типов Integer и Single на более-менее современных компьютерах (с памятью >500МБ) не имеет смысла. exceleved>> Re: Из ячейки в примечание 2012-01-02 14:31 http://forum.msexcel.ru/profiles/exceleved-u35802.html > в общем дело такое... В общем, нужен пример в XLS. По такому описанию алгоритм составить невозможно. > можно ли чтобы копировались два, три и более значений в одну ячейку? В смысле, в примечание одной ячейки? Конечно, можно. Например, текст из яч. А1, А2, А3 в примечание яч. В1: Код: [B1].addcomment [A1].text & " " & [A2].text & " " & [A3].text
Smarty_kazan>> Re: Из ячейки в примечание 2012-01-02 15:03 http://forum.msexcel.ru/profiles/smartykazan-u110305.html Вот пример. С.М.>> Re: Ссылка на массив в ячейке 2012-01-02 18:27 http://forum.msexcel.ru/profiles/sm-u19758.html Exceleved, спасибо Вам большое за помощь! Выкладывая UDF MyUnion я хотел всего лишь показать, что массив формируется именно UDF, что, возможно, влияет на решение вопроса. Я не выкладывал реальную сложную для понимания UDF, считаю, это отвлекает от задачи. Оптимизированные функции я изучу, спасибо! Думаю, макросом назначить 100 именованных массивов. Если бы сразу сформулировали задачу полностью, возможно, уже получили бы решение Между двумя Алексеями .Алексей-Alexxey, в Вашем примере диапазоны, из которых Вы делаете объединённый массив, разделены всего лишь одним столбиком. Может вообще его удалить (перенести в другое место), тогда все упростится до обычных формул и "без дополнительных затрат". Стоит ли зацикливаться на преодолении трудностей ?И ещё напрягает: "макросом назначить 100 именованных массивов" ... KuklP>> Re: Из ячейки в примечание 2012-01-02 19:11 http://forum.msexcel.ru/profiles/kuklp-u39713.html Для этого примера. Smarty_kazan>> Re: Из ячейки в примечание 2012-01-02 19:38 http://forum.msexcel.ru/profiles/smartykazan-u110305.html KuklP, exceleved спасибо ребята!! KuklP, а как прописать в вашем макросе, если к примеру было уже примечание и чтобы оно не удалялось.а обновлялись чисто те что из столбца В? KuklP>> Re: Из ячейки в примечание 2012-01-02 19:52 http://forum.msexcel.ru/profiles/kuklp-u39713.html Оно отуда и берется. KuklP>> Re: Необычная задача... 2012-01-02 21:54 http://forum.msexcel.ru/profiles/kuklp-u39713.html Код: Sub www() и вариант покороче:On Error Resume Next With Range(Cells(1, 1), Cells(65536, 1).End(xlUp)) .AutoFilter 1, "=*a" .Offset(1).SpecialCells(12).ClearContents .AutoFilter End With End Sub Код: Sub www1() И совсем короткий:Dim r$: r = ActiveSheet.UsedRange.Columns(1).Address Range(r).Value = Evaluate("IF(RIGHT(" & r & ")=""a"",""""," & r & ")") End Sub Код: Sub www2(): [A:A].Replace "*a", "", 2: End Sub  llloginnn>> Выделение другим цвеом отрицательных значений на графике 2012-01-03 02:31 http://forum.msexcel.ru/profiles/llloginnn-u121075.html Как выделить отрицательные значения на графике другим цветом? Чтобы та часть графика которая находится ниже нуля отображалась другим цветом. MCH>> Re: Выделение другим цвеом отрицательных значений на графике 2012-01-03 03:11 http://forum.msexcel.ru/profiles/mch-u48782.html Как вариант llloginnn>> Re: Выделение другим цвеом отрицательных значений на графике 2012-01-03 13:19 http://forum.msexcel.ru/profiles/llloginnn-u121075.html Спасибо, но не совсем то что хотелось бы. В втоем случае зрительное восприятие результатов нарушается. С.М.>> Re: Выделение другим цвеом отрицательных значений на графике 2012-01-03 14:32 http://forum.msexcel.ru/profiles/sm-u19758.html Альтернативный вариант: Leito>> Зависимые ячейки 2012-01-03 23:05 http://forum.msexcel.ru/profiles/leito-u121194.html Что нужно сделать для того что бы при вводе числа в ячейку "А1, на Листе 1" менялось уже имеющееся значение в ячейке "А1, на Листе 2" exceleved>> Re: Зависимые ячейки 2012-01-03 23:14 http://forum.msexcel.ru/profiles/exceleved-u35802.html Вставить в ячейку "А1, на Листе 2" формулу =Лист1!A1 Или, что то же самое, скопировать ячейку "А1, на Листе 1", выбрать ячейку "А1, на Листе 2", правый клик - Специальная вставка - Вставить связь. Leito>> Re: Зависимые ячейки 2012-01-03 23:19 http://forum.msexcel.ru/profiles/leito-u121194.html я наверное немного неправильно выразился.... Мне нужно что бы число имеющееся в ячейке А1,Лист2 уменьшалось , при вводе числа в ячейку А1,Лист1 exceleved>> Re: Зависимые ячейки 2012-01-04 00:03 http://forum.msexcel.ru/profiles/exceleved-u35802.html Уменьшалось на введенное число, как я понял? В модуль Листа 1 (правый клик на ярлычке листа - Исходный текст): Код: Private Sub Worksheet_Change(ByVal Target As Range) Макросы должны быть разрешены.If Target.Address = "$A$1" Then If IsNumeric(Target) Then With Sheets("Лист2").Range("A1"): .Value = .Value - Target: End With End If End If End Sub В принципе, можно сделать без макросов - итеративными вычислениями, но так надежнее. Leito>> Re: Зависимые ячейки 2012-01-04 00:10 http://forum.msexcel.ru/profiles/leito-u121194.html ДА правильно поняли!!! а возможно такой вариант: что бы при вводе в первую ячейку "наименование", а во вторую "количество" на первом листе, количество данного наименования на втором листе менялось??? exceleved>> Re: Зависимые ячейки 2012-01-04 00:21 http://forum.msexcel.ru/profiles/exceleved-u35802.html А возможно, чтобы Вы сформулировали задачу целиком и приложили пример в виде файла XLS? Leito>> Re: Зависимые ячейки 2012-01-04 00:37 http://forum.msexcel.ru/profiles/leito-u121194.html Нужно, что бы при вводе на Листе1 "Наименования" и "Количества" , на Листе2 количество вводимого наименования уменьшалось на введенное число. ShAM>> Re: Зависимые ячейки 2012-01-04 07:37 http://forum.msexcel.ru/profiles/sham-u106530.html Нужно, что бы при вводе на Листе1 "Наименования" и "Количества" , на Листе2 количество вводимого наименования уменьшалось на введенное число. Что-то у меня файл не открылся.Leito>> Re: Зависимые ячейки 2012-01-04 07:46 http://forum.msexcel.ru/profiles/leito-u121194.html попробуй еще раз KuklP>> Re: Зависимые ячейки 2012-01-04 08:43 http://forum.msexcel.ru/profiles/kuklp-u39713.html Хоть сколько раз. И у меня не открылся. ShAM>> Re: Зависимые ячейки 2012-01-04 09:37 http://forum.msexcel.ru/profiles/sham-u106530.html Хоть сколько раз. И у меня не открылся. Вот-вот, у меня то же самое.На форуме Вы можете получить совет по любым вопросам работы в Microsoft Excel. Добро пожаловать на форум! |
| В избранное | ||
