Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel (архив)
Страницы: 1
RSS
Вопросы про .Interior.Color и настройки печати
 
#1
16.12.2009 14:49:15
Добрый день всем :)  
Наболело вот два вопроса :)  
ВОПРОС1  
Есть такая переменная, для заливки ячеек цветом .Interior.Color , так вот где найти таблицу цветов? :) с RGB не совпадает, что тут используется, как тут цвет задать нужный?  
 
ВОПРОС2  
Есть макрос который генерирует лист произвольной длины, как задать чтобы этот лист всегда печатался на одной странице? (Через макросы пробовал записать, там очень много мусора получается, может как то проще можно?)
 
 
 
#2
16.12.2009 14:55:17
А вот еще вспомнил что спросить хотел :)  
ВОПРОС3  
Есть в макросе строчка  
Workbooks("nom.xls").Close ([SaveChanges])
Но при сохранении все равно выскакивает надпись "сохранить или нет", а потом отчет еще с пустым окошком и кнопкой ОК, как поправить?  
 
ВОПРОС4  
Есть 2 поля при запуске макроса, на подключении к БД, с полями USER и пароль, как сделать чтобы последниее введенные данные сохранялись при следующем открытии? Только чтобы хранились в защищенном месте каком нибудь они?
 
 
 
#3
16.12.2009 14:57:03
Вопрос1  
 
http://andreworld.de/toolsNotesLinks/toolsNotesLinks.htm  
 
 
 
Вопрос2  
 
Sub Макрос1()    ' (с) макрорекордер  
   With ActiveSheet.PageSetup  
       .Zoom = False: .FitToPagesWide = 1: .FitToPagesTall = 1  
   End With  
End Sub
Надстройки для Excel  Парсинг сайтов  Мониторинг цен конкурентов
 
 
 
#4
16.12.2009 14:58:57
По первому вопросу. Выполните этот макрос:  
Sub NumberColor()  
  For i = 1 To 56  
     Cells(i, 1).Interior.ColorIndex = i  
  Next  
End Sub  
Он закрасит ячейки столбца А. Номер строки и будет являться индексом (номером) цвета заливки.  
По второму не понял про "произвольную длину".
 
 
 
#5
16.12.2009 14:59:27
Вопрос3  
 
Sub Макрос1()    
   Workbooks("nom.xls").Close True    ' если надо закрыть с сохранением  
   Workbooks("nom.xls").Close False    ' если надо закрыть БЕЗ сохранения  
End Sub  
 
 
Вопрос4  
 
нифига не понял, что и где сохранять.  
О каких данных идёт речь?
Надстройки для Excel  Парсинг сайтов  Мониторинг цен конкурентов
 
 
 
#6
16.12.2009 15:01:44
{quote}{login=EducatedFool}{date=16.12.2009 02:59}{thema=}{post}Вопрос3  
 
 
Вопрос4  
 
нифига не понял, что и где сохранять.  
О каких данных идёт речь?{/post}{/quote}  
 
Ну два TextBoxa есть, куда юзер вводит логин и пароль, макрос выполняется, и отключается от базы, при повторном открытии эти поля пустые опять, так вот как сделать чтобы там сохранились последние введенные данные?
 
 
 
#7
16.12.2009 15:04:12
{quote}{login=The_Prist}{date=16.12.2009 03:01}{thema=}{post}Есть ВОПРОС 0.  
На фига в одной теме все свои вопросы задавать? В БАН не хотите ли?{/post}{/quote}  
 
Не не хочу :) Ну чтобы не плодить кучу тем с ламерскими вопросами...
 
 
 
#8
16.12.2009 15:14:14
{quote}{login=The_Prist}{date=16.12.2009 03:10}{thema=Re: Re: }{post}{quote}{login=Slay}{date=16.12.2009 03:04}{thema=Re: }{post}Ну чтобы не плодить кучу тем с ламерскими вопросами...{/post}{/quote}Еще один. Да плодите темы! На фиг вообще форум?! Для мнея половина всех вопросов на форуме ламерские и что? Давайте все их в одну тему сгребем и будем потом ковыряться в ней одной?    
Когда правила-то читать начнем?  
 
P.S. Почему каждый второй, кто заходит на форум считает свой вопрос ламерским? А даже если и так, то что в этом такого? Все когда-то чего-то не знали и не знают до сих пор.{/post}{/quote}  
 
Ок хорошо, будем плодить :)  
 
PS: Спасиба за ответы всем...
 
 
 
#9
16.12.2009 15:18:28
{quote}{login=EducatedFool}{date=16.12.2009 02:59}{thema=}{post}Вопрос3  
 
Sub Макрос1()    
   Workbooks("nom.xls").Close True    ' если надо закрыть с сохранением  
   Workbooks("nom.xls").Close False    ' если надо закрыть БЕЗ сохранения  
End Sub  
 
{/post}{/quote}  
 
А кстати после сохранения выскакивает все равно пустое окно с кнопкой ОК. Как там или что то написать или убрать его вообще...?
 
 
 
#10
16.12.2009 15:39:35
> А кстати после сохранения выскакивает все равно пустое окно с кнопкой ОК  
 
Найдите в коде строку типа msgbox ""  
и удалите её.  
 
Что за окно выскакивает? какой у окна заголовок? покажите скриншот
Надстройки для Excel  Парсинг сайтов  Мониторинг цен конкурентов
 
 
 
#11
16.12.2009 15:53:17
{quote}{login=EducatedFool}{date=16.12.2009 03:39}{thema=Re: Re: }{post}> А кстати после сохранения выскакивает все равно пустое окно с кнопкой ОК  
 
Найдите в коде строку типа msgbox ""  
и удалите её.  
 
Что за окно выскакивает? какой у окна заголовок? покажите скриншот{/post}{/quote}  
 
Гм, да действительно, сорри ступил :)  
После закрытия книги прям сразу шло    
OpenConnectError:  
   Set adoConnect = Nothing  
   MsgBox Error  
 
:)
 
 
 
Страницы: 1
Читают тему
Наверх