IPB
ЛогинПароль:

> Внимание!

1. Пользуйтесь тегами кода. - [code] ... [/code]
2. Точно указывайте язык, название и версию компилятора (интерпретатора).
3. Название темы должно быть информативным.
В описании темы указываем язык!!!

Наладить общение поможет, если вы подпишитесь по почте на новые темы в этом форуме.

 
 Ответить  Открыть новую тему 
> Копирование строк, Visual Basic + Excel
сообщение
Сообщение #1


Пионер
**

Группа: Пользователи
Сообщений: 96
Пол: Мужской
Реальное имя: John

Репутация: -  0  +


Люди кто знает подскажите.

Начиная с 1-ой строки 2-ого столбца, я забиваю текст вниз до строки10. Как сделать, чтобы копировались те строки, у которых 2-ой столбец имеет текст. Эти скопированные строки должны встасляться по порядку(вниз) начиная с 10-ой строки.

Если кому, что не понятно я прикрепил файл с наглядным примером. В Данном случаи копируется только одна строка, а должно 3.
Прикрепленный файл  1.xls ( 29 килобайт ) Кол-во скачиваний: 431
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


-
****

Группа: Пользователи
Сообщений: 480
Пол: Мужской

Репутация: -  4  +


да возьмись ты наконец и прочитай мануал... это ж элементарно
Код
Sub copy_some_shit()

Dim i
Dim j
i = 1
j = 10
While (i < 10)
If Not (Cells(i, 2).Value = "") Then
Cells(j, 2).Value = Cells(i, 2).Value
j = j + 1
End If
i = i + 1
Wend

End Sub


--------------------
бб
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


Пионер
**

Группа: Пользователи
Сообщений: 96
Пол: Мужской
Реальное имя: John

Репутация: -  0  +


Но в данном случае копируется только текст находящийся в ячейке, а не сама ячейка. Вот например если в копируемой ячейке текст будет заключен в рамку, то он скопируется без рамки. А как сделать, чтобы ячейка копировалась полностью (вместе с рамкой)?
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 30.09.2020 7:27
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name