Результаты поиска
krosav4ig
Дата: Среда, 01.07.2020, 14:57 |
Сообщение № 2301 | Тема: Размещение картинок на листе с порядком видимости -к фигуре
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация:
997
±
Замечаний:
0% ±
Excel 2007,2010,2013
КрасноглазыйПиркаф , названием и назначением. Такой ответ вас устроит?
КрасноглазыйПиркаф , названием и назначением. Такой ответ вас устроит?krosav4ig
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Ответить
Сообщение КрасноглазыйПиркаф , названием и назначением. Такой ответ вас устроит?Автор - krosav4ig Дата добавления - 01.07.2020 в 14:57
krosav4ig
Дата: Воскресенье, 05.07.2020, 17:49 |
Сообщение № 2302 | Тема: Сгруппировать результаты расчетов в Матрицу по условиям.
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация:
997
±
Замечаний:
0% ±
Excel 2007,2010,2013
еще вариант
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Ответить
Сообщение еще вариант Автор - krosav4ig Дата добавления - 05.07.2020 в 17:49
krosav4ig
Дата: Четверг, 09.07.2020, 23:33 |
Сообщение № 2303 | Тема: китин День рождения
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация:
997
±
Замечаний:
0% ±
Excel 2007,2010,2013
Игорь, С днем рождения! Здоровья, счастья, всего наилучшего, чтобы все хорошее, чего сеодня понажелали, обязательно сбылось!
Игорь, С днем рождения! Здоровья, счастья, всего наилучшего, чтобы все хорошее, чего сеодня понажелали, обязательно сбылось! krosav4ig
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Ответить
Сообщение Игорь, С днем рождения! Здоровья, счастья, всего наилучшего, чтобы все хорошее, чего сеодня понажелали, обязательно сбылось! Автор - krosav4ig Дата добавления - 09.07.2020 в 23:33
krosav4ig
Дата: Понедельник, 20.07.2020, 11:35 |
Сообщение № 2304 | Тема: Ссылки в выпадающем списке
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация:
997
±
Замечаний:
0% ±
Excel 2007,2010,2013
до кучи, вариант с UDF [vba]Код
Function x(R As Range) As Range Dim R1 As Range Set x = R With Application: .ScreenUpdating = 0: .EnableEvents = 0 With Application.Caller On Error GoTo er Set R1 = ['Сусло '!F:F].Find(.Value, , xlValues, xlPart) .Hyperlinks.Delete .Hyperlinks.Add .Cells, "", R1.Address(, , , 1) End With er: .ScreenUpdating = 1: .EnableEvents = 1: End With End Function
[/vba]
до кучи, вариант с UDF [vba]Код
Function x(R As Range) As Range Dim R1 As Range Set x = R With Application: .ScreenUpdating = 0: .EnableEvents = 0 With Application.Caller On Error GoTo er Set R1 = ['Сусло '!F:F].Find(.Value, , xlValues, xlPart) .Hyperlinks.Delete .Hyperlinks.Add .Cells, "", R1.Address(, , , 1) End With er: .ScreenUpdating = 1: .EnableEvents = 1: End With End Function
[/vba] krosav4ig
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Сообщение отредактировал krosav4ig - Понедельник, 20.07.2020, 11:37
Ответить
Сообщение до кучи, вариант с UDF [vba]Код
Function x(R As Range) As Range Dim R1 As Range Set x = R With Application: .ScreenUpdating = 0: .EnableEvents = 0 With Application.Caller On Error GoTo er Set R1 = ['Сусло '!F:F].Find(.Value, , xlValues, xlPart) .Hyperlinks.Delete .Hyperlinks.Add .Cells, "", R1.Address(, , , 1) End With er: .ScreenUpdating = 1: .EnableEvents = 1: End With End Function
[/vba] Автор - krosav4ig Дата добавления - 20.07.2020 в 11:35
krosav4ig
Дата: Среда, 29.07.2020, 21:49 |
Сообщение № 2305 | Тема: Скрипт сохранения диапазона в картинку
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация:
997
±
Замечаний:
0% ±
Excel 2007,2010,2013
перед [vba][/vba] добавьте строку [vba][/vba]
перед [vba][/vba] добавьте строку [vba][/vba] krosav4ig
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Ответить
Сообщение перед [vba][/vba] добавьте строку [vba][/vba] Автор - krosav4ig Дата добавления - 29.07.2020 в 21:49
krosav4ig
Дата: Четверг, 30.07.2020, 21:52 |
Сообщение № 2306 | Тема: Сброс настроек размера столбцов в Power Query
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация:
997
±
Замечаний:
0% ±
Excel 2007,2010,2013
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Ответить
Сообщение ANerovny , ну дык надо снять галочку "задать ширину столбца" и в PQ в свойствах запроса не помешает отключить фоновую загрузку Автор - krosav4ig Дата добавления - 30.07.2020 в 21:52
krosav4ig
Дата: Понедельник, 03.08.2020, 23:47 |
Сообщение № 2307 | Тема: Сноски: всплывающие подсказки
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация:
997
±
Замечаний:
0% ±
Excel 2007,2010,2013
Может, кто-нибудь как следует въедет в тему и догадается?
а может кто-нибудь таки выложит файл-пример со сносками?
Может, кто-нибудь как следует въедет в тему и догадается?
а может кто-нибудь таки выложит файл-пример со сносками?krosav4ig
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Ответить
Сообщение Может, кто-нибудь как следует въедет в тему и догадается?
а может кто-нибудь таки выложит файл-пример со сносками?Автор - krosav4ig Дата добавления - 03.08.2020 в 23:47
krosav4ig
Дата: Четверг, 06.08.2020, 01:08 |
Сообщение № 2308 | Тема: Подпись VBAProject. Проверка наличия подписи.
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация:
997
±
Замечаний:
0% ±
Excel 2007,2010,2013
Здравствуйте [vba]Код
Debug.Print ThisWorkbook.VBASigned
[/vba]
Здравствуйте [vba]Код
Debug.Print ThisWorkbook.VBASigned
[/vba] krosav4ig
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Ответить
Сообщение Здравствуйте [vba]Код
Debug.Print ThisWorkbook.VBASigned
[/vba] Автор - krosav4ig Дата добавления - 06.08.2020 в 01:08
krosav4ig
Дата: Четверг, 06.08.2020, 20:08 |
Сообщение № 2309 | Тема: Подпись VBAProject. Проверка наличия подписи.
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация:
997
±
Замечаний:
0% ±
Excel 2007,2010,2013
А вот по этим вопросам у мну никаких мыслей, кроме как дергать WinApi (findwindowex, sendmessage, getwindowtext, etc) или пользовать SignTool из MS SDK
А вот по этим вопросам у мну никаких мыслей, кроме как дергать WinApi (findwindowex, sendmessage, getwindowtext, etc) или пользовать SignTool из MS SDK krosav4ig
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Ответить
Сообщение А вот по этим вопросам у мну никаких мыслей, кроме как дергать WinApi (findwindowex, sendmessage, getwindowtext, etc) или пользовать SignTool из MS SDK Автор - krosav4ig Дата добавления - 06.08.2020 в 20:08
krosav4ig
Дата: Пятница, 14.08.2020, 01:54 |
Сообщение № 2310 | Тема: Как удалить данные из столбца макросом
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация:
997
±
Замечаний:
0% ±
Excel 2007,2010,2013
Доброй ночи [vba]Код
Sub del() Dim uRng, lRows With ActiveSheet Set uRng = .UsedRange lRows = uRng.Rows.Count - 8 + uRng.Row .[cd8].MergeArea.Resize(lRows).Value = Empty End With End Sub
[/vba]
Доброй ночи [vba]Код
Sub del() Dim uRng, lRows With ActiveSheet Set uRng = .UsedRange lRows = uRng.Rows.Count - 8 + uRng.Row .[cd8].MergeArea.Resize(lRows).Value = Empty End With End Sub
[/vba] krosav4ig
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Ответить
Сообщение Доброй ночи [vba]Код
Sub del() Dim uRng, lRows With ActiveSheet Set uRng = .UsedRange lRows = uRng.Rows.Count - 8 + uRng.Row .[cd8].MergeArea.Resize(lRows).Value = Empty End With End Sub
[/vba] Автор - krosav4ig Дата добавления - 14.08.2020 в 01:54
krosav4ig
Дата: Пятница, 14.08.2020, 19:17 |
Сообщение № 2311 | Тема: Скрипт для Гугл Таблиц. Новая запись - с пустой строки
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация:
997
±
Замечаний:
0% ±
Excel 2007,2010,2013
[vba]Код
var n=sheet.getLastRow()+1
[/vba]
[vba]Код
var n=sheet.getLastRow()+1
[/vba] krosav4ig
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Ответить
Сообщение [vba]Код
var n=sheet.getLastRow()+1
[/vba] Автор - krosav4ig Дата добавления - 14.08.2020 в 19:17
krosav4ig
Дата: Пятница, 14.08.2020, 20:12 |
Сообщение № 2312 | Тема: Скрипт для Гугл Таблиц. Новая запись - с пустой строки
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация:
997
±
Замечаний:
0% ±
Excel 2007,2010,2013
Актуальный upd. Спасибо, получил
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Сообщение отредактировал krosav4ig - Суббота, 15.08.2020, 00:00
Ответить
Сообщение Актуальный upd. Спасибо, получил Автор - krosav4ig Дата добавления - 14.08.2020 в 20:12
krosav4ig
Дата: Среда, 19.08.2020, 10:19 |
Сообщение № 2313 | Тема: Сохранение текущего листа в формате pdf
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация:
997
±
Замечаний:
0% ±
Excel 2007,2010,2013
Здравствуйте! [vba]Код
Sub SaveActiveSheet4() 'Процедура сохранения Dim NewFileName On Error Resume Next If ActiveSheet Is Nothing Then Exit Sub NewFileName = GetNewFileName4 If NewFileName <> "" Then ActiveSheet.ExportAsFixedFormat 0, NewFileName End Sub
[/vba]
Здравствуйте! [vba]Код
Sub SaveActiveSheet4() 'Процедура сохранения Dim NewFileName On Error Resume Next If ActiveSheet Is Nothing Then Exit Sub NewFileName = GetNewFileName4 If NewFileName <> "" Then ActiveSheet.ExportAsFixedFormat 0, NewFileName End Sub
[/vba] krosav4ig
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Сообщение отредактировал krosav4ig - Среда, 19.08.2020, 10:20
Ответить
Сообщение Здравствуйте! [vba]Код
Sub SaveActiveSheet4() 'Процедура сохранения Dim NewFileName On Error Resume Next If ActiveSheet Is Nothing Then Exit Sub NewFileName = GetNewFileName4 If NewFileName <> "" Then ActiveSheet.ExportAsFixedFormat 0, NewFileName End Sub
[/vba] Автор - krosav4ig Дата добавления - 19.08.2020 в 10:19
krosav4ig
Дата: Воскресенье, 23.08.2020, 22:23 |
Сообщение № 2314 | Тема: Преобразование формулы Excel в формат JavaScript
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация:
997
±
Замечаний:
0% ±
Excel 2007,2010,2013
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Сообщение отредактировал krosav4ig - Воскресенье, 23.08.2020, 22:24
Ответить
krosav4ig
Дата: Четверг, 03.09.2020, 03:39 |
Сообщение № 2315 | Тема: Как сделать ссылки поиска координат в картах по гиперссылке
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация:
997
±
Замечаний:
0% ±
Excel 2007,2010,2013
Код
=ГИПЕРССЫЛКА("https://yandex.ru/maps/?text="&ПОДСТАВИТЬ(G2;",";".")&"%C2%B0N%20"&ПОДСТАВИТЬ(H2;",";".")&"%C2%B0E&sll="&ПОДСТАВИТЬ(H2;",";".")&","&ПОДСТАВИТЬ(G2;",";".")&"&source=wizgeo&utm_source=serp&l=map&utm_medium=maps-desktop";"Yandex карта")
Код
=ГИПЕРССЫЛКА("https://yandex.ru/maps/?text="&ПОДСТАВИТЬ(G2;",";".")&"%C2%B0N%20"&ПОДСТАВИТЬ(H2;",";".")&"%C2%B0E&sll="&ПОДСТАВИТЬ(H2;",";".")&","&ПОДСТАВИТЬ(G2;",";".")&"&source=wizgeo&utm_source=serp&l=map&utm_medium=maps-desktop";"Yandex карта")
krosav4ig
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Ответить
Сообщение Код
=ГИПЕРССЫЛКА("https://yandex.ru/maps/?text="&ПОДСТАВИТЬ(G2;",";".")&"%C2%B0N%20"&ПОДСТАВИТЬ(H2;",";".")&"%C2%B0E&sll="&ПОДСТАВИТЬ(H2;",";".")&","&ПОДСТАВИТЬ(G2;",";".")&"&source=wizgeo&utm_source=serp&l=map&utm_medium=maps-desktop";"Yandex карта")
Автор - krosav4ig Дата добавления - 03.09.2020 в 03:39
krosav4ig
Дата: Пятница, 11.09.2020, 06:40 |
Сообщение № 2316 | Тема: Макрос - вставка величины из буфера обмена
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация:
997
±
Замечаний:
0% ±
Excel 2007,2010,2013
решение, работающее на маке?
например функция getClipboardASStyledText отсюда выполняется через applescripttask или macscript вроде должно работать, но проверять негде может быть даже достаточно [vba]Код
MacScript("get clipboard as text")
[/vba]
решение, работающее на маке?
например функция getClipboardASStyledText отсюда выполняется через applescripttask или macscript вроде должно работать, но проверять негде может быть даже достаточно [vba]Код
MacScript("get clipboard as text")
[/vba]krosav4ig
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Сообщение отредактировал krosav4ig - Пятница, 11.09.2020, 06:41
Ответить
Сообщение решение, работающее на маке?
например функция getClipboardASStyledText отсюда выполняется через applescripttask или macscript вроде должно работать, но проверять негде может быть даже достаточно [vba]Код
MacScript("get clipboard as text")
[/vba]Автор - krosav4ig Дата добавления - 11.09.2020 в 06:40
krosav4ig
Дата: Четверг, 17.09.2020, 22:19 |
Сообщение № 2317 | Тема: формирование сводной таблицы
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация:
997
±
Замечаний:
0% ±
Excel 2007,2010,2013
Добрый вечер [vba]Код
With ActiveWorkbook.Sheets With .Add(, .Item(.Count)) .Parent.PivotCaches.Create(xlDatabase, "Лист1!R1C1:R" & iLastRow & "C" & iLastCol, 6) _ .CreatePivotTable .Range("A3"), DefaultVersion:=6 End With End With
[/vba] [p.s.]для оформления кодов есть кнопочка [/p.s.]
Добрый вечер [vba]Код
With ActiveWorkbook.Sheets With .Add(, .Item(.Count)) .Parent.PivotCaches.Create(xlDatabase, "Лист1!R1C1:R" & iLastRow & "C" & iLastCol, 6) _ .CreatePivotTable .Range("A3"), DefaultVersion:=6 End With End With
[/vba] [p.s.]для оформления кодов есть кнопочка [/p.s.] krosav4ig
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Ответить
Сообщение Добрый вечер [vba]Код
With ActiveWorkbook.Sheets With .Add(, .Item(.Count)) .Parent.PivotCaches.Create(xlDatabase, "Лист1!R1C1:R" & iLastRow & "C" & iLastCol, 6) _ .CreatePivotTable .Range("A3"), DefaultVersion:=6 End With End With
[/vba] [p.s.]для оформления кодов есть кнопочка [/p.s.] Автор - krosav4ig Дата добавления - 17.09.2020 в 22:19
krosav4ig
Дата: Четверг, 17.09.2020, 22:23 |
Сообщение № 2318 | Тема: Сменить размер в активном листе
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация:
997
±
Замечаний:
0% ±
Excel 2007,2010,2013
или заменить [vba][/vba] на [vba]Код
ActiveWindow.SelectedSheets
[/vba], если нужно выполнить код на всех выделенных листах
или заменить [vba][/vba] на [vba]Код
ActiveWindow.SelectedSheets
[/vba], если нужно выполнить код на всех выделенных листах krosav4ig
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Ответить
Сообщение или заменить [vba][/vba] на [vba]Код
ActiveWindow.SelectedSheets
[/vba], если нужно выполнить код на всех выделенных листах Автор - krosav4ig Дата добавления - 17.09.2020 в 22:23
krosav4ig
Дата: Суббота, 13.02.2021, 02:31 |
Сообщение № 2319 | Тема: Pelena День рождения!
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация:
997
±
Замечаний:
0% ±
Excel 2007,2010,2013
я прям совсем опоздун (( Елена, с днем рождения! Всего наилучшего!
я прям совсем опоздун (( Елена, с днем рождения! Всего наилучшего! krosav4ig
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Ответить
Сообщение я прям совсем опоздун (( Елена, с днем рождения! Всего наилучшего! Автор - krosav4ig Дата добавления - 13.02.2021 в 02:31
krosav4ig
Дата: Воскресенье, 12.12.2021, 01:45 |
Сообщение № 2320 | Тема: гиперссылка на файл в имени которого имеется (#)
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация:
997
±
Замечаний:
0% ±
Excel 2007,2010,2013
ЗдравствуйтеКод
=ГИПЕРССЫЛКА("file:///C:/%231/таблица.xlsx";"таблица.xlsx")
ЗдравствуйтеКод
=ГИПЕРССЫЛКА("file:///C:/%231/таблица.xlsx";"таблица.xlsx")
krosav4ig
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Ответить
Сообщение ЗдравствуйтеКод
=ГИПЕРССЫЛКА("file:///C:/%231/таблица.xlsx";"таблица.xlsx")
Автор - krosav4ig Дата добавления - 12.12.2021 в 01:45