Отправляет email-рассылки с помощью сервиса Sendsay
  Все выпуски  

Re: цикл


Профессиональные приемы работы в Microsoft Excel

Выпуск 24
от 2009-06-19

Подписчиков: 5938

Рассылка сайта "Профессиональные приемы работы в Microsoft Excel"

Основные разделы сайта
Статьи
Форум

Новости сайта в формате RSS
Новые сообщения форума в формате RSS
Читать в Яндекс.Ленте

Порекомендуйте нашу рассылку друзьям

Обратная связь
Поддержка
(форум рассылки)

Наши рассылки:

Рассылки Subscribe.Ru
Православные:
Ежедневные библейские чтения
Смоленский календарь
Для выздоравливающих алкоголиков и наркоманов
Книга "День за днем"
Книга "24 часа в сутки"
Ежедневные размышления анонимного алкоголика
Самообразование:
"Профессиональные приемы работы в Microsoft Excel"

Наши сайты

Профессиональные приемы работы в Microsoft Excel
Excel от новичка до эксперта

bonifatiy.narod.ru
В помощь выздоравливающим алкоголикам и наркоманам

Собор Смоленских святых. Жития, иконы, календарь памятных дат Смоленской епархии.

StudentTools.Narod.Ru Для тех, кто любит учиться

Наши друзья

VBAtips.ru -
подсказки и решения на VBA

wordexpert.ru
Профессиональная работа с текстом

planetaexcel.ru
Когда заешь - все просто

Новые сообщения форума "Профессиональные приемы работы в Microsoft Excel"


Re: цикл
2009-06-12 07:24

Вы бы попонятнее объяснили, что именно не получается и что должно получиться. Макрос работает, данные копируются, формулы считаются.


Сейчас мне надо в цикле для каждого с...

Поиск соответствующих позиций
2009-06-12 08:37
Добрый день. Подскажите, пожалуйста. У меня есть выборка препаратов и, соответственно товарный справочник. Как бы выделить похожие позиции: с помощью команды левый символ я хочу выделить первое слово из каждой позиции выборки и поставить рядом все пози...

Re: Поиск соответствующих позиций
2009-06-12 11:52
Так подойдет?

Re: Получение данных из формы с listBox-ом
2009-06-12 13:47

1) Чтобы запустить макрос из другой книги нужно написать так

Application.Run "Книга2.xls!Макрос1"


а если надо запустить ПабликФункцию из другой книги
например:

из Кн...

Re: цикл
2009-06-12 14:18

Сейчас мне надо в цикле для каждого строка вычислить F и J.
Для F:
Код:
=D4-(ВПР(D4;List3!$A$2:$C$32;3;1))*(E4-20)
Для J:
[code]=ЕСЛИ(C4=0;0;ИНДЕКС(List4!$A$1:$K$1300;ПОИ...

Re: цикл
2009-06-12 14:36
Спасибо, помоему это то что нужен.

Цитировать
Куда деть результат вычислений Вы не упомянули, поэтому вывел в окно отладки через Debug.Print.

Для F: (F4,F5,...F9)
Код:
=D4-(ВПР(D4;List3!$A$2:$C$32;3;1))*(E4-20)


Для J: (J4,J5,...J9)
[code...

Re: цикл
2009-06-12 14:57
Сейчас остается последный вопрос: Вычислить  столбцы K и L.

Код:
IF g4 >= предудущий G4
    REPLACE K4  with G4 - 'предудущий' G4
ELSE
    REPLACE L4  with  'предудущий' G4 -G4


генерация отчета
2009-06-12 15:12
Нужна помощь! У меня есть отчеты, которые составляются на протяжении недели. Нужно, что бы по итогам недельных отчетов, формировался отчет за месяц(с теми же самыми колонками). Не получается, чтобы строки из столбцов Company и PC's автоматически записы...

Re: Копирование диапазона
2009-06-12 16:50
Конечно что слышал! Проблема была в том что я не мог копировать динамически, а не в одно и тоже место. Но теперь все понятно, разобрался, очень благодарю!

Re: Копирование диапазона
2009-06-12 17:44
Пожалуйста  Подмигивающий

Re: цикл
2009-06-12 17:58

Сейчас остается последный вопрос: Вычислить  столбцы K и L.

Типа, вычислить разность чисел в соседних итерациях и, в зависимости от их отношения на больше-меньше, распихать...

Сбор данных из большого количества файлов
2009-06-12 18:09
Здравствуйте!
Назрела необходимость извлечь данные из кучи файлов Excel в общий список. Возможно, для последующего перевода в Access или ещё куда. Сильно мешает кривое расположение данных в исходных файлах, да еще и в объединенных ячейках.
Файлов уже...

Re: генерация отчета
2009-06-12 18:22
У меня, наоборот, получилось автоматически сформировать сводной таблицей эти столбцы, но не вышло автоматически сделать всё остальное. Улыбка Посмотрите, пожалуйста, вложение и найдите: недостающие звенья и десять отличий, если они критичны. Подмигивающий

Ранжирование строк в таблице
2009-06-13 11:30
Здравствуйте!

Мне необходимо сделать казалось бы простую операцию над таблицей, но не понимаю как.
Нужно числа каждой строки таблицы (массива чисел) отсортировать по возрастанию или убыванию (не отдельные строки, а все разом)
Ни в операциях над массива...

Как создать формулу для сводной таблицы?
2009-06-13 12:12
Как создать формулу для сводной таблицы.
Есть общая база, в которой находятся предприятия по районам и статусом "работающие/неработающие"
В сводной таблице есть столбец - "Кол-во предприятий в районе". Есть столбец - "Работающие предприятия".
Столбец "...

Re: Ранжирование строк в таблице
2009-06-13 12:40
Да, действительно, в Excel не предусмотрена сортировка по строкам. Это нужно делать макросом, но если не хочется - можно и формулами. См. вложение.

Re: Как создать формулу для сводной таблицы?
2009-06-13 12:46
=СЧЁТЕСЛИ(Диапазон_статусов;"статус")

Re: Ранжирование строк в таблице
2009-06-13 16:15
kimtan, спасибо большое за подсказку

наибольший/наименьший + "протяжка" = "и да будет вам счастье"))

Ссылочная целостность документа (совет юристу)
2009-06-13 19:47
Я юрист, а потому прошу не судить строго по вопросам IT.

Моя задача: автоматизация процесса составления договоров.
Делаем договор с многоуровневой рубрикацией. Впоследствии
выгружаем его в Ворд.

Условный пример:

ПРЕАМБУЛА
ООО "Аут" (Продавец) в лице...

что выбрать VB или Delphi ?
2009-06-13 20:41
Делаю проект в котором нужно перерабатывать (кромсать по всячески) очень большое кол-во текстовых строк (string массив). Excel с этим справляется ну очень медленно, поэтому решил передавать это все для обработки в другую программу (.exe).Стал выбирать ...

Re: Ссылочная целостность документа (совет юристу)
2009-06-14 14:14
Это задача для Ворда
см. вложение

Re: Помогите с формулой!
2009-06-14 19:22
Помогите расшифровать формулу
=ПСТР($AT14;AU$69;1)
Не понятно для чего знак доллара в аргументах, особенно во втором.

Re: Помогите с формулой!
2009-06-14 21:04
changi
В ячейках столбца AT находится какой то текст, из которого данная формула выбирает 1 символ, а в строке 69 - числа, указывающие позицию знака, извлекаемого из этого текста. По всей вероятности, данная формула находится не в одной ячейке, ...

Re: Ссылочная целостность документа (совет юристу)
2009-06-14 21:22
Хотел уже написать, что ссылка не изменяется при добавлении новых пунктов, но обновил поле ссылки из контекстного меню - обновилась и ссылка.
Надо тоже будет взять на вооружение.

Re: Ссылочная целостность документа (совет юристу)
2009-06-14 22:49
Ссылка обновляется автоматически при открыти документа или при выводе на печать

показатели динамики в статистике
2009-06-15 12:16
Помогите, пожалуйста, с расчетами!!!Ничего не понимаю в Excel!!!дана таблица-уровень продаж четырех видов товара с 1990 по 2008 годы, также есть столбец Всего и Кол-во сотрудников. Рассчитаны показатели структуры совокупности по видам товара, и показат...

Re: Помогите сделать фон...
2009-06-15 13:02
Попробуйте через вставку рисунка фона в верхний колонтитул
Файл-Параметры страницы...-вкладка Колонтитулы - создать верхний колонтитул - кнопка Вставить рисунок.

Рисунок заранее подогнать под страницу...

Re: показатели динамики в статистике
2009-06-15 13:08
Для начала надо понимать не в Excel, а в статистических показателях.

Предлагаю посмотреть ссылку:
http://lib.vvsu.ru/books/bakalavr02/page0145.asp

Если разберетесь, то поймете, что все сводится к простейшему делению или вычитанию...
Успехов!

Как избавиться от тормозов в EXCEL
2009-06-15 13:17
Здравствуйте! Вот какая проблемка: офис 2007, Excel в принципе работает нормально, но при изменениях в ячейках данных (не только числа, но и слова) после нажатия enter происходит подвисалово, о чем он думает не понятно, пробовал отключал разные програм...

Re: Как избавиться от тормозов в EXCEL
2009-06-15 15:12
Посмотри связи и диспетчер имен. Скорее всего что то в файле ссылается на сетевой источник, и при каждом пересчете обновляет связь.

Как через VBA применять формулы к другой книге?
2009-06-15 20:13
Детский вопрос, но у меня так и не получилось.
Есть две книги, надо в одну вывести ячейки со смещения из другой. Например Если в книге А в ячейке стоит 1, то в книгу Б ставится соседняя от 1. Как не пытался - не получается.
Книги могут быть открыты.

значок переноса
2009-06-16 02:52
Столкнулся с проблемой: загружаю файл в базу данных в формате .csv
в некоторых ячейках есть текст в котором присутствует значок  переноса на новую строку (квадратик- при просмотре ячейки его не видно, но если скопировать текст в блокнот он появляется))...

Re: значок переноса
2009-06-16 03:58
Формула такая:
=ПОДСТАВИТЬ(B2;СИМВОЛ(10);" "), где
В2 - ячейка с переносом строки.
Затем полученное скопировать и вставить значением.
Можно вообще вставить новый лист и в нем в А1 написать
=ПОДСТАВИТЬ(СтарыйЛист!A1;СИМВОЛ(10);" "), затем размножить фо...

Выделение жирным шрифтом
2009-06-16 09:13
Добрый день, подскажите, пожалуйста, как справиться с такой ситуацией: есть таблица, нужно выделить жирным шрифтом некоторые строки. Напр-р: если в первом столбце строки отсутствует текст (ячейка - пустая), то нужно выделить эту строку.

Re: значок переноса
2009-06-16 09:32
Открываешь в Ворде делаешь заменить, в поле заменить пишешь ^p все пропадет, кроме последнего

Re: Автозавершение из определенного диапазона.
2009-06-16 10:49
Добрый день!

подскажите как можно реализовать следующую затею:

Есть несколько организаций, в которых работают люди, хотелось бы сделать это двумя выпадающими списками (с автозаполнением конечно Улыбка ), первый это название организации, а второй должен фор...

Объявление переменных
2009-06-16 12:00
Уважаемые знатоки возникла следующая проблемка: Макросы которые раньше нормально работали периодически начинают ругаться Can't find projekt or library, причем ругается даже на символ Chr (10), в основном помогает объявление переменных. Хотя галка Requi...

Поиск и сортировка
2009-06-16 12:13
Прошу помощи у знатоков. Попытался нарисовать макрос который в определенном столбце находит все значения по вхождению любых букв, затем меняет шрифт и заливку, а затем их сортирует. С первой частью все хорошо, находим, выделяем, а вот с сортировкой гол...

Re: цикл
2009-06-16 12:58

Цитировать
Типа, вычислить разность чисел в соседних итерациях и, в зависимости от их отношения на больше-меньше, распихать в разные столбцы?
Да именно так, но только надо накапливать эти значение в столбцы "K" и "L"

PS:
Цитировать
Мне б ваше общест...

Re: Автозавершение из определенного диапазона.
2009-06-16 13:05
Во вложении пример со списками, а автозаполнение попробуйте "прикрутить" сами прочитав данную тему Подмигивающий

Re: Автозавершение из определенного диапазона.
2009-06-16 13:14
МЕГА РЕСПЕКТ!!!!

Re: На листе в столбик несколько десятков фамилий,необходимо чтобы автоматически
2009-06-16 14:03
То же самое, только на 7 листов.
См. вложение.

Re: На листе в столбик несколько десятков фамилий,необходимо чтобы автоматически
2009-06-16 19:23
Спасибо,вроде бы то что необходимо!

Re: Заливка ячеек не получается (Excel 2003 и 2007)
2009-06-16 19:28
Главная-Условное форматирование-Удалить правила-Удалить правила со всего листа.

Re: Помогите составить формулу!
2009-06-16 19:30
Формула массива. Для ввода нажимать Ctrl+Shift+Enter.
Если Ошибка НД не смущает, то первую часть (с ЕСЛИ) можно опустить.

Re: Помогите составить формулу!
2009-06-16 19:33
А какая формула, чтобы сравнить первые символы до пробела (артикул) с другой ячейкой массива?

Re: Помогите составить формулу!
2009-06-16 19:40
В приложенном выше файле в столбце С.
Без ЕСЛИ выглядит так:
{=ИНДЕКС($F$2:$F$4;ПОИСКПОЗ(ЗАМЕНИТЬ($A2;ПОИСК(" ";$A2)-1;1000;"");ЗАМЕНИТЬ($E$2:$E$4;ПОИСК(" ";$E$2:$E$4)-1;1000;"");0))}

Для бОльшего массива заменить $E$2:$E$4 на массив требуемого размера...

Re: Как через VBA применять формулы к другой книге?
2009-06-16 20:03
Никто не знает, чтоли? Или я непонятно рассказал?
Ну в общем в принципе я уже решил проблему через Evaluate, но всё равно хотелось бы по другому...

Re: Выделение жирным шрифтом
2009-06-17 10:02
через [url=http://msexcel.ru/content/view/116/2/]условное форматирование[/url]

Re: Заливка ячеек не получается (Excel 2003 и 2007)
2009-06-17 10:16
Спасибо! Работает! Вы нас спасли!

Как удалить пустые строки с кучей условий?
2009-06-17 12:56
Подскажите пожалуйста правильный макрос, чтобы удалить пустые строки в "Таблица1", при условии, что ячейки с "A" по "J" пустые, а ячейки с "K" по "O" меньше или равны нулю. Весь форум облазил, много чего нашел, а вот ...

Re: цикл
2009-06-17 13:19

Да именно так, но только надо накапливать эти значение в столбцы "K" и "L"

Что ж, давайте добавим плюсик для суммирования:
[code]      For nRow = 4 To 9
        Set MyRng ...

Re: Суммирование значений колонки на предмет поиска суммы чисел, равной "x"
2009-06-17 13:34
Делаю все по инструкции, но почему-то не получается.
Есть файл Excel с 41 числом в ячейках с A1 по A41, в ячейку B1 забиваю искомую сумму.
Нажимаю Alt+F11.
Импортирую в него модуль (SHBruteSum.bas) из вложения (File -> Import File);
нажимаю run и ничег...

Визуальная схема построения сети
2009-06-17 14:47
Подскажите пожалуйста, есть ли уже готовая таблица-[url=http://msexcel.ru/content/view/22/2/]структура[/url] для следующей цели:
Нужно составить список компьютеров в сети с указанием их ip, пользователей, паролей и т.д.
Но хочется чтоб это была не просто голая таблица, а эдакая визуальная схема, нап...

Re: цикл
2009-06-17 15:00

Цитировать
Set MyRng = .Range("L" & nRow).Offset(0, .Range("G" & nRow) >= LastG(nRow))
MyRng.Value = MyRng + Abs(.Range("G" & nRow) - LastG(nRow))

Обясните пожалуйста, как работает эти команды?

Дело в том что, мне нодо вычислить разность чисел в ...

Re: Получение данных из формы с listBox-ом
2009-06-17 15:10
Ура! решение найдено!
PlanetaExcel

Re: Видимость Public переменной из другой Книги
2009-06-17 15:18
Сам спросил, сам ответил   Смеющийся

Решение найдено на соседнем форуме PlanetaExcel где описан полезный принцип Divide And Conquer: раз...

Re: Суммирование значений колонки на предмет поиска суммы чисел, равной "x"
2009-06-17 15:58

Импортирую в него модуль (SHBruteSum.bas) из вложения (File -> Import File);
нажимаю run и ничего не происходит.
В чем проблема?

Воспользуйтесь усовершенствованным готовым в...

Re: Как организовать цикл в VBA
2009-06-17 19:33
Ответьте плиз ктонибудь! как писать значения в столбик в цикле?

Re: Как организовать цикл в VBA
2009-06-17 19:40
Вместо Range("a1") = m
нужно
Range("a" & (i - 29)) = m.
Кстати функция COS работает с радианами, а не с градусами, так что значения 30-50 нужно перевести в радианы.

А без макросов - см. вложение.

Re: Как организовать цикл в VBA
2009-06-17 19:46
да, это я понял использую метод перевода Cos(r * 3.141592654 / 180)

Re: Как организовать цикл в VBA
2009-06-17 19:49
Range("a" & (i - 29)) = m. не работает - method Range failed

Re: Как организовать цикл в VBA
2009-06-17 19:53
А зачем точку в конце поставили? У меня она стит как обозначение окончания предложения.

Re: Как организовать цикл в VBA
2009-06-17 19:58
нет, точки нет, он не хочет работать с i , поставил другую переменную, заработало, считает, выдает столбец значений, как выделить значения больше условного?

Re: Как организовать цикл в VBA
2009-06-17 20:22
Можно внутри цикла если m>1, то для Range("a" & (i - 29))    ColorIndex = 15,
а можно все сразу условным форматированием:
Sub цикл()
Sheets("Лист1").Activate
For i = 30 To 50
m = 3.2 / 9.8 + Cos(i * 3.141592654 / 180)
Range("a" & (i - 29)) = m
Next
R...

Re: Как организовать цикл в VBA
2009-06-17 20:52
Спасибо за помощ =)

Re: Как через VBA применять формулы к другой книге?
2009-06-17 20:57
Да мне не нужны [url=http://msexcel.ru/content/view/34/2/]сводные[/url] таблицы... У меня открыто две книги - в одной произведены расчёты, а в другой форма, куда надо занести некоторые данные из книги расчётов. Я пытался так
If Workbooks ("Расчёты").Sheets ("Этот").Cells (1,1) <> 0 Then
Cells (1,1) ...

как убрать колонки в ворде?
2009-06-17 21:48
вобщем требуется убрать столбцы, или колонки, не знаю как грамотно их назвать, просто убрать, чтоб на месте их было пустое место.
[size=24]КАК?![/size]

зара...

Re: как убрать колонки в ворде?
2009-06-17 21:49
собсно сам вордовский файл:
http://www.sendspace.com/file/thl6xm

Re: как убрать колонки в ворде?
2009-06-17 22:21
нашел, всем спс!

Re: Автоматическое изменение формата при обновлении сводной таблицы
2009-06-18 04:21
Вот это да! А ведь действительно оказались сложными вопросы!

Re: цикл
2009-06-18 12:01
Спасибо всем, особенно,  Шпец Докапыч.
Вот добавил несколько строка в макрос и так решил этот вопрос. Но если можно более грамотно - скажите пожалуйста.
 
[code]Sub Ìàêðîñ1()
  With Sheets("LIST2")
    'çàïèñàíî ìàêðîðåêîðäåðîì
    .[F4:F9].FormulaR1C...

Re: Как через VBA применять формулы к другой книге?
2009-06-18 12:46
Хорошо бы примерчик, но из того, что понял - наверное так

If Workbooks("А").Sheets("1").Cells(1, 1) <> 0 Then
    Workbooks("Б").Sheets("1").Cells(1, 1) = Workbooks("А").Sheets("1").Cells(1, 1)
    Workbooks("Б").Sheets("1").Cells(1, 2) = Workbooks("А"...

Re: Как через VBA применять формулы к другой книге?
2009-06-18 20:37
Хмм.... если бы всё было так просто... я так пробовал...
Пример прикрепляю - хотя не представляю что он может дать.

Re: Как реализавать запуск mstsc.exe с вводом ip, логина и пароля.
2009-06-18 20:53
Если не трудно, подскажите, как реализовать мою идею с помощью SendKeys.

Re: Как через VBA применять формулы к другой книге?
2009-06-18 21:31
Прошу прощения за ошибку, т.е. код будет выглядеть так:
[code]
Sub Макрос3()
'
' Макрос3 Макрос
' Макрос записан 18.06.2009 (A-ton)
'
If Workbooks("A.xls").Sheets("1").Cells(1, 1) <> 0 Then
    Workbooks("B.xls").Sheets("1").Cells(1, 1) = Workbooks("A....

Re: Получение данных из формы с listBox-ом
2009-06-18 21:39
В продолжение, кому интересно, читайте программный запуск надстройки

Re: Видимость Public переменной из другой Книги
2009-06-18 21:39
В продолжение, кому интересно, читайте программный запуск надстройки


На сегодня все. До встречи на следующей неделе.


В избранное