» Excel FAQ (часть 5)

Kai
ну, погадаю ещё раз..


Код: '------------------------------------------------------------------'
' сведение/копирование таблиц со всех листов на лист "Результат" '
'------------------------------------------------------------------'
Sub result_tbl1()
Const result_sheet = "Результат" 'имя листа с результирующей таблицей
Dim ws As Worksheet

With Sheets(result_sheet)
.Cells.ClearContents 'очищаем лист с результирующей таблицей
.Range("A1:A2") = "Сводная Таблица" 'для корректной работы .end(xldown)
For Each ws In Worksheets 'цикл по листам
If ws.Name <> result_sheet Then 'для всех кроме листа с результирующей таблицей
'если первая ячейка листа не пустая, копируем заполненную область
'область в первую свободную ячейку листа результата
If ws.Range("A1") <> "" Then _
ws.Range("A1").CurrentRegion.Copy .Range("A1").End(xlDown).Offset(1, 0)
End If
Next
.Rows(1).Delete 'зачищаем первую временную строку
.Rows(1).Delete 'зачищаем первую временную строку
End With
End Sub
'------------------------------------------------

Uraanfgh56
самое простое будет:
решение 1) для А1 данных в ячейке В1 пишем =LEFT(A1,4) т.е. оставляем только последних 4 символа из исходных.
или
решение 2) для А1 данных в ячейке В1 пишем =REPLACE(A1,1,2,"") т.е. заменяем первые 2 символа на пустое место.
Есть ещё некоторые решения позамороченнее.

ALeXkRU
Не, ни разу не VBA ))

Uraanfgh56
вариантов - полнО.. в такой постановке..

=ЗАМЕНИТЬ(A1;1;2;"")
(заменить (в ячейке А1) 2 символа, начиная с 1 (первого), на пустую строку)

или
=ПОДСТАВИТЬ(A1;"1-";"")
(подставить в ячейке А1 в текст вместо "1-" пустую строку)

или
=ПРАВСИМВ(A1;4)
(выбрать из текста (в ячейке А1) 4 символа с конца)

и даже
=ПСТР(A1;3;4)
(выбрать из текста в ячейке А1 четыре знака, начиная с 3-его)

всё от конкретных условий зависит..

ЗЫ: на самом деле, в таких случаях, проще ткнуть в ячейку и f(x) (вставить функцию), и, перебирая варианты, смотреть описание функций - оно довольно подробное заодно и узнаешь их получше...

Добавлено:
vikkiv
про левый - ты зря

Добавлено:

Цитата:

Не, ни разу не VBA ))

ну, можно, конечно, и послать куда надо в VBA - по рыжей строчке.. Но, раз уж заморочился.. да ещё, так и не дождавшись нормальной постановки задачи..

А ну да, косякнул, =RIGHT(A1,4) , лево с право путать обычное дело.

добрый день,
проблема с excel решена, проблема в ОЗУ.

Подскажите, пожалуйста, как в экселе делать ранжирование чисел
например вот столбец с числами
8.33
72.60
71.28
69.39
69.29
69.06
68.68
67.05
6.20
589.47
44.53
418.85
41.48
40.11
40.01
390.45
как сделать чтобы сначало шло самое большое число т.е. 589 , 418... и главное, чтобы при ранжировке синхронно перестраивались данные ячеек А, потому что к каждому числу приписан свой номер телефона. Если числа ранжируются, а номера нет, то получится большая путаница, например
89221111111 номер телефона к числу 8.33
89221111112 номер телефона к числу 589 . При ранжировании 589 должен стоят на первом месте , но со своим номером, а 8.33 должен стоять там на 20 месте, но со своим номером.

а чем сортировка вам не в помощь?

Futurism выделяете диапазон, который нужно отсортировать. Данные->Сортировка->Столбец, по которому сортируете (до трёх) и направление сортировки: по возрастанию или по убыванию.

у меня не получается. что-то она не сортирует как мне надо, или я что-то не то делаю.

Добавлено:
LaCastet
вот хотел гифку сделать, не получилось пришлось в авишку гнать. ну тут я просто показываю ,что я делаю
,но цифры не ранжируются как мне надо, они как-то неправильно меняются местами, и не меняется телефоны
http://vimple.ru/1559dfe2b4884563aba943a2861e5070

http://SSMaker.ru/98397a2d/
http://clip2net.com/s/5U6h0W
http://SSMaker.ru/2a2b9755/

[q][/q]
Futurism ,замените точки на запятые и потом фильтруйте по увеличению или по уменьшению, как вам нужно

спасибо, друзья.

Привет всем!

Как на кнопку (стрелка вверху) посадить запись файла только в нужный формат (стрелка внизу)?

Excel 2007 и 2010.

Спасибо заранее.

renreg
Office 2007 / 2010: http://office.microsoft.com/en-001/excel-help/change-the-default-file-format-for-saving-workbooks-HP010235437.aspx
(Office 2013) File -> Options -> Save -> Save WorkBooks -> Save Files in this format:
Если нужно несколько различных кнопок / форматов которыми приходится пользоватся чаще всего - то тоже решаемо, но через макрос в другую тему (VBA через свойство ActiveWorkbook.SaveAs FileFormat:=6, Filename=:"..")

ребят , с вопросом ранжирования мы разобрались, но есть более сложный вопрос, но он связан с этим. Вот у нас есть распечатки номеров телефонов и оплата,

а также есть эксель , где меня интересуют всего три вкладки водители, мерчандайзеры и торговые представители


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

Можно ли сделать, чтобы в первом документе с распечаткой звонков в столбце В из 2-го экселя была фамилия человека, в столбце С его должность (водила, мерч...) Притом, чтобы имя и должность ещё правильно соотносились с телефоном
Иными словами первый эксель должен найти у себя номер всех этих категорий из 2-го экселя и релевантно каждому из этих номеров написать должность человека и его фио.
чтобы это выглядело примерно так


можно ли в экселе делать такие связки между документами?

Futurism
посмотри функцию ВПР и сводные таблицы

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

Futurism
ну, в справке оно вполне подробно описано..
Залить - можно; не обещаю, что прямо сейчас буду заниматься.. вечерком..

Все равно рад, что вы всегда помогаете.
это ссыль на распечатку звонков
http://rghost.ru/49248592
а эта база водителей, мерче, торг. предст.
http://rghost.ru/49248633

б..я писал писал и не хрена не сохранилось.
вот модифицированные таблицы

http://rghost.ru/49249235
http://rghost.ru/49249224

выглядит так http://clip2net.com/s/5UAiow

надо привести к единому формату номера телефонов чтобы формулы искали

в B11 формула


Код: =ЕСЛИ(
ЕСЛИОШИБКА(ВПР(A11;'[SIM-Карты БИЛАЙН.xls]водители, экспедиторы'!$B:$G;5;ЛОЖЬ);"")="";
ЕСЛИ(
ЕСЛИОШИБКА(ВПР(A11;'[SIM-Карты БИЛАЙН.xls]мерчендайзеры'!$B:$G;5;ЛОЖЬ);"")="";
ЕСЛИ(
ЕСЛИОШИБКА(ВПР(A11;'[SIM-Карты БИЛАЙН.xls]торговые представители'!$B:$G;5;ЛОЖЬ);"")="";
"нет такого номера";
ВПР(A11;'[SIM-Карты БИЛАЙН.xls]торговые представители'!$B:$G;5;ЛОЖЬ)
);
ВПР(A11;'[SIM-Карты БИЛАЙН.xls]мерчендайзеры'!$B:$G;5;ЛОЖЬ)
);
ВПР(A11;'[SIM-Карты БИЛАЙН.xls]водители, экспедиторы'!$B:$G;5;ЛОЖЬ)
)

Доброго времени суток!

Стал такой вопрос: Есть книга MS Office 2007, в ней два листа, на одном массив из 17 столбцов и 203000 строк, на втором 1 столбец и 15000 строк.
Задача: Надо из 203000 строк удалить строки, где в столбце "f" значения совпадают со значениями второго листа (с количеством строк 15000)

Preslay
если именно "удалить", то это не сюда.. Нужны макросы или VBA.. В шапке есть ссылка

Извиняюсь, сразу не сообразил

KF121
И Вам громаднейшей респект, мне ещё долго допирать до таких формул, однако, что - то у меня как у вас не получается.
Я скачал ваши файлы с ргхоста. они у меня сохранились в одну папку
C:\Documents and Settings\admin\Мои документы\Загрузки\
открываю их вместе.
в В11 вставляю формулу

жму энтер выскакивает ошибка

нажимаю ок
он выделяет часть кода


что тут не так?

Futurism
документ с сим-картами видать называется не так. также надо включить содержимое если выскакивает такое сообщение. сначала открыть файл с симками а потом отчет. Убедится что имя файла с симками SIM-Карты БИЛАЙН.xls а не SIM-Карты БИЛАЙН(1).xls или еще как-то

Добавлено:
Preslay
делается элементарно, опять же через функцию ВПР,
вставляете новый столбец или просто берете первый пустой в ставляете туда формулу
=ВПР(F1; лист2!A:A; 1; ложь)

где
1-й параметр значение из стобца F
2-й #Таблица со второго листа и выделяете первый столбец#
3-й 1, т.к. всего один столбец
4-й всегда ложь
копируешь эту ячейку на весь столбец

потом фильтруешь новый столбец по "не содержит" #Н/Д это и будут все записи кторые есть на втором листе. выделяешь все строки и удаляешь. вспомогательный столбец тоже можно удлить

KF121
записал свои действия с экрана как я делаю и что не получается. И ещё там просто куда больше водил, мерчей и торг. представителей чем он выдает по телефонам, он пишет нет такого номера. Ну на видео это видно. т.е. он не всех их сличил.
http://vimple.ru/507226936f254e3fbfc61941063f7871

Futurism ваш видео файл не найден. Попробуйте на момент отладки переименовать файлы и ссылки на них в формулах на f1.xls. f2.xls и т.д., чтобы уменьшить вероятность ошибки. Когда отладите, переименуете и формулы и файлы обратно.

Отлаживайте не на реальных данных, а отберите небольшую часть, так будет проще.

Futurism
твой фильм не показывает.формулы вставлять не надо они уже есть в первой табличке. если надо на остальные просто копируй ячейки. я писал для того чтобы они искал в тех листах надо чтобы номера телефонов били переведены к единому формату и чтобы ты сам могу найти точно совпадение телефона из книги а в книге б

Добрый день . Помогите плиз с таким вопросом.
В разных вкладках в одной книге есть данные:

вкладка 1 вкладка 2 вкладка 3
№ объем № объем № объем
1 100 12 120 10 110
2 330 12 90 18 30
1 200 11 80 9 40
3 15 11 20 10 50
А во вкладке 4 идут все номера из всех трех вкладок (1,2,3,12,11,10,18,9)
Необходимо получить такую таблицу
вкладка 4
№ объем
1 300
2 330
3 15
12 210
11 100
10 160
18 30
9 40
При этом каждый месяц количество номеров меняеться
Пробовал =суммесли, но если в первой вкладке ячейка с 1 по 4 (во владке 1) и с 1 по 3 (во вкладке 4) то например во второй вкладке данные в ячейке с 1 по 4 а во вкладке 4 с 4 по 5), а если вкладки 1-3 разбить на отдельные листы то суммесли работаеть, только при закрытии этик книг выдает ошибку, поэтому эта формукла не очень удобная

vikkiv

Цитата:

Если нужно несколько различных кнопок / форматов которыми приходится пользоватся чаще всего - то тоже решаемо, но через макрос в другую тему (VBA через свойство ActiveWorkbook.SaveAs FileFormat:=6, Filename=:"..")

Вот это и нужно. Спасибо.