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

Вход

Регистрация

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

 

= Мир MS Excel/Документ Excel поверх других окон - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Документ Excel поверх других окон
Pulse Дата: Воскресенье, 27.11.2011, 11:25 | Сообщение № 1
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 213
Репутация: 16 ±
Замечаний: 0% ±

2013
Можно ли сделать так, чтобы книга Excel была всегда поверх окон других программ? Если да, то как?
 
Ответить
СообщениеМожно ли сделать так, чтобы книга Excel была всегда поверх окон других программ? Если да, то как?

Автор - Pulse
Дата добавления - 27.11.2011 в 11:25
Serge_007 Дата: Воскресенье, 27.11.2011, 11:33 | Сообщение № 2
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация: 2749 ±
Замечаний: ±

Excel 2016
Это как и для чего?


ЮMoney:41001419691823 | WMR:126292472390
 
Ответить
СообщениеЭто как и для чего?

Автор - Serge_007
Дата добавления - 27.11.2011 в 11:33
Pulse Дата: Воскресенье, 27.11.2011, 11:39 | Сообщение № 3
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 213
Репутация: 16 ±
Замечаний: 0% ±

2013
Serge_007, например когда копируешь данные из Excel по ячейкам в Word то приходится часто переключаться между окнами, и не сразу находишь то месту куда нужно вставить скопированное. А если бы при переключении на окно Word, Excel не пропадал, то было бы легче. Т.е нужно сделать так, чтобы при активном окне другой программы, окно Excel тоже оставалось активным.
 
Ответить
СообщениеSerge_007, например когда копируешь данные из Excel по ячейкам в Word то приходится часто переключаться между окнами, и не сразу находишь то месту куда нужно вставить скопированное. А если бы при переключении на окно Word, Excel не пропадал, то было бы легче. Т.е нужно сделать так, чтобы при активном окне другой программы, окно Excel тоже оставалось активным.

Автор - Pulse
Дата добавления - 27.11.2011 в 11:39
Serge_007 Дата: Воскресенье, 27.11.2011, 11:47 | Сообщение № 4
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация: 2749 ±
Замечаний: ±

Excel 2016
[vba]
Код
Option Explicit

Declare Function SetWindowPos Lib "user32" _
    (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, _
    ByVal X As Long, ByVal Y As Long, ByVal cx As Long, _
    ByVal cy As Long, ByVal uFlags As Long) As Long

Private Declare Function FindWindow Lib "user32" _
      Alias "FindWindowA" (ByVal lpClassName As String, _
      ByVal lpWindowName As String) As Long

Const HWND_TOPMOST = -1
Const HWND_NOTOPMOST = -2

Sub AlwaysOnTop()

    Dim hwnd As Long
    Dim res As Long

    hwnd = FindWindow("XLMAIN", vbNullString)
    res = SetWindowPos(hwnd, HWND_TOPMOST, 0, 0, 0, 0, vbNull)

End Sub

Sub NotAlwaysOnTop()

    Dim hwnd As Long
    Dim res As Long

    hwnd = FindWindow("XLMAIN", vbNullString)
    res = SetWindowPos(hwnd, HWND_NOTOPMOST, 0, 0, 0, 0, vbNull)

End Sub
[/vba]


ЮMoney:41001419691823 | WMR:126292472390
 
Ответить
Сообщение[vba]
Код
Option Explicit

Declare Function SetWindowPos Lib "user32" _
    (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, _
    ByVal X As Long, ByVal Y As Long, ByVal cx As Long, _
    ByVal cy As Long, ByVal uFlags As Long) As Long

Private Declare Function FindWindow Lib "user32" _
      Alias "FindWindowA" (ByVal lpClassName As String, _
      ByVal lpWindowName As String) As Long

Const HWND_TOPMOST = -1
Const HWND_NOTOPMOST = -2

Sub AlwaysOnTop()

    Dim hwnd As Long
    Dim res As Long

    hwnd = FindWindow("XLMAIN", vbNullString)
    res = SetWindowPos(hwnd, HWND_TOPMOST, 0, 0, 0, 0, vbNull)

End Sub

Sub NotAlwaysOnTop()

    Dim hwnd As Long
    Dim res As Long

    hwnd = FindWindow("XLMAIN", vbNullString)
    res = SetWindowPos(hwnd, HWND_NOTOPMOST, 0, 0, 0, 0, vbNull)

End Sub
[/vba]

Автор - Serge_007
Дата добавления - 27.11.2011 в 11:47
Pulse Дата: Воскресенье, 27.11.2011, 12:02 | Сообщение № 5
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 213
Репутация: 16 ±
Замечаний: 0% ±

2013
Вот это скорость! Работает. Спасибо! А как отключить? smile


Сообщение отредактировал Pulse - Воскресенье, 27.11.2011, 12:20
 
Ответить
СообщениеВот это скорость! Работает. Спасибо! А как отключить? smile

Автор - Pulse
Дата добавления - 27.11.2011 в 12:02
_Boroda_ Дата: Воскресенье, 27.11.2011, 12:04 | Сообщение № 6
Группа: Админы
Ранг: Местный житель
Сообщений: 16705
Репутация: 6499 ±
Замечаний: ±

2003; 2007; 2010; 2013 RUS
Quote (Pulse)
например когда копируешь данные из Excel по ячейкам в Word то приходится часто переключаться между окнами, и не сразу находишь то месту куда нужно вставить скопированное. А если бы при переключении на окно Word, Excel не пропадал, то было бы легче. Т.е нужно сделать так, чтобы при активном окне другой программы, окно Excel тоже оставалось активным.


Я обычно в таких случаях просто ставлю их рядомСм. картинку.
(Обязательно почитайте текст, который в Ворде. Вам понравится. К сожалению, не моё)
К сообщению приложен файл: 0622113.jpg (41.2 Kb)


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
Сообщение
Quote (Pulse)
например когда копируешь данные из Excel по ячейкам в Word то приходится часто переключаться между окнами, и не сразу находишь то месту куда нужно вставить скопированное. А если бы при переключении на окно Word, Excel не пропадал, то было бы легче. Т.е нужно сделать так, чтобы при активном окне другой программы, окно Excel тоже оставалось активным.


Я обычно в таких случаях просто ставлю их рядомСм. картинку.
(Обязательно почитайте текст, который в Ворде. Вам понравится. К сожалению, не моё)

Автор - _Boroda_
Дата добавления - 27.11.2011 в 12:04
Pulse Дата: Воскресенье, 27.11.2011, 12:14 | Сообщение № 7
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 213
Репутация: 16 ±
Замечаний: 0% ±

2013
_Boroda_, тоже хороший способ. Сейчас попробовал, тоже работает. biggrin Правда аэро зараза так и норовит развернуть окно... Спасибо!
Quote (_Boroda_)
(Обязательно почитайте текст, который в Ворде. Вам понравится. К сожалению, не моё)

А меня недавно это заинтересовало.

Ссылку убил
Правила форума
...
5. На данном форуме запрещено:
...
k - выкладывать ссылки на другие ресурсы, если они напрямую не связаны с обсуждаемой проблемой и не содержат её решения;

_Boroda_


Сообщение отредактировал Pulse - Воскресенье, 27.11.2011, 12:21
 
Ответить
Сообщение_Boroda_, тоже хороший способ. Сейчас попробовал, тоже работает. biggrin Правда аэро зараза так и норовит развернуть окно... Спасибо!
Quote (_Boroda_)
(Обязательно почитайте текст, который в Ворде. Вам понравится. К сожалению, не моё)

А меня недавно это заинтересовало.

Ссылку убил
Правила форума
...
5. На данном форуме запрещено:
...
k - выкладывать ссылки на другие ресурсы, если они напрямую не связаны с обсуждаемой проблемой и не содержат её решения;

_Boroda_

Автор - Pulse
Дата добавления - 27.11.2011 в 12:14
Serge_007 Дата: Воскресенье, 27.11.2011, 12:21 | Сообщение № 8
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация: 2749 ±
Замечаний: ±

Excel 2016
Quote (Pulse)
А как отключить?

Ctrl+пробел (Space)


ЮMoney:41001419691823 | WMR:126292472390
 
Ответить
Сообщение
Quote (Pulse)
А как отключить?

Ctrl+пробел (Space)

Автор - Serge_007
Дата добавления - 27.11.2011 в 12:21
Саня Дата: Воскресенье, 27.11.2011, 13:01 | Сообщение № 9
Группа: Друзья
Ранг: Ветеран
Сообщений: 1068
Репутация: 560 ±
Замечаний: 0% ±

XL 2016
пользуюсь для таких целей прогой:
К сообщению приложен файл: DeskPins130.zip (95.4 Kb)
 
Ответить
Сообщениепользуюсь для таких целей прогой:

Автор - Саня
Дата добавления - 27.11.2011 в 13:01
Pulse Дата: Воскресенье, 27.11.2011, 13:10 | Сообщение № 10
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 213
Репутация: 16 ±
Замечаний: 0% ±

2013
Саня, ну пряв ваще... smile Спасибо!
 
Ответить
СообщениеСаня, ну пряв ваще... smile Спасибо!

Автор - Pulse
Дата добавления - 27.11.2011 в 13:10
light26 Дата: Воскресенье, 27.11.2011, 16:01 | Сообщение № 11
Группа: Друзья
Ранг: Старожил
Сообщений: 1351
Репутация: 91 ±
Замечаний: 0% ±

2007, 2010, 2013
Quote (_Boroda_)
(Обязательно почитайте текст, который в Ворде. Вам понравится

Да уж, уморил)))
Quote (_Boroda_)
К сожалению, не моё

Хотел я пошутить и на эту тему, но потом передумал )))


Я не волшебник. Я только учусь
 
Ответить
Сообщение
Quote (_Boroda_)
(Обязательно почитайте текст, который в Ворде. Вам понравится

Да уж, уморил)))
Quote (_Boroda_)
К сожалению, не моё

Хотел я пошутить и на эту тему, но потом передумал )))

Автор - light26
Дата добавления - 27.11.2011 в 16:01
Pulse Дата: Воскресенье, 27.11.2011, 16:43 | Сообщение № 12
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 213
Репутация: 16 ±
Замечаний: 0% ±

2013
Quote (Serge_007)
Цитата, Pulse писал(а):А как отключить? Ctrl+пробел (Space)

У меня при нажатий такой комбинации происходит выделение листа. Что делаю не так?
 
Ответить
Сообщение
Quote (Serge_007)
Цитата, Pulse писал(а):А как отключить? Ctrl+пробел (Space)

У меня при нажатий такой комбинации происходит выделение листа. Что делаю не так?

Автор - Pulse
Дата добавления - 27.11.2011 в 16:43
Pulse Дата: Четверг, 29.03.2012, 02:21 | Сообщение № 13
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 213
Репутация: 16 ±
Замечаний: 0% ±

2013
Можно ли сделать так, чтобы при переходе с одного окна на другое, вставку данных их буфера можно было бы делать по первому щелчку, а не по второму?! smile
Т.е получается так: копируем данные с Excel, переходим на окно Word(делаем окно активным), и только потом нажимаем правой кнопкой "вставить". Нужно сделать так, чтобы после копирования в Excel и нажатии сразу правой кнопкой в Word появлялась функция "вставить". smile
Почему то мне кажется, что это очень сложно сделать. smile
 
Ответить
СообщениеМожно ли сделать так, чтобы при переходе с одного окна на другое, вставку данных их буфера можно было бы делать по первому щелчку, а не по второму?! smile
Т.е получается так: копируем данные с Excel, переходим на окно Word(делаем окно активным), и только потом нажимаем правой кнопкой "вставить". Нужно сделать так, чтобы после копирования в Excel и нажатии сразу правой кнопкой в Word появлялась функция "вставить". smile
Почему то мне кажется, что это очень сложно сделать. smile

Автор - Pulse
Дата добавления - 29.03.2012 в 02:21
_Boroda_ Дата: Четверг, 29.03.2012, 12:24 | Сообщение № 14
Группа: Админы
Ранг: Местный житель
Сообщений: 16705
Репутация: 6499 ±
Замечаний: ±

2003; 2007; 2010; 2013 RUS
Quote
Нужно сделать так, чтобы после копирования в Excel и нажатии сразу правой кнопкой в Word появлялась функция "вставить"

Не думаю, что это хороший вариант. Ну, если уж очень хочется, то можно примерно так:
[vba]
Code
Sub Макрос1()
         Dim Wrd As Word.Application
             Selection.Copy
             Set Wrd = GetObject(, "Word.Application")
             Wrd.Selection.Paste
End Sub
[/vba]
Выделенный в Excel фрагмент вставляет в документ Ворд.
Можно повесить на кнопку, можно на сочетание клавиш
Да, забыл совсем - подключите библиотеку.
В VBA - Тулс - Референс - нужно найти в списке "Майкрософт Ворд ..." и поставить напротив галку
автоматизировать спецвставку можно. Только немного позже - сейчас на работе загрузили
К сообщению приложен файл: 8222708.xls (42.0 Kb)


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
Сообщение
Quote
Нужно сделать так, чтобы после копирования в Excel и нажатии сразу правой кнопкой в Word появлялась функция "вставить"

Не думаю, что это хороший вариант. Ну, если уж очень хочется, то можно примерно так:
[vba]
Code
Sub Макрос1()
         Dim Wrd As Word.Application
             Selection.Copy
             Set Wrd = GetObject(, "Word.Application")
             Wrd.Selection.Paste
End Sub
[/vba]
Выделенный в Excel фрагмент вставляет в документ Ворд.
Можно повесить на кнопку, можно на сочетание клавиш
Да, забыл совсем - подключите библиотеку.
В VBA - Тулс - Референс - нужно найти в списке "Майкрософт Ворд ..." и поставить напротив галку
автоматизировать спецвставку можно. Только немного позже - сейчас на работе загрузили

Автор - _Boroda_
Дата добавления - 29.03.2012 в 12:24
Гость Дата: Четверг, 29.03.2012, 14:11 | Сообщение № 15
Группа: Гости
_Boroda_, \, а можно подробней?! Куда вставлять код? Попробовал и в Excel и в Word, что то не работает.
 
Ответить
Сообщение _Boroda_, \, а можно подробней?! Куда вставлять код? Попробовал и в Excel и в Word, что то не работает.

Автор - Гость
Дата добавления - 29.03.2012 в 14:11
Pulse Дата: Четверг, 29.03.2012, 15:15 | Сообщение № 16
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 213
Репутация: 16 ±
Замечаний: 0% ±

2013
_Boroda_, спасибо за участие! Почему с вашим файлом получается, а с моим нет. Картинка

Задумка хорошая, но я только сейчас понял, что и при обычном копировании и вставке, я вставляю через "специальную вставку в формате rtf с сохранением связей, наверное что то подобное автоматизировать нельзя в принципе. В том то и дело, что кликов тысичи sad


Сообщение отредактировал Pulse - Четверг, 29.03.2012, 15:16
 
Ответить
Сообщение_Boroda_, спасибо за участие! Почему с вашим файлом получается, а с моим нет. Картинка

Задумка хорошая, но я только сейчас понял, что и при обычном копировании и вставке, я вставляю через "специальную вставку в формате rtf с сохранением связей, наверное что то подобное автоматизировать нельзя в принципе. В том то и дело, что кликов тысичи sad

Автор - Pulse
Дата добавления - 29.03.2012 в 15:15
Pulse Дата: Четверг, 29.03.2012, 15:41 | Сообщение № 17
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 213
Репутация: 16 ±
Замечаний: 0% ±

2013
Заработало. smile Жаль формат не сохраняет. Можно сделать, чтоб хоть формат сохранял?!
Ух ты, спецвставку можно?! Круто! Жду.


Сообщение отредактировал Pulse - Четверг, 29.03.2012, 15:44
 
Ответить
СообщениеЗаработало. smile Жаль формат не сохраняет. Можно сделать, чтоб хоть формат сохранял?!
Ух ты, спецвставку можно?! Круто! Жду.

Автор - Pulse
Дата добавления - 29.03.2012 в 15:41
_Boroda_ Дата: Суббота, 31.03.2012, 16:45 | Сообщение № 18
Группа: Админы
Ранг: Местный житель
Сообщений: 16705
Репутация: 6499 ±
Замечаний: ±

2003; 2007; 2010; 2013 RUS
Ловите
К сообщению приложен файл: 8222708_2.xls (36.5 Kb)


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеЛовите

Автор - _Boroda_
Дата добавления - 31.03.2012 в 16:45
Pulse Дата: Воскресенье, 01.04.2012, 09:25 | Сообщение № 19
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 213
Репутация: 16 ±
Замечаний: 0% ±

2013
Работает! Огромное спасибо!


Сообщение отредактировал Pulse - Воскресенье, 01.04.2012, 09:25
 
Ответить
СообщениеРаботает! Огромное спасибо!

Автор - Pulse
Дата добавления - 01.04.2012 в 09:25
  • Страница 1 из 1
  • 1
Поиск:

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