Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Пользователи » skx
Выбрать дату в календаре…Выбрать дату в календаре

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

    UserForm1.Show
    
End Sub
Изменено: skx - 15.05.2019 21:14:21
 
Перейти    
Ошибка Run-time error 13 - VBA при сверке ListBox1.Value с именем листа
 
#
15.05.2019 21:07:29
Цитата
vikttur написал:
Me.ListBox1.Value - есть такой лист?
Да, создан ListBox1. Попробуйте нажать на синий кружок в файле. Всё это началось после выставление настроек в Properties: ListStyle = 1 , MultiSelect = 1
 
Перейти    
Ошибка Run-time error 13 - VBA при сверке ListBox1.Value с именем листа
 
#
15.05.2019 21:01:24
выдает что в этой строчке проблема
Код
        Sheets(Me.ListBox1.Value).Unprotect Password:="jaki"
 
Перейти    
Ошибка Run-time error 13 - VBA при сверке ListBox1.Value с именем листа
 
#
15.05.2019 20:49:51
Здраствуйте, помогите разобраться. В коде выдаёт ошибку:  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
 
Перейти    
Сумирование данных в таблице по категориям, Запись данных в таблицу
 
#
05.03.2019 12:09:02
Спасибо Огромное!  
 
Перейти    
Сумирование данных в таблице по категориям, Запись данных в таблицу
 
#
05.03.2019 11:55:54
Добрый день,

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