Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Пользователи » empty
Выбрать дату в календаре…Выбрать дату в календаре

Страницы: 1
из Excel в word шаблон. Правка колонтитулов
 
#
23.04.2021 18:10:19
вот только не пойму как...
 
Перейти    
из Excel в word шаблон, вставка таблиц и графиков
 
#
21.04.2021 12:21:15
Код
Sub AKT()
    Dim wdApp As Object
    Dim wdDoc As Object
 
HomeDir$ = ThisWorkbook.Path
HomeDir2$ = Left(HomeDir$, InStrRev(HomeDir$, "\")) & "Готовые документы"
 
Set wdApp = CreateObject("Word.Application")
    i% = 3
Do
    If Cells(i%, 1).Value = "" Then Exit Do
    If Cells(i%, 1).Value <> "" Then
    
Название$ = Cells(i%, 1).Value
Производитель$ = Cells(i%, 2).Value
Центр$ = Cells(i%, 3).Value
AG$ = Cells(i%, 4).Value
AT$ = Cells(i%, 5).Value

DataC$ = Date

FileCopy HomeDir$ + "\AKT.doc", HomeDir2$ & "\Акт " + Название$ + "_" + Производитель$ + "_" + DataC$ + ".doc"
Set wdDoc = wdApp.Documents.Open(HomeDir2$ & "\Акт " + Название$ + "_" + Производитель$ + "_" + DataC$ + ".doc")


wdDoc.Range.Find.Execute FindText:="&date", Replacewith:=DataC$, Replace:=2
wdDoc.Range.Find.Execute FindText:="&ID", Replacewith:=Название$, Replace:=2
wdDoc.Range.Find.Execute FindText:="&OOO", Replacewith:=Производитель$, Replace:=2
wdDoc.Range.Find.Execute FindText:="&Centr", Replacewith:=Центр$, Replace:=2
wdDoc.Range.Find.Execute FindText:="&AG", Replacewith:=AG$, Replace:=2
wdDoc.Range.Find.Execute FindText:="&AT", Replacewith:=AT$, Replace:=2
wdDoc.Range.Find.Execute Replace:=wdReplaceALL


wdDoc.Save
wdDoc.Close
End If
i% = i% + 1
Loop
wdApp.Quit
MsgBox "Готово!"
End Sub
есть в excel таблицы и графики, как прикрутить их в ворд при том что б они обновлялись
 
Перейти    
из Excel в word, сохранение файла шаблона и готового фала в разные папки
 
#
20.04.2021 20:55:09
спасибо за наводку, пошел чутка по другому пути и все сработало)) оставлю тут мало ли кому пригодится!
Код
Sub AKT()
    Dim wdApp As Object
    Dim wdDoc As Object
 
HomeDir$ = ThisWorkbook.Path
HomeDir2$ = Left(HomeDir$, InStrRev(HomeDir$, "\")) & "Готовые документы"
 
Set wdApp = CreateObject("Word.Application")
    i% = 3
Do
    If Cells(i%, 1).Value = "" Then Exit Do
    If Cells(i%, 1).Value <> "" Then
    
Название$ = Cells(i%, 1).Value
Производитель$ = Cells(i%, 2).Value
Центр$ = Cells(i%, 3).Value
AG$ = Cells(i%, 4).Value
AT$ = Cells(i%, 5).Value

DataC$ = Date

FileCopy HomeDir$ + "\AKT.doc", HomeDir2$ & "\Акт " + Название$ + "_" + Производитель$ + "_" + DataC$ + ".doc"
Set wdDoc = wdApp.Documents.Open(HomeDir2$ & "\Акт " + Название$ + "_" + Производитель$ + "_" + DataC$ + ".doc")


wdDoc.Range.Find.Execute FindText:="&date", Replacewith:=DataC$, Replace:=2
wdDoc.Range.Find.Execute FindText:="&ID", Replacewith:=Название$, Replace:=2
wdDoc.Range.Find.Execute FindText:="&OOO", Replacewith:=Производитель$, Replace:=2
wdDoc.Range.Find.Execute FindText:="&Centr", Replacewith:=Центр$, Replace:=2
wdDoc.Range.Find.Execute FindText:="&AG", Replacewith:=AG$, Replace:=2
wdDoc.Range.Find.Execute FindText:="&AT", Replacewith:=AT$, Replace:=2
wdDoc.Range.Find.Execute Replace:=wdReplaceALL


wdDoc.Save
wdDoc.Close
End If
i% = i% + 1
Loop
wdApp.Quit
MsgBox "Готово!"
End Sub
Изменено: empty - 20.04.2021 20:55:38
 
Перейти    
из Excel в word, сохранение файла шаблона и готового фала в разные папки
 
#
19.04.2021 19:15:50
Код
Sub AKT()
    Dim wdApp As Object
    Dim wdDoc As Object
   
HomeDir$ = ThisWorkbook.Path
Set wdApp = CreateObject("Word.Application")
    i% = 3
Do
    If Cells(i%, 1).Value = "" Then Exit Do
    If Cells(i%, 1).Value <> "" Then
      
Название$ = Cells(i%, 1).Value
Производитель$ = Cells(i%, 2).Value
Центр$ = Cells(i%, 3).Value
AG$ = Cells(i%, 4).Value
AT$ = Cells(i%, 5).Value
  
DataC$ = Date
  
FileCopy HomeDir$ + "\AKT.doc", HomeDir$ & "\" & "Готовые документы" + "\Акт " + Название$ + "_" + Производитель$ + "_" + DataC$ + ".doc"
Set wdDoc = wdApp.Documents.Open(HomeDir$ & "\" & "Готовые документы" + "\Акт " + Название$ + "_" + Производитель$ + "_" + DataC$ + ".doc")
  
  
wdDoc.Range.Find.Execute FindText:="&date", Replacewith:=DataC$, Replace:=2
wdDoc.Range.Find.Execute FindText:="&ID", Replacewith:=Название$, Replace:=2
wdDoc.Range.Find.Execute FindText:="&OOO", Replacewith:=Производитель$, Replace:=2
wdDoc.Range.Find.Execute FindText:="&Centr", Replacewith:=Центр$, Replace:=2
wdDoc.Range.Find.Execute FindText:="&AG", Replacewith:=AG$, Replace:=2
wdDoc.Range.Find.Execute FindText:="&AT", Replacewith:=AT$, Replace:=2
wdDoc.Range.Find.Execute Replace:=wdReplaceALL
  
  
wdDoc.Save
wdDoc.Close
End If
i% = i% + 1
Loop
wdApp.Quit
MsgBox "Готово!"
End Sub

иерархия сохранения файла нечто похожим : Есть к примеру С:\новая папка\ в ней есть 2 папки (шаблоны и готовые документы), сейчас же файлы сохраняется в ту же папку где excel файлам я создал папку "Готовые документы" ,как нечто временное что б файлы не смешивались, но необходимо сохранять на уровень выше в папке "Готовые документы". везде решают проблему точным указанием папки на компьютере, но такой вариант не подходит т.к будет файл с шаблонами перемещаться на разные компьютеры и у каждого пользователя своя иерархия и будет все сбиваться и макрос не будет работать.

постарался внятно все объяснить))

Заранее благодарен за вашу неоценимую помощь!!!!!!
 
Перейти    
из Excel в word шаблон. Правка колонтитулов
 
#
19.04.2021 18:30:45
Код
Sub AKT()
    Dim wdApp As Object
    Dim wdDoc As Object
 
HomeDir$ = ThisWorkbook.Path
Set wdApp = CreateObject("Word.Application")
    i% = 3
Do
    If Cells(i%, 1).Value = "" Then Exit Do
    If Cells(i%, 1).Value <> "" Then
    
Название$ = Cells(i%, 1).Value
Производитель$ = Cells(i%, 2).Value
Центр$ = Cells(i%, 3).Value
AG$ = Cells(i%, 4).Value
AT$ = Cells(i%, 5).Value

DataC$ = Date

FileCopy HomeDir$ + "\AKT.doc", HomeDir$ & "\" & "Готовые документы" + "\Акт " + Название$ + "_" + Производитель$ + "_" + DataC$ + ".doc"
Set wdDoc = wdApp.Documents.Open(HomeDir$ & "\" & "Готовые документы" + "\Акт " + Название$ + "_" + Производитель$ + "_" + DataC$ + ".doc")


wdDoc.Range.Find.Execute FindText:="&date", Replacewith:=DataC$, Replace:=2
wdDoc.Range.Find.Execute FindText:="&ID", Replacewith:=Название$, Replace:=2
wdDoc.Range.Find.Execute FindText:="&OOO", Replacewith:=Производитель$, Replace:=2
wdDoc.Range.Find.Execute FindText:="&Centr", Replacewith:=Центр$, Replace:=2
wdDoc.Range.Find.Execute FindText:="&AG", Replacewith:=AG$, Replace:=2
wdDoc.Range.Find.Execute FindText:="&AT", Replacewith:=AT$, Replace:=2
wdDoc.Range.Find.Execute Replace:=wdReplaceALL


wdDoc.Save
wdDoc.Close
End If
i% = i% + 1
Loop
wdApp.Quit
MsgBox "Готово!"
End Sub


вот есть уже знакомый код, который так часто встречается в интернете... я только пытаюсь входить в мир макросов.... и не совсем понимаю куда, что вставлять из других веток форума ссылка1.
проблема:
что б в колонтитулы  вставлялось "название" которое в excel прописано
Код
wdDoc.Range.Find.Execute FindText:="&ID", Replacewith:=Название$, Replace:=2

заранее благодарен!!!)  
 
Перейти    
VBA. Слияние Excel и Word по шаблону
 
#
18.04.2021 13:22:23
куда это вписывать, не совсем понятно
 
Перейти    
Гистограмма со временем
 
#
31.03.2021 17:32:45
Доброго времени суток, всю голову сломал но не строит у меня график согласно временной шкалы. Есть данные по времени сколько каждый респондент затратил на ответ по времени, вот и надо построить по примеру для 33 человек гистограмму, но проблема что по оси Y время я выставил но вот они не соотносятся с временем по каждому респонденты, не знаю как поправить((( Уважаемые помогайте ...) заранее благодарен
 
Перейти    
Подсчет "+" и "-" преобразование их в % и итоговый подсчет
 
#
14.03.2021 23:54:56
Благодарю!!! Нижайший поклон!
 
Перейти    
Подсчет "+" и "-" преобразование их в % и итоговый подсчет
 
#
14.03.2021 18:32:34
в компании исходили из того, что 100% - 13 ответов = 7,69% соответственно, два "-" это 15,38 + 7,69 (нет ответа вообще), =23% соответсвенно 100-23=77%, но думаю логика брать всегда 14 ответов логичнее, но увы пока в организации "привыкли так считать", если это сложно реализуемо ввиду многочисленных условий если то то, то лучше остановиться на 7,14% для всех минусов и неосвещенных вопросах, что соответсвенно будет равняться вышеупомянутому приеру 79%(как и считает ваша формула)
 
Перейти    
Подсчет "+" и "-" преобразование их в % и итоговый подсчет
 
#
14.03.2021 18:07:23
Спасибо!!!!!! но вот почему то считает по разному если поменять местами ++, вот к примеру 9 строка 9 вопрос, там пустые ячейки и тогда по вашей формуле итоговый ответ 86%, но если ячейки 9 вопроса заполнить ++, а 14 вопрос сделать пустыми ячейками, то мы выходим на искомые 92%( что сходиться с моим %),ответ может быть пустым любой не только 14, и тогда формула не считает правильно.
Изменено: empty - 14.03.2021 18:08:13
 
Перейти    
Подсчет "+" и "-" преобразование их в % и итоговый подсчет
 
#
14.03.2021 16:50:18
Попробую объяснить. Есть 14 ответов  это 100%, если ответили на все вопросы ++. Если есть 13 ответов из 14 то 100% быть не может а будет 85%(100/14=7,14% за один правильный ответ на вопрос) соответственно при не ответе 1 вопроса минусует  (7,14( с округлением в большую сторону),так же если один "-" в каком либо ответе будет "-", то так же - 7,14. Так же прикладываю файл с 2мя видами формул для простоты, и так же в 9 строке сделал пустые клетки в 9 вопросе вместо 14, и тогда формула перестает считать правильно. Надеюсь доступно обЪяснил))
Изменено: empty - 14.03.2021 16:54:21
 
Перейти    
Подсчет "+" и "-" преобразование их в % и итоговый подсчет
 
#
14.03.2021 12:59:26
нет не нужен, это случайность которую я не заметил даже
 
Перейти    
Подсчет "+" и "-" преобразование их в % и итоговый подсчет
 
#
13.03.2021 22:56:51
Спааасибо, работает, только я не совсем понимаю формулу ..( никогда такими не пользовался... что делает эта часть "<>""&"". И формула не работает если 13 вопросов и все "+" то выдает 100%, а ответа на 1 вопрос нет что соответственно должно быть 85%. и если менять + на - в других ответах то % не верно считается, ибо не факт что не ответят на какой либо другой вопрос
 
Перейти    
Подсчет "+" и "-" преобразование их в % и итоговый подсчет
 
#
13.03.2021 21:49:25
вы правы! (Простите что ввел в заблуждение) При 14 вопросах будет 79, при 13 вопросах будет 77%. ( добавил в таблицу еще одну строку с 77% и поправил первую на 79%). Математически исхожу таким путем.... если 14 вопросов это 100% то 1 ответ = 7,14%; если 13 вопросов то 1 ответ = 7,69%. И тогда при 14 вопросах отвеченных три минуса соответственно 100 - 21,42(7,14*3)=79%(с округлением),  а при  13 вопросах 100 - 23(7,69*3)=77%
 
Перейти    
Подсчет "+" и "-" преобразование их в % и итоговый подсчет
 
#
13.03.2021 21:05:49
добавил 4 строки с подсчитанным %,
 
Перейти    
Подсчет "+" и "-" преобразование их в % и итоговый подсчет
 
#
13.03.2021 20:25:14
есть Лист1 он для примера, используется файл сейчас, но % в итоге считаются вручную, в лист 2 хочу все автоматизировать, но не могу понять как считать "+"и "-" для дальнейшего преобразования их в % что б строить графики. "+"и "-"  важны и избавиться от них пока не приложу ума как.... т.к. суть тестирования идет ответ на вопрос больше 1 минуты или нет что соответственно помечается как "++" - это ответ сразу и "+-" - ответ свыше одной минуты для наглядности "+"и "-"  лучше единиц и ноликов, но отсюда проблема их преобразования в % итоговый что б считалось в зависимости от ответов респондентов. Так что прошу помощи в реализации и автоматизации данной проблемы
 
Перейти    
Страницы: 1
Наверх