Выбрать дату в календареВыбрать дату в календаре

Страницы: 1 2 3 4 5 След.
Макросом превратить массивы в одну таблицу
 
А как?)
Макросом превратить массивы в одну таблицу
 
Нужно с вкладки "Расходы 1" получить в итоге таблицу как на вкладке "Желаемый результат"

То есть нужно
 - оставить все строки, в которых в колонке E значения или Абонентская плата или исходящие звонки;
 - заменить в колонке C "-" на "АБОНПЛАТА";
 - в колонке К добавить в K1 значение "Сумма";
 - для K2 и до конца таблицы проставит формулу =СУММ(H2:J2)

Пробовал макрорекордером но ругается на автофильтр

Такое реализовать вообще возможно? :)
Изменено: googlogmob - 26.09.2017 23:27:38
Отключить усечение больших чисел
 
Цитата
БМВ написал: А что, так можно?  
та можно. но не удобно писать там запросы
наверное все таки придется апостроф добавлять. быстрее будет

Спасибо всем кто отозвался
Отключить усечение больших чисел
 
Цитата
Jungl написал: приведите кусок кода
Копи-паст с SQL Server Management Studio в открытую книгу Excel
Макросов нет
Отключить усечение больших чисел
 
Цитата
Юрий М написал:
А если наоборот - СНАЧАЛА назначить формат, а потом уже вставить?
Тогда придется "подбирать" нужное целевое поле каждый раз. В массиве полей может быть 40 и шт 10 - таким айдишниками
Это будет жутко неудобно и долго
Изменено: googlogmob - 14.02.2017 14:39:11
Отключить усечение больших чисел
 
Jungl написал:
Цитата
Выделить столбец -> Формат ячеек -> Текстовый -> ОК.
Сделал после вставки значений. Результат такой же: http://prntscr.com/e8kq3e
Цитата
Jungl написал:
Если использовать чисто как идентификатор - пожалуйста.
Как раз и нужно как ID, в том числе искать и сопоставлять по этому полю
Отключить усечение больших чисел
 
Добрый день
Выгружаю с SQL Server ID такого порядка:
2168511000012662409
2168511000012661909

При копировании в таблицу Excel все эти ID усекаются до такого значения:
2168511000012660000
2168511000012660000

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

Подскажите, пожалуйста, а можно вообще отключить в Екселе автоматическое определение типа данных поля, чтобы все поля определялись по умолчанию как тест?
На DAX составить меру, полный аналог выражению RANK на T-SQL
 
Добрый день
Не получается  добиться правильного результата
Есть таблица с полями
Нужно добавить вычисляемое поле с порядковым номером покупки по каждому покупателю в хронологическом порядке
Пробую вот так:
Код
Категория клиента = RANKX(ALL('Продажи'[Дата]);'Продажи'[КонтрагентID];;ASC;Dense)
Но такой расчет результирует 1 (единицы) во всех строках

Дата МагазинПокупатель Товар Сумма Желаемый результат
01-01-2016 №1 Иванов Цветы 1 200 1
05-01-2016 №1 ИвановУпаковка5003
03-01-2016 №1 ИвановМаркер2502

Вот аналог на T-SQL:
Код
RANK()OVER(PARTITION BY [contactid] ORDER BY [invoicedate])
Преобразовать в значения
 
Спасибо всем кто откликнулся
Решил просто создать вторую хранимую процедуру на источнике.Это покроет задачу, но другим путем, на уровне источника. Это будет легче потому что процедуру  напишу, а что в VBA нужно делать - я не понимаю. Не хочется морочить людям голову.

Еще раз спасибо и приношу извинения за беспокойств
Преобразовать в значения
 
Sanja, поэтому они целиком и копируются..
В файле в сводных уже закешировались корпоративные данные.. не могу выложить
Сводных в файле несколько. Вот если бы все они скопировались в новые файлы только значениями и форматированием, одновременно с простыми ячейками, это было бы то что нужно
Преобразовать в значения
 
Добрый день
Помогите пожалуйста, внести правки в этот код, чтобы в создаваемые файлы записывалось значение.
Сейчас при выполнении макроса в новых файлах в сводных таблицах остается возможность фильтровать
Вот текст макроса:
Код
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 текст формулы ексель ГИПЕРССЫЛКА
Синтаксис правильный, но гиперссылка в ячейке появляется только после нажатия Ентер внутри ячейки
Что можно придумать чтобы в результате сразу получать ссылку?
Ссылка в макросе на определенный лист
 
Sanja, Спасибо
Ссылка в макросе на определенный лист
 
Добрый день
Подскажите пожалуйста как указать в макросе что брать диапазон нужно именно с листа "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
Изменено: googlogmob - 19.12.2015 15:57:48
Разделение книги на несколько других с определнным набором листов
 
Исключительно благодаря помощи Мотя,удалось реализовать задачу.
Изменено: googlogmob - 13.01.2016 13:51:28
Разделение книги на несколько других с определнным набором листов
 
Мотя, это даже лучше чем я предполагал)  Более гибко в настройке распределения
Такой текст макроса в макрорекордере не получишь..
Спасибо Огромное
Очень Вам благодарен
Разделение книги на несколько других с определнным набором листов
 
gling, не догадался. Спасибо за подсказку
Разделение книги на несколько других с определнным набором листов
 
Мотя, для примера, 5 листов в книге, которые нужно пересохранить, например, в таком виде:
Книга "Лондон" - Отчет1 и Отчет5;
Книга "Берлин" - Отчет1, Отчет2 и Отчет3;
Книга "Минск" - Отчет4 и Отчет5;

Сам список регионов статичен, и структура книги-исходника тоже не меняется
Может кто  сможет поделиться куском кода как с книги создать новую книгу с некоторыми из ее листов, и назвать определенным именем (в моем случае - названием Региона)
Разделение книги на несколько других с определнным набором листов
 
Добрый день
Столкнулся с задачей, когда в одной книге есть несколько десятков листов, на каждом из которых размещены разные отчеты
Нужно разбить эту книгу на другие книги, количество и наименование которых должно соответствовать наименованию региона.
Для каждого региона будет выделено несколько листов с отчетами. При чем, некоторые отчеты могут добавляться на несколько регионов
Было бы идеально, если бы в тексте макроса указать все наименования для новых книг (список регионов не меняется) и для каждого прописать, какие листы добавить в каждый конкретный файл при сохранении

Может у кого есть чтото похожее в реализации? Буду очень благодарен
Если нужно, могу создать макет примера
Изменено: googlogmob - 16.12.2015 12:44:23
Общее использование файла подключения ODC несколькими книгами
 
Спасибо
Общее использование файла подключения ODC несколькими книгами
 
Максим Зеленский, я так и сделал, но в Excel- отчеты не подтянулись новые настройки
Может пользователи успели руками уже что-то там подправить, и Excel не хочет подтягивать настройки с ODC-файла?
Общее использование файла подключения ODC несколькими книгами
 
Добрый день
Здесь указано, что "При использовании файла подключения для подключения к источнику данных приложение Excel копирует информацию о подключении в книгу. При изменении параметров в диалоговом окне Свойства подключения редактируется информация о подключении, хранящаяся в текущей книге, а не исходный файл подключения к данным, имя которого отображается в свойстве Файл подключения. После редактирования информации о подключении (за исключением свойств Имя подключения и Описание подключения) ссылка на файл подключения будет удалена, а свойство Файл подключения будет очищено."
То есть, если мне нужно перенести подключение на другой сервер, то придется править не одно подключение, а сотню ексель-файлов  с отчетами?
Подскажите, пожалуйста, есть разумное решение этой задачи. Реально сейчас столкнулся с такой задачей. Был уверен что нужно подправить просто ODC-файл подключения
Посчитать сумму произведений каждой пары мер
 
Кирилл, нужно на DAX
Посчитать сумму произведений каждой пары мер
 
vikttur, файл куба табличной модели в Visual Studio. Я бы с радостью, но он не откроется вне среды SSAS.
Мне важна именно логика решения, если возможно понять задачу по тому что описал..
Посчитать сумму произведений каждой пары мер
 
Добрый день
Столкнулись с ситуацией, когда у нас есть две меры, которые зависимы от контекста в одинаковой мере (напр, одна - цена, вторая - количество ), и нужно посчитать сумму произведений каждой пары
Но использовать SUMX, как оказалось, так просто не удалось. потому что нужна на входе таблица, а "в лоб" SUM(мера1 * мера2) тоже не получается, т.к. не колонки.
Может, как вариант, както создать их этих двух мер  временную таблицу в SUMMARIZE, но пока не понял как

Или здесь другое решение нужно?
Заранее спасибо за предложения
Изменено: googlogmob - 22.10.2015 12:35:05
DAX формула (аналогично вложенному запросу SQL)
 
StepanWolkoff, Спасибо, Добрый человек) Действительно, работает
После импорта с sql тип Дата не корректный
 
Может кто тоже столкнется. Так и не разобрался, чего ексель на входе принимал дату формата базы данных гггг-мм-дд как текст
Но опытным путем установил что датавремя при импорте распознается правильно
Поэтому в хранимке добавил: convert(datetime,vc.Дата) as 'Дата'
В самом екселе соответственно нужно выбрать формат ячеек Дата
Изменено: googlogmob - 19.09.2015 00:58:59
Страницы: 1 2 3 4 5 След.
Наверх