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

Страницы: 1
Повторение подзаголовков для каждой строки
 
Archerius, PQ - это отлично, но скорее всего это не поможет. Нужна простая таблица, которую "крутить" модно будет уже потом.
Файлов с плюс/минус одинаковой структурой много и в идеале я хочу из массы этих файлов сделать один файл, что-то вроде  базы данных, чтобы потом уже  этими данными можно было работать (с теми же самыми сводными таблицами).
Повторение подзаголовков для каждой строки
 
Добрый день.
Имеется множество файлов с примерно одинаковой структурой и их нужно преобразовать в вид, более удобный для работы и обработки данных. Файл с примером и скрины во вложении.
Требуется помощь с преобразованием данных на первом листе в вид, который представлен на втором листе. Кол-во групп, периодов/кварталов и целей может меняться.
(Преобразованные данные должны быть сохранены в новой книге)
Изменено: llama15 - 12.05.2020 12:11:12
Сцепка диапазонов Excel и вставка в письмо
 
Ну видно же на скрине что шапка и строка разделены между собой.


Да,  получается меджу разными таблицами. Есть вариант как-то это исправить?
Сцепка диапазонов Excel и вставка в письмо
 
Наверное неправильно выразилась: разрыв между строками в таблице, пробел между ними.
С самими данными в ячейках все ок.
Сцепка диапазонов Excel и вставка в письмо
 
Образец в картинке первого поста. В тексте тут таблица не проходит.
Сцепка диапазонов Excel и вставка в письмо
 
Добрый день.
Имеется простенький макрос:
из таблицы в экселе последовательно перебираются строки, по каждой формируется письмо: текст+ файл во вложении + таблица из файла. Таблица стандартная - шапка и значения. При объединении строк между ними образуется пробел, который не получается убрать в коде.
В чем проблема?
Код
Sub cards_send()Application.DisplayAlerts = False
Application.ScreenUpdating = False
'пер-е/конст сист
Dim Mail_Object, Mail_Single As Variant
Dim my_date As String, puthtm As String, n As String, my_date_papk As String, my_park_papk As String, my_date_file As String, putfile As String, my_date_send As String, SigString As String
Dim book1 As Workbook
Dim x As String
 
For i = 4 To 12
puthtm = "C:\Users\Анастасия\Documents\tech\file.htm"
 
Set Mail_Object = CreateObject("Outlook.Application") 'запускаем Outlook в скрытом режиме, если не запустился - выходим
 
putfile = ThisWorkbook.Worksheets(3).Cells(i, 10).Value
my_date = ThisWorkbook.Worksheets(3).Cells(i, 1).Value
ThisWorkbook.Worksheets(3).Cells(i, 2).Interior.Color = vbYellow
 
x = "$C$" & i & ":$I$" & i
If Len(Dir(putfile)) = 0 Then
   MsgBox "Такого файла нет. Проверьте дату ввода; имя файла; путь файла"
   Application.DisplayAlerts = True
Exit Sub
End If
Set book1 = Application.Workbooks.Open(putfile)
 
Set Mail_Single = Mail_Object.CreateItem(0)
 
Mail_Single.To = ThisWorkbook.Worksheets(3).Cells(i, 11).Value
Mail_Single.Subject = "Премирование | Оценка эффективности деятельности за 2019 год "
Mail_Single.attachments.Add (putfile)
Mail_Single.CC = "  <Olga@so.ru>;  "
 
 
'body письма
Mail_Single.display
SigString = Mail_Single.HTMLbody
Mail_Single.HTMLbody = "<p style='font-family:times;font-size:11pt;font color:#1f497d'> " + my_date + ", добрый день!<br>по итогам Вашей работы  <b><font color='#E81510'>за 2019 год</font></b> была осуществлена оценка эффективности деятельности на основе карты целей. <br>Выплата второй части годовой премии с учетом Ваших оценок по карте целей - 27 марта 2020 г. <br><br> <u>Этапы проведения оценки: </u><br> 1.  Расчет количественных показателей центрами компетенций<br>2.  Согласование коэффициентов руководителем<br> <br><b><font color='#E81510'>Итоговые коэффициенты:</font></p>" _
& RangetoHTML(puthtm, "Лист4", Application.ThisWorkbook.Worksheets("Лист4").Range("c1:i3").Address, Application.ThisWorkbook) _
& RangetoHTML(puthtm, "Лист4", x, Application.ThisWorkbook) & "<p style='font-family:times;font-size:11pt;font color:#1f497d'>Во вложении итоговые формы оценки по карте целей за 2019 год. <br> Успехов и продуктивной работы! </p>" + SigString
 
Set Mail_Single = Nothing
Set Mail_Object = Nothing
 
If Dir(puthtm) <> "" Then
Kill (puthtm) 'удаляем ранее созданный временный htm
End If
 
book1.Close
 
Next i
 
 
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub
 
 
'пер-е: путь временого файла,имя листа,область коп-я,из какой книги
Function RangetoHTML(puthtm As String, n As String, t As String, actwbk As Object)
'создание html файла для вложения таблицы в тело и непосредственно само вложение
With actwbk.PublishObjects.Add(SourceType:=xlSourceRange, _
Filename:=puthtm, _
Sheet:=n, _
Source:=t, _
HtmlType:=xlHtmlStatic)
.Publish (True)
End With
Dim TempFile As String
Dim TempWB As Workbook
Dim fso As Object
Dim ts As Object
TempFile = "C:\Users\Анастасия\Documents\tech\file.htm" 'это путь куда создаётся временный htm
Set fso = CreateObject("Scripting.FileSystemObject")
Set ts = fso.GetFile(TempFile).OpenAsTextStream(1, -2)
RangetoHTML = ts.ReadAll
ts.Close
RangetoHTML = Replace(RangetoHTML, "align=center", "align=left")
End Function
Запись формулы в макросе (синтаксис)
 
Спасибо вам)!!!
Запись формулы в макросе (синтаксис)
 
С окном отладки понятно:
=INDEX(Цели!H:H,MATCH(Свод!B9&"Подразделение",Цели!$R:$R,0))
(хотя с такой формулой тоже не работает через VBA)
и мне нужно, чтобы вместо "9" в составе ссылки "Cвод!B9" была переменная i
Изменено: llama15 - 02.03.2020 17:15:28
Запись формулы в макросе (синтаксис)
 
Да, ошибка, но с  ";" тоже не работает..
Запись формулы в макросе (синтаксис)
 
Добрый день.
Требуется записать формулу в VBA, запуталась с синтаксисом ( кавычками).
В ячейке формула имеет вид:
=ИНДЕКС(Цели!H:H;ПОИСКПОЗ(Свод!B9&"Подразделение";Цели!$R:$R;0))

Через VBA записываю следующее:
i - переменная
wbsh.Cells(i, 9).FormulaLocal = "=ИНДЕКС(Цели!H:H;ПОИСКПОЗ(Свод!B" & i & Chr(34) & "Подразделение" & Chr(34) & ",Цели!$R:$R;0))"

Выскакивает ошибка "1004 Run time error".
Помогите, пожалуйста, разобраться, где не хватает кавычек, если проблема в этом.
Изменение параметров подключения при экспорте из БД Access
 
Добрый день.
Столкнулась с проблемой (вероятно это связано с переходом на новую версию офиса):
Ранее при подключении к таблицам из Access создавались подключения с типом "База данных Microsoft Access", сейчас - "Подключение OLEDB" без возможности ручного редактирования запроса.

Есть ли возможность выгружать данные по-старому? Меняется ли это где-то в настройках?

Спасибо.
Переход на сайт при вводе формулы в ячейку
 
Всем спасибо!
Как оказалось, вполне достаточно такой конструкции:
Код
Public Function ya()
ActiveWorkbook.FollowHyperlink "http://ya.ru/"
End Function
Изменено: llama15 - 30.11.2019 23:42:31
Переход на сайт при вводе формулы в ячейку
 
БМВ, если только макросом, то печально.
А нужно в рамках задания тестового, практического применения в жизни по большому счету, сама пока не понимаю.
Переход на сайт при вводе формулы в ячейку
 
Обсуждение ника это, конечно, прекрасно, но тем не менее не совсем понятно как предложенная гиперссылка может помочь в этом примере.
На внесённую формулу кликать не нужно, требуется чтобы при введении ‘=ya()’ в пустую ячейку и нажатиии enter открывался сайт.
Переход на сайт при вводе формулы в ячейку
 
Добрый день.
Существуют ли способы и какие, чтобы при внесении данных(формулы), например "=ya()", в ячейку excel и нажатии enter открывался соответствующий сайт (ya.ru).
Выполнить можно только макросом или есть какие-то иные средства?
Создание графика с отображением результата в зависимости от фильтра, Графики Excel
 
Спасибо!! Именно то, что надо.
Примерный путь понимала, но знаний не хватило на завершение начатого.
Создание графика с отображением результата в зависимости от фильтра, Графики Excel
 
Добрый день.
Подскажите как возможно и возможно ли сделать график, показывающий данные с листа в зависимости от значения ячейки B5 на листе.
Есть данные, на разных листах, в которых содержатся данные для нескольких городов. На отдельном листе есть возможность выбрать анализируемый город и в зависимости от этого значения график должен брать данные с соответствующих листов (названия периодов и структура таблиц одинаковая)

пример файла во вложении.
Дизайн сводной диаграммы-слетает формат при изменении фильтров
 
Добрый день.
Не нашла по этой теме никаких более менее подходящих решений, тем не менее периодически с этой проблемой сталкиваюсь.
Решение так и не найдено, а времени на временные "затычки" уходит много.
Проблема заключается в следующем: есть сводная таблица, на ее основе построен график в определенной цветовой гамме и с нужным форматированием(1). Стоит изменить какой-нибудь фильтр - все цвета и форматы слетают (2 рис). Делала файл заново,перестраивала график по новой, меняла источник данных - ничего не помогло. Есть ли решение, может где-то настройки не те...
Заранее спасибо.
Страницы: 1
Наверх