Форум программистов, компьютерный форум, киберфорум
Наши страницы

VBA

Войти
Регистрация
Восстановить пароль
 
Darkdog
0 / 0 / 0
Регистрация: 12.02.2010
Сообщений: 15
#1

Другое окно Excel не получает фокус - VBA

16.12.2011, 14:47. Просмотров 1099. Ответов 5
Метки нет (Все метки)

В файле "Обработка.xls" - макрос
В ячейке задается имя книги "Продажи рубли"
Присваивается переменной Variant: FK = Cells(2, 3).Value
сам файл "продажи рубли.xls" - открыт
активируем файл: Windows(FK).Activate
Выдает ошибку - Cannot jump to "windows" becouse it is hidden
Подскажите в чем загвоздка?
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
16.12.2011, 14:47
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Другое окно Excel не получает фокус (VBA):

Перейти в другое окно средствами VBA - VBA
Здравствуйте, уважаемые форумчане * * Имеется макрос вызова списка имен всех открытых окон Excel для перехода в другое окно. Но есть...

Фокус на форме рабочего листа Excel - VBA
Подскажите, кто знает, как программно передать фокус в ComboBox, например, на форме рабочего листа в Excel? Заранее СПАСИБО!

Как передать фокус с элемента управления на Excel-лист - VBA
На Excel-листе есть ActiveX-комбобокс. Как можно передать фокус Excel-листу после выбора элемента в комбобоксе? Я пробовал...

Можно ли с помощью макроса в Excel закрыть текущий открытый проект? (и другое) - VBA
Можно ли с помощью макроса в Excel: 1)Закрыть текущий открытый проект (без вывода сообщенияо сохранении) 2)Запретить редактирование...

VBA Excel: окно вывода с вариантами ответа - VBA
Нужно создать в экселе макросах окно вывода с вариантами ответа на вопрос (например как часто Вы посещаете ресторан?) Пытаюсь и вообще...

Можно ли из макроса минимизировать-максимизировать окно Excel? - VBA
Привет всем. Можно ли из макроса минимизировать-максимизировать окно Excel ? Можно ли из макроса передать сообщение другому окну...

5
Казанский
13829 / 5592 / 1415
Регистрация: 24.09.2011
Сообщений: 8,775
16.12.2011, 15:07 #2
FK - с ".xls" в конце?
Попробуйте Workbooks(FK).Activate
0
Darkdog
0 / 0 / 0
Регистрация: 12.02.2010
Сообщений: 15
16.12.2011, 15:15  [ТС] #3
Вот кусок кода - чтоб можно было оценить.
Добавка ".xls" не помагает
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
' FK - ïðîäГ*æè êîðîáГ*, FR - ïðîäГ*æè ðóáëè,  F - Г§Г*Г*ГҐГ±ГҐГ*ГЁГҐ ïðîäГ*Г¦
 
    F = ThisWorkbook.Name 'продажи 
    Sheets("Г„Г*Г*Г*ûå").Select
    FR = Cells(3, 3).Value ' продажи руб
    FK = Cells(2, 3).Value ' продажи кор
 
 ' Подсчет ТП
 
    y = 2
    Do While Cells(y, 1).Value <> ""
     y = y + 1
    Loop
     yk = y - 1
     
' Проверка точности занесения в отчет
 
    For D = 2 To yk
    Windows(F).Activate
    Sheets("Данные").Select
    Г’ГЏ1 = Cells(D, 1).Value
    Windows(FK".XLS").Activate
    Sheets("Сигареты").Select
    s = 10
     Do While Cells(s, 4).Value <> "ГЉГЋГЌГ…Г–"
      s = s + 1
     Loop
      sk = s - 1
     For r = 10 To sk
      If Cells(r, 4).Value = Г’ГЏ1 Then
       GoTo H
      End If
      If r = sk Then
      Г’ГҐГЄГ±ГІ = "Г”Г*ìèëèÿ Г’ГЏ " & Г’ГЏ1 & " Г§Г*Г*ГҐГ±ГҐГ*Г* Г± îøèáêîé èëè îòñóòñòâóåò. ÏåðåГ*îñ Г¤Г*Г*Г*ûõ ïðèîñòГ*Г*îâëåГ*."
       MsgBox Г’ГҐГЄГ±ГІ, vbCritical, "ГЋГёГЁГЎГЄГ*"
       GoTo E
      End If
     Next
0
kuklp
1701 / 188 / 19
Регистрация: 20.11.2011
Сообщений: 281
16.12.2011, 17:54 #4
Cannot jump to "windows" becouse it is hidden - перевод: Не могу перейти к окну, поскольку оно скрыто. Оно у Вас точно не скрыто? Меню-окно-отобразить.
0
Darkdog
0 / 0 / 0
Регистрация: 12.02.2010
Сообщений: 15
16.12.2011, 17:56  [ТС] #5
точно. Оно просто свернуто. ну да с этим разобрались... Спасибо
0
Skipper
101 / 31 / 1
Регистрация: 08.05.2009
Сообщений: 338
09.04.2012, 13:38 #6
Цитата Сообщение от Darkdog Посмотреть сообщение
Windows(FK".XLS").Activate
Windows(FK & ".xls").activate
должно быть так
0
09.04.2012, 13:38
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
09.04.2012, 13:38
Привет! Вот еще темы с ответами:

Всплывающее окно при открытии файла Excel - VBA
Подскажите, пожалуйста, как настроить всплывающее окно. Пробовал два варианта: 1) всплывающее окно при использование формы, окно...

Развернуть свернутое окно Excel (открытое через OLE) - VBA
Открываю извне файл Excel через OLE: XlApp.Workbooks.Open(FileName); XlWrkBk := XlApp.ActiveWorkbook; XlApp.Visible(TRUE); ...

Расположить окно книги Excel поверх других окон - VBA
Здравствуйте! При выполнении следующей последовательности действий с помощью кода vb6: 1. Открытие формы 2. При нажатии определенной...

При закрытиии пользовательской формы закрывать окно Excel - VBA
Как сделать отслеживание


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
6
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru