Архив рубрики: Без рубрики

‘————————————————————————————— ‘ Module : ЭтаКнига ‘ DateTime : 12.08.2014 16:57 ‘ Author : The_Prist(Щербаков Дмитрий) ‘ WebMoney — R298726502453; Яндекс.Деньги — 41001332272872 ‘ http://www.excel-vba.ru ‘ Purpose : http://www.excel-vba.ru/chto-umeet-excel/vedenie-zhurnala-sdelannyx-v-knige-izmenenij/ ‘————————————————————————————— ‘Option Explicit Public sValue As String Private Sub Workbook_SheetChange(ByVal Sh As Продолжить чтение нормальный лог файла LOG→

_Слив ОСВ_v3.86 Шаблон 51 Универсальный Sub CopySh() Application.ShowWindowsInTaskbar = False Dim wbCopy As Workbook With Application.FileDialog(1) .Show If .SelectedItems.count <> 1 Then Exit Sub Set wbCopy = GetObject(.SelectedItems(1)) End With   With wbCopy ‘ .ActiveSheet.Copy before:=Workbooks(ThisWorkbook.Name).Sheets(1)\ ‘ .ActiveSheet.Copy before:=Workbooks(ThisWorkbook.Name).Sheets("Банки") ‘ Продолжить чтение Копирование из закрытой книги (лист, диапазон)→

test_comments in excel

  Sub toOpenF()   filename = Application _ .GetOpenFilename("Text Files (*.xl*), *.xl*") If filename <> False Then MsgBox "Open " & fileToOpen End If   If Not IsEmpty(filename) Then Set wb = Workbooks.Open(filename, False, False) Else Exit Sub End If Продолжить чтение Как скопировать все листы из одной книги в другую→

‘Модуль 1   Option Explicit   Private Const PAGE_EXECUTE_READWRITE = &H40   Private Declare Sub MoveMemory Lib "kernel32" Alias "RtlMoveMemory" _ (Destination As Long, Source As Long, ByVal Length As Long)   Private Declare Function VirtualProtect Lib "kernel32" (lpAddress As Продолжить чтение It works!→

http://ivan-shamaev.ru/wp-content/uploads/2013/03/finansovaya_gramotnost_dlya_direktorov_magazinov.pdf

Вариант 1 Function ФАЙЛРАСШИР(ПУТЬ As String) As String Dim temp As Variant If ПУТЬ = "" Then ФАЙЛРАСШИР = "": Exit Function temp = Split(ПУТЬ, ".") ФАЙЛРАСШИР = temp(UBound(temp)) End FunctionFunction ФАЙЛРАСШИР(ПУТЬ As String) As String Dim temp As Variant Продолжить чтение Получить расширение файла→

Public RowC As Integer ‘ ‘Sub ПереносБаланса() ‘ Dim shdto As New Worksheet ‘ Dim shdfrom As New Worksheet ‘ Set shdto = Worksheets("Тест") ‘ Set shdfrom = Worksheets("Баланс") ‘ Dim RowC As Integer » Worksheets("Тест").Range("A:G").ClearContents » Selection.Delete Shift:=xlUp ‘ Продолжить чтение Перенос баланса→

Александр, немного о проекте. Есть ряд объектов недвижимости, по которым нужно периодически актуализировать информацию. Структура БД примерно такая: Основная таблица (tMain): С полями Код, Регион, Дата…. И есть дочерняя таблица (tMainHistory) с аналогичными полями, в который непосредственно будет храниться история Продолжить чтение dsdsssd→

Private Sub Form_AfterUpdate() CurrentProject.Connection.Execute («INSERT INTO tMainHistory (КодДляТаблицы, Регион) VALUES (‘4’, ‘Саратов’)») [Form_подчиненная форма tMainHistory].Requery End Sub