vinadm.blogspot.com: февраля 2019

26.2.19

7z ключи

7z <команда> <ключ> <архивный файл> <объект архивирования>

Основные команды:

a — добавить файлы в архив. Если архива нет, то создается;

d — удаление файлов из архива;

e — извлечение файлов из архива;

l — вывод содержимого архива;

rn — переименование файла внутри архива;

u — обновить файлы в архиве. Если файлов нет, создает новый;

x — извлечение файлов из архива. Пути сохраняются.

Описание ключей:

-t — тип архива. По умолчанию создаются файлы в формате 7z. Примеры, -tzip, -tgz

-ssw — включить файл в архив, даже если он в данный момент используется;

-mx — уровень компрессии (0 — без компрессии, 9 -самая большая компрессия);

-p — пароль для архива;

-o — задает директорию, например, в которую будут распакованы файлы

-sdel — удалить файлы после создания архива

-y — утвердительно ответить на все вопросы системы

-x — исключить файлы или папки из архива

12.2.19

Транслит в Excel

	Function Translit(Txt As String) As String

	Dim Rus As Variant
	Rus = Array("а", "б", "в", "г", "д", "е", "ё", "ж", "з", "и", "й", "к", _
	"л", "м", "н", "о", "п", "р", "с", "т", "у", "ф", "х", "ц", "ч", "ш", _
	"щ", "ъ", "ы", "ь", "э", "ю", "я", "А", "Б", "В", "Г", "Д", "Е", _
	"Ё", "Ж", "З", "И", "Й", "К", "Л", "М", "Н", "О", "П", "Р", _
	"С", "Т", "У", "Ф", "Х", "Ц", "Ч", "Ш", "Щ", "Ъ", "Ы", "Ь", "Э", "Ю", "Я")

	Dim Eng As Variant
	Eng = Array("a", "b", "v", "g", "d", "e", "jo", "zh", "z", "i", "j", _
	"k", "l", "m", "n", "o", "p", "r", "s", "t", "u", "f", "kh", "ts", "ch", _
	"sh", "sch", "''", "y", "'", "e", "yu", "ya", "A", "B", "V", "G", "D", _
	"E", "JO", "ZH", "Z", "I", "J", "K", "L", "M", "N", "O", "P", "R", _
	"S", "T", "U", "F", "KH", "TS", "CH", "SH", "SCH", "''", "Y", "'", "E", "YU", "YA")

	For I = 1 To Len(Txt)
	с = Mid(Txt, I, 1)

	flag = 0
	For J = 0 To 65
	If Rus(J) = с Then
	outchr = Eng(J)
	flag = 1
	Exit For
	End If
	Next J
	If flag Then outstr = outstr & outchr Else outstr = outstr & с
	Next I

	Translit = outstr

	End Function

view raw translite _excel hosted with ❤ by GitHub

в Excel 2003 и старше - через меню Вставка - Функция - Translit
в Excel 2007 и новее - через вкладку Вставка - Функция -Translit
из категории Определенные пользователем (User defined):
https://www.planetaexcel.ru/techniques/7/32/

11.2.19

Конфликт имен в Excel

alt+f11

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
On Error Resume Next
Me.Names("_FilterDatabase").Delete
End Sub

Private Sub Workbook_Open()
On Error Resume Next
Me.Names("_FilterDatabase").Delete
End Sub

http://www.sql.ru/forum/543092/excel-2007-konflikt-imen

vinadm.blogspot.com