VPF::создание макроса - Форум программистов

sasha11

Дата 28.2.2007, 17:05 (ссылка)

(нет голосов)

Загрузка ...

Новичок

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

Репутация: нет
Всего: нет

помогите создать макрос в ecxel есть форма, на ней три текстБокса, нужно сделать так, чтобы значение первого текстБокса заносилось в ячейку A1, второго в A2 !! а значение третьего текстБокса взять из ячейки A3(значение этой ячейки я задаю в excel'e и если задам значение типа A1+A2 то в текстБоксе будет сумма первого и второго числа),

никогда не делал ничего на excel, нужна помощь !

DimkraS

Дата 28.2.2007, 18:25 (ссылка)

(голосов:1)

Загрузка ...

Шустрый

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

Репутация: нет
Всего: 3

Код


    Dim x As Byte
    Dim y As Byte
    x = TextBox1.Text
    y = TextBox2.Text
    Cells(1, 1) = x
    Cells(1, 2) = y
    TextBox3.Text = Cells(1, 3).Value

--------------------

mihanik

Дата 1.3.2007, 08:21 (ссылка)

(голосов:1)

Загрузка ...

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

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

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

DimkraS!!!

Byte - очень короткий тип данных.
Лучше использовать Double в таких случаях.
Причём!!!
В текстбокс может быть случайно введён текст.

Поэтому предлагаю так.

Код


    Cells(1, 1).Value = Val(TextBox1.Text)

    Cells(1, 2).Value = Val(TextBox2.Text)

    TextBox3.Text = Cells(1, 3).Value

Как-то так.
В этом случае к тому же мы отказываемся от промежуточных переменных.

Это сообщение отредактировал(а) mihanik - 1.3.2007, 08:24

--------------------

Программистами не рождаются, - это родовая травма...

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