Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Копирование средствами языка VBA - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Копирование средствами языка VBA (Макросы/Sub)
Копирование средствами языка VBA
ikovshar91 Дата: Вторник, 29.12.2020, 10:20 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 2
Репутация: 0 ±
Замечаний: 0% ±

Как в VBA скопировать данные из фиксированных ячеек в указанную строку?

На примере: При нажатии кнопки "Вставить", проверялось дополнительное условие:" Если определенная строчка из столбца (P) не пустая, тогда вставить дату из столбца (Q) и Документ выдачи из столбца V и строка полностью закрасилась зеленым цветом
К сообщению приложен файл: 122344.xlsx(11.2 Kb)


Сообщение отредактировал ikovshar91 - Вторник, 29.12.2020, 10:52
 
Ответить
СообщениеКак в VBA скопировать данные из фиксированных ячеек в указанную строку?

На примере: При нажатии кнопки "Вставить", проверялось дополнительное условие:" Если определенная строчка из столбца (P) не пустая, тогда вставить дату из столбца (Q) и Документ выдачи из столбца V и строка полностью закрасилась зеленым цветом

Автор - ikovshar91
Дата добавления - 29.12.2020 в 10:20
китин Дата: Вторник, 29.12.2020, 10:49 | Сообщение № 2
Группа: Модераторы
Ранг: Экселист
Сообщений: 6402
Репутация: 986 ±
Замечаний: 0% ±

Excel 2007;Excel 2010
ikovshar91, - Прочитайте Правила форума
Особенно п 5g
- использовать при написании постов крупный шрифт (крупнее 12 pt), а так же набирать всё сообщение прописными буквами;
исправляйте


Помогающим просьба воздержаться от ответов в этой теме до исправления замечания
[moder]исправлено[/moder]


Не судите строго:я пытаюсь научиться
ЯД 41001877306852/WM R249698041931; Z239672726538
 
Ответить
Сообщениеikovshar91, - Прочитайте Правила форума
Особенно п 5g
- использовать при написании постов крупный шрифт (крупнее 12 pt), а так же набирать всё сообщение прописными буквами;
исправляйте


Помогающим просьба воздержаться от ответов в этой теме до исправления замечания
[moder]исправлено[/moder]

Автор - китин
Дата добавления - 29.12.2020 в 10:49
ikovshar91 Дата: Вторник, 29.12.2020, 10:53 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 2
Репутация: 0 ±
Замечаний: 0% ±

Исправил


Сообщение отредактировал ikovshar91 - Вторник, 29.12.2020, 10:54
 
Ответить
СообщениеИсправил

Автор - ikovshar91
Дата добавления - 29.12.2020 в 10:53
topgun88 Дата: Вторник, 29.12.2020, 13:47 | Сообщение № 4
Группа: Пользователи
Ранг: Новичок
Сообщений: 22
Репутация: 1 ±
Замечаний: 0% ±

Excel 2010
по описанию не понял что в принципе должно вставиться откуда и куда
 
Ответить
Сообщениепо описанию не понял что в принципе должно вставиться откуда и куда

Автор - topgun88
Дата добавления - 29.12.2020 в 13:47
_Igor_61 Дата: Среда, 30.12.2020, 00:16 | Сообщение № 5
Группа: Проверенные
Ранг: Обитатель
Сообщений: 376
Репутация: 76 ±
Замечаний: 0% ±

Excel 2007
Если дата и документ должны вставляться из "Q1" и "V1" то можно так:
[vba]
Код
Sub qqq()
    Dim r&
For r = 2 To Cells(Rows.Count, 1).End(xlUp).Row
If Cells(r, 16) <> "" Then
    Cells(r, 17) = Cells(1, 17)
    Cells(r, 22) = Cells(1, 22)
    Range(Cells(r, 1), Cells(r, 22)).Interior.Color = 5287936
End If
Next r
End Sub
[/vba]
К сообщению приложен файл: ikovshar91.xlsm(20.5 Kb)
 
Ответить
СообщениеЕсли дата и документ должны вставляться из "Q1" и "V1" то можно так:
[vba]
Код
Sub qqq()
    Dim r&
For r = 2 To Cells(Rows.Count, 1).End(xlUp).Row
If Cells(r, 16) <> "" Then
    Cells(r, 17) = Cells(1, 17)
    Cells(r, 22) = Cells(1, 22)
    Range(Cells(r, 1), Cells(r, 22)).Interior.Color = 5287936
End If
Next r
End Sub
[/vba]

Автор - _Igor_61
Дата добавления - 30.12.2020 в 00:16
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Копирование средствами языка VBA (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс цитирования Jobsora jooble
© 2010-2021 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!