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

Вход

Регистрация

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

 

= Мир MS Excel/Вставка статичных данных в свободный столбец - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Вставка статичных данных в свободный столбец (Макросы/Sub)
Вставка статичных данных в свободный столбец
Sasha318 Дата: Воскресенье, 04.02.2018, 20:19 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 23
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Всем привет, помогите пожалуйста!
Подробное задание во вложении.
Требуется вставлять статичные данные с каждым нажатием клавиши в новый столбец.
К сообщению приложен файл: _Microsoft_Exce.xlsx(13.6 Kb)


Сообщение отредактировал Sasha318 - Воскресенье, 04.02.2018, 20:20
 
Ответить
СообщениеВсем привет, помогите пожалуйста!
Подробное задание во вложении.
Требуется вставлять статичные данные с каждым нажатием клавиши в новый столбец.

Автор - Sasha318
Дата добавления - 04.02.2018 в 20:19
Manyasha Дата: Воскресенье, 04.02.2018, 20:51 | Сообщение № 2
Группа: Модераторы
Ранг: Старожил
Сообщений: 2190
Репутация: 889 ±
Замечаний: 0% ±

Excel 2010, 2016
Sasha318, здравствуйте, особо не заморачиваясь, так можно:
[vba]
Код
Sub insertData()
    Dim lc%
    lc = Cells(3, Columns.Count).End(xlToLeft).Column
    Cells(3, lc).Resize(17).AutoFill Destination:=Cells(3, lc).Resize(17, 2), Type:=xlFillDefault
    Cells(3, lc + 1).Offset(1).Resize(16).ClearContents
    
    Cells(4, lc + 1) = [a1].Value
    Cells(8, lc + 1) = [d1].Value / 100
    Cells(9, lc + 1) = [e1].Value / 100
    Cells(10, lc + 1) = [f1].Value / 100
    Cells(11, lc + 1) = [g1].Value / 100
    Cells(12, lc + 1) = [h1].Value / 100
    
    Cells(13, lc + 1) = [a3].Value
    Cells(15, lc + 1) = [d3].Value / 100
    Cells(16, lc + 1) = [e3].Value / 100
    Cells(17, lc + 1) = [f3].Value / 100
    Cells(18, lc + 1) = [g3].Value / 100
    Cells(19, lc + 1) = [h3].Value / 100
End Sub
[/vba]
К сообщению приложен файл: _Microsoft_Exce.xlsm(19.2 Kb)


marinamorozova_box@mail.ru
ЯД: 410013299366744 WM: R193491431804
 
Ответить
СообщениеSasha318, здравствуйте, особо не заморачиваясь, так можно:
[vba]
Код
Sub insertData()
    Dim lc%
    lc = Cells(3, Columns.Count).End(xlToLeft).Column
    Cells(3, lc).Resize(17).AutoFill Destination:=Cells(3, lc).Resize(17, 2), Type:=xlFillDefault
    Cells(3, lc + 1).Offset(1).Resize(16).ClearContents
    
    Cells(4, lc + 1) = [a1].Value
    Cells(8, lc + 1) = [d1].Value / 100
    Cells(9, lc + 1) = [e1].Value / 100
    Cells(10, lc + 1) = [f1].Value / 100
    Cells(11, lc + 1) = [g1].Value / 100
    Cells(12, lc + 1) = [h1].Value / 100
    
    Cells(13, lc + 1) = [a3].Value
    Cells(15, lc + 1) = [d3].Value / 100
    Cells(16, lc + 1) = [e3].Value / 100
    Cells(17, lc + 1) = [f3].Value / 100
    Cells(18, lc + 1) = [g3].Value / 100
    Cells(19, lc + 1) = [h3].Value / 100
End Sub
[/vba]

Автор - Manyasha
Дата добавления - 04.02.2018 в 20:51
Sasha318 Дата: Воскресенье, 04.02.2018, 21:36 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 23
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Manyasha, Класс!! спасибо большое
 
Ответить
СообщениеManyasha, Класс!! спасибо большое

Автор - Sasha318
Дата добавления - 04.02.2018 в 21:36
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Вставка статичных данных в свободный столбец (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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