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

Страницы: 1
Ошибка EXCEL при открытии формы, Ошибка EXCEL при вызове формы из запароленного проекта...
 
#
21.06.2017 10:48:18
Доброго всем дня! Вчера столкнулся с такой проблемой - при вызове формы из запароленного проекта в книге вылетает EXCEL... Сама книга с проектом открывается и работает нормально, форма тоже запускается, НО только если зайти в разработчик/VBA и ввести пароль для просмотра содержимого проекта VBA. Снятие пароля, сохранение и повторное открытие без пароля проблему не решают. Форму с кодом (пароль уже не ставил) копировал в другую книгу - открывается без проблем. Видимо загвоздка в доступе к форме в запароленный проект (даже если пароль в последствии снят). И еще - с книгой работают многие компьютеры по сети - у всех разом возникла эта проблема, даже при открытии той версии книги с формой (резервной копии), в которой ранее она открывалась без проблем. Кто сталкивался?
Изменено: Гена Рыбалкин - 21.06.2017 10:51:27
 
Перейти    
действие при клике происходит 3 раза..., В "Private Sub ListBox_click ()" действие A = A + ListBox.value происходит 3 раза!!!
 
#
06.04.2015 16:05:27
Есть переменная А. Задана в модуле книги через Public A As String.

Есть одна из вспомогательных форм с кодом:
Код
Private Sub ListBox_Click()
    If A = "" Then
        A = "Значение А: " & ListBox.Value
    Else
        A = A + ListBox.Value
    End If
    MAINFORM.TextBoxMAIN.Value = A 'В другую форму выводится "собирательное" значение из ListBox
End Sub

Допустим А=1, при клике выводится "111", или "Значение А: 111". Из-за чего такое получается? Как-то с таким сталкивался, но решилось само собой...
 
Перейти    
Автоматическое выделение данных в ListBox по признаку, Полученный в ListBox список чего-либо нужно как-то разделить по признаку...
 
#
12.03.2015 16:51:35
Добрый день форумчане)) Никак не могу реализовать оставшуюся часть своего проекта. Суть довольно проста. Допустим есть источник данных для ListBox на листе в книге (1 столбец - яблоки, груши,....; 2 столбец - фрукты, овощи... т.е. определение что есть что.) В ListBox попадает только 1 столбец (в моем проекте 2 столбец выводить не надо). Нужно как-то выделить данные в ListBox (яблоки, груши, томат...) в зависимости от того, чем они являются во втором столбце. Например, все фрукты в ListBox жирным шрифтом (яблоки, груши...), а все овощи (томаты, картофель и прочее) курсивом... ну либо цветами. Как прописать цвет и прочее я знаю, а как заставить определить ListBox что есть что согласно столбцу 2 - не знаю... Помогите)))

Поиск, информации подкинул, но по делу ничего не нашел...
 
Перейти    
поиск по символам и подсветка найденого (VBA)
 
#
18.09.2013 20:44:01
Здравствуйте. Помогите пожалуйста: нужно в неком списке найти все значения, в которых встречается искомый символ (или символы, если поиск по нескольким символам) и подсветить их. Частично реализовал, опираясь на существующие темы, но найти сумел не все... Подсветка я так понимаю идет с помощью оператора Mid, но вот рикрутить его так и не получилось. Файлик с творчеством креплю)
Изменено: Гена Рыбалкин - 18.09.2013 20:44:27
 
Перейти    
Подправить код ListBox
 
#
22.01.2013 20:37:53
Уважаемые корифеи написания програмного кода)
Есть диапазон:
1 апельсин
2 груша
3 яблоко
4 апельсин
....и т.д. (2 столбца)

Есть следующий код поиска в диапазоне (брал с форума. Но где, до сих пор найти не могу):

Код
Private Sub ОКНО_ПОИСКА_Change()
Call Find_Value(ОКНО_ПОИСКА.Value & "*", Range("ДИАПАЗОН"))
End Sub

-начинаем вводить текст в окно поиска, выполняется следующее:

Код
End SubPrivate Sub Find_Value(sValue As String, rFindRange As Range)
If sValue = "*" Then ListBox1.Clear:  Exit Sub
Dim rFndRng As Range
Dim sAddress As String
Set rFndRng = rFindRange.Find(what:=sValue, LookIn:=xlValues, lookat:=xlWhole)
If rFndRng Is Nothing Then Exit Sub
ListBox1.Clear
sAddress = rFndRng.Address
Do
ListBox1.AddItem rFndRng
Set rFndRng = rFindRange.FindNext(rFndRng)
Loop While sAddress <> rFndRng.Address
End Sub

-поиск с выводом искомого значения в ListBox1

Код
Private Sub ListBox1_Click()
On Error Resume Next
[a1] = Range("ДИАПАЗОН").Find(what:=ListBox1.Value, LookIn:=xlValues, lookat:=xlWhole).Value

-при клике на найденые данные, в [a1] выводится найденое значение из ListBox1

НАДО: чтобы в [a1] выводился № найденого значения из диапазона. Например - (rFndRng.Offset(0,-1).Value). Куда добавить этот сдвиг? Пытался создать 2 столбца в ListBox1 (во втором коде после DO), первому присвоить (rFndRng.Offset(0,-1).Value) с шириной 0 чтоб не отображался, во втором (rFndRng). Тогда Private Sub ListBox1_Click наверное бы сработал...
Но очень туго с синтаксисом - не вышло... Помогите

P.S. - простите, если дублирую тему)

P.S.2 - в диапазоне бывают одинаковые значения в 2 столбце, поэтому строго нужен их номер из 1 столбца диапазона в ячеку [a1].
 
Перейти    
Изменение цвета кнопки на форме, в зависимости от значения ячейки на листе
 
#
14.01.2013 14:31:59
Доброго всем времени суток. Уважаемые форумчане, помогите немного с задачей. Задача такая: есть кнопка, цвет которой меняется в зависимости от значения ячейки на листе. Если кнопка расположена на листе, я знаю как это сделать (кстати благодаря вашему форуму), а если она на форме? Пытался делать через Private Sub UserForm_load, initialize, activate... Но видимо что-то не так прописываю... Скорректируйте пример, если кто-то знает. Заранее спасибо!
 
Перейти    
Страницы: 1
Наверх