Сайт для Васи
https://yadi.sk/d/_YxpUwwYkLX4h
Ещё один сайт на WordPress
https://yadi.sk/d/_YxpUwwYkLX4h
Sub Выделить_между() Dim MyRange As Range, rStart&, rEnd& Set MyRange = ActiveDocument.Content With MyRange With .Find .ClearFormatting .Text = "Структура активов" .Forward = True .Wrap = wdFindStop .Format = False .MatchCase = False .MatchWholeWord = True .MatchWildcards = False .MatchSoundsLike Продолжить чтение Поиск текста в Word
Option Explicit Public LastRow As Integer Sub HelloWorld(control As IRibbonControl) On Error Resume Next Application.ScreenUpdating = False Trim Application.ScreenUpdating = True End Sub Private Sub Trim() Dim ws6 As Worksheet Dim ws14 As Worksheet Set Продолжить чтение Поиск уникальных значений (для заключения)
<?php class MyExtClass extends MyClass { private $myName; private $myAdress; function setMyName($myName){ $this->myName=$myName; } function print1 ($myName, $myAdress){ echo "My Name is: {$this->myName} "; echo "My Adress is: $myAdress \n"; } } //========================================================= // Реализация Продолжить чтение Наследование PHP
<?php class MyClass { private $myName; private $myAdress; function __construct ($myName, $myAdress){ $this->myName=$myName; $this->myAdress = $myAdress; } function print1 (){ echo "My Name is: $this->myName <br/>"; echo "My Adress is: $this->myAdress \n"; } } Продолжить чтение Работа с классами
https://docs.google.com/spreadsheets/d/15ygTQE05swTPqAAJL7S_zuS769Lk7WuzmX_S5e-9oio/edit?usp=sharing
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <html xmlns="http://www.w3.org/1999/xhtml"> <head> <!— <meta http-equiv="Content-Type" content="text/html; charset=UTF-8" /> —> <title>Страница ввода данных</title> </head> <body> <?php //http://localhost:8080/excel/index.php?XDEBUG_SESSION_START=session_name define(’EOL’,(PHP_SAPI == ‘cli’) ? PHP_EOL : ‘<br />’); /** PHPExcel_IOFactory */ require_once dirname(__FILE__) Продолжить чтение получить данные
https://habrahabr.ru/post/136540/
Application.Trim пример: Selection = Application.Trim(Selection) Cells.SpecialCells(xlLastCell).Row