Нужно с вкладки "Расходы 1" получить в итоге таблицу как на вкладке "Желаемый результат"
То есть нужно - оставить все строки, в которых в колонке E значения или Абонентская плата или исходящие звонки; - заменить в колонке C "-" на "АБОНПЛАТА"; - в колонке К добавить в K1 значение "Сумма"; - для K2 и до конца таблицы проставит формулу =СУММ(H2:J2)
Пробовал макрорекордером но ругается на автофильтр
Добрый день Выгружаю с SQL Server ID такого порядка: 2168511000012662409 2168511000012661909
При копировании в таблицу Excel все эти ID усекаются до такого значения: 2168511000012660000 2168511000012660000
Проставлять перед ID ' или текстовый знак не удобно, потому что нужно вносить правки в множество скриптов
Подскажите, пожалуйста, а можно вообще отключить в Екселе автоматическое определение типа данных поля, чтобы все поля определялись по умолчанию как тест?
Добрый день Не получается добиться правильного результата Есть таблица с полями Нужно добавить вычисляемое поле с порядковым номером покупки по каждому покупателю в хронологическом порядке Пробую вот так:
Добрый день Помогите пожалуйста, внести правки в этот код, чтобы в создаваемые файлы записывалось значение. Сейчас при выполнении макроса в новых файлах в сводных таблицах остается возможность фильтровать Вот текст макроса:
Код
Public Sub Split()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Dim Im_Main, PUT_FILE, PUT_FILE_out, sch_lst, Lst_Spisok, Last_Col, fama, index, stolb As Variant
Dim ii, JJ, kk As Integer
Im_Main = ActiveWorkbook.Name
PUT_FILE = Application.ActiveWorkbook.Path + "\"
Lst_Spisok = "Lst"
sch_lst = ActiveWorkbook.Sheets.Count
Dim Name_Lst() As Variant
ReDim Name_Lst(sch_lst)
For ii = 1 To ActiveWorkbook.Sheets.Count
Name_Lst(ii) = Trim(Sheets(ii).Name)
Next 'ii
Sheets(Lst_Spisok).Select
Last_Col = Cells(1, Columns.Count).End(xlToLeft).Column
Dim Sch(), Spis(), Town() As Variant
ReDim Sch(Last_Col), Spis(Last_Col, 1), Town(1, Last_Col)
Town = Range(Cells(1, 1), Cells(1, Last_Col))
Dim GR_LST, SCH_Town As Variant
stolb = 1
For ii = 1 To Last_Col
Sch(ii) = Cells(2, 8).End(xlDown).Row - 1 'Sch(ii) = Cells(2, ii).End(xlDown).Row - 1
Spis = Range(Cells(2, stolb), Cells(2 + Sch(ii), stolb))
SCH_Town = 0
ReDim GR_LST(1 To 1)
For JJ = 1 To Sch(ii)
fama = 0
For kk = 1 To sch_lst
If Spis(JJ, 1) = Name_Lst(kk) Then
fama = 1
index = kk
End If
Next 'kk
If fama = 1 Then
SCH_Town = SCH_Town + 1
ReDim Preserve GR_LST(1 To SCH_Town)
GR_LST(SCH_Town) = Sheets(index).Name
End If
Next 'jj
PUT_FILE_out = PUT_FILE + Town(1, ii) + ".xlsx"
Sheets(GR_LST).Copy
ActiveWorkbook.SaveAs Filename:=PUT_FILE_out, FileFormat:=xlOpenXMLWorkbook
ActiveWindow.Close
stolb = stolb + 1
Next 'ii
'MsgBox "ГОТОВО"
'Application.ScreenUpdating = 1
'Application.DisplayAlerts = 1
End Sub
Есть файл, в котором в одном из полей указана функция ГИПЕРССЫЛКА на веб-ресурс Это поле ссылается на определенные разделы веб-страницы Но после нажатия на ссылку открывается не указанная в гиперссылке страница, а всегда начальная (index.php например) И это на разных ресурсах на разных системах Может кто сталкивался в чем проблема? Например, у меня по переходу по ссылке в примере открывается не страница feed, а именно начальная id800..
Настроил импорт в ексель-файл результата запроса с SQL Нужно добавить гиперссылку на одно из полей Дописал с запрос sql текст формулы ексель ГИПЕРССЫЛКА Синтаксис правильный, но гиперссылка в ячейке появляется только после нажатия Ентер внутри ячейки Что можно придумать чтобы в результате сразу получать ссылку?
Добрый день Подскажите пожалуйста как указать в макросе что брать диапазон нужно именно с листа "Mailing_list"?
Код
Sub Mailing()
Dim OutApp As Object
Dim OutMail As Object
Dim cell As Range
Dim asTo, asSubject, asBody, asAttachment
Application.ScreenUpdating = False
Set OutApp = CreateObject("Outlook.Application")
OutApp.Session.Logon
asTo = Range("B2:B57").Value
asSubject = Range("C2:C57").Value
asBody = Range("D2:D57").Value
asAttachment = Range("E2:E57").Value
For i = 1 To UBound(asTo, 1)
Set OutMail = OutApp.CreateItem(0)
On Error Resume Next
With OutMail
.To = asTo(i, 1)
.Subject = asSubject(i, 1)
.body = asBody(i, 1)
.Attachments.Add asAttachment(i, 1)
.Display 'Send
End With
On Error GoTo 0
Set OutMail = Nothing
Next i
cleanup:
Set OutApp = Nothing
Application.ScreenUpdating = True
End Sub
Добрый день Столкнулся с задачей, когда в одной книге есть несколько десятков листов, на каждом из которых размещены разные отчеты Нужно разбить эту книгу на другие книги, количество и наименование которых должно соответствовать наименованию региона. Для каждого региона будет выделено несколько листов с отчетами. При чем, некоторые отчеты могут добавляться на несколько регионов Было бы идеально, если бы в тексте макроса указать все наименования для новых книг (список регионов не меняется) и для каждого прописать, какие листы добавить в каждый конкретный файл при сохранении
Может у кого есть чтото похожее в реализации? Буду очень благодарен Если нужно, могу создать макет примера
Добрый день Здесь указано, что "При использовании файла подключения для подключения к источнику данных приложение Excel копирует информацию о подключении в книгу. При изменении параметров в диалоговом окне Свойства подключения редактируется информация о подключении, хранящаяся в текущей книге, а не исходный файл подключения к данным, имя которого отображается в свойстве Файл подключения. После редактирования информации о подключении (за исключением свойств Имя подключения и Описание подключения) ссылка на файл подключения будет удалена, а свойство Файл подключения будет очищено." То есть, если мне нужно перенести подключение на другой сервер, то придется править не одно подключение, а сотню ексель-файлов с отчетами? Подскажите, пожалуйста, есть разумное решение этой задачи. Реально сейчас столкнулся с такой задачей. Был уверен что нужно подправить просто ODC-файл подключения
Добрый день Столкнулись с ситуацией, когда у нас есть две меры, которые зависимы от контекста в одинаковой мере (напр, одна - цена, вторая - количество ), и нужно посчитать сумму произведений каждой пары Но использовать SUMX, как оказалось, так просто не удалось. потому что нужна на входе таблица, а "в лоб" SUM(мера1 * мера2) тоже не получается, т.к. не колонки. Может, как вариант, както создать их этих двух мер временную таблицу в SUMMARIZE, но пока не понял как
Или здесь другое решение нужно? Заранее спасибо за предложения
Добрый день Столкнулся с проблемой - после импорта данных с SQL (через хранимую процедуру, в "умную таблицу"), тип данных в поле дата указан верно, но не группируется по годам, месяцам, дням, как это должно было быть. Правильно группируется поле с датами только после нажатия ентера внутри ячейка Что можно сделать?
В SQL поле выгружается по строке запроса CONVERT(nvarchar(10),vc.Дата,104)as 'Дата' Если указать тип даты Базы данных, без конвертации. на выходе получаю "2015-01-01"
Добрый день Имеются две таблице в PowerPivot. Одна таблица фактов, в которой есть поле ПродавецID в каждое строке Вторая таблица - справочник по продавцам (связь многие-к-одному) Поставили задачу подтянуть в справочник (причину объяснять не буду, на самом деле схема сложнее) в отдельном поле сумму по каждому сотруднику
Добрый день Есть файл doc. в котором таблица. Таблицу нужно переместить в excel. Вроде бы задача простая, но во второй и третьей колонках присутствуют знаки переноса строки. И через них в Excele создаются две строки вместо одной. Нашел ресурсы 1, 2 Но в моем файле ^l не находится.
И еще, что значит символ в конце ячеек в виде окружности с четырьмя перпендикулярами?
Пример изобразил в рисунках. Исходный файл выложить не могу, он с кешем.
На листе 4 сводных таблицы. К каждой подключен срез. При выборе первого параметра в слайсере высота строк составляет 12. Это является желаемым результатом. Но при выборе второго параметра почему-то после перестроения сводных происходит изменения значения высоты строк до 15. В сводной отключен параметр автоизменения ширины, и он выполняется, но подобного параметра для высоты не нашел
Подскажите, пожалуйста, как отключить автоматическое изменение высоты строк?
Точнее нужно исключить подписи секторов с нулевыми значениями. Вопрос многократно поднимался, но не могу вспомнить решение Диаграмма - сводная Буду благодарен за помощь
Подскажите, как можно решить задачу: нужно с сводной, в которой двухмерные данные - менеджеры и дни, разнести по менеджерам и всем 31 календарным дням. То есть, при отсутствии данных на определенную дату, в целевой таблице должен отобразиться ноль на эту дату. Не знаю подобного функционала в сводной, а источник (sql server) доп.расчетами не хочется нагружать. Да и 31 одномерная сводная тоже на грани безумия) Использовать сводную в целевой нельзя
Недавно на форуме была тема, с которой использовал исходный материал. Задумался над задачей - а было бы довольно не плохо использовать условное форматирование в сводной тех значений "входа", которые превышают определенную норму (подсвечивать опоздавших на работу). Но исходник содержит показатели времени и даты в одной ячейке. Если вариант добавить в исходник два поля - "дата" и "время", формулами получить значения, и по ним уже строить сводную (триггер своего рода), но не нравиться что нужно править исходник.
Может у кого будут интересные идеи реализовать задачу?
Подскажите, где ошибаюсь Нужно определить, какому с диапазонов принадлежит число (номер бланка) Использую "левсимв", но полученное значение не воспринимается функцией "если" как истина (оранж.ячейка)
И второй вопрос, если таких диапазонов сотни, каким способом можно решить задачу, может формулой массива? (желтая ячейка)
Возникла задача подставлять значения в зависимости от выбранного(или не выбранного) значения. Сверяемых полей 3, в вертикальной иерархии: ЛБ1->ЛБ2->ЛБ3
При наличии заполненного поля ЛБ3 (не "ВСЕ"), ищем значение ЛБ3, если ЛБ3 не заполнено, то, если ЛБ2 не "ВСЕ", ищем ЛБ2, иначе, если ЛБ1 заполнено то ещем его, иначе возвражаем ошибку вот эта формула правильно работает на уровне ЛБ2 и ЛБ3
Столкнулся с одной странностью В сводной создал вычисляемый объект столбецA/столбецВ Всему столбцу присвоил формат "процентный" Но вопреки логике и четко указанному расчету, в итоговой строке вместо деления производится суммирование всех значений в полученных строках
К стати, в вычисляемом поле такой ошибки не возникает Как можно избавиться от суммирования, а производить вычисление столбецA/столбецВ для итоговой строки также?
Оказывается, соответствующий пункт в контекстном меню ячеек сводной таблицы попросту отсутствует (Хотя если смогли прикрутить условное форматирование на все ячейки группы, то почему по такому же принципу не подвязать примечание к ячейке, чтобы оно тоже могло перемещаться с ячейкой..)?
Нашел на вкладке ленты "Рецензирование"..) Не додумался сначала посмотреть туда
Измерения, общие для обеих таблиц - "Страна" и "Регион". Но во второй нет разреза по видам (иначе я просто добавил бы данные второй в первую) Мне нужно чтобы одним срезом (Страна, Регион) выполнялся перерасчет в обеих сводных, построенных на основании обеих исходников. Но в настройках среза, добавленного к одной таблице, не отображается вторая Что делать? (есть вариант просто добавить данные второй в первую, в первый попавшийся вид, но не красиво..)
Добрый день Вопрос поднимался многократно, но в моей задаче есть несколько специфических моментов
нужно сохранить текущий (активный) лист в файл с наименованием листа ту же папку, где находится исходник (не отдельную папку);
сообщить об ошибке, если уже такой имеется;
оставить только значения (убрать формулы и ссылки);
сохранить все форматирование;
в формате xlsx
Вот нашел пару макросов, но не знаю как их правильно соединить
Код
Sub SplitSheets2()
Dim s As Worksheet
Dim wb as Workbook
Set wb = ActiveWorkbook
For Each s In wb.Worksheets
s.Copy
ActiveWorkbook.SaveAs wb.Path & "\" & s.Name & ".xls"
Next
End Sub
Код
For Each cell in ActiveSheet.UsedRange.Cells
cell.Formula = cell.Value
Next cell
Очень важно по поводу сохранения форматов
Буду благодарен за помощь. Может у кого есть готовый работоспособный макрос
Как убрать с круговой диаграммы значения, меньше определенной доли? или хотя бы подписи таких малозначимых секторов.(нулевые значения убрал через НД(), но все равно вид - не очень. однопроцентных много)
Добрый вечер Подскажите пожалуйста, в 2013-м есть возможность построения такого типа диаграмм, при котором разрез высшего уровня отображается на диаграмме с меньшим радиусом, а второго уровня - за границами первого круга?
Форумчане, может есть вариант реализовать штуку: при прокрутке вниз чтобы сначала прокрутился блок "Страна", и в верхней строке зафиксировалась заглавная строке блока "Регион" ? На php такое исполнение часто встречаю (даже при написании этого сообщения ), но хотелось бы реализовать и в екселе
Тема поднималась сотни раз. Но я пока не нашел идеальный вариант для себя :) В инете нашел такой вот код на рассылку писем с Excel, немного подстроил для своих диапазонов Но, пока не работает Подозреваю что возможно проблема в строке For i = 1 To addrcount Подскажите, как исправить макрос?
Скрытый текст
Sub mailing() Dim OutApp As Object Dim OutMail As Object Dim cell As Range
Application.ScreenUpdating = False Set OutApp = CreateObject("Outlook.Application" ) OutApp.Session.Logon i = 1
Воспользовался кодом The_Prist за это ему огромное спасибо ) Подскажите, как сделать так чтобы форма на ввод логина и пароля запускалась при открытии книги?