Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Вопрос по ComboBox / 7 сообщений из 7, страница 1 из 1
12.09.2007, 14:46:11
    #34794595
Darvins
Darvins
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вопрос по ComboBox
Всем привет!
По поиску не нашел, так что решил написать.
А вопрос очень простой:
в форме необходимо чтобы combobox брал диапазон с определенного листа, я попробовал прописать, так

Private Sub UserForm_Initialize()
ComboBox.RowSource=Worksheets("Лист1").Range("A1:A10")

сие выдает ошибку, подскажите - как правильно прописать...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.09.2007, 14:58:39
    #34794634
vkodor
vkodor
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вопрос по ComboBox
Код: plaintext
ComboBox1.RowSource = Worksheets("Лист1").Name & "!" & Range("A1:A10").Address
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.09.2007, 15:00:26
    #34794642
Кико
Кико
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вопрос по ComboBox
Смотрите в "Формы в эксел"
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.09.2007, 16:59:11
    #34795284
Darvins
Darvins
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вопрос по ComboBox
спс vkodor , работает =)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.09.2007, 17:21:59
    #34795411
Darvins
Darvins
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вопрос по ComboBox
еще хочу спросить, как прописать в коде следующую ситуацию:
предположим есть столбец
A-имеются какие-то данные,
B-пустой,
C-а вот в него должно вписываться значение (например, В1*А1), если В1 было внесено значение, иначе пустая
я пробовал прописать так

If Range("B1:B10")<>0 then
Range("C1:C10").formulaLocal="=B1*A1" 'в данном случае я ставлю формулу, в иделе хотелось чтобы в ячейке появлялось результат данной формулы
Else
Range("C1:C10").Value=null
End If
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.09.2007, 17:33:21
    #34795461
vkodor
vkodor
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вопрос по ComboBox
Darvinsеще хочу спросить, как прописать в коде следующую ситуацию:
предположим есть столбец
A-имеются какие-то данные,
B-пустой,
C-а вот в него должно вписываться значение (например, В1*А1), если В1 было внесено значение, иначе пустая
я пробовал прописать так

If Range("B1:B10")<>0 then
Range("C1:C10").formulaLocal="=B1*A1" 'в данном случае я ставлю формулу, в иделе хотелось чтобы в ячейке появлялось результат данной формулы
Else
Range("C1:C10").Value=null
End If
Пользуйся тегом SRC, плиз.

Здесь два способа
1. либо пробег по ячейкам
Код: plaintext
1.
2.
3.
4.
     For i =  1  To  10 
        If Range("B" & i) <>  0  Then
            Range("C" & i) = Range("B" & i) * Range("A" & i)
        End If
     Next
2. либо вставляем формулу, а затем её убираем оставляя только значения.
Код: plaintext
1.
Range("C1:C10").Formula = "=IF(RC[-1]<>"""",RC[-2]*RC[-1],"""")"
Range("C1:C10").Value = Range("C1:C10").Value
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.09.2007, 10:48:08
    #34796685
Darvins
Darvins
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вопрос по ComboBox
vkodor спасибо, оба способа работают превосходно, то что нужно )
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Вопрос по ComboBox / 7 сообщений из 7, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 338ms
Закрыть
start [/forum/topic.php?fid=61&mobile=1&tid=2182290]:
 0ms
get settings:
 9ms
get forum list:
 11ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 40ms
get topic data:
 6ms
get forum data:
 2ms
get page messages:
 32ms
get tp. blocked users:
 1ms
others: 231ms
total:  338ms
x
x
Закрыть


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