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

Страницы: 1
Есть ли ограничения данных по которым может искать функция Find?
 
#
03.12.2013 12:37:52
Добрый день коллеги!
Возник вопрос с функции .find
Есть ли ограничения данных по которым может искать функция ?
Просто была ситуация у коллеги.
Он использовал данные и сказал что после того как его база превысила 20 000 записей стала выдавать не корректные данные
      То есть говорит что значения не найдено в базе, а оно там есть.
Может кто сталкивался с таким или знает, а то пишу сейчас большую программу с большой базой и вот думаю стоит ли делать через .find.

Заранее спасибо!
 
Перейти    
VBA Excel в большой таблице найти все указанные значения, Как если найти далее или найти все
 
#
08.10.2013 08:26:13
Добрый день коллеги!

Есть большая база по обучению в EXCEL
в ней содержится ФИО человека, номер группы, название курса, город, дата.
Каждый учащийся может обучать вначале одному курсу потом пойти на другой и т.д. То есть один и тот же человек может пройти от 1 до нескольких курсов.

Задача найти все эти значения. Например я ввожу его ФИО и он мне в listbox Добавляет все варианты а я уже из них выбираю конкретные данные.

Как найденные добавить в листбох и потом вывести данные я знаю. Вопрос именно в самом поиске всех этих данных. Перебирать каждое значение через for i не хотелось бы. Может быть есть другой способ ???

Думали сделать через .find и после нахождения изменять диапазон поиска и продолжать искать. Но вдруг есть человеческий вариант :)


Заранее спасибо!!!
 
Перейти    
UserForm ListBox (Убрать из списка не нужное), Убрать из списка не нужное
 
#
04.10.2013 14:08:06
Добрый день!
Есть listbox На UserForm
в нем есть некий список названий.
И я пытаюсь сделать кнопку которая бы удаляла определенные названия из этого списка.
LIstStyle стоит option и Multiselect
сам ListBox работает корректно.. не пашет сама кнопка....
GroupTre это и есть мой listbox
вот код
Код
Dim i%
If Not GroupTre.ListIndex = -1 Then
    For i = 0 To GroupTre.ListCount - 1
       If GroupTre.Selected(i) Then
          GroupTre(i).RemoveItem
       End If
    Next i
End If

Проверьте что я не так делаю )
Спасибо!
Изменено: Niarah - 04.10.2013 19:33:24
 
Перейти    
VBA Вопрос Userform увеличение количество строк ввода
 
#
02.10.2013 12:13:16
Добрый день коллеги!

Пытаюсь запрограммировать на эксель базу под тренинги (прошедшие текущие и предстоящие)

в итоге делаю форму для назначения нового тренинга.
НО изначально мы не знаем сколько может быть кандидатов на обучения
от 1 до 30 макс (как утверждает босс)
в итоге назрел вопрос..

Сделать форму с мултитабом и сразу впихнуть туда 30 строчек под ФИО Статус и набранный бал

Либо зародилась идея..
создать одну строчку для ввода ФИО и указания статуса и т.д. а далее сделать кнопку "Добавить"
которая бы расширяла юзер форму и добавляла новую строчку для заполнения. присваивая ей уникальное имя
Ну и если число строк превышает разумное создавал новую закладку и начинал добавлять туда.

В общем вопрос...
возможно такое.. или лучше не париться и с делать по первому варианту )
я просто так никогда не делал... не знаю на сколько это сложно.
 
Перейти    
Вопрос ошибки VBA ComboBOX
 
#
01.08.2013 12:04:24
Добрый день коллеги!
Ситуация делаю UserForm где есть выпадающий список с названиями
использую combobox
в него мне нужно добавить список из листа

Написал вот такой код.....
Выдает ошибку Compile error: Expected array
и выделяет Redim preserve rngY(1
если rngY меняю на Вариант
то выделяет ее же и пишет Type mismatch
В общем не могу понять что не так делаю
Код
Private Sub DolgnosList_DropButtonClick()
Dim colDolgnost As New Collection
Dim i%, k%
Dim rngY As String
Dim intROW As Integer

intROW = Worksheets("Должность".Cells(Rows.Count, 1).End(xlUp).Row
Do
i = i + 1
ReDim Preserve rngY(1 To intROW - 1)
rngY(i) = Worksheets("Должность".Cells(i + 1, 1)
Loop Until rngY(i) = intROW - 1

For k = 1 To i - 1
DolgnosList.AddItem rngY(k)
Next k
End Sub
 
Перейти    
Кадровый резерв и Развитие персонала, Создание единой базы по сотрудникам и их обучению
 
#
31.07.2013 13:15:38
И так суть.
МЫ в нашей организации открывает центр обучения. и развития персонала.
Нам нужен эксель файл в котором будет лист сотрудников лист руководителей лист должностей лист тренингов
и далее они с друг другом будут взаимодействовать.

Все должно работать через ЮзерФорму.

Например Лист Сотрудники
Иванов Иван Иванович 01.01.1980 работает с 01.01.2012 прошел тренинги 1 и 2 и 3 и 4 и 5 хочет занять позицию руководителя
и т.д.



1) Нужна база в которой будет содержаться список сотрудников
ФИО
Дата Рождение
Дата Устройства на работу
Руководитель
Тренер
2) Список этих самых Тренеров с их возможностями (какие тренинги они могут преподавать)
3) Список этих самых тренингов (их названия количество часов которые требуется обучению)
4) список Руководителей (люди которые отвечают за сотрудников)

5) Еще список должностей (или позиции которые могут достичь сотрудники) там Специалист Руководитель и т.д. (и к ним прикреплен список тренингов который необходимо пройти для получения возможности занять данную позицию.

6) и наконец мастер выгрузки.
Где можно будет выгрузить по операторам по тренингам или должностям.

Чтобы мы могли посмотреть кто на кого обучился кто готов занять данные позиции и т.д.

У меня идея все сделать через уникальные коды (как в Акссессе) но времени не хватает...
Я один и это не основная моя деятельность... а этот проект уже просят закрыть...

Поэтому и хочу узнать если ли люди готовые взять за такую работу...
и сколько такой проект будет стоить...

Платить как говориться буду из своего кармана )
Объясняю может не совсем внятно... готов еще подробнее обсудить и ответить на вопросы...
очень интересует цена. Может быть ее не потяну просто ) и тогда смирюсь и буду делать сам )
 
Перейти    
VBA: Найти выбранный элемент на листе и удалить всю строку
 
#
12.07.2013 16:09:38
И снова Здравствуйте !!!

И так суть.

У меня на листе есть список..
Который выводится в ListBox где пользователь может выделить ключевые слова
Далее при нажатии кнопки "Удалить"
программа находит это ключевое слово в списке и удаляет всю строку
берет следующее выделенное слово и делает тоже самое.

Ни как не могу понять как обратиться к первому выделенному объекту listbox
listbox.selection(i)
толку не дает..
Пытался сделать через переменную range
засунуть вначале в переменную диапазон ячеек а потом в них попытаться найти selection тоже глухо.

Помогите пожалуйста!

Заранее спасибо!
 
Перейти    
Вывод данных в ТекстБокс на UserForm
 
#
11.07.2013 11:32:51
Добрый день коллеги
Только недавно начал изучать VBA Excel и пытаюсь саморазвиваться путем практики.

суть вопроса.
У меня есть UserForm в которой есть TextBox
мне нужно чтобы в нем выводился текст который содержится в ячейке

Чтобы вам было проще понять я делаю программу для тестирования.
на листе2 в диапозоне А1 - А10 есть список вопросов мне нужно чтобы они по очереди выводились в ТекстБоксе.
Сейчас у меня код такой
Код
Dim i%, intRow%

with worksheets("Лист1")
intRow = .Cells(Rows.Count, 1).End(xlUp).Row 'Подсчитываю сколько всего вопросов в диапозоне

for i = 1 to intRow
   Userform.Textbox.value = cells(i,1).value
next i

Самый у меня главный вопрос как задавать значение Value или Text в TextBox
какой командой...
у нас тут все самоучки ) и ни кто не знает как это делать )

P.S.
пока что я не ввел тригер для продолжения и понимаю что в данном случае оно должно быстро перебрать весь список вопросов в текст боксе я допишу чтобы он продолжать считать i только когда нажмешь кнопку (например "Next")



Огромная благодарность!
 
Перейти    
Страницы: 1
Наверх