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

‘——————————————————————————————— ‘Функция осуществляет поиск в массиве Rng значения, которые содержатся в массиве RngFind ‘Если значение найдено (по маске), то возвращает найденное значение, если нет, то пустую строку. ‘——————————————————————————————— Function GetNameInRng(ByVal Rng As Range, RngFind As Range) On Error GoTo Next_ Продолжить чтение Преобразование даты к формату ГГГГ.ММ.01→

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range) ‘ Auto adjust cell size for comment fields Dim RowHt As Single, MergeWidth As Single Dim C As Range, AutoFitRng As Range Dim CWidth As Single, NewRowHt As Single Static OldRngAdd As String Dim Продолжить чтение Автовысота в MergeCells→

непредвиденная ошибка при выполнении задачи «VerifyClickOnceSigningSettings».System.IO.FileNotFoundException: Не удалось загрузить файл или сборку «Microsoft.VisualStudio.Tools.Applications.Hosting, Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a» либо одну из их зависимостей. Не удается найти указанный файл.Имя файла: ‘Microsoft.VisualStudio.Tools.Applications.Hosting, Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a’ в Microsoft.VisualStudio.Tools.Applications.Hosting.CodeGeneration.VerifyClickOnceSigningSettings.Execute() в Microsoft.Build.BackEnd.TaskExecutionHost.Microsoft.Build.BackEnd.ITaskExecutionHost.Execute() в Microsoft.Build.BackEnd.TaskBuilder.d__26.MoveNext()Предупреждение: регистрация привязки сборок Продолжить чтение err→

https://msdn.microsoft.com/en-us/library/aa338202(v=office.12).aspx <

Function ЗаменитьСимволы_на_крестики(ByVal txt1 As Range) Dim ddd() As String txt = txt1.Value ReDim ddd(Len(txt)) For i = 1 To Len(txt) If Mid(txt, i, 1) = » » Then ddd(i) = » » ElseIf Mid(txt, i, 3) = «ООО» Then ddd(i) Продолжить чтение Заменить символы на крестики→

Public Rng As Range Public Sum As Range Public Function GETName51(ByVal i As Integer, Optional Pozz As Integer = 0) As String Select Case Range(«E» & i).Value Case 55.03: GETName51 = «Депозит (размещение) » & Range(«K» & i) GoTo Nexti Продолжить чтение Вытаскиваем нужное слово между символами новой строки Chr10→

Application.SendKeys «^g ^a {DEL}» ‘Очистка Immediate Window

SELECT `name`, SUM(IF(`exam`=1,`exam`,NULL)) AS `exam1`, SUM(IF(`exam`=2,`exam`,NULL)) AS `exam2`, SUM(IF(`exam`=3,`exam`,NULL)) AS `exam3`, SUM(IF(`exam`=4,`exam`,0)) AS `exam4` FROM `exams` GROUP BY `name`; SELECT `SchD` , SUM( IF( `Period` =20150101, `Period` , NULL ) ) AS `2015-0101`, SUM( IF( `Period` =20150201, `Period` , NULL Продолжить чтение Сводная таблица MySQL→

AscW(«1»)