Модераторы: mihanik
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> VBA в Excel, запись в ячейки таблицы 
:(
    Опции темы
aleksandrfnsv1
Дата 14.12.2008, 15:57 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 84
Регистрация: 5.4.2008

Репутация: нет
Всего: нет
Пожалуйста помогите мне, у меня возникла проблема с Excel и VBA, я хочу вводить данные через форму, но при этом чтобы каждая запись записывалась с следующую ячейку, но не получается, т. е. чтобы сначала записалось в A2,  потом в А3 и т.д.
вот код 
Код

Private Sub CommandButton1_Click()
Dim a As String
Dim b As Integer

Dim massiv(2 To 100) As String
Const c = 100

With Application.Workbooks.Item("Êí.xls")
        Worksheets("Êîíòðàãåíòû").Activate
        For b = 2 To 100
        Range("A(b)") = TextBox1.Text
        Next b
        
End With
ошибка в этом
End Sub


Range("A(b)") = TextBox1.Text

Код
PM MAIL   Вверх
mihanik
Дата 14.12.2008, 18:19 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


-=Белый Медведь=-
****


Профиль
Группа: Комодератор
Сообщений: 4054
Регистрация: 24.4.2006
Где: г. Тверь

Репутация: 9
Всего: 109
Я бы использовал не Range, а Cell

Кроме того!!!
Перед тем, как копировать код из Ехеля переключайся на русский алфавит.
ТОгда не будет крякозябров в листинге при вставке кода в форму на сайте...



--------------------
Программистами не рождаются, - это родовая травма...
user posted imageuser posted image
PM MAIL WWW ICQ   Вверх
aleksandrfnsv1
Дата 14.12.2008, 18:48 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 84
Регистрация: 5.4.2008

Репутация: нет
Всего: нет
Я пробовал использовать Cells, тоже самое. Проблема заключается в том что я во все сто ячеек заношу одно и тоже, а мне нужно, чтобы в А1 одно, в А2 другое в А3 третье и тд.
PM MAIL   Вверх
mihanik
Дата 14.12.2008, 20:29 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


-=Белый Медведь=-
****


Профиль
Группа: Комодератор
Сообщений: 4054
Регистрация: 24.4.2006
Где: г. Тверь

Репутация: 9
Всего: 109
Мил человек!!!

Надо использовать не "A(b)", а "A("&cstr(b)&")" !!!




--------------------
Программистами не рождаются, - это родовая травма...
user posted imageuser posted image
PM MAIL WWW ICQ   Вверх
aleksandrfnsv1
Дата 14.12.2008, 20:56 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 84
Регистрация: 5.4.2008

Репутация: нет
Всего: нет
 нет так не катит ругается вот так
Код

run-time error '404'

object required
PM MAIL   Вверх
mihanik
Дата 14.12.2008, 21:22 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


-=Белый Медведь=-
****


Профиль
Группа: Комодератор
Сообщений: 4054
Регистрация: 24.4.2006
Где: г. Тверь

Репутация: 9
Всего: 109
Вот пример...

Код

Sub Кнопка1_Щелчок()

    Dim X, Y As Integer
    X = 2
    For Y = 2 To 10
        Worksheets(1).Cells(Y, X).Value = InputBox("Значение:", , 2)
    Next Y

End Sub



--------------------
Программистами не рождаются, - это родовая травма...
user posted imageuser posted image
PM MAIL WWW ICQ   Вверх
ТоляМБА
Дата 14.12.2008, 21:30 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Котэ
***


Профиль
Группа: Завсегдатай
Сообщений: 1607
Регистрация: 15.12.2004

Репутация: нет
Всего: 252
Код
Dim i As Integer
For i = 2 To 10
    Range("A" & i) = i
Next


ы? У меня работет smile
PM   Вверх
mihanik
Дата 14.12.2008, 21:38 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


-=Белый Медведь=-
****


Профиль
Группа: Комодератор
Сообщений: 4054
Регистрация: 24.4.2006
Где: г. Тверь

Репутация: 9
Всего: 109
ТоляМБА, а я про что?!

Всё должно работать!!!

Только я range не люблю... Поэтому делаю с Cells


--------------------
Программистами не рождаются, - это родовая травма...
user posted imageuser posted image
PM MAIL WWW ICQ   Вверх
Каточимото
Дата 15.12.2008, 13:12 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 6
Регистрация: 15.12.2008
Где: Попасная

Репутация: нет
Всего: нет
Пробуй так:
Код

...
    Dim NextRow As Long
'   Определение следующей пустой строки
    NextRow = Application.WorksheetFunction.CountA(Range("A:A")) + 1

'   Передача имени
    Cells(NextRow, 1) = TextBox1.Text
    Cells(NextRow, 2) = TextBox2.Text
    Cells(NextRow, 3) = TextBox3.Text
...
PM MAIL ICQ   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Программирование, связанное с MS Office"
mihanik staruha

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами


  • Несанкционированная реклама на форуме запрещена
  • Пожалуйста, давайте своим темам осмысленный, информативный заголовок. Вопль "Помогите!" таковым не является.
  • Чем полнее и яснее Вы изложите проблему, тем быстрее мы её решим.
  • Оставляйте свои записи в "Книге отзывов о работе администрации"
  • А вот тут лежит FAQ нашего подраздела

Если Вам понравилась атмосфера форума, заходите к нам чаще!
С уважением mihanik и staruha.

 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Программирование, связанное с MS Office | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.2062 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.