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

Вход

Регистрация

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

 

= Мир MS Excel/Выбор действий по введенному тексту в ComboBox - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Выбор действий по введенному тексту в ComboBox (Макросы Sub)
Выбор действий по введенному тексту в ComboBox
ac1-caesar Дата: Воскресенье, 28.07.2013, 21:53 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 11
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Доброго всем дня!

Имеются три таблицы, в форме UserForm1 при выборе в окне ComboBox1 - 4L-BIC, 4L-ABI или 4L-ACE должны открываться соответствующие таблицы, после открытия соответствующей таблицы необходимо выбрать значение последней ячейки в столбце 2 и отобразить в окне формы TextBox1.

Подскажите, где неверно? Код не работает.

[vba]
Код
If ComboBox1 = "4L-BIC" Then
     Workbook = Workbooks.Open("\Users\VAIO\Desktop\4L-BIC.xls")
     ScreenUpdating = True
     Else: Exit Sub
      
   If ComboBox1 = "4L-ABI" Then
     Workbook = Workbooks.Open("\Users\VAIO\Desktop\4L-ABI.xls")
     ScreenUpdating = False
     Else: Exit Sub
    
     If ComboBox1 = "4L-ACE" Then
     Workbook = Workbooks.Open("\Users\VAIO\Desktop\4L-ACE.xls")
     ScreenUpdating = False
     Else: Exit Sub
     End If
  End If
End If

Dim iLastRow As Long
     iLastRow = Cells(Rows.Count, 1).End(xlUp).Row
                   
     Me.TextBox1 = Cells(iLastRow, 2)

    Workbook.SAVE.Close
[/vba]
 
Ответить
СообщениеДоброго всем дня!

Имеются три таблицы, в форме UserForm1 при выборе в окне ComboBox1 - 4L-BIC, 4L-ABI или 4L-ACE должны открываться соответствующие таблицы, после открытия соответствующей таблицы необходимо выбрать значение последней ячейки в столбце 2 и отобразить в окне формы TextBox1.

Подскажите, где неверно? Код не работает.

[vba]
Код
If ComboBox1 = "4L-BIC" Then
     Workbook = Workbooks.Open("\Users\VAIO\Desktop\4L-BIC.xls")
     ScreenUpdating = True
     Else: Exit Sub
      
   If ComboBox1 = "4L-ABI" Then
     Workbook = Workbooks.Open("\Users\VAIO\Desktop\4L-ABI.xls")
     ScreenUpdating = False
     Else: Exit Sub
    
     If ComboBox1 = "4L-ACE" Then
     Workbook = Workbooks.Open("\Users\VAIO\Desktop\4L-ACE.xls")
     ScreenUpdating = False
     Else: Exit Sub
     End If
  End If
End If

Dim iLastRow As Long
     iLastRow = Cells(Rows.Count, 1).End(xlUp).Row
                   
     Me.TextBox1 = Cells(iLastRow, 2)

    Workbook.SAVE.Close
[/vba]
Автор - ac1-caesar
Дата добавления - 28.07.2013 в 21:53
Матраскин Дата: Воскресенье, 28.07.2013, 22:19 | Сообщение № 2
Группа: Друзья
Ранг: Обитатель
Сообщений: 375
Репутация: 81 ±
Замечаний: 0% ±

20xx
ac1-caesar, как то if-ы не очень, смотрите как получается :
если combobox1 не равен "4L-BIC" то всё....ваш макрос больше не работает, и не проверяет остальные случаи))) исправляйте ифы на
[vba]
Код
if  then
....
elseIf then
....
elseIf then
...
else
Exit Sub
end if
[/vba]

в интернете опять кто-то не прав

Сообщение отредактировал Матраскин - Воскресенье, 28.07.2013, 22:21
 
Ответить
Сообщениеac1-caesar, как то if-ы не очень, смотрите как получается :
если combobox1 не равен "4L-BIC" то всё....ваш макрос больше не работает, и не проверяет остальные случаи))) исправляйте ифы на
[vba]
Код
if  then
....
elseIf then
....
elseIf then
...
else
Exit Sub
end if
[/vba]
Автор - Матраскин
Дата добавления - 28.07.2013 в 22:19
ac1-caesar Дата: Воскресенье, 28.07.2013, 22:59 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 11
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Понятно, исправил. Но не открывает таблицу по указанному пути и не отображает значение последней ячейки в окне TextBox1 формы UserForm1. Операции с определением, открытием и сохранением книг верны?
 
Ответить
СообщениеПонятно, исправил. Но не открывает таблицу по указанному пути и не отображает значение последней ячейки в окне TextBox1 формы UserForm1. Операции с определением, открытием и сохранением книг верны?
Автор - ac1-caesar
Дата добавления - 28.07.2013 в 22:59
ac1-caesar Дата: Воскресенье, 28.07.2013, 23:47 | Сообщение № 4
Группа: Пользователи
Ранг: Новичок
Сообщений: 11
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
А вообще посмотрите код формы на предмет ошибок.
К сообщению приложен файл: 2.1.xlsm (37.8 Kb)
 
Ответить
СообщениеА вообще посмотрите код формы на предмет ошибок.
Автор - ac1-caesar
Дата добавления - 28.07.2013 в 23:47
Матраскин Дата: Понедельник, 29.07.2013, 01:30 | Сообщение № 5
Группа: Друзья
Ранг: Обитатель
Сообщений: 375
Репутация: 81 ±
Замечаний: 0% ±

20xx
ac1-caesar, пишите полный путь к доку
[vba]
Код
Workbooks.Open ("c:\Users\VAIO\Desktop\4L-BIC.xls")
[/vba]
textbox с именем textbox1 не нашёл....ну нет такого имени...нееет <_<

в интернете опять кто-то не прав

Сообщение отредактировал Матраскин - Понедельник, 29.07.2013, 01:34
 
Ответить
Сообщениеac1-caesar, пишите полный путь к доку
[vba]
Код
Workbooks.Open ("c:\Users\VAIO\Desktop\4L-BIC.xls")
[/vba]
textbox с именем textbox1 не нашёл....ну нет такого имени...нееет <_<
Автор - Матраскин
Дата добавления - 29.07.2013 в 01:30
vikttur Дата: Понедельник, 29.07.2013, 01:49 | Сообщение № 6
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2941
Репутация: 526 ±
Замечаний: 0% ±

ac1-caesar, Вас не напрягает, что помогающие тратят много лишнего времени на Ваш вопрос?
Вы разместили тему не только здесь и помощники знать не знают о том, что, может быть, похожие или идентичные варианты предлагались ранее?
Уважайте других, дайте в темах параллельные ссылки на обсуждения.
 
Ответить
Сообщениеac1-caesar, Вас не напрягает, что помогающие тратят много лишнего времени на Ваш вопрос?
Вы разместили тему не только здесь и помощники знать не знают о том, что, может быть, похожие или идентичные варианты предлагались ранее?
Уважайте других, дайте в темах параллельные ссылки на обсуждения.
Автор - vikttur
Дата добавления - 29.07.2013 в 01:49
Матраскин Дата: Понедельник, 29.07.2013, 02:02 | Сообщение № 7
Группа: Друзья
Ранг: Обитатель
Сообщений: 375
Репутация: 81 ±
Замечаний: 0% ±

20xx
[vba]
Код
Sub REG_No_Change()     
     
       .........

       iLastRow = Workbooks("имя_книги").Worksheets("имя_листа").Cells(Rows.Count, 2).End(xlUp).Row
       Me.Label8 = Workbooks("имя_книги").Worksheets("имя_листа").Cells(iLastRow - 1, 2)
End sub
[/vba]
вот так будет работать ваш лейбл(как в файле), или текстбокс. Надо ему говорить с чем работаете конкретней и нам тоже yes

P.s. ластроу будет пустой, потому делаю -1. Вроде всё... код не смотрел, он не структурирован, никаких тебе отступов и пробелов)) тяжело читать

в интернете опять кто-то не прав

Сообщение отредактировал Матраскин - Понедельник, 29.07.2013, 02:06
 
Ответить
Сообщение[vba]
Код
Sub REG_No_Change()     
     
       .........

       iLastRow = Workbooks("имя_книги").Worksheets("имя_листа").Cells(Rows.Count, 2).End(xlUp).Row
       Me.Label8 = Workbooks("имя_книги").Worksheets("имя_листа").Cells(iLastRow - 1, 2)
End sub
[/vba]
вот так будет работать ваш лейбл(как в файле), или текстбокс. Надо ему говорить с чем работаете конкретней и нам тоже yes

P.s. ластроу будет пустой, потому делаю -1. Вроде всё... код не смотрел, он не структурирован, никаких тебе отступов и пробелов)) тяжело читать
Автор - Матраскин
Дата добавления - 29.07.2013 в 02:02
ac1-caesar Дата: Понедельник, 29.07.2013, 08:26 | Сообщение № 8
Группа: Пользователи
Ранг: Новичок
Сообщений: 11
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Спасибо.
Действительно код построен ужасно за это извиняюсь.
 
Ответить
СообщениеСпасибо.
Действительно код построен ужасно за это извиняюсь.
Автор - ac1-caesar
Дата добавления - 29.07.2013 в 08:26
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Выбор действий по введенному тексту в ComboBox (Макросы Sub)
  • Страница 1 из 1
  • 1
Поиск:

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