Выбрать дату в календареВыбрать дату в календаре

Страницы: 1
Отправка почты без использования почтовых программ
 
Здравствуйте уважаемые эксперты. Нашел процедуру, позволяющую отправлять письмо посредством VBA без использования Outlook. http://www.excelvba.ru/code/CDO Смущает подпрограмма для внесения изменений в реестр. Можно ли использовать эту функцию не трогая реестр, а каждый раз определяя сервер исходящих, мейл и пароль. Если например программа кочует по разным компьютерам? Спасибо за советы.
сравнение дат на больше меньше
 
Приветствую, сравниваю две переменные формата Date на больше/меньше.    
if date1<date2....  
26.11.2010 меньше чем 25.06.2010 Что не так? Спасибо.
Почему не транспонируется массив из одного столбца
 
Здравствуйте уважаемые эксперты. Непонятная проблема: список ListBoxа задается динамическим массивом. После формирования (двумерного) массива требуется транспонирование. В коде делаю так:  
 
ТурыЗаказанныеListBox.List = Application.Transpose(МассивТуровЗаказанных)  
 
Если МассивТуровЗаказанных имеет две и более колонки, транспонирует нормально, одну - никак не хочет. В чем проблема?
Добавить строку в список ListBox по условию
 
Уважаемые знатоки. Обращаюсь с простой задачей, просто мозг заклинило, а сделать надо.  
Есть таблица на 96 столбцов. В 76 и 79 столбце каждой строки проверяется содержимое ячеек на "" или заполнено. В зависимости от результата строка помещается в список одного из трех ListBox. Как эту строку добавить к списку?
сравнение двух строковых значений
 
Добрый день уважаемые эксперты! Борюсь вот с какой ошибкой.  
Есть функция:  
Function СтолбИмя(ИмяСтраницы As String, НазваниеСтолбца As String)  
Dim lLastColumn As Long  
Dim i As Long  
With Worksheets(ИмяСтраницы)  
       lLastColumn = .Cells(1, Columns.Count).End(xlToLeft).Column  
       For i = 0 To lLastColumn  
         If .Cells(1, i).Value = НазваниеСтолбца Then СтолбИмя = i  
       Next i  
End With  
End Function  
 
Функция находится в стандартном Модуле.  
 
Из модуля UserForm вызываю ее:  
 
ВводГидаUserForm.IDLabel.Caption = .Cells(ГидListBox.Value + 2, СтолбИмя("Гид", "ID")).Value  
 
Не могу побороть ошибку в строке функции:    
If .Cells(1, i).Value = НазваниеСтолбца Then СтолбИмя = i  
 
Ошибка 1004: Application-defined or object-defined error
как приостановить (отключить) процедуру на некоторое время
 
Здравствуйте уважаемые эксперты.  
Вот суть проблемы: имею в UserForm 4 ComboBox для выбора четырех объектов. Для каждого ComboBox есть процедура Sub ComboBox_change, проверяющая, чтоб выбранные названия не совпадали между собой. Есть необходимость на время выполнения другой процедуры над этими ComboBox проверку совпадения отключить. Допускаю, что нужно перевести в модальную (немодальную) форму, но не знаю как. Или как-то по другому? Спасибо.
В чем ошибка
 
Здравствуйте уважаемые эксперты.  
Подскажите пожалуйста, в чем ошибка.  
Есть процедура:  
Private Sub ПрячемПоляВводаОборудования(i As Long, Видимость As Boolean)  
 
вызываю ее в цикле из другого места  
 
Call ПрячемПоляВводаОборудования(i, False)  
 
Ошибка ByRef argument type mismatch  
Как исправить? Спасибо.
запись набора дат в ячейку средствами VBA
 
Здравствуйте.  
В программе задаются две даты - начала и конца процесса. В ячейку требуется записать каждую дату диапазона через какой-то разделитель.  
 
Вопросы:  
1)Как это сделать?  
2)Как предусмотреть и реализовать возможность дополнения в эту же ячейку следующего диапазона дат таким же образом (через разделитель)?  
3)Как потом анализировать содержание ячейки на соответствие какой либо дате или диапазону дат?  
Заранее благодарен.
отправить файл из excel vba через почтовый клиент opera
 
Здравствуйте.  
Программно сформирован файл (формат PDF). Требуется отправить его по нажатию кнопки адресату через клиент Оперы. Как через Аутлук сделать, нашел, но клиентская база в Опере и вообще привычно с этим клиентом работать. Можно ли это сделать в принципе (коль Опера не майкрософтовская)? Если можно, то как? Спасибо.
обработка программно созданных элементов управления
 
Здравствуйте уважаемые эксперты.  
Вот какая проблема. Программно создаются текстовые поля, чекбоксы, комбобоксы (управляющие элементы) для ввода информации о группах людей. Количество людей в группах динамическое, потому управляющие элементы нумеруются мной как ФамилияTextBox1....ФамилияTextBox8, ИмяTextBox1....ИмяTextBox8 и т.д. События перехватываются в коде модуля класса. Вопрос: как правильно обработать эти элементы, например присвоить содержание этих элементов переменным для дальнейшего использования этих переменных в разных участках кода?
Объединение ячеек
 
Привет!    
Есть вопрос: как автоматически объединить несколько ячеек в одну? Желательно при помощи формул.
Перебор данных в диапазоне.
 
Добрый день, уважаемые!  
Помогите пожалуйста, решить задачу мощностями екселя, а именно, чтобы ексель на основании значений двух задаваемых параметров, брал блоки данных из справочников, размещенных на разных листах книги и составлял их в форму на том же листе, где происходит выбор параметров.  
Моя попытка решить задачу применением конструкции «Если-то-иначе» не дала желанного результата, по причине недостаточной глубины ветвления. В связи с этим интересуюсь, как именно можно организовать перебор значений диапазона на соответствие некоторой ячейке?
Страницы: 1
Наверх