|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
30.06.2010, 21:20 | #1 |
Форумчанин
Регистрация: 13.06.2009
Сообщений: 691
|
Вставить и удалить значения, в диапазоне ячеек.
Здравствуйте.
Подскажите как на основание условия (в примере) вставить выбранное значение UserForm4.ComboBox2 в ячейки, начиная с Cells(i, 30) и до тридцать одной ячейки включительно, и удалить значения диапазонов в ячейках, начиная с Cells(i, 30) и с Cells(i, 31)и до тридцать одной ячейки вниз включительно? |
30.06.2010, 22:11 | #2 |
Форумчанин
Регистрация: 13.06.2009
Сообщений: 691
|
Как удалить разобрался
Код:
|
01.07.2010, 05:41 | #3 |
Старожил
Регистрация: 05.12.2007
Сообщений: 4,180
|
А в чем вопрос? Какая разница, что вставлять: пустое значение
Код:
Код:
Чем шире угол зрения, тем он тупее.
|
01.07.2010, 09:36 | #4 |
Форумчанин
Регистрация: 13.06.2009
Сообщений: 691
|
Я так пробовал
Код:
|
01.07.2010, 10:28 | #5 |
Форумчанин
Регистрация: 13.06.2009
Сообщений: 691
|
Разобрался, условие немного было не правильным.
только вот при выполнение кода (вставка числовых значений) .Cells(i, 30).Resize(31).Value = UserForm4.ComboBox2 числовые значения формируются в текстовые, value не помогает, функция преобразования CInt переменной в значение, строки CInt (UserForm4.ComboBox2) , тоже не помогает. Как преобразовать в числовое значение? |
01.07.2010, 10:35 | #6 |
Старожил
Регистрация: 05.12.2007
Сообщений: 4,180
|
Попробуйте после вставки значений выполнить код:
Код:
Чем шире угол зрения, тем он тупее.
|
01.07.2010, 10:36 | #7 |
Старожил
Регистрация: 11.05.2010
Сообщений: 5,166
|
Попробуйте так (без примера не проверял):
.Cells(i, 30).Resize(31).NumberFormat = "0.00" .Cells(i, 30).Resize(31).Value = UserForm4.ComboBox2
webmoney: E265281470651 Z422237915069 R418926282008
|
01.07.2010, 10:59 | #8 |
Форумчанин
Регистрация: 13.06.2009
Сообщений: 691
|
Попробовал оба кода
У SAS888 целые числа формируются в числовые, а с десятичными знаками через запятую нет... У Hugo121 без изменений… |
02.07.2010, 04:40 | #9 | |
Старожил
Регистрация: 05.12.2007
Сообщений: 4,180
|
Цитата:
Код:
Чем шире угол зрения, тем он тупее.
|
|
02.07.2010, 11:20 | #10 |
Форумчанин
Регистрация: 13.06.2009
Сообщений: 691
|
Здравствуйте, применил функцию CSng
Код:
А так вроде работает нормально… |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Удалить не нужные строки в диапазоне | valerij | Microsoft Office Excel | 8 | 06.03.2010 23:21 |
как разделить значения ячеек по формату ячеек? | ARIRAN | Microsoft Office Excel | 6 | 11.12.2009 15:30 |
Вставка группы пустых ячеек в выбранном диапазоне | slba | Microsoft Office Excel | 4 | 30.10.2009 08:48 |
Заливка автофигуры и значения ячеек | Иванов_ДМ | Microsoft Office Excel | 9 | 23.09.2009 11:22 |
Как вставить одинаковое примечание к группе ячеек? | Kona | Microsoft Office Excel | 3 | 30.10.2008 12:40 |