Спасибо!!

Уважаемые гуру!  
 
Есть ли какой-то способ формулой проверить целое ли число получается при делении ?  
Т.е. если а/в -- целое, то ексель его выводит, в противном случае оставляет ячейку пустой.

{quote}{login=слэн}{date=05.05.2011 12:47}{thema=}{post}как вариант :){/post}{/quote} Спасибо! Это то, что нужно.

{quote}{login=Prog}{date=07.11.2008 04:32}{thema=Re: }{post}{quote}{login=слэн}{date=07.11.2008 01:52}{thema=}{post}вот макросом{/post}{/quote}  
 
абыдно, что так нельзя запихнуть наименование в всплывающее окошко при наведении, там где Series "состояние" Point "1.3%" (1.3, 0.6) напрмер.  
Вот было бы как-нить типа F11 (1.3, 0.6).  
 
У меня просто 500-600 человек в списке это ФИО, поэтому добавить 500-600 лейблов с ФИО на 1 график ну сами понимаете :){/post}{/quote}  
 
У меня аналогичная проблема... никто случаем не нашёл способа добавить наименование в окошко при наведении ?

{quote}{login=Serge 007}{date=09.12.2009 07:22}{thema=}{post}Сервис-параметры-ярлыки листов{/post}{/quote}  
 
мда... действительно)))

есть файл. полоса прокрутки на весь экран. изменить ее размер не получается. ярлыков листов не видно. кто-нибудь знает как это сделали? файл прилагаю.

{quote}{login=Somebody}{date=07.12.2009 10:28}{thema=}{post}Sub A()  
   Application.ScreenUpdating = False  
   With Sheets("1")  
       With .Range("G5:I25")  
           .Formula = "=B5"  
           .Copy  
           .PasteSpecial Paste:=xlValues  
       End With  
   End With  
   Application.CutCopyMode = False  
End Sub{/post}{/quote}  
спасибо!

Somebody, попробовал использовать ваш пример для немного другой задачи. не получилось. хочу скопировать горизонтальный диапазон вниз на несколько строк. приложил пример, в нем более понятно, что хотелось бы получить))

{quote}{login=Somebody}{date=06.12.2009 01:10}{thema=}{post}Советую сделать так  
 
Sub Макрос1()  
   Application.ScreenUpdating = False  
   With Sheets("Sheet2")  
       .Range("A2:C25").Formula = "='1'!B5"  
       With .Range("A2")  
           .CurrentRegion.Copy  
           .PasteSpecial Paste:=xlPasteValues  
       End With  
   End With  
   Application.CutCopyMode = False  
   MsgBox "Данные скопированы на лист 'Sheet2'", 64, ""  
End Sub  
 
Тогда макрос не будет зависеть какой лист активен в данный момент{/post}{/quote}  
Cпасибо большое!!!

а, уже все. сам догадался.  
Sub macros1()  
Sheets("2").Select  
Range("B2:D53").Formula = "=1!B5"  
With Range("B2")  
.CurrentRegion.Copy  
.PasteSpecial Paste:=xlPasteValues  
.Select  
End With  
Application.CutCopyMode = False  
End Sub  
 
спасибо за помощь!!!

{quote}{login=The_Prist}{date=06.12.2009 11:07}{thema=}{post}Sheets("1").Select  
Range("M11:Q80").Cells.specialcells(xlvisible).Copy  
Sheets("POB (A-Z)").Select  
Range("P9").Select  
Selection.PasteSpecial Paste:=xlValues{/post}{/quote}  
 
The_Prist, спасибо за помощь. но я вероятно не правильно изложил свою мысль. нужно копировать весь диапазон, независимо от того активен фильтр или нет. на всякий случай приложил файл с примером.

всем здравствуйте.  
вопрос такой. имеется макрос вида  
Sheets("1").Select  
Range("M11:Q80").Select  
Application.CutCopyMode = False  
Selection.Copy  
Sheets("POB (A-Z)").Select  
Range("P9").Select  
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _  
       False, Transpose:=False  
при активном автофильтре он выдает ошибку. типа не может выделить заданный диапазон. конечно можно предварительно фильтр убрать, но иногда есть необходимость копирования диапазона при фильтрации.    
есть ли возможность копирования диапазона при активном фильтре?

нашел решение. прописал на место кнопки с выпадающим списком пустой макрос:  
Sub A()  
End Sub  
 
но наверное есть более изящный способ?

какая-то фигня получилась. попробую еще раз))  
 
Уважаемый ZVI! а если в пользовательской панели не только кнопки а еще и выпадающее меню с кнопками, что тогда еще в макрос дописать нужно. а то в этом виде макрос автоматически назначается и на кнопку из которой эта менюшка появлятся должна.

{quote}{login=ZVI}{date=07.10.2009 06:41}{thema=Re: книга со своей панелью инструментов}{post}{quote}{login=EducatedFool}{date=06.10.2009 04:40}{thema=}{post}Аналогичная тема была здесь: http://www.programmersforum.ru/showthread.php?t=41839  
 
 
Для исключения проблемы, описанной в п.2, нужно записать такой следующий в модуль ЭтаКнига книги/надстройки со встроенной панелью:  
 
Private Sub Workbook_Open()  
 On Error Resume Next  
 With Application.CommandBars("ИмяПанели")  
   .Visible = True  
   ' Прописать OnAction без пути к папке    
   .Controls(1).OnAction = "ИмяМакроса1"  
   .Controls(2).OnAction = "ИмяМакроса2"  
   ' … и т.д.  
 End With  
End Sub  
 
End Sub{/post}{/quote}  
 
Уважаемый ZVI! а если в пользовательской панели не только кнопки а еще и выпадающее меню с кнопками, что тогда еще в макрос дописать нужно. а то в этом виде макрос автоматически назначается и на кнопку из которой эта менюшка появлятся должна.

{quote}{login=ZVI}{date=11.10.2009 07:40}{thema=Shift_Range_01.xls}{post}{quote}{login=Petr}{date=11.10.2009 07:51}{thema=Re: }{post}  
Уважаемый ZVI. ваш макрос мне очень интересен. я так понимаю ячейки тут перемещаются. а можно ли сделать чтобы копировались? дело в том, что если на перемещаемые ячейки сделать ссылки то после перемещения они становятся некорректными. ну т.е. ссылка тоже изменяется. а нужно чтоб оставалась как и была.{/post}{/quote}  
Приложен вариант, в котором адреса зависимых ссылок не меняются.{/post}{/quote}  
 
спасибо))

{quote}{login=Лузер™}{date=11.10.2009 12:06}{thema=}{post}так?{/post}{/quote}  
 
о, просто супер! спасибо!    
попробую разобраться как он работает))

{quote}{login=ZVI}{date=11.10.2009 04:41}{thema=}{post}Игорь, посмотрите, устроит ли приложенный вариант.  
Перемещать можно как одну, так и несколько строк.{/post}{/quote}  
 
Уважаемый ZVI. ваш макрос мне очень интересен. я так понимаю ячейки тут перемещаются. а можно ли сделать чтобы копировались? дело в том, что если на перемещаемые ячейки сделать ссылки то после перемещения они становятся некорректными. ну т.е. ссылка тоже изменяется. а нужно чтоб оставалась как и была.

и в продолжении темы.    
решил воспользоваться вариантом от Лузер'а, т.к. там не нужно создавать диапазоны. возникает маленькое неудобство. к примеру если поставить курсор на DD(строка 112) и выполнить макрос, то выделяется весь столбец с сегодняшней датой. причем строка уезжает вниз. как сделать чтоб после выполнения макроса активной становилась ячейка в данном случае BU112.  надеюсь я понятно изложил свою мысль))

{quote}{login=слэн}{date=10.10.2009 11:27}{thema=Re: Re: }{post}{quote}{login=Petr}{date=10.10.2009 10:17}{thema=Re: }{post}{quote}{login=слэн}{date=10.10.2009 10:00}{thema=}{post}Sub td()  
   Columns(Now() - 40055).Select  
End Sub{/post}{/quote}  
уважаемый Слэн. спасибо за помощь, но дело в том, что если изменить начальную дату, то макрос начинает работать не правильно. можно как то это обойти?{/post}{/quote}  
ну тогда так  
шлите еще вводные :){/post}{/quote}  
 
Слэн, вам тоже спасибо. спасибо что помогли)

{quote}{login=Лузер™}{date=10.10.2009 11:03}{thema=}{post}Sub td()  
   Columns(Now() - Cells(4, 2).Value + 2).Select  
End Sub  
Если начальная дата в В4...  
Но если слева добавите/убавите столбцов, опять будет врать.{/post}{/quote}  
 
отлично. спасибо большое!!!

{quote}{login=слэн}{date=10.10.2009 10:00}{thema=}{post}Sub td()  
   Columns(Now() - 40055).Select  
End Sub{/post}{/quote}  
 
 
уважаемый Слэн. спасибо за помощь, но дело в том, что если изменить начальную дату, то макрос начинает работать не правильно. можно как то это обойти?

Здравствуйте. подскажите, пожалуйста, макрос чтоб при нажатии на кнопку выделялся столбец с сегодняшней датой. у самого не получается))

{quote}{login=Pavel55}{date=29.12.2008 01:48}{thema=}{post}даа, жестоко с нами поступает Microsoft. Я с 2003 офиса не слезууууу )))) Установил год назад Office 2007, открыл, испугался и удалил его сразу )){/post}{/quote}  
я еще попробую это с файлом сделать созданным 2007м. может с ними так не получится:)

нашел вот такой вариант для WORD:  
1. Сохраните документ в формате .docx (родной формат 2007 офиса)  
2. Смените расширение на .zip  
3. залезьте в архив, извлеките файл settings.xml  
4. С помощью текстового редактора найдите и удалите тег <w:documentProtection ... />  
5. Запакуйте settings.xml обратно в zip  
6. Переименуйте .zip обратно в .docx  
7. Откройте .docx в ворде. Защиты нет.  
на зип можно не менять, раром открывал и так.    
думается мне, что и для excel подойдет. проверю сегодня, может завтра.

немного опоздал. вы уже сами все узнали. :)) это не бодун был, это разница в поясах))

все, вопрос снят. справка рулит!:))

господа, а кто-нибудь знает как печатать лист с комментариями в ячейках?

{quote}{login=The_Prist}{date=25.12.2008 02:05}{thema=}{post}Попробуйте данный макрос записать так  
 
Sub Macro1()  
ActiveSheet.Visible = False  
End Sub{/post}{/quote}  
так тут проблема то не в макросе. просто путь на кнопке указан с именем книги. как бы сделать ссылку на макрос независимо от названия книги?

{quote}{login=слэн}{date=25.12.2008 12:26}{thema=}{post}а какая разница на какой панели кнопка?{/post}{/quote}  
ну разница в том, что с панели можно вызвать макрос с любого листа. иначе придеться на каждом листе располагать кнопку с этим макросом. а когда макросов много, то удобнее создать дополнительную панель с кнопочками. но тогда возникает вышеописанная проблема.