Домашняя страница Undo Do Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Записи участника (krosav4ig) - Мир MS Excel

Старая форма входа
Мир MS Excel » Записи участника » krosav4ig [2323]
Результаты поиска
krosav4ig Дата: Четверг, 20.12.2018, 23:48 | Сообщение № 601 | Тема: Добавление схемы в файл xml при импорте данных из Excel
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
Для начала нужно провести махинацию с xsd - добавить [vba]
Код
<xs:import namespace="http://www.w3.org/2001/XMLSchema"/>
[/vba] и в том месте, где должна отображаться схема прописать [vba]
Код
<xs:element ref="xs:schema"/>
[/vba] это нужно для корректной разметки с использованием этой схемы (для трансформации эти декларации в xsd не нужны).
Состряпал для примера проект в altova mapforce. Из проекта сгенерировал xslt шаблон. Входным файлом для трансформации служит xsd файл, путь к excel файлу передается через параметр SourceFilePath, папка для сохранения выходного xml файла передается через параметр DestFolder (по умолчанию=папке из SourceFilePath) и имя выходного xml файла передается через параметр DestFile (по умолчанию=имени файла из SourceFilePath). Текст, передаваемый в параметр должен быть заключен в одинарные кавычки.
для трансформации используется бесплатный XSLT процессор ALTOVAXML 2013 после установки нужно добавить папку, в которую он установлен в переменную среды Path
непосредственно для трансформации нужны только исходный xslx, xsd схема и xslt шаблон (в данном случае 3 файла)
сделал 2 варианта обертки - bat[vba]
Код
cd /d .
AltovaXML -xslt2 xsl\main.xslt -in xsd\test1.xsd -param SourceFilePath='%~dp0src\test.xlsx'
pause
[/vba]и vbs[vba]
Код
Dim sFolder
sFolder = Replace(WScript.ScriptFullName, WScript.ScriptName, "")
With CreateObject("AltovaXML.Application").XSLT2
    .InputXMLFileName = sFolder & "xsd\test1.xsd"
    .XSLFileName = sFolder & "xsl\main.xslt"
    .AddExternalParameter "SourceFilePath", "'" & sFolder & "src\test.xlsx'"
    .AddExternalParameter "DestFolder", "'" & sFolder & "'"
    .AddExternalParameter "DestFIle", "'test1.xml'"
    .Execute ""
End With
[/vba]
вместо InputXMLFileName можно использовать InputXMLFromText
[vba]
Код
Dim sFolder
sFolder = Replace(WScript.ScriptFullName, WScript.ScriptName, "")
With CreateObject("AltovaXML.Application").XSLT2
    .InputXMLFromText = "<xs:schema id='NewDataSet' xmlns='' xmlns:xs='http://www.w3.org/2001/XMLSchema' xmlns:msdata='urn:schemas-microsoft-com:xml-msdata'>" & vbCrLf & _
    "<xs:element name='NewDataSet' msdata:IsDataSet='true' msdata:MainDataTable='OrderHeader' msdata:UseCurrentLocale='true'>" & vbCrLf & _
    "<xs:complexType>" & vbCrLf & _
    "<xs:choice minOccurs='0' maxOccurs='unbounded'>" & vbCrLf & _
        "<xs:element name='OrderHeader'>" & vbCrLf & _
        "<xs:complexType>" & vbCrLf & _
        "<xs:sequence>" & vbCrLf & _
        "<xs:element name='Id' type='xs:string' minOccurs='0' />" & vbCrLf & _
        "<xs:element name='Cl' type='xs:string' minOccurs='0' />" & vbCrLf & _
        "</xs:sequence>" & vbCrLf & _
        "</xs:complexType>" & vbCrLf & _
        "</xs:element>" & vbCrLf & _
    "</xs:choice>" & vbCrLf & _
    "</xs:complexType>" & vbCrLf & _
    "</xs:element>" & vbCrLf & _
    "</xs:schema>"
    .XSLFileName = sFolder & "xsl\main.xslt"
    .AddExternalParameter "SourceFilePath", "'" & sFolder & "src\test.xlsx'"
    .AddExternalParameter "DestFolder", "'" & sFolder & "'"
    .AddExternalParameter "DestFIle", "'test1.xml'"
    .Execute ""
End With
[/vba]
для раннего связывания в vba в папке с установленном ALTOVAXML есть файл AltovaXMLLib.tlb
К сообщению приложен файл: testprj.zip (20.3 Kb)

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460

Сообщение отредактировал krosav4ig - Пятница, 21.12.2018, 00:16
 
Ответить
СообщениеДля начала нужно провести махинацию с xsd - добавить [vba]
Код
<xs:import namespace="http://www.w3.org/2001/XMLSchema"/>
[/vba] и в том месте, где должна отображаться схема прописать [vba]
Код
<xs:element ref="xs:schema"/>
[/vba] это нужно для корректной разметки с использованием этой схемы (для трансформации эти декларации в xsd не нужны).
Состряпал для примера проект в altova mapforce. Из проекта сгенерировал xslt шаблон. Входным файлом для трансформации служит xsd файл, путь к excel файлу передается через параметр SourceFilePath, папка для сохранения выходного xml файла передается через параметр DestFolder (по умолчанию=папке из SourceFilePath) и имя выходного xml файла передается через параметр DestFile (по умолчанию=имени файла из SourceFilePath). Текст, передаваемый в параметр должен быть заключен в одинарные кавычки.
для трансформации используется бесплатный XSLT процессор ALTOVAXML 2013 после установки нужно добавить папку, в которую он установлен в переменную среды Path
непосредственно для трансформации нужны только исходный xslx, xsd схема и xslt шаблон (в данном случае 3 файла)
сделал 2 варианта обертки - bat[vba]
Код
cd /d .
AltovaXML -xslt2 xsl\main.xslt -in xsd\test1.xsd -param SourceFilePath='%~dp0src\test.xlsx'
pause
[/vba]и vbs[vba]
Код
Dim sFolder
sFolder = Replace(WScript.ScriptFullName, WScript.ScriptName, "")
With CreateObject("AltovaXML.Application").XSLT2
    .InputXMLFileName = sFolder & "xsd\test1.xsd"
    .XSLFileName = sFolder & "xsl\main.xslt"
    .AddExternalParameter "SourceFilePath", "'" & sFolder & "src\test.xlsx'"
    .AddExternalParameter "DestFolder", "'" & sFolder & "'"
    .AddExternalParameter "DestFIle", "'test1.xml'"
    .Execute ""
End With
[/vba]
вместо InputXMLFileName можно использовать InputXMLFromText
[vba]
Код
Dim sFolder
sFolder = Replace(WScript.ScriptFullName, WScript.ScriptName, "")
With CreateObject("AltovaXML.Application").XSLT2
    .InputXMLFromText = "<xs:schema id='NewDataSet' xmlns='' xmlns:xs='http://www.w3.org/2001/XMLSchema' xmlns:msdata='urn:schemas-microsoft-com:xml-msdata'>" & vbCrLf & _
    "<xs:element name='NewDataSet' msdata:IsDataSet='true' msdata:MainDataTable='OrderHeader' msdata:UseCurrentLocale='true'>" & vbCrLf & _
    "<xs:complexType>" & vbCrLf & _
    "<xs:choice minOccurs='0' maxOccurs='unbounded'>" & vbCrLf & _
        "<xs:element name='OrderHeader'>" & vbCrLf & _
        "<xs:complexType>" & vbCrLf & _
        "<xs:sequence>" & vbCrLf & _
        "<xs:element name='Id' type='xs:string' minOccurs='0' />" & vbCrLf & _
        "<xs:element name='Cl' type='xs:string' minOccurs='0' />" & vbCrLf & _
        "</xs:sequence>" & vbCrLf & _
        "</xs:complexType>" & vbCrLf & _
        "</xs:element>" & vbCrLf & _
    "</xs:choice>" & vbCrLf & _
    "</xs:complexType>" & vbCrLf & _
    "</xs:element>" & vbCrLf & _
    "</xs:schema>"
    .XSLFileName = sFolder & "xsl\main.xslt"
    .AddExternalParameter "SourceFilePath", "'" & sFolder & "src\test.xlsx'"
    .AddExternalParameter "DestFolder", "'" & sFolder & "'"
    .AddExternalParameter "DestFIle", "'test1.xml'"
    .Execute ""
End With
[/vba]
для раннего связывания в vba в папке с установленном ALTOVAXML есть файл AltovaXMLLib.tlb
Автор - krosav4ig
Дата добавления - 20.12.2018 в 23:48
krosav4ig Дата: Среда, 19.12.2018, 23:54 | Сообщение № 602 | Тема: Добавление схемы в файл xml при импорте данных из Excel
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
Вспомнить-то вспомнилось, но чтоб пример сделать все времени не хватает, думаю завтро вечерком дойдут до этого руки :)

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
СообщениеВспомнить-то вспомнилось, но чтоб пример сделать все времени не хватает, думаю завтро вечерком дойдут до этого руки :)
Автор - krosav4ig
Дата добавления - 19.12.2018 в 23:54
krosav4ig Дата: Вторник, 18.12.2018, 10:29 | Сообщение № 603 | Тема: Добавление схемы в файл xml при импорте данных из Excel
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
Если мне не изменяет память, то с помощью xslt можно и данные из excel/word 2007+ ввытянуть, и xsd в выходной xml впихнуть. Надо вспомнить где и как, по-моему, делал пподобное в altova mapforce

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460

Сообщение отредактировал krosav4ig - Вторник, 18.12.2018, 10:32
 
Ответить
СообщениеЕсли мне не изменяет память, то с помощью xslt можно и данные из excel/word 2007+ ввытянуть, и xsd в выходной xml впихнуть. Надо вспомнить где и как, по-моему, делал пподобное в altova mapforce
Автор - krosav4ig
Дата добавления - 18.12.2018 в 10:29
krosav4ig Дата: Четверг, 13.12.2018, 15:01 | Сообщение № 604 | Тема: Рассчитать конец работы с учетом праздников (дата, время)
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
dude, а если в список праздников добавить 3.12.2018?

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщениеdude, а если в список праздников добавить 3.12.2018?
Автор - krosav4ig
Дата добавления - 13.12.2018 в 15:01
krosav4ig Дата: Четверг, 13.12.2018, 11:32 | Сообщение № 605 | Тема: Рассчитать конец работы с учетом праздников (дата, время)
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
manro151093, исправил в предыдущем посте

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщениеmanro151093, исправил в предыдущем посте
Автор - krosav4ig
Дата добавления - 13.12.2018 в 11:32
krosav4ig Дата: Четверг, 13.12.2018, 03:43 | Сообщение № 606 | Тема: Рассчитать конец работы с учетом праздников (дата, время)
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
Цитата manro151093, 13.12.2018 в 02:33, в сообщении № 6 ()
за место того, чтобы получилось 14 часов 10 минут, получается 15 часов 10 минут.
исправил, в ячейке
Код
=ЕСЛИ(BB<0;AA+D3+((ЧАС(AA+D3)>12)-(ЧАС(AA)>13))/24;РАБДЕНЬ(AA;1+ОТБР(BB/"8:");ПР)+"9:"+ОСТАТ(BB;"8:")+(ОСТАТ(BB;"8:")>4/24)/24)

Цитата manro151093, 13.12.2018 в 02:33, в сообщении № 6 ()
работы продолжается вечером до половины 7-ого.
тоже, вроде, само собой отпало (если нет - покажите в файле)
К сообщению приложен файл: 5757919.xlsx (9.8 Kb)

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460

Сообщение отредактировал krosav4ig - Четверг, 13.12.2018, 11:26
 
Ответить
Сообщение
Цитата manro151093, 13.12.2018 в 02:33, в сообщении № 6 ()
за место того, чтобы получилось 14 часов 10 минут, получается 15 часов 10 минут.
исправил, в ячейке
Код
=ЕСЛИ(BB<0;AA+D3+((ЧАС(AA+D3)>12)-(ЧАС(AA)>13))/24;РАБДЕНЬ(AA;1+ОТБР(BB/"8:");ПР)+"9:"+ОСТАТ(BB;"8:")+(ОСТАТ(BB;"8:")>4/24)/24)

Цитата manro151093, 13.12.2018 в 02:33, в сообщении № 6 ()
работы продолжается вечером до половины 7-ого.
тоже, вроде, само собой отпало (если нет - покажите в файле)
Автор - krosav4ig
Дата добавления - 13.12.2018 в 03:43
krosav4ig Дата: Четверг, 13.12.2018, 00:04 | Сообщение № 607 | Тема: Рассчитать конец работы с учетом праздников (дата, время)
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
Немассивная монстроформула (в диспетчере имен)
Код
=ЕСЛИ(BB<0;AA+D3+(ЧАС(AA+D3)>12)/24;РАБДЕНЬ(AA;1+ОТБР(BB/"8:");ПР)+"9:"+ОСТАТ(BB;"8:")+(ОСТАТ(BB;"8:")>4/24)/24)

[vba]
Код
AA    =ЕСЛИ(РАБДЕНЬ(!E3-1;1;ПР)>!E3;РАБДЕНЬ(!E3;1;ПР)+"9:";!E3)
[/vba]
[vba]
Код
BB    =!D3-"18:"+ОСТАТ(AA;1)+(ЧАС(AA)<14)/24
[/vba]
[vba]
Код
ПР    =!$E$11:$E$12
[/vba]
К сообщению приложен файл: 0859188-.xlsx (8.9 Kb)

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460

Сообщение отредактировал krosav4ig - Четверг, 13.12.2018, 00:06
 
Ответить
СообщениеНемассивная монстроформула (в диспетчере имен)
Код
=ЕСЛИ(BB<0;AA+D3+(ЧАС(AA+D3)>12)/24;РАБДЕНЬ(AA;1+ОТБР(BB/"8:");ПР)+"9:"+ОСТАТ(BB;"8:")+(ОСТАТ(BB;"8:")>4/24)/24)

[vba]
Код
AA    =ЕСЛИ(РАБДЕНЬ(!E3-1;1;ПР)>!E3;РАБДЕНЬ(!E3;1;ПР)+"9:";!E3)
[/vba]
[vba]
Код
BB    =!D3-"18:"+ОСТАТ(AA;1)+(ЧАС(AA)<14)/24
[/vba]
[vba]
Код
ПР    =!$E$11:$E$12
[/vba]
Автор - krosav4ig
Дата добавления - 13.12.2018 в 00:04
krosav4ig Дата: Среда, 12.12.2018, 17:10 | Сообщение № 608 | Тема: Принудительное обновление Importxml
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
Я тут немного поизвращался над кодом [vba]
Код
function RefreshImports() {
    var s=SpreadsheetApp,
        e=s.getUi(),
        t=e.prompt("","Укажите Spreadsheet id",e.ButtonSet.OK_CANCEL);
    if(t.getSelectedButton()==e.Button.OK) {
        var r=t.getResponseText(),
            n=LockService.getScriptLock();
        n.tryLock(5e3) && (SpreadsheetApp.openById(r).getSheets().forEach(function(t){
            var r=/.*[^a-z0-9]import(?:xml|data|feed|html|range)\(.*/gi,
                n=[t.getDataRange()].map(function(e){
                    return {r:e.getRow(),c:e.getColumn(),f:e.getFormulas()}
                })[0],
                e = [].concat.apply([],n.f.map(function(e,r){
                    return e.map(function(e,t){ return {f:e,r:r+n.c,c:t+n.r}})
                })).filter(function(e){return -1!==e.f.search(r)});
            e.forEach(function(e){t.getRange(e.r,e.c).setFormula("")});
            Utilities.sleep(5e3);
            e.forEach(function(e){t.getRange(e.r,e.c).setFormula(e.f)})
        }),s.flush(),n.releaseLock())
    }
}
[/vba]

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460

Сообщение отредактировал krosav4ig - Среда, 12.12.2018, 19:37
 
Ответить
СообщениеЯ тут немного поизвращался над кодом [vba]
Код
function RefreshImports() {
    var s=SpreadsheetApp,
        e=s.getUi(),
        t=e.prompt("","Укажите Spreadsheet id",e.ButtonSet.OK_CANCEL);
    if(t.getSelectedButton()==e.Button.OK) {
        var r=t.getResponseText(),
            n=LockService.getScriptLock();
        n.tryLock(5e3) && (SpreadsheetApp.openById(r).getSheets().forEach(function(t){
            var r=/.*[^a-z0-9]import(?:xml|data|feed|html|range)\(.*/gi,
                n=[t.getDataRange()].map(function(e){
                    return {r:e.getRow(),c:e.getColumn(),f:e.getFormulas()}
                })[0],
                e = [].concat.apply([],n.f.map(function(e,r){
                    return e.map(function(e,t){ return {f:e,r:r+n.c,c:t+n.r}})
                })).filter(function(e){return -1!==e.f.search(r)});
            e.forEach(function(e){t.getRange(e.r,e.c).setFormula("")});
            Utilities.sleep(5e3);
            e.forEach(function(e){t.getRange(e.r,e.c).setFormula(e.f)})
        }),s.flush(),n.releaseLock())
    }
}
[/vba]
Автор - krosav4ig
Дата добавления - 12.12.2018 в 17:10
krosav4ig Дата: Понедельник, 10.12.2018, 23:02 | Сообщение № 609 | Тема: Подсчет количества одинаковых ячеек
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
Здравствуйте
Добавляем заголовок столбца и строим сводную
К сообщению приложен файл: 4047689.xlsb (83.7 Kb)

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
СообщениеЗдравствуйте
Добавляем заголовок столбца и строим сводную
Автор - krosav4ig
Дата добавления - 10.12.2018 в 23:02
krosav4ig Дата: Воскресенье, 09.12.2018, 02:37 | Сообщение № 610 | Тема: Отправка письма когда значения в одной ячейке выше чем в дру
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
ТАМИК, вы бы хоть табличку показали

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
СообщениеТАМИК, вы бы хоть табличку показали
Автор - krosav4ig
Дата добавления - 09.12.2018 в 02:37
krosav4ig Дата: Суббота, 08.12.2018, 17:32 | Сообщение № 611 | Тема: Как добавить кнопку - в контекстное меню
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
[vba]
Код
Sub Remove_()
    On Error Resume Next
    With CommandBars("Text")
        Do
            .FindControl(, 1).Delete
        Loop Until Err.Number
    End With
End Sub
[/vba]

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщение[vba]
Код
Sub Remove_()
    On Error Resume Next
    With CommandBars("Text")
        Do
            .FindControl(, 1).Delete
        Loop Until Err.Number
    End With
End Sub
[/vba]
Автор - krosav4ig
Дата добавления - 08.12.2018 в 17:32
krosav4ig Дата: Четверг, 06.12.2018, 02:01 | Сообщение № 612 | Тема: Importxml как прописать xPath для собра цен
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
как-то так
Код
=IMPORTXML("https://www.taen.ru/catalog/vanny/vanny-akrilovye/roca-easy-1707545-bez-gidromassazha/";"//*[@itemprop='price']/@content")

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщениекак-то так
Код
=IMPORTXML("https://www.taen.ru/catalog/vanny/vanny-akrilovye/roca-easy-1707545-bez-gidromassazha/";"//*[@itemprop='price']/@content")
Автор - krosav4ig
Дата добавления - 06.12.2018 в 02:01
krosav4ig Дата: Четверг, 06.12.2018, 00:15 | Сообщение № 613 | Тема: Условное форматирование выходных дней в графике
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
для выходных СБ, ВС и праздников можно проще
Код
=РАБДЕНЬ(B$7-1;1;$AI$1:$AI$14)>B$7

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщениедля выходных СБ, ВС и праздников можно проще
Код
=РАБДЕНЬ(B$7-1;1;$AI$1:$AI$14)>B$7
Автор - krosav4ig
Дата добавления - 06.12.2018 в 00:15
krosav4ig Дата: Среда, 05.12.2018, 01:09 | Сообщение № 614 | Тема: Кошмар на улице вязов :)
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
Цитата boa, 04.12.2018 в 22:36, в сообщении № 14 ()
в Нидерландах

уж не tcpvpn ли это?

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщение
Цитата boa, 04.12.2018 в 22:36, в сообщении № 14 ()
в Нидерландах

уж не tcpvpn ли это?
Автор - krosav4ig
Дата добавления - 05.12.2018 в 01:09
krosav4ig Дата: Вторник, 04.12.2018, 23:50 | Сообщение № 615 | Тема: Добавление шаблона даты
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
Maksimys07, вам нужно поля, приведенные мной и Александром добавить в коллекцию экспресс-блоков. Для этого нужно выделить поле, жмакнуть по кнопке на ленте Вставка->Текст->Экспресс-блоки и выбрать Сохранить выделенный фрагмент в коллекцию экспресс-блоков. В появившемся окне вписать имя для этого блока, категорию (по желанию) и нажать Ок.

После этого этот блок можно вставлять жмакая по кнопке Экспресс-блоки и выбирая его из списка.
К сообщению приложен файл: 1915659.png (115.4 Kb) · 4590741.png (22.7 Kb)

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460

Сообщение отредактировал krosav4ig - Вторник, 04.12.2018, 23:53
 
Ответить
СообщениеMaksimys07, вам нужно поля, приведенные мной и Александром добавить в коллекцию экспресс-блоков. Для этого нужно выделить поле, жмакнуть по кнопке на ленте Вставка->Текст->Экспресс-блоки и выбрать Сохранить выделенный фрагмент в коллекцию экспресс-блоков. В появившемся окне вписать имя для этого блока, категорию (по желанию) и нажать Ок.

После этого этот блок можно вставлять жмакая по кнопке Экспресс-блоки и выбирая его из списка.
Автор - krosav4ig
Дата добавления - 04.12.2018 в 23:50
krosav4ig Дата: Вторник, 04.12.2018, 21:38 | Сообщение № 616 | Тема: Макрос по поиску и выделению найденных слов
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
MulleR, не совсем понятно, что и как должно выделяться. Выделите вручную в примере как должно получиться

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
СообщениеMulleR, не совсем понятно, что и как должно выделяться. Выделите вручную в примере как должно получиться
Автор - krosav4ig
Дата добавления - 04.12.2018 в 21:38
krosav4ig Дата: Вторник, 04.12.2018, 04:30 | Сообщение № 617 | Тема: Добавление шаблона даты
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
у мну вот так получилось [vba]
Код
{quote \«__\»\ {set m {date \@ M}}{if m = 5 мая {date \@ MMM}}{if m = 1 аря {if m = 2 раля {if m = 3 та {if m = 4 еля {if m < 8 я {if m = 8 уста "{if m = 9 тя {if m = 10 я {if m = 12 а}}}бря}}}}}}\ {date \@ "yyyy г.}}
[/vba]
К сообщению приложен файл: 2055851_3.docx (13.1 Kb)

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщениеу мну вот так получилось [vba]
Код
{quote \«__\»\ {set m {date \@ M}}{if m = 5 мая {date \@ MMM}}{if m = 1 аря {if m = 2 раля {if m = 3 та {if m = 4 еля {if m < 8 я {if m = 8 уста "{if m = 9 тя {if m = 10 я {if m = 12 а}}}бря}}}}}}\ {date \@ "yyyy г.}}
[/vba]
Автор - krosav4ig
Дата добавления - 04.12.2018 в 04:30
krosav4ig Дата: Воскресенье, 02.12.2018, 00:36 | Сообщение № 618 | Тема: Объединение в выпадающем списке 2х ячеек
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
Maksimys07, нечто подобное можно изобразить с помощью условного форматирования, правда, весьма коряво.
К сообщению приложен файл: 9703709.xls (31.5 Kb)

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
СообщениеMaksimys07, нечто подобное можно изобразить с помощью условного форматирования, правда, весьма коряво.
Автор - krosav4ig
Дата добавления - 02.12.2018 в 00:36
krosav4ig Дата: Воскресенье, 02.12.2018, 00:25 | Сообщение № 619 | Тема: Как добавить кнопку - в контекстное меню
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
Цитата Апострофф, 01.12.2018 в 11:59, в сообщении № 2 ()
не нашел такой.

ну дык ViewDocumentMap
[vba]
Код
CommandBars("text").Controls.Add(1, 1714, , , True).FaceId = 1714
[/vba]

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщение
Цитата Апострофф, 01.12.2018 в 11:59, в сообщении № 2 ()
не нашел такой.

ну дык ViewDocumentMap
[vba]
Код
CommandBars("text").Controls.Add(1, 1714, , , True).FaceId = 1714
[/vba]
Автор - krosav4ig
Дата добавления - 02.12.2018 в 00:25
krosav4ig Дата: Суббота, 01.12.2018, 00:20 | Сообщение № 620 | Тема: SpecialCells для одной ячейки
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
StoTisteg, для одной ячейки SpecialCells работает так же, как и F5>Выделить, и как поиск и замена

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
СообщениеStoTisteg, для одной ячейки SpecialCells работает так же, как и F5>Выделить, и как поиск и замена
Автор - krosav4ig
Дата добавления - 01.12.2018 в 00:20
Мир MS Excel » Записи участника » krosav4ig [2323]
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2026 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!