Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Пользователи » Badamyan
Выбрать дату в календаре…Выбрать дату в календаре

Страницы: 1
в Excel 2016 не могу поставить подпись с помощью смарт карты
 
#
07.10.2016 15:07:59
Подпись Excel файла на Excel 2010 и 2013 нормально работал, как установил 2016 выдает такую ошибку
Тот же файл на другом компьютере, на Excel 2010 нормально подписывает, смарт карта тоже работающая
Изменено: Badamyan - 07.10.2016 15:09:23
 
Перейти    
В Microsoft Query не работает полное объединение таблиц ( FULL OUTER JOIN ), что можно использовать вместо него?
 
#
06.10.2016 21:58:16
есть 2 таблиц, нужно их объединение с помощью Microsoft Query, как оказалось в нем не работает FULL OUTER JOIN, но как не странно работают LEFT и RIGHT OUTER JOIN, что тогда использовать в этом случае ?  
Изменено: Badamyan - 06.10.2016 22:37:34
 
Перейти    
Можно ли создать макрос, создающий другой макрос, Если можно, то прошу помочь
 
#
27.08.2016 09:56:18
Можно ли с помощью макроса создать другой макрос, если можно то прошу помочь
 
Перейти    
полученный текс с помощью макроса, скопирую в другой макрос, но вставляет совсем иное
 
#
27.08.2016 08:04:19
Код
Dim r_text
For c = 1 To Len(TextBox1)
If Mid(TextBox1, c, 1) = Chr(10) Then
Count = Count + 1
End If
Next c
r_text = Split(TextBox1, Chr(10))
For i = 0 To Count
SQLCode = SQLCode & " " & Chr(34) & r_text(i) & Chr(34) & " " & Chr(38) & " " & "chr(10)" & " " & Chr(38)
Next i
SQLCode = Left(SQLCode, Len(SQLCode) - 11)
Range("A1").value=SQLCode
с помощью этого кода получаю вот такой текст "select" & chr(10) & "from", который приписывает в ячейке A1, в принципе то что нужно, но потом этот текст скопирую в код другово макроса, а он вставляет что то такое """select"" & chr(10) & ""from"""
Вопрос почему, если в ячейке A1 буду по ручному приписать нужный текст, те "select" & chr(10) & "from" и потом его скопировать в код макроса то все будет окей, в чем разница, вроде тот же текст, те же символы
Изменено: Badamyan - 27.08.2016 10:13:53
 
Перейти    
Информация для изучения SQL server, подскажите пожалуйста какие то книги, форумы или все что поможет учить SQL server
 
#
01.08.2016 16:25:06
подскажите пожалуйста какие то книги, форумы или все что поможет учить SQL server для excel, word ( если такое есть ), вообще нечего не знаю, нужно учиться с нуля, еще если можно всякие видио где показаны возможности SQL server + если есть онлайн платные уроки, то и их контакты
заранее спасибо
 
Перейти    
On Error GoTo next_sh: с первого круга цыкла работает, со второго нет
 
#
27.07.2016 16:32:11
Код
Sub fill()
        sch_n = WorksheetFunction.Match("Наименование услуги", Sheets("счета").Range("A:A"), 0) + 2
        sch_k = WorksheetFunction.Match("ИТОГО", Sheets("счета").Range("A:A"), 0) - 1
        Sheets("счета").Range("A" & sch_n, Range("A" & sch_k)).Select
        Sheets("счета").Range(Selection, Range("E" & sch_n, Range("E" & sch_k))).Select
        Selection.ClearContents
        firma = Sheets("счета").Range("C18").Value
    
For Each sh In Sheets

    If sh.Name <> "счета" And sh.Name <> "для рассчета" Then
            sh.Select
                kol = Cells(Rows.Count, 1).End(xlUp).Row
                    On Error GoTo next_sh
                    a = WorksheetFunction.Match(firma, sh.Range("A:A"), 0)
                    If a > 0 Then
                    Sheets("счета").Cells(sch_n - 2, 1).End(xlDown).Offset(1, 0) = sh.Name
                         For i = 1 To kol
                            If firma = Range("A" & i).Value Then
                            Sheets("счета").Cells(sch_n - 2, 1).End(xlDown).Offset(1, 0) = sh.Range("B" & i).Value
                            Sheets("счета").Cells(sch_n - 2, 1).End(xlDown).Offset(0, 1) = sh.Range("D" & i).Value
                            Sheets("счета").Cells(sch_n - 2, 1).End(xlDown).Offset(0, 2) = sh.Range("E" & i).Value
                            Sheets("счета").Cells(sch_n - 2, 1).End(xlDown).Offset(0, 3) = sh.Range("F" & i).Value
                            End If
                         Next i
                    Else
                    Exit For
                    End If
      End If
next_sh:
Next sh
End Sub
Изменено: Badamyan - 27.07.2016 16:46:23
 
Перейти    
Почему не работает оператор Or?
 
#
27.07.2016 15:30:51
Код
For Each sh In Sheets
a = sh.Index
If a <> 4 or a <> 5 Then 
sh.Select
End If
Next                  
Изменено: Badamyan - 27.07.2016 16:39:20
 
Перейти    
VBA - не закрываются открытые ранее книги, с помощью цикла открываю несколько файлов, но потом не могу их закрыть, что пишу не так
 
#
21.07.2016 14:40:19
Код
Sub All_in_one()
    
For Each x In Application.GetOpenFilename(filefilter:="all excel files, *.xl*", Title:="select files to open", MultiSelect:=True)
Workbooks.Open x     
        For Each c In Sheets
            y = Workbooks("All.xlsm").Sheets.Count
               If c.Name <> "MS-Excel" Then
               c.Copy after:=Workbooks("All.xlsm").Sheets(y)
            End If            
        Next c
Workbooks.Close x
Next x

End Sub
Изменено: Badamyan - 21.07.2016 15:08:59
 
Перейти    
Страницы: 1
Наверх