Excel это не сложно
Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.
16.04.2024, 04:39:07

Войти
На форуме добавлена возможность подписки на RSS-ленты любого раздела форума. Подписаться можно, нажав на иконку RSS , расположенную левее наименования раздела.
33 240 Сообщений в 5 456 Тем от 6 755 Пользователей
Последний пользователь: Marsel
*
Перейти на сайт Хитрости Надстройка MulTEx Обучающие тренинги Наша группа ВКонтакте
Правила форума Начало Помощь Поиск Календарь Войти Регистрация Выйти
  Просмотр сообщений
Страниц: [1] 2 3 ... 30
1  Основные форумы / Вопросы по Excel и VBA / Re:Нумерация строк кода VBA и функция vba.Erl (строка ошибки в коде) : 13.01.2021, 10:58:56
Дело еще было возможно в пробелах
Достаточно часто встречается при копировании кода, например, с Планеты.
Поэтому, если строка вдруг покраснела, первым делом нужно удалить все, что там есть "типа пробел", в начале строки.
2  Основные форумы / Вопросы по Excel и VBA / Re:Перебор контролов на листе и работа с формой пользователя : 20.04.2020, 17:41:23
Убить на это вечер
Ну ты и загнул.  Улыбка
Просто создать - минут пять. Выровнять еще  10, и правильно переименовать час.
3  Основные форумы / Вопросы по Excel и VBA / Re:Перебор контролов на листе и работа с формой пользователя : 17.04.2020, 18:31:28
Примерно так
Код: (vb)
Sub ww()
ActiveSheet.OLEObjects("CheckBox1").Object.Value = Not ActiveSheet.OLEObjects("CheckBox1").Object.Value
End Sub

4  Основные форумы / Вопросы по Excel и VBA / Re:Как пробросить сначала данные в форму Visual Basic, а после обратно с изменениям : 23.11.2019, 20:13:02
мне нужно понять принцип и далее я сам
Мне дали такой код
Но не понимаю
И пример "например"
"Он ел ?? палочку с чаем...
И чем человек думает...?"
5  Основные форумы / Вопросы по Excel и VBA / Re:как отвязать макрос от имени файла? : 23.08.2019, 10:53:04
Мне почему-то кажется, что весь макрос должен выглядеть так
Код: (vb)
Sub ImportReport()
    Workbooks.Open Filename:=Application.GetOpenFilename
    ActiveWorkbook.Worksheets("Планирование").Range("A1:XA1000").Copy ThisWorkbook.Worksheets("Планирование").Range("A1")
    ActiveWorkbook.Close False
End Sub

6  Основные форумы / Вопросы по Excel и VBA / Re:Сбор данных в колонку с ограничением по значению : 04.07.2019, 22:28:07
Благодетель!  :D
Нет, чтобы так написать
Кто заинтересуется задачей вышлю файл с
мешком денег.
7  Основные форумы / Вопросы по Excel и VBA / Re:Использование одного макроса для обработки всех ошибок : 30.05.2019, 19:35:42
Можно, наверно. Только боюсь, что вы дольше пары часов работу этого макроса не выдержите, ибо количество возникших проблем, по сравнению с плюсами, это даже не слон и моська, а амеба и кит.
8  Основные форумы / Вопросы по Excel и VBA / Re:Возможно ли компактное решение задачи с различными вариантами ввода : 30.05.2019, 09:38:51
Есть и другой.
Да, можно, делайте.
9  Основные форумы / Вопросы по Excel и VBA / Re:код VBA для удержания формы видимой в пределах Excel : 29.04.2019, 20:23:04
Ваша версия Excel открывает каждый файл в новом экземпляре приложения. При переходе из файла в файл форма никуда не исчезает, а остается в том экземпляре, из которого была вызвана. Сделайте окна на часть экрана, и все увидите наглядно.
В Excel 2010, который открывает все файлы в одном экземпляре, переключиться между файлами просто не получится.
10  Основные форумы / Вопросы по Excel и VBA / Re:Смещение страниц и как итог наложение текста на другие страницы : 31.01.2019, 18:21:51
тут
11  Основные форумы / Вопросы по Excel и VBA / Re:Макрос для замены строго определенного слова в тексте диапазона ячеек : 13.11.2018, 21:20:59
в том числе и про порядок расположения слов в списке соответствий
унитаз китайский золотой
Не нашли?
унитаз китайский
Не нашли?
унитаз
Что, и этого нет?
12  Основные форумы / Вопросы по Access и VBA / Re:Гиперссылка в Access : 31.10.2018, 16:09:52
Сам спросил, сам отвечаю.  Улыбка
Разыскал видео, которое все расставило по местам.
В результате получилось через AODB
Код: (vb)
    ctrSQL = "SELECT Таблица1.[Код], Таблица1.[hypl] FROM Таблица1"
    pRSet.Open ctrSQL, pCon, adOpenStatic, adLockOptimistic
        pCon.BeginTrans
    With pRSet
        Do While Not .EOF
            If IsNull(.Fields(1).Value) Then

                sSavePath = ThisWorkbook.Path & "\" & CStr(.Fields(0).Value)

                If Dir(sSavePath, vbDirectory) = "" Then
                    MkDir (sSavePath)
                End If

                DoEvents
                .Fields(1).Value = CStr(.Fields(0).Value) & "#" & sSavePath & "#"
                Debug.Print , .Fields(0), .Fields(1)
            End If
            .MoveNext
        Loop
    End With
13  Основные форумы / Вопросы по Access и VBA / Гиперссылка в Access : 31.10.2018, 14:24:04
Мяу!
Никак не могу разобраться с добавлением гиперссылки.
Нужно после добавления данных в таблицу проставить в поле "hypl" (тип - гиперссылка), гиперссылку на основе поля "код" (счетчик).
Т.е переписать для Access
Код: (vb)
Sub hypl()
Dim cl As Range
    With Range("Таблица1").ListObject
        For Each cl In .ListColumns("hypl").DataBodyRange
         ActiveSheet.Hyperlinks.Add cl, "D:\1tmp\" & CStr(cl.Offset(, -3).Value), TextToDisplay:=CStr(cl.Offset(, -3).Value)
        Next
    End With
End Sub
14  Основные форумы / Вопросы по Excel и VBA / Re:Отображение аргументов пользовательской функции VBA в Excel : 30.10.2018, 20:55:11
Дим, это из MyAddin?
15  Основные форумы / Вопросы по Excel и VBA / Re:Открыть файла из листа используя UserForm : 26.10.2018, 21:20:35
boa, спасибо, не полез
помогите, пожалуйста, доработать обработку событий:
Пожалуйста
Код: (vb)
Sub Открыть()
    Call MyMacros
    ThisWorkbook.Close False
End Sub

Sub Скачать()
    With Application.FileDialog(msoFileDialogSaveAs)
        If .Show Then
            ThisWorkbook.SaveAs (.SelectedItems(1))
            Call MyMacros
            ThisWorkbook.Close False
        End If
    End With
End Sub

Sub MyMacros()
' 1. код для извлечения PDF из xls* (и сохранания на диск?)
' 2. код для открытия PDF в приложении по умолчании ( или нужном)
End Sub

Страниц: [1] 2 3 ... 30
Powered by MySQL Powered by PHP Powered by SMF 1.1.21 | SMF © 2006-2011, Simple Machines Valid XHTML 1.0! Valid CSS!
Яндекс.Метрика Рейтинг@Mail.ru