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

Вход

Регистрация

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

 

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

Результаты поиска
krosav4ig Дата: Среда, 01.07.2020, 14:57 | Сообщение № 2301 | Тема: Размещение картинок на листе с порядком видимости -к фигуре
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
КрасноглазыйПиркаф, названием и назначением. Такой ответ вас устроит?


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
еще вариант
К сообщению приложен файл: 8037206.xlsx (25.6 Kb)


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
Игорь, С днем рождения! Здоровья, счастья, всего наилучшего, чтобы все хорошее, чего сеодня понажелали, обязательно сбылось! wine


email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
СообщениеИгорь, С днем рождения! Здоровья, счастья, всего наилучшего, чтобы все хорошее, чего сеодня понажелали, обязательно сбылось! wine

Автор - 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]
К сообщению приложен файл: 8250427.xls (38.5 Kb)


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]
Код
.Paste
[/vba] добавьте строку [vba]
Код
.Parent.Select
[/vba]


email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщениеперед [vba]
Код
.Paste
[/vba] добавьте строку [vba]
Код
.Parent.Select
[/vba]

Автор - krosav4ig
Дата добавления - 29.07.2020 в 21:49
krosav4ig Дата: Четверг, 30.07.2020, 21:52 | Сообщение № 2306 | Тема: Сброс настроек размера столбцов в Power Query
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
ANerovny, ну дык надо снять галочку "задать ширину столбца" и в PQ в свойствах запроса не помешает отключить фоновую загрузку


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
Может, кто-нибудь как следует въедет в тему и догадается?

а может кто-нибудь таки выложит файл-пример со сносками?


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]


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


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]


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]


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]


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
К сообщению приложен файл: 1833439.png (54.4 Kb)


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

Сообщение отредактировал krosav4ig - Воскресенье, 23.08.2020, 22:24
 
Ответить
Сообщениеhttp://excelformulabeautifier.com/

Автор - krosav4ig
Дата добавления - 23.08.2020 в 22:23
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 карта")
К сообщению приложен файл: 2482894.xlsx (25.0 Kb)


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]


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.]


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]
Код
Worksheets
[/vba] на [vba]
Код
ActiveWindow.SelectedSheets
[/vba], если нужно выполнить код на всех выделенных листах


email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщениеили заменить [vba]
Код
Worksheets
[/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
я прям совсем опоздун ((
Елена, с днем рождения! Всего наилучшего!
К сообщению приложен файл: 7167728.jpg (78.4 Kb)


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")


email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
СообщениеЗдравствуйте
Код
=ГИПЕРССЫЛКА("file:///C:/%231/таблица.xlsx";"таблица.xlsx")

Автор - krosav4ig
Дата добавления - 12.12.2021 в 01:45
Поиск:

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