Вопрос по ComboBox / Microsoft Office

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Вопрос по ComboBox

7 сообщений из 7, страница 1 из 1

Вопрос по ComboBox

#34794595

Darvins

Участник

Сообщения: 63

Рейтинг: 0 / 0

Всем привет!
По поиску не нашел, так что решил написать.
А вопрос очень простой:
в форме необходимо чтобы combobox брал диапазон с определенного листа, я попробовал прописать, так

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

сие выдает ошибку, подскажите - как правильно прописать...

...

Рейтинг:

0 / 0

12.09.2007, 14:46:11

| Ответить | Цитировать | Написать

Вопрос по ComboBox

#34794634

vkodor

Участник

Откуда: Moscow

Сообщения: 1 809

Рейтинг: 0 / 0

Код: plaintext

ComboBox1.RowSource = Worksheets("Лист1").Name & "!" & Range("A1:A10").Address

...

Рейтинг:

0 / 0

12.09.2007, 14:58:39

| Ответить | Цитировать | Написать

Вопрос по ComboBox

#34794642

Кико

Гость

Смотрите в "Формы в эксел"

...

Рейтинг:

0 / 0

12.09.2007, 15:00:26

| Ответить | Цитировать | Написать

Вопрос по ComboBox

#34795284

Darvins

Участник

Сообщения: 63

Рейтинг: 0 / 0

спс vkodor , работает =)

...

Рейтинг:

0 / 0

12.09.2007, 16:59:11

| Ответить | Цитировать | Написать

Вопрос по ComboBox

#34795411

Darvins

Участник

Сообщения: 63

Рейтинг: 0 / 0

еще хочу спросить, как прописать в коде следующую ситуацию:
предположим есть столбец
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:21:59

| Ответить | Цитировать | Написать

Вопрос по ComboBox

#34795461

vkodor

Участник

Откуда: Moscow

Сообщения: 1 809

Рейтинг: 0 / 0

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

Range("C1:C10").Formula = "=IF(RC[-1]<>"""",RC[-2]*RC[-1],"""")"
Range("C1:C10").Value = Range("C1:C10").Value

...

Рейтинг:

0 / 0

12.09.2007, 17:33:21

| Ответить | Цитировать | Написать

Вопрос по ComboBox

#34796685

Darvins

Участник

Сообщения: 63

Рейтинг: 0 / 0

vkodor спасибо, оба способа работают превосходно, то что нужно )

...

Рейтинг:

0 / 0

13.09.2007, 10:48:08

| Ответить | Цитировать | Написать

7 сообщений из 7, страница 1 из 1

Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Вопрос по ComboBox

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=61&tid=2182290]:	0ms
get settings:	8ms
get forum list:	19ms
check forum access:	4ms
check topic access:	4ms
track hit:	29ms
get topic data:	12ms
get forum data:	3ms
get page messages:	56ms
get tp. blocked users:	2ms
others:	190ms

total:	327ms

	Необходимые cookie
	Cookie для сбора статистики
	Cookie для маркетинга и рекламы