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

Страницы: 1
Ошибка Run-time error 13 - VBA при сверке ListBox1.Value с именем листа
 
Цитата
vikttur написал:
Вы, случаем, не из квартирных джентельменов? Ключик есть, авось к какой-нибудь двери да подойдет? )
))) наверное точно подмеченно. В любом случае, я старался переписать скрипт с дополнением, из этого ничего -  невышло. Спасибо всё равно за потраченное ваше время
Ошибка Run-time error 13 - VBA при сверке ListBox1.Value с именем листа
 
Цитата
vikttur написал: зачем при проверке пароля ОДНОГО листа MultiSelect = 1?
Я хотел чтобы из списка можно было выбрать 2-а значения)) в результате получил возможность выделять т.е ставить галочки, но после этого появилась ошибка Run-Time Error '13'.  
Ошибка Run-time error 13 - VBA при сверке ListBox1.Value с именем листа
 
:D  :D  :D На самом деле я послал файл с Кнопкой, а её почему то нету. Ну вообщем есть UserForm1
Изменено: skx - 15 Май 2019 21:23:33
Ошибка Run-time error 13 - VBA при сверке ListBox1.Value с именем листа
 
Вызовите форму
Код
Sub ShowForm()

    UserForm1.Show
    
End Sub
Изменено: skx - 15 Май 2019 21:14:21
Ошибка Run-time error 13 - VBA при сверке ListBox1.Value с именем листа
 
Цитата
vikttur написал:
Me.ListBox1.Value - есть такой лист?
Да, создан ListBox1. Попробуйте нажать на синий кружок в файле. Всё это началось после выставление настроек в Properties: ListStyle = 1 , MultiSelect = 1
Ошибка Run-time error 13 - VBA при сверке ListBox1.Value с именем листа
 
выдает что в этой строчке проблема
Код
        Sheets(Me.ListBox1.Value).Unprotect Password:="jaki"
Ошибка Run-time error 13 - VBA при сверке ListBox1.Value с именем листа
 
Здраствуйте, помогите разобраться. В коде выдаёт ошибку:  Run-time error 13.
Код
Private Sub CommandButton1_Click()
Dim Pass As String
    Pass = InputBox(Prompt:="Введите пароль:", Title:="Проверка на благонадежность")
    If Pass = "" Then MsgBox "Вы не ввели пароль", 48, "Попробуйте ещё раз!": Exit Sub
    If Pass = "123" Then
        Sheets(Me.ListBox1.Value).Unprotect Password:="123"
        Sheets(Me.ListBox1.Value).Visible = -1
        Sheets(Me.ListBox1.Value).Activate
        Unload Me
    Else
        MsgBox "Ваш пароль не подходит, попробуйте ещё раз!", 48, "Ошибка"
        Exit Sub
    End If
End Sub


Private Sub UserForm_Initialize()
Dim i As Long
    For i = 1 To Sheets.Count - 1
        With Me.ListBox1
            .AddItem Sheets(i).Name
        End With
    Next
End Sub
Сумирование данных в таблице по категориям, Запись данных в таблицу
 
Спасибо Огромное!  
Сумирование данных в таблице по категориям, Запись данных в таблицу
 
Добрый день,

Я нашел в Интернете макрос VBA, который хочу задействовать в своём личном Бюджети, но в этом макросе он только добавляет наименования и сумму. А мне хотелось бы, чтобы при повторных наименованиях, предположим "Продукты". -  Сумма суммировались, а не добавлялись в новую строку. Как это сделать? Я совсем новичок.) Спасибо зарание за ответы!  
Изменено: skx - 5 Мар 2019 11:56:10
Страницы: 1
Наверх