|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
17.05.2011, 22:45 | #1 |
Пользователь
Регистрация: 29.03.2011
Сообщений: 15
|
работа с userform
Помогите закончить программу, чтобы она выводила таблицу когда работает программа
|
18.05.2011, 17:23 | #2 |
Пользователь
Регистрация: 29.03.2011
Сообщений: 15
|
Private Sub Us_Initialize()
Com.AddItem "городской" Com.AddItem "междугородний" Com.AddItem "международный" End Sub Private Sub Co_Сlick() Dim n As Integer Worksheets(1).Activate Range("a1").Select n = ActiveCell.CurrentRegion.Rows.Count With Worksheets(1) .Cells(n + 1, 1).Value = T.Value .Cells(n + 1, 2).Value = Te.Value .Cells(n + 1, 3).Value = Com.Value .Cells(n + 1, 4).Value = Tex.Value .Cells(n + 1, 5).Value = Text.Value If O.Value Then .Cells(n + 1, 6).Value = "В кредит" End If If Op.Value Then .Cells(n + 1, 6).Value = "По тарифу" End If End With End Sub Посмотрите чего не хватает в программе, чтобы текст сорхранялся в таблице? |
18.05.2011, 17:58 | #3 |
Старожил
Регистрация: 11.05.2010
Сообщений: 5,166
|
Чуть подправил.
А чтоб заработало - название изменил Код:
webmoney: E265281470651 Z422237915069 R418926282008
|
18.05.2011, 18:12 | #4 |
Пользователь
Регистрация: 29.03.2011
Сообщений: 15
|
спасибо большое))
|
18.05.2011, 18:16 | #5 |
Старожил
Регистрация: 11.05.2010
Сообщений: 5,166
|
Забыл - n нужно As Long, иначе после 32767 будет ошибка.
webmoney: E265281470651 Z422237915069 R418926282008
Последний раз редактировалось Hugo121; 18.05.2011 в 18:19. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
работа с userform | Garf | Помощь студентам | 1 | 17.05.2011 21:07 |
VBA Userform | Garf | Помощь студентам | 0 | 10.04.2011 21:36 |
userform | alegl | Помощь студентам | 1 | 16.12.2010 00:58 |
UserForm | i777 | Microsoft Office Excel | 2 | 17.11.2010 02:04 |
2 вопроса по UserForm | tolikman | Microsoft Office Excel | 4 | 25.11.2008 22:50 |