Ещё один сайт на WordPress
using System; using System.Collections.Generic; using System.ComponentModel; using System.Data; using System.Drawing; using System.Linq; using System.Text; using System.Threading.Tasks; using System.Windows.Forms; using Microsoft.Office.Interop.Excel; namespace WindowsFormsApplication4 { public partial class Form1 : Form { public Form1() { InitializeComponent(); } private void button1_Click(object sender, EventArgs Продолжить чтение C# открытие файла EXCEL
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»)
http://www.ict.edu.ru/ft/005347/mar05079.pdf http://www.codenewsfast.com/cnf/article/0/permalink.art-ng1875q742
Sub Sample212122() ColNo = 3 Debug.Print Split(Cells(1, 1).Address, «$»)(1) StartRange = Range(«Y3») StartRange2 = Range(«A16») Set Rng = Selection Start = Rng.Column Count = Start + Rng.Count — 1 For Each r In Rng If r.MergeCells And Count Mod 3 Продолжить чтение получить нужный адрес ячейки
Public Count As Integer Function GetNormalOSV_NEW(ByVal txt As String) If Len(txt) = 6 And Mid(txt, 5, 2) = 10 Then GetNormalOSV_NEW = zamentochku(Mid(txt, 2, 5)) ElseIf Len(txt) = 4 And Mid(txt, 3, 1) 0 Then GetNormalOSV_NEW = Left(txt, 1) + Продолжить чтение Для работы с общими ОСВ