Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти  
Форумы "Планета Excel" » Пользователи » Nordheim
Выбрать дату в календаре…Выбрать дату в календаре

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 102 След.
ФИО в инициалы макросом, ФИО (отчества может не быть) преобразовать в инициалы макросом
 
#
19 окт 2020 14:54:28
Андрей Игнатьев, Покажите в файле примере, что есть и как нужно
"Все гениальное просто, а все простое гениально!!!"
 
Перейти    
Как подключить надстройку только к определенному файлу excel
 
#
18 окт 2020 21:09:49
Цитата
Вал Бал написал:
Здравствуйте подскажите пожалуйста, можно ли как-то подключить надстройку только к определенному файлу excel? Если можно то как?
Смысл надстройки, что бы при открытии любого файла макросы были в них доступны, какой смысл делать надстройку для конкретного файла? Перенесите все процедуры в этот файл и будут они доступны, только в этом файле.
Изменено: Nordheim - 18 окт 2020 21:10:23
"Все гениальное просто, а все простое гениально!!!"
 
Перейти    
Функция выбора листов для последующего сохранения их в PDF формате
 
#
14 окт 2020 18:44:31
Не понятно почему CheckBox а не OptionButton? И что в вашем понятии "активировать"?
Изменено: Nordheim - 14 окт 2020 18:45:54
"Все гениальное просто, а все простое гениально!!!"
 
Перейти    
Вставка пространства имен перед значением тега при формировании xml документа
 
#
8 окт 2020 13:43:41
есть код который формирует xml документ
Скрытый текст

в итоге получается следующий вариант xml
Скрытый текст

что нужно поменять или добавить в скрипте, что бы в итоге получилось
Скрытый текст

Как видно, второй вариант xml документа отличается от первого тем что перед каждым значением тега стоит "dtr:"

PS:
Вариант добаления путем сцепления сейчас использую
Скрытый текст

Интересует есть ли какие-то штатные методы у MSXML2.DOMDocument60 , а не этот костыль :)

Заранее спасибо!!!

Как выяснилось нет, тему можно закрывать.
Изменено: Nordheim - 8 окт 2020 16:07:01
"Все гениальное просто, а все простое гениально!!!"
 
Перейти    
Как убрать лишние кавычки vba
 
#
7 окт 2020 13:30:38
Cryphon, А для чего прикладывать файл word, форма в котором не активируется?
По вопросу, можно таким методом воспользоваться
Код
Sub qqq()
    Dim OldText As String, NewText As String
    OldText = "Мой текст"
    MsgBox OldText
    NewText = Chr(34) & OldText & Chr(34)
    MsgBox NewText
End Sub
Изменено: Nordheim - 7 окт 2020 13:32:40
"Все гениальное просто, а все простое гениально!!!"
 
Перейти    
После SQL запроса повреждается база Access, При выполнении INSERT или UPDATE возникает ошибка: Нераспознаваемый формат базы данных
 
#
6 окт 2020 12:13:01
Цитата
Egorrussia написал:
Кто-то сталкивался с такой проблемой?
А в Excel, может возникнуть такая проблема?
"Все гениальное просто, а все простое гениально!!!"
 
Перейти    
Поиск уникальных значений по ключу, реализовать отступ между уникальными значениями
 
#
6 окт 2020 08:52:14
Цитата
Homavi написал:
Есть список
Цитата
Homavi написал:
необходимо построить
Звучит , как задание а не просьба о помощи, не увидел, что именно не получается?
"Все гениальное просто, а все простое гениально!!!"
 
Перейти    
Работа со сканером бар-кода через UserForm с последующим поиском пустой ячейки в столбце/спуском на ячейку ниже., Кто понимает и кому не лень, прошу помощи, с меня как обычно.
 
#
5 окт 2020 22:12:56
Цитата
Антон Зума написал:
как из модуля вызвать событие нажатия кнопки в юзер форм+  для текст бокса
Вот это для меня вообще темный лес.
Из какого модуля, какой кнопки? У вас что не нажмешь, все только ошибки вылетают.
"Все гениальное просто, а все простое гениально!!!"
 
Перейти    
Работа со сканером бар-кода через UserForm с последующим поиском пустой ячейки в столбце/спуском на ячейку ниже., Кто понимает и кому не лень, прошу помощи, с меня как обычно.
 
#
5 окт 2020 21:29:55
Цитата
Антон Зума написал:
7) Не представляю как крутить дальше эту кашу.
Я тоже не понимаю сути вопроса. Открыл файл и вывалился в ошибку, не открывается UserForm1, каково же было мое удивление , когда я этот объект вообще не обнаружил в файле  8-0
"Все гениальное просто, а все простое гениально!!!"
 
Перейти    
Как с помощью CheckBox выделить нужные листы и снять выделение листов
 
#
1 окт 2020 23:30:57
Из 6 сообщения вариант не подошел?
"Все гениальное просто, а все простое гениально!!!"
 
Перейти    
Как с помощью CheckBox выделить нужные листы и снять выделение листов
 
#
1 окт 2020 22:30:44
Вариант
Изменено: Nordheim - 1 окт 2020 23:30:26
"Все гениальное просто, а все простое гениально!!!"
 
Перейти    
Выпадающий список combobox из списка по условию
 
#
29 сен 2020 09:03:55
GRIM, Коллега, позволил немного подправить Ваш код, и получилось как-то так:

Код
Private Sub UserForm_Initialize()
    Dim i&, j&
    For j = 2 To 4
        Me.Controls("ComboBox" & j).Clear
        With CreateObject("scripting.dictionary")
            For i = 2 To Worksheets("Список").Cells(Rows.Count, 2).End(xlUp).Row
                If Worksheets("Список").Cells(i, 1) = "Ресурсы" Then
                    If Not .Exists(Trim(Worksheets("Список").Cells(i, 2))) Then
                        .Add Trim(Worksheets("Список").Cells(i, 2)), i
                        Me.Controls("ComboBox" & j).AddItem Worksheets("Список").Cells(i, 2).Value
                    End If
                End If
            Next i
        End With
    Next j
End Sub
"Все гениальное просто, а все простое гениально!!!"
 
Перейти    
Выпадающий список combobox из списка по условию
 
#
29 сен 2020 08:38:45
Alex32, А кто же мешает сделать цикл по таблице и внести во все ComboBox(ы) только ресурсы?
Изменено: Nordheim - 29 сен 2020 08:57:18
"Все гениальное просто, а все простое гениально!!!"
 
Перейти    
как открыть файл с расширением хlsm, в офисе 2013-2016
 
#
28 сен 2020 10:12:40
Поменял в разрешении последнюю букву с "m" на "x" и все открылось . Попробуйте, может получится
"Все гениальное просто, а все простое гениально!!!"
 
Перейти    
Выпадающий список combobox из списка по условию
 
#
28 сен 2020 09:16:17
В предыдущей теме показал пример с несколькими ComboBox(ами). Может подойдет.
"Все гениальное просто, а все простое гениально!!!"
 
Перейти    
Как связать combobox без повторов
 
#
28 сен 2020 09:15:09
Сделал как можно проще.
"Все гениальное просто, а все простое гениально!!!"
 
Перейти    
Как связать combobox без повторов
 
#
27 сен 2020 22:41:23
Я вам показал как это можно сделать, загоните группы комбобоксов во фреймы и обрабатывайте по аналогии. Я бы только осмысленные названия комбобоксам дал, а не дефолтные оставил.
Изменено: Nordheim - 27 сен 2020 22:43:16
"Все гениальное просто, а все простое гениально!!!"
 
Перейти    
Как связать combobox без повторов
 
#
27 сен 2020 22:20:47
Как показано на примере, так и сделал. Данные в комбобоксах заполнил вашим кодом
"Все гениальное просто, а все простое гениально!!!"
 
Перейти    
Как связать combobox без повторов
 
#
27 сен 2020 20:31:19
Вариант, полноценно не тестировал
"Все гениальное просто, а все простое гениально!!!"
 
Перейти    
UserForm имя нажатой кнопки
 
#
11 сен 2020 22:56:13
Примитивно, можно так сделать
"Все гениальное просто, а все простое гениально!!!"
 
Перейти    
Поиск последней пустой строки в столбце и вставка туда данных из буфера
 
#
7 сен 2020 15:00:11
Nick, у вас рабочий код, только копирует определенную ячейку, укажите активную ячейку и все заработает, либо заполните ту которая указана в макросе.
"Все гениальное просто, а все простое гениально!!!"
 
Перейти    
Если ячейка не пустая, заполнить значением выше, макрос не совсем корректный
 
#
7 сен 2020 13:48:31
Код
Sub test()
    Dim rngUR As Range
    Dim rngBlank As Range
    Set rngUR = Intersect(ActiveWorkbook.ActiveSheet.UsedRange, ActiveWorkbook.ActiveSheet.Range("d:f"))
    Set rngBlank = rngUR.Find("")
    While Not rngBlank Is Nothing
        rngBlank.Value = rngBlank.Offset(-1, 0).Value
        Set rngBlank = rngUR.Find("", rngBlank)
    Wend
End Sub
Изменено: Nordheim - 7 сен 2020 13:48:56
"Все гениальное просто, а все простое гениально!!!"
 
Перейти    
Как узнать ключ словаря по значению без цикла?
 
#
7 сен 2020 13:29:51
Цитата
Бахтиёр написал:
2) Порядковый номер по ключу?
У словаря нет такого метода.
"Все гениальное просто, а все простое гениально!!!"
 
Перейти    
VBA. Применение макроса ко всем Exel файлам в папке по заданному пути
 
#
3 сен 2020 11:19:55
Код
Sub OpenDialod()
    Dim ipath$, fname$, book As Workbook
    With Application.FileDialog(msoFileDialogFolderPicker)
        If .Show Then ipath = .SelectedItems(1) Else Exit Sub
    End With
    fname = Dir(ipath & "\*.xls*")
    Do While fname <> ""
        Set book = Workbooks.Open(ipath & Application.PathSeparator & fname)
        Call Общиймакрос
        book.Close True
        fname = Dir
    Loop
End Sub
Изменено: Nordheim - 3 сен 2020 11:20:44
"Все гениальное просто, а все простое гениально!!!"
 
Перейти    
VBA. Применение макроса ко всем Exel файлам в папке по заданному пути
 
#
3 сен 2020 10:46:41
Проблема непонятна
"Все гениальное просто, а все простое гениально!!!"
 
Перейти    
VBA. Применение макроса ко всем Exel файлам в папке по заданному пути
 
#
3 сен 2020 10:04:03
А причина какая по поводу
Цитата
Vlad_Sm написал:
Application.FileDialog(msoFileDialogFolderPicker), но с моим кодом мне не вышло настроить работу моего файла
?
Покажите код с применением Application.FileDialog(msoFileDialogFolderPicker)
Изменено: Nordheim - 3 сен 2020 10:08:49
"Все гениальное просто, а все простое гениально!!!"
 
Перейти    
Excel VBA Копирование вставка данных из одной папки с файлами в другую папку с файлами
 
#
2 сен 2020 07:22:35
Посмотрите в сторону FileSystemObject
"Все гениальное просто, а все простое гениально!!!"
 
Перейти    
Ссылка на диапазон другого листа по имени указанном в ячейке
 
#
1 сен 2020 10:25:55
Цитата
Сливочный написал: ормула собрала информацию с соответствующего листа книги эксель,
Насколько я знаю, формула так не работает, она не ищет сама листы, возможно Excel скакнул вперед и теперь есть такие формулы, но, как по мне то вам поможет макрос
"Все гениальное просто, а все простое гениально!!!"
 
Перейти    
Ссылка на диапазон другого листа по имени указанном в ячейке
 
#
1 сен 2020 08:47:40
Возможно.
"Все гениальное просто, а все простое гениально!!!"
 
Перейти    
Проблема. Срабатывание события ComboBox1_Change при вызове ComboBox1.Clear, Application.EnableEvents = False не помогает
 
#
21 авг 2020 11:20:49
Kb,j
Цитата
RAN написал:
сей запрет надо прописывать как-то так
Либо так
Код
Private Sub ComboBox1_Change()
       If Len(ComboBox1.Value)>0  Then   MsgBox Me.ComboBox1
End Sub
"Все гениальное просто, а все простое гениально!!!"
 
Перейти    
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 102 След.
Наверх