Ввод данных в ячейки макросом

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Ввод данных в ячейки макросом (Макросы Sub)

alexandr_fors

Дата: Суббота, 02.11.2013, 15:29 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 11

Репутация: 0 ±

Замечаний: 0% ±

Excel 2007

Добрый вечер господа.
Вот встретился с такой проблемой, с макросами со всем разобрался, а вот как сделать правильно не знаю.Может кто-то подскажет.
Смотрите вот это условия задачи:
Створити макрос, який передбачає ввести прізвище студента і вивести його в комірки з А1 по А20.

Вот как сделал я в макросе:
[vba]

Код

Sub Фамилия()
'
' Фамилия Макрос
' Макрос записан 02.11.2013 (Portable)
'
' Сочетание клавиш: Ctrl+й
'
ActiveCell.FormulaR1C1 = "Иванов"
End Sub

[/vba]

Но это же только на один столб, а как что бы с А1 по А20 , я пробывал много, но что-то не получается, ошибки выдаёт.
Подскажите в чем проблема?
Спасибо...

Ответить

doober

Дата: Суббота, 02.11.2013, 15:40 | Сообщение № 2

Группа: Друзья

Ранг: Ветеран

Сообщений: 947

Репутация: 323 ±

Замечаний: 0% ±

Excel 2010

Цитата

я пробывал много

Где они?
[vba]

Код

Dim Комiрка As Integer
For Комiрка = 1 To 20
Range("A" & Комiрка) = InputBox("Введите ФИО студента", "Ввод фамилий")
Next

[/vba]

Ответить

AndreTM

Дата: Суббота, 02.11.2013, 15:42 | Сообщение № 3

Группа: Друзья

Ранг: Старожил

Сообщений: 1762

Репутация: 500 ±

Замечаний: 0% ±

2003 & 2010

О, великий и могучий окраинный язык! Ты заповедовал нам сначала спросить о имени, а затем удвадцатить это Имя! Исполним желание твое:
[vba]

Код

sub InAndStore()
      Имя = InputBox("А введите-ка вы заповеданное имя:")
      if Имя=""  then exit sub
      ActiveSheet.[a1:a20] = Имя
      MsgBox "И заповедовал я значения для региону A1:A20 - " & Имя
end sub

[/vba]

Skype: andre.tm.007
Donate: Qiwi: 9517375010

Сообщение отредактировал AndreTM - Суббота, 02.11.2013, 15:47

Ответить

alexandr_fors

Дата: Суббота, 02.11.2013, 16:01 | Сообщение № 4

Группа: Пользователи

Ранг: Новичок

Сообщений: 11

Репутация: 0 ±

Замечаний: 0% ±

Excel 2007

Я не знаю...
Вот попробывал ваше вставить, все равно что-то не то

Ответить

alexandr_fors

Дата: Суббота, 02.11.2013, 16:07 | Сообщение № 5

Группа: Пользователи

Ранг: Новичок

Сообщений: 11

Репутация: 0 ±

Замечаний: 0% ±

Excel 2007

Sub Макрос1()
'
' Макрос1 Макрос
' Макрос записан 02.11.2013 (Portable)
'
' Сочетание клавиш: Ctrl+й
'
ActiveCell.FormulaR1C1 = "Имя"
Имя = InputBox("А введите-ка вы заповеданное имя:")
If Имя = "" Then Exit Sub
ActiveSheet.[a1:a20] = Имя

MsgBox "И заповедовал я значения для региону A1:A20 - " & Имя

ActiveCell.FormulaR1C1 = "Имя"
End Sub
Range("A9").Select

Ответить

alexandr_fors

Дата: Суббота, 02.11.2013, 16:18 | Сообщение № 6

Группа: Пользователи

Ранг: Новичок

Сообщений: 11

Репутация: 0 ±

Замечаний: 0% ±

Excel 2007

ооооо)))
Спасибо вам всем большое !!!
Все получилось, просто клавиша почему-то не работала(та и не работает) а через панель попробовал, все работает !!!
СПАСИБО !!!

Ответить

SkyPro

Дата: Суббота, 02.11.2013, 16:33 | Сообщение № 7

Группа: Друзья

Ранг: Старожил

Сообщений: 1206

Репутация: 255 ±

Замечаний: 0% ±

2010

[offtop]комiрка

Не знав що в нас це так називають..

skypro1111@gmail.com

Ответить

AndreTM

Дата: Суббота, 02.11.2013, 17:39 | Сообщение № 8

Группа: Друзья

Ранг: Старожил

Сообщений: 1762

Репутация: 500 ±

Замечаний: 0% ±

2003 & 2010

SkyPro, ну так: комiрка. Насколько я понимаю - это аналог русского "коморка"/"каморка". То бишь ячейка.
Али вы не киевлянин? Али не владеете в полной мере языком?

Впрочем, язык общения отношения к вопросу не имеет - а я так вообще в ответе просто немного прикололся (надеюсь, извините мну?) yes