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

Страницы: 1
PocketSoap create object
 
здравствуйте! получила файл с кодом(и утверждением, что он рабочий так как использовался раньше).при запуске кричит на создание объекта(в интернете проверила-имеено так и пишут)...запускаю в excel 2007.  
 Dim hdr,env  
       Set env = CreateObject("pocketSOAP.Envelope.11")  
       env.EncodingStyle = ""  
ошибка "ActiveX component can't create object"  
буду благодарна за любую подсказку!  
Елена
сравнение дат из ячеек
 
помогите ,пожалуйста:  
есть дипазон ячеек с датами, внесенными на протяжении года с помощью  
   .Cells(r, 2).Value = VBA.Format(VBA.Date, "dd.mm.yy")  
теперь требуется определить строки по месяцам, для этого присваиваю переменной значение дыты в первой строке  
 
Public relevantMonthCap As Integer  
...  
relevantMonthCap = Month(CDate(Sheets(choosedSheetForReport).Range("b" & indexRow2).Value))  
и в значении получаю бред: из ячейки с датой 01.02.12 получаю значение 12!!!  
Объясните, кто может, пожалуйста!
как отменить проверку соответствия версиям Экселя при сохранении копируемого файла
 
Здравсттуйте.  
Есть файл, из него отправка письма с прикрепленным файлом , созданным командами:  
----------------  
ThisWorkbook.Sheets(CurrentWorksheetName).Copy       'копирование  
Call DeleteModulesAndCode                            'удаление кода, модулей, форм...  
ActiveWorkbook.SaveAs "NewDelay", 56                 ' СОХРАНЕНИЕ ПОД ОПРЕД. ИМЕНЕМ  
----------------  
во время сохранения выскакивает предупреждение о несоответствии другим версиям Excel каких-то компонентов  в сущ. файле (именных диапазонов)    
Как избавиться то этого предупреждения, подскажите, пожалуйста.
вставка переменной в макрос
 
Уважаемые спецы!  
Я создала макрос, использующий функцию SUMIFS. Мне необходимо, чтобы он работал для любого заданного листа.Пользователь вводит через USERFORM   его название, которое принимает STRING переменная  choosedSheetForReport.  
Но макрос ее не переваривает и выдает " Application-defined or object-defined error"  
 
Public choosedSheetForReport As String  
...  
было так:  
   ActiveCell.FormulaR1C1 = _  
       "=SUMIFS(' plastic'!R[-4]C[6]:R[42]C[6],'plastic'!R[-4]C[5]:R[42]C[5],' TableHelp'!R[-4]C[11],' plastic'!R[-4]C[12]:R[42]C[12],1)"
я пыталась таким образом:  
   ActiveCell.FormulaR1C1 = _  
       "=SUMIFS('" choosedSheetForReport"'!R[-4]C[6]:R[42]C[6],'" choosedSheetForReport "'!R[-4]C[5]:R[42]C[5],' TableHelp'!R[-4]C[11],' "choosedSheetForReport "'!R[-4]C[12]:R[42]C[12],1)"
И вот так:    
   ActiveCell.FormulaR1C1 = _  
       "=SUMIFS(choosedSheetForReport!R[-4]C[6]:R[42]C[6],choosedSheetForReport!R[-4]C[5]:R[42]C[5],' TableHelp'!R[-4]C[11],choosedSheetForReport !R[-4]C[12]:R[42]C[12],1)"
не идет...    
Подскажите, пожалуйста, где ошибка  
спасибо
Возможно ли отловить закрытие PDF файла
 
Здравствуйте !  
Возможно ли отловить закрытие PDF файла который я создала макросом и он открыт для просмотра после создания (OpenAfterPublish:=True)?
Как перебрать контролы на листе, а не на форме?
 
здравствуйте, на форме существуют контролы и я порхожу по ним    
Private Sub CommandButton_print_Click()  
Dim cntrl As Control  
For Each cntrl In UserForm1.Controls  
If TypeName(cntrl) = "ComboBox" Then  
   cntrl.ShowDropButtonWhen = fmShowDropButtonWhenAlways  
   cntrl.SpecialEffect = fmSpecialEffectSunken  
End If  
Next cntrl    
 
а как сделать то же самое для контролов на листе? не пойму что должно стоять вместо UserForm1???  
спасибо
наложение букв в textBox
 
здравствуйте, уважаемые.  
происходит заполнение textBox с таблицы и иногда текст накладывается сам на себя, причем, если встать на него курсором -все исправляется -убрать снова наложение.  
может , кто сталкивался? прилагаю картинку -наложение в 10 строке (текст на иврите, поэтому не читабельный)  
спасибо
Страницы: 1
Loading...