Добрый день! На контрол формы повешен вывод на печать:

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

Добрый вечер! Есть форма, запускается при открытии файла, приложение excel при этом скрывается (Application.Visible = False). Хотелось бы при закрытии формы нажатием на "крестик" закрывать и excel без ущерба возможно открытым параллельно файлам excel (т.е. сделать проверку, есть ли открытые файлы помимо текущего и если есть - закрывать только книгу с  моей формой и делать excel видимым, если нет - закрывать само  приложение).
Помогите, пожалуйста, корректно написать такую процедуру!

Sub CloseWorkbook()
k = 0
Dim wb As Workbook: Application.ScreenUpdating = False
For Each wb In Workbooks  
If wb.Windows(1).Visible = True Then k = k + 1 'вот тут первая загвоздка, потому как все книги скрываются как только запускается моя форма
Next wb
If k > 1 Then
Application.Visible = True
ActiveWorkbook.Close
Else: Application.Quit
End If
End Sub

Добрый вечер! Есть форма, на ней листбокс. Хочется сделать так, чтобы при клике на второй элемент списка появлялось сообщение о том, что такой выбор сделать нельзя, далее индекс листбокса принудительно возвращался на нулевую позицию.
Во вложении пример. В результате работы макроса требуемое сообщение появляется два раза и индекс остается там же, где и был (на выбранном элементе №2).
Помогите, пожалуйста, решить проблему!

Добрый вечер! Прошу Вашей помощи.  
Ситуация такова: есть лист, на котором закреплена "шапка". В "шапке" размещен listbox. При выборе элемента listbox происходит отображение соответствующих выбору параметров путем прокрутки незакрепленной части листа до заданной строки.  
На заданной строке размещены listbox`ы, с которыми пользователь продолжает работать после клика на "шапке".  
Возникла проблема: при открытии файла listbox на "шапке" кликабелен, после выбора элемента все заданные действия происходят (лист прокручивается, listbox`ам присваиваются диапазоны и т.п.), но кликнуть на listbox`е на незакрепленной части листа не получается.  
В приведенном примере кликнуть возможно только при выборе элемента шапки №3.  
Хотелось бы добиться беспроблемных переходов между объектами на защищенной и незащищенной областях листа при условии сохранения защиты листа. Подскажите, пожалуйста, возможно ли это и как осуществляется?

Всех приветствую! Бьюсь над задачей оставления возможности перехода по гиперссылкам на защищенном листе (защита не через макрос, всем пользователем оставлена возможность выделения незаблокированных ячеек и вставки гиперссылок). Получается только если оставлять незащищенными ячейки, где размещаются сами гиперссылки. Но тогда любой пользователь по ошибке может стереть гиперссылку, а от этого надо защититься.  
Подскажите, пожалуйста, как осуществить желаемое!

Добрый день! Сотворила на листе ActiveX Frame, попыталась перетащить в нее сотворенные ранее ActiveX OptionButton. Все бы хорошо, да при выключении режима конструктора frame отображается поверх переключателей. Попытки принудительно назначить отображение frame на заднем плане, а переключателей - на переднем ситуацию не изменили. Подскажите, пожалуйста, как разместить контролы на frame таким образом, чтобы при выключении режима конструктора контролы были видны?

Добрый вечер! Благодаря планете при импортировании данных в свои userform из других файлов excel пользовалась нижеприведенным макросом. Макрос запускается прямо с userform по кнопке. Для правильного импорта было необходимо проверить, является ли выбранный пользователем файл корректным путем обращения к содержимому "проверочной" ячейки на скрытом листе.  
Для этого надо было учесть что нужного листа может не быть (при выборе некорректного файла).  
До недавнего времени все прекрасно работало, однако в новом проекте потребовалось запускать макрос несколько раз подряд, импортируя данные из новых и новых файлов и процесс стал зависать, соскакивая на невыключающееся MsgBox со строки "L1: ".  
При Ctrl+Break дебаггер выделяет элемент ": Resume L2" этой строки.  
Отыскать косяк в алгоритме не могу - помогите, пожалуйста!  
 
Sub Import_Calc()  
Dim tip As Integer  
Dim fName As String  
fName = GetFileName  
On Error GoTo L1  
If Len(fName) Then  
   With GetObject(fName)  
       With .Sheets("СкрытыйЛист")  
           Application.EnableEvents = False  
           Application.ScreenUpdating = False  
           If .[C1] = "проверка" Then
               MsgBox "Перенос данных запущен."  
 
              [перенос данных]
 
               MsgBox "Перенос данных успешно завершен."  
           Else  
               MsgBox "Выбранный файл не может использоваться для переноса данных."  
               Exit Sub  
           End If  
           Application.EnableEvents = True  
       End With  
L2:     .Close False  
   End With  
End If  
L1: If Err Then MsgBox "Выбранный файл не может использоваться для переноса данных.", vbCritical: Resume L2  
End Sub

Добрый день! Прошу помощи в написании кода по следующему поводу:  
в userform по нажатию кнопки открывается окно браузера, где можно выбрать файл excel в качестве источника для импорта данных в userform. Перед тем, как начать импорт данных требуется проверить, существует ли лист, с которого можно осуществлять импорт. Поискав в инете и на форуме сделала следующим образом:  
 
Sub Import_Calc()  
Dim fName$  
Dim wb As Workbook  
Dim sh As Worksheet  
fName = GetFileName  
If Len(fName) Then  
Application.EnableEvents = False  
Application.ScreenUpdating = False  
Set wb = GetObject(fName)  
With wb  
   If Not Sh_Exist("Данные_З") Then  
       MsgBox "Выбранный файл не может быть использован для импорта данных."  
       Exit Sub  
   Else  
       Set sh = wb.Sheets("Данные_З")  
       With sh  
[тут всякие операции по переносу данных]
       End With  
   End If  
   wb.Close 0  
End With  
Application.ScreenUpdating = True  
Application.EnableEvents = True  
End If  
End Sub  
 
Function Sh_Exist(sName As String) As Boolean  
   Dim wsSh As Worksheet  
   On Error Resume Next  
   Set wsSh = Sheets(sName)  
   Sh_Exist = Not wsSh Is Nothing  
End Function  
 
При отработке макроса в случае выбра некорректного файла на строке  
Set sh = wb.Sheets("Данные_З")  
выскакивает ошибка "Subscride out of range".  
 
Помогите, пожалуйста, исправить!

И снова добрый вечер! Извините, если вопрос дурацкий.  
Подскажите, пожалуйста, по такой проблеме: мне нужно по нажатию кнопки на userform создать файл word, скопировать в него таблицу с листа excel, затем вернуться к userform и вывести сообщение об успешно проведенной выгрузке в word.  
Использую нижеприведенный код (спасибо форумчанам) и все бы ничего, вот только при выполнении происходит остановка на вставленной в word таблице. Сообщение выводится только при возврате на userform вручную. Как бы это дело поправить в нужную сторону?  
Sub word_copy()  
Application.ScreenUpdating = False  
ThisWorkbook.Sheets("Word").Visible = xlSheetVisible  
Sheets("Word").Range("B3:F18").Copy  
With CreateObject("Word.Application")  
   With .Documents.Add  
       .PageSetup.Orientation = 1  
       .Range.PasteExcelTable False, False, False  
   End With  
   .Visible = True  
End With  
ThisWorkbook.Sheets("Word").Visible = xlSheetHidden  
Application.ScreenUpdating = True  
Workbooks("ÀÏ_new").Activate  
MsgBox "Данные выгружены в word."  
End Sub

Добрый день! А я к Вам вот с какой проблемой: есть лист excel, значения которого формируются путем взаимодействий пользователя с userform.  
Этот лист надо обработать следующим образом:  
1. У каждой строки листа есть столбец-идентификатор. Если значение в столбце равно "0" высота строки устанавливается также равной "0".  
2. Сделать подобор высоты объединенных ячеек по содержимому.  
 
Вроде бы, ранее (в предыдущих проектах) все получалось легко и просто, а сейчас при вызове макроса Format_D выскакивает ошибка "application-defined or object-defined error". Помогите, пожалуйста, решить проблему! Пример во вложении.

Добрый вечер! Прошу помощи в решении следующей ситуации: в книге excel есть userform и лист со множеством элементов управления типа checkbox. По нажатию на кнопку на userform происходит перенос данных на лист, в частности, установление "галочек" сообразно значениям контролов userform.  
Как правильно обратиться к элементу упрваления на листе? Делая по аналогии с формами листа получаю ошибку "невозможно получить свойство checkboxex объекта класса worksheet":  
If IM_GO.ob_sobstv = True Then Sheets("Заявление").CheckBoxes(26).Value = 1  
 
Прошу прощения, если вопрос глупый, но самостоятельно найти решение мне не удалось :(

Добрый день! Подскажите, пожалуйста, как при программном копировании листа из книги в создаваемую кодом же книгу можно заблокировать значения checkbox`ов (элементов управления), чтобы пользователь не мог переставить "галочки"?

Добрый день! Поскольку предыдущая тема про импорт данных уже закрыта, начинаю новую с вопроса о том, как задать параметры для страницы word при программном переносе данных из excel.  
Уважаемый nerv подсказать простой и действенный алгоритм копирования-вставки:    
(Автор: nerv, Дата: 09.11.2011 09:40)  
Sub io()  
Me.Range("A1:C6").Copy  
With CreateObject("Word.Application"): .Visible = True  
.Documents.Add.Range.PasteExcelTable False, False, False  
End With  
End Sub  
 
Мои попытки вставить в код строки по аналогии с заданием условий для листа excel  
.Orientation = xlLandscape  
.Zoom = False  
.FitToPagesWide = 1  
.FitToPagesTall = 1  
успехом не увенчались - нет в word таких параметров.  
Посему вопрос: можно ли как-то задать условия для страницы word "разместить не более, чем на одну страницу" или же просто установить альбомную ориентацию?

Добрый вечер! Помогите, пожалуйста, решить следующую задачу: есть userform со множеством label, размещенных в табличном порядке. Надо по нажатию на кнопку на форме программно создать документ word и перенести туда данные из всех контролов в том же табличном порядке (можно даже таблицу для наглядности нарисовать - на форме-то ее не нарисуешь).  
Во вложении фрагмент данных userform - покажите, пожалуйста, каким образом осуществлять такой экспорт, а я сделаю по аналогии в своей полновесной версии.

Уважаемые, подскажите, пожалуйста, каким образом можно заставить лист excel разворачиваться на весь экран при окрытии книга?

Добрый день! Прошу помощи в такой ситуации: есть userform "календарь платежей", в ней размещены textbox "дата" и "размер" для каждого платежа построчно. Всего платежей 12. При инициализации формы в зависимости от ранее выбранного количества платежей нужное количество textbox`ов разблокировываются для заполнения. Textbox`ы для ввода дат нумеруются как "Dt_1", "Dt_2" и т.д. до 12.  Очень хочется сделать проверку на даты платежей: каждая последующая дата должна быть больше предыдущей.  
Написала такой код:  
 
For Each q In Me.Controls  
If q.Enabled = True Then          
If q.Name Like "Dt_*" Then  
For i = 1 To 11  
If CDate(Vznosy.Controls("Dt_" & i)) > CDate(Vznosy.Controls("Dt_" & i + 1)) Then  
MsgBox "Дата последующего платежа не может быть ранее даты предыдущего платежа." & Chr(13) & "До устранения ошибки сохранение данных не будет возможным.", vbCritical, "ВНИМАНИЕ: НАЙДЕНЫ ОШИБКИ ЗАПОЛНЕНИЯ"  
Exit Sub  
End If                      
Next i  
End If  
End If  
Next q  
 
При обработке на строке  
If CDate(Vznosy.Controls("Dt_" & i)) > CDate(Vznosy.Controls("Dt_" & i + 1)) Then    
выскакивает ошибка "type mismatch", хотя все незаблокированные textbox заполнены.  
Как исправить эту ошибку?

Добрый вечер! Помогите, пожалуйста, решить такую задачу: есть форма, в которой выбирается количество платежей. По ссылке на форме открывается доп. форма, где можно построчно ввести размер и дату каждого платежа.  
Очень хочется, чтобы при инициализации доп. формы происходило блокирование/разблокирование контролов в зависимости от выбранного количества платежей.  
Загвоздка в том, что список количества платежей на форме не соответствует количеству строк контролов в доп. форме (см. вложение).  
Я попыталась реализовать это по свойству tag каждого контрола, однако работает криво: платежи 10, 11, 12 остаются разблокированными при выборе любого количества платежей.  
Буду искренне признательна за помощь!

Добрый вечер! Заранее извините за, вероятно, простой вопрос. В очередной раз уповаю на форум, поскольку для меня вопрос простым не является.  
Ищу возможность визуализировать процесс выполнения макроса (чтобы пользователи не думали, что программа зависла). Нашла много вариантов progressbar`ов, но не могу понять, как их "привязывать" к выполнению конкретных макросов.  
Для простоты и бесхитростности мне подойдет и стандартный progressbar, из additional controls.  
 
В моих userform есть несколько commandbutton, каждая из которых запускает разные макросы:  
Private Sub CommandButton5_Click()  
Call ImportZ_Step3  
End Sub  
 
В инете я нашла код работы стандартного progressbar:  
iMax = 65000  
Me.ProgressBar1.Max = iMax  
For iCount = 1 To iMax  
   Me.ProgressBar1.Value = iCount  
Next  
Me.ProgressBar1.Value = 0  
 
Подскажите, пожалуйста, как прописать работу progressbar во время выполнения макроса? Так, что бы эти процессы шли не один за другим, а одновременно: макрос работает - progressbar заполняется, макрос отработал - progressbar обнулился.

Добрый вечер! У меня такой вопрос по разбиению текста на несколько строк в одной ячейке. При наличии в ячейке сплошного текста подобный перенос на "новую строку" можно делать сочетанием Alt+Enter. А вот если текст выводится с помощью формул (например, ="стоимость составит "&K12&" руб.") комбинация для переноса не помогает.  
Подскажите, пожалуйста, если ли возможность осуществить перенос с помощью каких-либо формул (может быть, функция СИМВОЛ или что-то подобное)?

Добрый день! Извините за беспокойство, но без Вашей подсказки продвинуться не могу:  
копирую и сохраняю лист excel в новую книгу:  
NewWb.SaveAs Filename:=ActiveWorkbook.Path & DateString & "_Заявление.xls"  
 
У меня Excel 2007, при открытии такого файла после формирования выскакивает предупреждение о несоответствии указанного типа тому, которым обладает файл.  
Изменила .xls на .xlsx - открытие без ошибок, но тогда теряется ScrollArea, которую я задаю при копировании:  .ScrollArea = "$A$1:$Z$266"  
Подскажите, пожалуйста, как можно сохранить файл "безошибочного" типа и не потерять доступную область прокрутки?

Добрый день!  
Знаю, как скопировать лист в новую книгу с переносом всех значений и защитить ячейки от изменений (спасибо планете!):  
 
   Dim wsSh As Worksheet  
   Dim NewWb As Workbook, asArr(), li As Long  
   DateString = Format(Now, "dd-mm-yy hh-mm-ss")  
   Application.ScreenUpdating = False  
   For Each wsSh In Sheets(Array("Заявление"))  
       If wsSh.Visible <> -1 Then ReDim Preserve asArr(li): asArr(li) = wsSh.Name: li = li + 1: wsSh.Visible = xlSheetVisible  
   Next wsSh  
   Sheets(Array("Заявление")).Copy      
   Set NewWb = ActiveWorkbook  
   For Each wsSh In NewWb.Worksheets  
       With wsSh  
           .Visible = True      
           .UsedRange.Value = .UsedRange.Value              
           .Cells.Locked = True  
           .Cells.FormulaHidden = True  
           .Protect Password:=MyPassword, DrawingObjects:=True, Contents:=True, Scenarios:=True  
           .EnableSelection = xlNoSelection  
       End With  
   Next  
   NewWb.SaveAs Filename:=ActiveWorkbook.Path & DateString & "_Заявление.xls"  
   Application.ScreenUpdating = True  
   ThisWorkbook.Close SaveChanges:=False  
 
 
А мне надо, чтобы при копировании листа диапазон [A1:Z266] переносился в виде значений (а не формул) с защитой от изменений, а все остальное, где хоть что-то есть, с сохранением формул и без защиты. Подскажите, пожалуйста, как это сделать?

Добрый день! Подскажите, пожалуйста: есть заявление, выполненное на листе excel. Заявление содержит формы управления (флажки, переключатели) и ячейки со списком (Данные -> Проверка -> Список). С помощью макроса хотелось бы привести заявление в, так сказать, исходный вид. Со снятием "галочек" со флажков справиться удалось (спасибо за помощь знающим людям), а вот организовать стирание данных в ячейках со списком - нет. При этом надо не удалить тип данных - "список", а только лишь удалить отображаемое значение из списка (как если бы вручную нажать Delete).  
Макрорекордер навеял такой код:  
 
Sub Clear_Z()  
With Sheets("Лист1")  
.......    
.[A1:Y248].Select `это область, где размещено Заявление
 With Selection.Validation  
  If .Type:= xlValidateList Then .ClearContents  
 End With    
End With  
 
End Sub  
 
Не работает.  Помогите, пожалуйста!

Доброе утро! У меня очередные сложности с зависимыми формами.  
Расскажу по порядку для тех, кто не был участником предыдущих обсуждений.  
 
Есть несколько зависимых юзерформ: основные и вспомогательная.  
При нажатии на контрол основной_формы_1 отображается вспомогательная форма, пользователь заполняет ее поля, если все правильно (заполняемые поля на событии change приравниваются к ячейкам листа, по нажатию на ОК на форме значения ячеек проверяются) - форма закрывается.  
Помимо возможности заполнять все вручную есть возможность импорта данных из стороннего файла excel. При этом перенос данных идет и в основную_форму_1, и в дополнительную.  
 
Сложности наступили при создании основной_формы_2. Из нее также есть возможность вызова вспомогательной формы, ручного ввода данных и импорта.  
Суть проблемы в следующем: при импорте данных, вызванном из основной_формы_2 и переносе значений во вспомогательную форму проверка на корректное заполнение не проходит: все правильно отображается, но значения ячеек на событие change нулевые.  
Таким образом перед глазами форма, где все везде заполнено, но проверка выдает "поле такое-то не заполнено" и пока руками не вобьешь те же значения, форма не закрывается.  
Такой беды при идентичной процедуре импорта из основной_формы_1 нет - все переносится, автоматом попадает в ячейки листа и проходит проверку.  
 
Подскажите мне, знающие посетители, как справиться с этой проблемой?

Добрый вечер. Я с очередными надеждами к Вам.  
Есть две зависимые юзерформы: основная и вспомогательная.  
При нажатии на checkbox основной формы отображается вспомогательная форма, пользователь заполняет ее поля, по нажатию на ОК вспомогательная форма скрывается, пользователь возвращается в основную форму,  где вызвавший вспомогательную форму checkbox.value = true.  
Помимо возможности заполнять все вручную нужна возможность импорта данных из стороннего файла excel. При этом перенос данных идет и в основную форму, и в дополнительную.  
По итогам импорта результат должен быть таким, как если бы все заполнялось вручную: то есть если при импорте данные были перенесены во вспомогательную форму, значит, в основной форме checkbox.value должен быть true.  
Сам импорт даннных проблем не вызывает: я последовательно приравниваю значения сторонних полей к значениям элементов форм.  
Но стоит приравнять значение checkbox.value к true, как вспомогательная форма всплывает во всей красе посреди импорта (это понятно, ведь ее вызов повешен на true значение checkbox)..  
Нет ли какого-нибудь способа не давать отобразиться вспомогательной форме в процессе и в результате переноса данных?

Добрый день! На R1.CommandButton_Click одной формы навешано много операций. Хочется, чтобы все эти операции могли запускаться из другой формы по нажатию на контрол.  
Можно ли сделать обращения к процедурам события R1.CommandButton_Click как к макросу?  
Или придется выносить процедуры отдельным макросом и обращаться к нему сколько влезет?  
 
Не ругайтесь, если пишу чушь - этот вопрос родился по аналогии с возможностью вызова как макрос процедуры инициализации (правда, в рамках одной формы).

Добрый вечер! Проблема следующая: есть основная форма, в текстовое поле на которой выводится некий результат работы вспомогательной формы. Для возможности передачи данных через вес проект объявлена переменная Public Vlad As Object.  
Для открытия вспомогательной формы написан следующий код:  
Private Sub Label4_Click()  
Set Vlad = Step3.Vlad_im `Step3.Vlad_im - поле для вывода результата работы вспом. формы  
Vladenie_im.Show  
End Sub  
 
Процедура, осуществляющая сбор и обработку данных для вывода описана во вспомогательной форме следующим образом (спасибо участникам форума):  
Sub Result()  
Const p = ", "  
Dim S$  
S = "на основании: "  
If Me.cb_Sobstv.Value = True Then S = S & "права собственности" & p  
If Me.сb_Arenda.Value = True Then S = S & "договора аренды" & p  
If Me.cb_Xran.Value = True Then S = S & "договора ответственного хранения" & p  
If Me.cb_Bank.Value = True Then S = S & "договора залога" & p  
S = Left(S, Len(S) - 1)  
End Sub  
 
Передача значения S должна происходить по нажатию на контрол вспомогательной формы:  
Private Sub CommandButton1_Click()  
Vlad.Value = S  
Unload Me  
End Sub  
 
Код в таком виде выдает ошибку "Object variable or With block variable not set".  
Помогите, пожалуйста, решить эту проблему!

Добрый вечер! Наверное я с очень простым вопросом, но буду искренне признательна за ответ:  
на userform размещены несколько checkbox`ов, при кликании на которые в переменную последовательно заносятся соответствующие текстовые значения. На событие click каждого checkbox`а стоит вызов процедуры (см. код). С помощью процедуры между значениями ставится запятая. Беда в том, что в результате запятая ставится и после завершающего текстового значения. Подскажите, пожалуйста, как можно в итоговой переменной (S) программно удалить последний символ (запятую)?  
 
Sub Result()  
Const p = ", "  
Dim S$  
S = "на основании: "  
If Me.cb_Sobstv.Value = True Then S = S & "права собственности" & p  
If Me.сb_Arenda.Value = True Then S = S & "договора аренды" & p  
If Me.cb_Xran.Value = True Then S = S & "договора ответственного хранения" & p  
If Me.cb_Bank.Value = True Then S = S & "договора залога" & p  
Vlad.Value = S  
End Sub

Доброе утро, уважаемые!  
Прошу помощи по следующему поводу: на userform есть combobox, при выборе из списка значений варианта "иное" разблокируется соответствующее поле textbox(при инициализации формы оно заблокировано), для облегчения жизни пользователя фокус должен автоматически переходить на этот textbox. Таких взаимосвязанных контролов на форме масса, однако одна связка начала выдавать ошибку при запуске формы: run-time error 2112 "не могу передвинуть фокус..". Как бы решить эту проблему?  
Код такой:  
Private Sub cb_guns_Change()  
If Step3.cb_guns.Value = "иное" Then  
Step3.TextBox94.Enabled = True  
Step3.TextBox94.SetFocus  
Step3.TextBox94.SelStart = 0  
Else  
Step3.TextBox94.Enabled = False  
Step3.TextBox94.Value = "укажите"  
End If  
End Sub

Уважаемые, помогите, пожалуйста, решить такую задачу: есть userform, среди элементов присутствуют несколько textbox`ов, которые заполняются через специальную форму ввода (кликаешь на textbox - выскакивает форма ввода, ее заполняешь, жмешь на ОК, значения нужным образом компилируются и попадают в textbox на исходной форме). Форма ввода одна  на несколько textbox`ов, все textbox`ы могут быть заполнены в произвольном порядке.  
Вопрос заключается в следующем: как сделать, чтобы при  вызове формы ввода по клику на textbox компилированной значение формы ввода попадало именно в textbox, по которому кликнули? Ведь форма ввода одна, но с ее помощью разные textbox`ы могут быть заполнены..  
Буду искренне признательна за ответ!

Добрый день! Заранее прошу прощения за, быть может, примитивный вопрос.  
Есть UserForm, на ней ListBox Mulitiselect. Выбранные значения должны:  
1. выводиться строкой в ячеку листа  
2. записываться подряд в столбец по принципу: каждый выбранный элемент в отдельную ячейку  
 
Прошу помощи по п.2!  
В приложенном файле столбец для вывода озаглавлен "Выбранные виды в столбце"