ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Диапазон данных ячеек, не получается сформировать
8 сообщений из 8, страница 1 из 1
Диапазон данных ячеек, не получается сформировать
    #34195607
AnatolyOil
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AnatolyOil
Гость
Добрый день. Вот такая проблема:
На листе есть кнопка-список значений "Drop Down 7". Сделано, чтобы можно было выбирать только заранее внесенные значения. Список значений формируется по диапазону ячеек. Первоначально вручную, но затем есть необходимость изменить его макросом.
Вот так, к примеру:

Sheets("Sheet1").Select
ActiveSheet.Shapes(Drop Down 7).Select
With Selection
.ListFillRange = "SPR!$C$5:$C$11" ' работает
' .ListFillRange = Range(Cells(RowFirst, ColFirst), Cells(RowLast, ColFirst)) ' не работает
End With

У меня есть номера столбцов и строк, формирующих диапазон. Это переменные RowFirst, ColFirst, RowLast, ColFirst. Как правильно заполнить параметр ListFillRange? Учитывая еще и имя листа (SPR).
Прошу, помогите плз.
...
Рейтинг: 0 / 0
13.12.2006, 10:42:35
| Ответить | Цитировать | Написать  
Диапазон данных ячеек, не получается сформировать
    #34195650
vbapro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vbapro
Участник
Код: plaintext
1.
2.
3.
ListFillRange = "SPR!$" & ColumnNumberToLetters(ColFirst) _
            & "$" & RowFirst _
            & ":$" & ColumnNumberToLetters(ColLast) _
            & "$" & RowLast


Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
Function ColumnNumberToLetters(ColumnNumber As Long) As String
Dim lngMOD As Long
Dim lngDIV As Double
Dim Character1 As String
Dim Character2 As String
Const LettersInAlphabet =  26 
    lngMOD = ColumnNumber Mod (LettersInAlphabet)
    If lngMOD =  0  Then lngMOD =  26 
    
    lngDIV = Round((ColumnNumber - lngMOD) / LettersInAlphabet)
    
    Character1 = Chr(Asc("A") + lngMOD -  1 )
    
    If lngDIV =  0  Then
        Character2 = ""
    Else
        Character2 = Chr(Asc("A") + lngDIV -  1 )
    End If
    
    ColumnNumberToLetters = Character2 & Character1
        
End Function
...
Рейтинг: 0 / 0
13.12.2006, 10:58:54
| Ответить | Цитировать | Написать  
Диапазон данных ячеек, не получается сформировать
    #34195852
AnatolyOil
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AnatolyOil
Гость
Работает, спасибо. Только это обходной путь, как я понял - формирование диапазона "вручную" и перевод номеров в буквы. Но все равно - благодарю!
...
Рейтинг: 0 / 0
13.12.2006, 11:35:43
| Ответить | Цитировать | Написать  
Диапазон данных ячеек, не получается сформировать
    #34195939
vbapro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vbapro
Участник
в каком смысле обходной? а как нужно?
...
Рейтинг: 0 / 0
13.12.2006, 11:51:57
| Ответить | Цитировать | Написать  
Диапазон данных ячеек, не получается сформировать
    #34196007
AnatolyOil
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AnatolyOil
Гость
Я подозревал, что есть способ с использованием встроенного функционала EXCEL. Ведь в вашем примере вы (точнее мы) вручную формируем, "склеиваем" диапазон из переменных, используем дополнительную самостоятельную функцию. Громоздко. Хотелось бы что-то типа моей неработающей строки - компактно и понятно.
...
Рейтинг: 0 / 0
13.12.2006, 12:04:05
| Ответить | Цитировать | Написать  
Диапазон данных ячеек, не получается сформировать
    #34196208
vkodor
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vkodor
Участник
AnatolyOilДобрый день. Вот такая проблема:
На листе есть кнопка-список значений "Drop Down 7". Сделано, чтобы можно было выбирать только заранее внесенные значения. Список значений формируется по диапазону ячеек. Первоначально вручную, но затем есть необходимость изменить его макросом.
Вот так, к примеру:

Sheets("Sheet1").Select
ActiveSheet.Shapes(Drop Down 7).Select
With Selection
.ListFillRange = "SPR!$C$5:$C$11" ' работает
' .ListFillRange = Range(Cells(RowFirst, ColFirst), Cells(RowLast, ColFirst)) ' не работает
End With

У меня есть номера столбцов и строк, формирующих диапазон. Это переменные RowFirst, ColFirst, RowLast, ColFirst. Как правильно заполнить параметр ListFillRange? Учитывая еще и имя листа (SPR).
Прошу, помогите плз.
просто в ListFillRange передается текстовая строка, поэтому достаточно
Код: plaintext
       .ListFillRange = Range(Cells(RowFirst, ColFirst), Cells(RowLast, ColFirst)).Address
...
Рейтинг: 0 / 0
13.12.2006, 12:54:56
| Ответить | Цитировать | Написать  
Диапазон данных ячеек, не получается сформировать
    #34196234
Zaratus
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Zaratus
Гость
Код: plaintext
1.
2.
3.
4.
With ActiveSheet
    .Shapes("Drop Down 7").ControlFormat.ListFillRange = "'" & .Name & "'!" & _
        .Range(.Cells(RowFirst, ColFirst), .Cells(RowLast, ColFirst)).Address
End With
...
Рейтинг: 0 / 0
13.12.2006, 12:59:51
| Ответить | Цитировать | Написать  
Диапазон данных ячеек, не получается сформировать
    #34196287
AnatolyOil
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AnatolyOil
Гость
.Range(.Cells(RowFirst, ColFirst), .Cells(RowLast, ColFirst)).Address

Вот! Вот этого я и хотел! Не нашел св-ва Address . Работает. Спасибо!
...
Рейтинг: 0 / 0
13.12.2006, 13:10:53
| Ответить | Цитировать | Написать  
8 сообщений из 8, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Диапазон данных ячеек, не получается сформировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&msg=34195650&tid=2183765]:
 0ms
get settings:
 8ms
get forum list:
 13ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 31ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 39ms
get tp. blocked users:
 1ms
others: 228ms
total:  335ms
созд. / загр.: 335ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]