| ← Январь 2012 → | ||||||
|
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.824 подписчиков
-1 за неделю
-1 за неделю
erv21>> Re: Не работает гиперссылка
Профессиональные приемы работы в Microsoft Excel Выпуск 52 Подписчиков: 6007 Рассылка сайта "Профессиональные приемы работы в Microsoft Excel"
Новости сайта в формате RSS Порекомендуйте нашу рассылку друзьям Обратная связь Наши рассылки: Наши сайты Профессиональные приемы работы в Microsoft Excel bonifatiy.narod.ru Собор Смоленских святых. Жития, иконы, календарь памятных дат Смоленской епархии. StudentTools.Narod.Ru Для тех, кто любит учиться Наши друзья VBAtips.ru - wordexpert.ru planetaexcel.ru |
Новые сообщения форума "Профессиональные приемы работы в Microsoft Excel"
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 Хоть сколько раз. И у меня не открылся. Вот-вот, у меня то же самое.Smarty_kazan>> Re: Из ячейки в примечание 2012-01-04 09:48 http://forum.msexcel.ru/profiles/smartykazan-u110305.html В общем я тут добавил макрос. Option Explicit Sub Изменить_комментарии() Dim sh As Worksheet, com As Comment For Each sh In ThisWorkbook.Worksheets For Each com In sh.Comments com.Shape.TextFrame.AutoSize = True With com.Shape.TextFrame.Characters.Font .ColorIndex = 1: .Bold = 0: .Italic = 0: .Size = 10 End With com.Shape.Fill.ForeColor.SchemeColor = 1 Next com Next sh End Sub Он делает примечания нужного размера.не подскажете как сделать чтобы он работал сразу после копии содержимого ячейки в примечание? Wasilic>> Re: Зависимые ячейки 2012-01-04 10:28 http://forum.msexcel.ru/profiles/wasilic-u24852.html пример в виде файла XLS? Потребовали в формате XLS, вот и добавляйте сами букву М.
KuklP>> Re: Из ячейки в примечание 2012-01-04 11:51 http://forum.msexcel.ru/profiles/kuklp-u39713.html Так, что ли? paramilitaries>> таймер, останавливается при вводе значения. подскажите 2012-01-04 15:23 http://forum.msexcel.ru/profiles/paramilitaries-u120994.html Суть такова. Есть несколько работающих отдельно друг от друга таймер (делал не я), я хочу подправить его под себя, что б время полученное после нажатия "стоп" можно было вводить рядом в строчку "время" для дальнейшего пересчета в валюту, но после ввода любого значения в любой точке листа останавливает все счетчики (( как сделать что б они не останавливались ? Может кто сможет подправить в файле ? или подсказать что нужно сделать... Оч. прошу paramilitaries>> Re: таймер, останавливается при вводе значения. подскажите 2012-01-04 15:30 http://forum.msexcel.ru/profiles/paramilitaries-u120994.html может еще подскажите как время в том таймере округлить до целого числа? что б после остановки времени можно было сразу делать с ним вычисления, если это возможно... Спасибо KuklP>> Re: Из ячейки в примечание 2012-01-04 15:35 http://forum.msexcel.ru/profiles/kuklp-u39713.html А я знаю? Я Ваш документ не видел. Выложите - посмотрю. Smarty_kazan>> Re: Из ячейки в примечание 2012-01-04 16:02 http://forum.msexcel.ru/profiles/smartykazan-u110305.html Вот.не могу найти в чем ошибка. Leito>> Re: Зависимые ячейки 2012-01-04 17:16 http://forum.msexcel.ru/profiles/leito-u121194.html файл в порядке, попробуйте добавить "М" в расширении. Leito>> Re: Зависимые ячейки 2012-01-04 17:24 http://forum.msexcel.ru/profiles/leito-u121194.html этот попробуйте... KuklP>> Re: Из ячейки в примечание 2012-01-04 18:39 http://forum.msexcel.ru/profiles/kuklp-u39713.html Из-за объединенных ячеек. Сколько пишем, объединенные ячейки - зло. Smarty_kazan>> Re: Из ячейки в примечание 2012-01-04 19:09 http://forum.msexcel.ru/profiles/smartykazan-u110305.html Напишите пожалуйста, что вы меняли помимо макроса? мне еще предстоит это делать на многих листах. KuklP>> Re: Из ячейки в примечание 2012-01-04 19:21 http://forum.msexcel.ru/profiles/kuklp-u39713.html Ничего. Smarty_kazan>> Re: Из ячейки в примечание 2012-01-04 19:30 http://forum.msexcel.ru/profiles/smartykazan-u110305.html да что-то не выходит.вставляю в конечный файл.а все равно эффекта ноль.(( Smarty_kazan>> Re: Из ячейки в примечание 2012-01-04 19:48 http://forum.msexcel.ru/profiles/smartykazan-u110305.html помогает только копирование листа в ту книгу(мда. KuklP>> Re: Из ячейки в примечание 2012-01-04 19:51 http://forum.msexcel.ru/profiles/kuklp-u39713.html вставляю в конечный файл.. А тот, что Вы выкладывали был какой? И какой тогда смысл был его выкладывать?stanislas>> Квалификационная задача: Макрос для переноса данных из ячейки в другую ячейку 2012-01-04 20:44 http://forum.msexcel.ru/profiles/stanislas-u121331.html Квалификационная задача: Макрос для переноса данных из ячейки в другую ячейку Добрый день! Помогите пожалуйста написать макрос, который будет: 1. Находить в столбце ячейку, начинающуюся со знака "(" (основная сложность выделена жирным) 2. Копировать данные из этой ячейки в соседнюю по диагонали ячейку (вот это совсем не получается!) Обычно макросы писал записывая действия, но тут это не прокатывает. Буду очень признателен если вы поможете решить эту задачу. Автору хорошего решения будет предложено ещё несколько задач за плату (Нам надо автоматизировать генерацию файлов Excel заданной структуры из нескольких других файлов с заданными структурами). Большое спасибо за помощь! Leito>> Re: Зависимые ячейки 2012-01-05 00:50 http://forum.msexcel.ru/profiles/leito-u121194.html Народ помогите пожалуйста....очень надо ShAM>> Re: Квалификационная задача: Макрос для переноса данных из ячейки в другую ячейку 2012-01-05 07:57 http://forum.msexcel.ru/profiles/sham-u106530.html Добрый день! Цитировать 1. Находить в столбце ячейку, начинающуюся со знака "(" (основная сложность выделена жирным) В чем сложность? Берете 1 левый символ и сравниваете (может и формул будет достаточно).Цитировать 2. Копировать данные из этой ячейки в соседнюю по диагонали ячейку (вот это совсем не получается!) А вот с этим действительно беда. В общем случае у ячейки 4 соседние по диагонали (если она не на границе листа). Вы предлагаете натыкать эту ячейку во все 4?Лучше бы выложили пример в .xls формате. Вот столбец, вот такие (примерно) данные, вот так хочу получить. Может и решение получили бы быстрее. ShAM>> Re: Зависимые ячейки 2012-01-05 08:32 http://forum.msexcel.ru/profiles/sham-u106530.html Народ помогите пожалуйста....очень надо Может и помог бы, но не читает моя машина .xlsx.differ>> Печать выбранных ячеек 2012-01-05 09:59 http://forum.msexcel.ru/profiles/differ-u121421.html Добрый день! Есть готовые бланки на которых необходимо нанести текст. Имеется шаблон excel. Подскажите пожалуйста как сделать так, чтобы на печать выводились только выбранные ячейки. Выделил красным. Спасибо! KuklP>> Re: Печать выбранных ячеек 2012-01-05 10:39 http://forum.msexcel.ru/profiles/kuklp-u39713.html Очистить все остальные. Причем рамки тоже нужно убрать. Только зачем такой изврат? Чтоб бланки не пропали впустую? iron priest>> Re: Печать выбранных ячеек 2012-01-05 10:52 http://forum.msexcel.ru/profiles/iron_priest-u20725.html печать-выделенный диапазон правда не помню работает ли это на несвязанные диапазоны ozord>> Копирование значение ячейки по нажатию кнопки 2012-01-05 10:58 http://forum.msexcel.ru/profiles/ozord-u121429.html Здравствуйте! Поделитесь пожалуйста опытом. Суть вопроса: имеются значения которые будут заполнятся вручную (лист1 во вложенном файле) и имеется таблица в которую эти данные по очереди должны добовлятся (лист2). Хочется сделать кнопочку (её я понял как делать) по нажатию которой данные с первого листа копировались в таблицу второго листа (нажал - скопировалась, ввел новые данные - нажал - скопировалось в следующую строчку). Обьясните, пожалуйста, как это можно сделать. На сегодня все. До встречи на следующей неделе. |
| В избранное | ||
