Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 10.01.2012, 17:30   #21
subluna
Пользователь
 
Регистрация: 08.01.2012
Сообщений: 14
По умолчанию

Может есть кой оператор чтобы массив с заголовком добавить тот который а с остальными записями?
subluna вне форума Ответить с цитированием
Старый 10.01.2012, 17:46   #22
Hugo121
Старожил
 
Регистрация: 11.05.2010
Сообщений: 5,166
По умолчанию

Так можно ещё один селект сократить:

Код:
FD = ActiveSheet.Shapes(Application.Caller).TextFrame.Characters.Text
webmoney: E265281470651 Z422237915069 R418926282008
Hugo121 вне форума Ответить с цитированием
Старый 10.01.2012, 17:56   #23
subluna
Пользователь
 
Регистрация: 08.01.2012
Сообщений: 14
По умолчанию

пасиб!
мне б заголоффки победить..
начальство велело лейблы не лепить а передать значения...
если заголовок а потом массив list'ом передавать то останется чегот одно.
а вот так не определяется
Код:
UserForm2.ListBox1.RowSource = a
subluna вне форума Ответить с цитированием
Старый 10.01.2012, 18:09   #24
Hugo121
Старожил
 
Регистрация: 11.05.2010
Сообщений: 5,166
По умолчанию

В массив кроме как перебором данные не добавишь...
Можно создать пустой массив высотой с количество видимых строк (но их посчитать тоже проблема как оказывается...) и шириной как нужно, потом туда перебором переложить данные, затем его выгрузить в листбокс.
Но это как-то некрасиво...

Выкрутился так, но это тоже через ж... и долго:

Код:
        Dim rr As Range
        Set rr = ActiveSheet.UsedRange.SpecialCells(xlCellTypeVisible)
        With Workbooks.Add(1).Sheets(1)
            rr.Copy .[a1]
            a = .[a1].CurrentRegion.Value
            .Parent.Close False
        End With

        UserForm2.ListBox1.List = a

Ха, так быстро :

Код:
        Dim rr As Range
        Set rr = ActiveSheet.UsedRange.SpecialCells(xlCellTypeVisible)
        With Sheets.Add
            rr.Copy .[a1]
            a = .[a1].CurrentRegion.Value
            Application.DisplayAlerts = False
            .Delete
            Application.DisplayAlerts = True
        End With

        UserForm2.ListBox1.List = a
Но с [A1].CurrentRegion нужно осторожно - не терпит пустых строк/столбцов.
Т.е. это непрерывная область, в которую входит A1.
Если не годится - можно иначе эту область определять.
webmoney: E265281470651 Z422237915069 R418926282008

Последний раз редактировалось Hugo121; 10.01.2012 в 18:21.
Hugo121 вне форума Ответить с цитированием
Старый 10.01.2012, 18:21   #25
subluna
Пользователь
 
Регистрация: 08.01.2012
Сообщений: 14
По умолчанию

СПАС!!! чудный и добрый человек! теперь я могу спать -УРА!!
.. а на свежую голову я попробую сделать передавая в столбцы listBox значения ячеек и прорисовывая их форматы )
СПАСИБИЩЕ тебе, Hugo121!
subluna вне форума Ответить с цитированием
Старый 10.01.2012, 18:30   #26
Hugo121
Старожил
 
Регистрация: 11.05.2010
Сообщений: 5,166
По умолчанию

Вы и впрямь 4 дня с VBA знакомы?
Как то не верится Завидую...
webmoney: E265281470651 Z422237915069 R418926282008
Hugo121 вне форума Ответить с цитированием
Старый 11.01.2012, 02:20   #27
subluna
Пользователь
 
Регистрация: 08.01.2012
Сообщений: 14
По умолчанию

) с VBA да, ну уже не 4 сегодня уже 5!
может посоветуете чего почитать, я вот например так и не переварила каким образом(метод/параметры) можно данные из например активной ячейки передать в ячейку (именно пересечение i-той строки и j-того столбца с изменением формата в ListBox'е.
то что циклом - понятно, но как не строку (AddItem) и не массив (List) а именно ячейку ((
з.ы. Премного благодарна за поддержку и участие ), с уважением, Марина )
subluna вне форума Ответить с цитированием
Старый 11.01.2012, 02:37   #28
IgorGO
Новичок
СтарожилДжуниор
 
Аватар для IgorGO
 
Регистрация: 05.02.2008
Сообщений: 9,487
По умолчанию

.AddItem cells(i,j)
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
IgorGO вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Процедура с параметром MD1 Паскаль, Turbo Pascal, PascalABC.NET 1 29.11.2011 18:25
Процедура с параметром и без параметра admin22 Паскаль, Turbo Pascal, PascalABC.NET 2 27.09.2011 15:44
Процедура с изменяемым параметром Utkin Общие вопросы Delphi 11 30.11.2010 14:41
Процедура с параметром динамическим массивом. VintProg Общие вопросы Delphi 12 11.06.2010 13:12
Ajax - вызывает ошибку в IE kalexi JavaScript, Ajax 2 04.05.2010 17:03