ComboBox - Microsoft Office Excel

tat-besidovska · 01.02.2008, 09:22

Подскажите пожалуйста!
Как вывести поле со списком всех листов в рабочей книге используя ComboBox

SAS888 · 01.02.2008, 09:40

Код:

For i = 1 To ThisWorkbook.Sheets.Count
    ComboBox1.AddItem Sheets(i).Name
Next

tat-besidovska · 01.02.2008, 10:31

Спасибо большое, все работает, а подскажите пожалуйста, можно сделать в VBA сортировку листов по названиям(Например: у меня литсы по названиями-Скважина62,Скважина3),сделать так, чтобы они шли по возрастающей, заранее спасибо

SAS888 · 01.02.2008, 11:13

Посмотрите вложение. Запустите макрос "SortSheets".
Это сортировка листов в книге. Вам это нужно или просто отсортированный список имен листов в ComboBox?

tat-besidovska · 01.02.2008, 12:42

Да, это то , что мне нужно, огромное спасибки

tat-besidovska · 01.02.2008, 12:57

Дико звиняюсь, но возникла такая ситуация,после сортировки листов, вырисовывается такая картина: листы
Скважина27,Скважина311,Скважина41
лист с именем Скв.311 стоит вторым, хотя по возрастанию должен стоять после Скв 41

Что нужно добавить в код, подскажите пожалуйста

slan · 02.02.2008, 11:52

а точнее буквы от цифр - цифры переводить в числа, сортировать, сохраняя соответствие с именами..

SAS888 · 04.02.2008, 05:11

Это обычное дело при простой алфавитной сортировке.
Ваша задача решается в приложенном файле .

tat-besidovska · 04.02.2008, 08:52

Большое спачибо за помощь, все работает

01.02.2008, 09:22	#1
tat-besidovska Пользователь Регистрация: 17.01.2008 Сообщений: 29	ComboBox Подскажите пожалуйста! Как вывести поле со списком всех листов в рабочей книге используя ComboBox

01.02.2008, 09:40	#2
SAS888 Старожил Регистрация: 05.12.2007 Сообщений: 4,180	Код: `For i = 1 To ThisWorkbook.Sheets.Count ComboBox1.AddItem Sheets(i).Name Next` Чем шире угол зрения, тем он тупее.

02.02.2008, 11:52	#7
slan Форумчанин Регистрация: 30.01.2008 Сообщений: 314	отделять мух от котлет а точнее буквы от цифр - цифры переводить в числа, сортировать, сохраняя соответствие с именами..

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
ComboBox	Есет	Помощь студентам	1	27.03.2008 09:10
ComboBox	)Игнат(	Компоненты Delphi	3	19.02.2008 16:59
Combobox	Yana	Помощь студентам	5	23.12.2007 02:16
Combobox и иже с ним	Shawn	Компоненты Delphi	7	13.12.2007 18:15
Не могу внести строку из combobox в combobox!?	tacer	Помощь студентам	1	30.11.2007 19:45

01.02.2008, 10:31	#3
tat-besidovska Пользователь Регистрация: 17.01.2008 Сообщений: 29	Спасибо большое, все работает, а подскажите пожалуйста, можно сделать в VBA сортировку листов по названиям(Например: у меня литсы по названиями-Скважина62,Скважина3),сделать так, чтобы они шли по возрастающей, заранее спасибо

01.02.2008, 12:42	#5
tat-besidovska Пользователь Регистрация: 17.01.2008 Сообщений: 29	Да, это то , что мне нужно, огромное спасибки

01.02.2008, 12:57	#6
tat-besidovska Пользователь Регистрация: 17.01.2008 Сообщений: 29	Дико звиняюсь, но возникла такая ситуация,после сортировки листов, вырисовывается такая картина: листы Скважина27,Скважина311,Скважина41 лист с именем Скв.311 стоит вторым, хотя по возрастанию должен стоять после Скв 41 Что нужно добавить в код, подскажите пожалуйста

04.02.2008, 08:52	#9
tat-besidovska Пользователь Регистрация: 17.01.2008 Сообщений: 29	Большое спачибо за помощь, все работает