Ещё один сайт на WordPress
Option Compare Database Option Explicit Private Declare Function GetKeyboardLayoutName Lib «user32» _ Alias «GetKeyboardLayoutNameA» (ByVal pwszKLID As String) As Long Private Declare Function LoadKeyboardLayout Lib «user32» _ Alias «LoadKeyboardLayoutA» (ByVal HKL As String, _ ByVal flags As Long) As Long Продолжить чтение Дудис
ADO
Sub CreateConnection() ‘Declare and instantiate the connection Dim cnn As ADODB.Connection Dim rs As New ADODB.Recordset Dim arr() As Variant Set cnn = New ADODB.Connection ‘Open the connection cnn.Open «Provider=Microsoft.ACE.OLEDB.12.0;» & _ «Data Source=C:\Documents and Settings\KonKram\Рабочий стол\SQLiteForExcel\ADO\BD-01.accdb;» & _ «Persist Продолжить чтение пример использования ADODB.Connection
Скачать: ОСВ V1.0 Скачано: 0, размер: 0, дата: 16.Янв.2017 .kcc_block{ position:relative; padding:15px 10px; margin-bottom:20px; cursor:pointer; transition:background-color 0.4s; } .kcc_block:before{ clear:both; } .kcc_block a{ border-bottom:0; } .kcc_block a.kcc-link{ text-decoration:none; display:block; font-size:150%; line-height:1.2; } .kcc_block img{ width:55px; height:auto; float:left; margin:0 25px 0 Продолжить чтение файл для тестирования 62 сч
Sub dsdsds() i = 1 For Each r In Range(«C1:C1050») If IsDate(r) = False Or IsEmpty(r) = True Then Range(i & «:» & i).Delete i = i + 1 Next End Sub Sub dddddd() For i = 1 To 1000 Продолжить чтение Обработка 51 счета (черновики)
Public Sub www() Dim r As Range With ActiveSheet Set r = Intersect(.UsedRange, .[A:A]).Offset(1) r.FormulaLocal = r.FormulaLocal End With End Sub
Option Compare Database Option Explicit ‘1. `ПУТЬ К ВИНДУ (API) ‘######################### Private Declare Function GetWindowsDirectory Lib «kernel32» Alias «GetWindowsDirectoryA» (ByVal p As String, ByVal p1 As Long) As Long Dim windir As String Private Sub Command1_Click() windir = Space(20) Text1.Text Продолжить чтение WinAPI 32 bit
Private Sub CommandButton1_Click() Dim TargetRow As Long Dim TargetColumn As Integer Dim FoundNomer As Range Dim FoundOkno As Range Dim FoundOknoRow As Long TargetRow = ActiveCell.Row ‘строка активной ячейки TargetColumn = ActiveCell.Column ‘столбец астивной ячейки With Sheets(«Свод») ‘надо перенести содержимое Продолжить чтение Некий поиск
Sub sdsdsd() ii = 0 s01 = 0 s02 = 0 For i = 47 To 100 If Range(«B» & i).Value = 1 And s01 = 0 Then s01 = Range(«G» & i).Value ii = i End If If Range(«B» Продолжить чтение Поиск субсчетов в общей ОСВ 01,02,68,69
Function Open_SQL() Dim ie As Object Set ie = CreateObject(«InternetExplorer.Application») ie.Visible = True ie.Navigate «http://www.sql.ru/» End Function