wyfinger

Private Function GetCurrentCourse(strValute As String) As Double
'
' Сколько рублей стоит выбранная валюта на данный момент

Const proxy$ = "iwsva2.prim.so-ups.ru:8080"
Const url$ = "http://www.cbr.ru/scripts/XML_daily.asp?date_req="   ' Центральный банк Российской Федерации

Dim objHTTP, objXML

Set objHTTP = CreateObject("WinHTTP.WinHTTPRequest.5.1")

wyfinger

Option Explicit

Private Function GetValue(Inpt As String) As Double
    Dim I As Integer
    Dim J As Integer
    Dim Outpt As String
    Inpt = Replace(Inpt, ".", Format(0, "."))
    Inpt = Replace(Inpt, ",", Format(0, "."))
    For I = 1 To Len(Inpt)
        Select Case Mid$(Inpt, I, 1)

wyfinger

Sub Проверка_Конфига_для_сводного_листа()

    Columns("J:P").Select
    Selection.Delete Shift:=xlToLeft

    Range("J1:P1").Select
    Selection.Merge
    Range("J1").Value = "Для сводного листа замечаний"
    Range("J2").Value = "Адрес"
    Range("K2").Value = "Перв"

wyfinger

Function Num2ABC(ByVal x As Long) As String
x = x - 1
Do
Num2ABC = Chr$(65 + x Mod 26) & Num2ABC
x = x \ 26 - 1
Loop While x >= 0
End Function

wyfinger

Sub CopyFieldCode()
'
' Копирование кода поля в буфер
'

Dim sFieldCode As String
Dim d As Object

If Selection.Fields.Count = 0 Then Exit Sub
sFieldCode = "{" & Replace(Replace(Selection.Fields(1).Code, ChrW(19), "{"), ChrW(21), "}") & "}"

wyfinger

Все прочитанные статьи и публикации, или то, что я только собираюсь прочитать отправляю себе
на почту с помощью uKeeper (www.ukeeper.com). Суть сервиса в том, что Вы можете отправить на
адрес drops@ukeeper.com email с адресом интересующей Вас страницы, в ответ на это прийдет
письмо с содержимым этой страницы в удобном виде (используется Readability). Так проще искать и,
кроме того, если статью удалят или ресурс будет в дауне Вы сможете прочитать статью.

Чтобы не паритсья с отправкой запросов можно зарегитсрироваться и получить id код.

Я пользуюсь Vivaldi и добавляю в него кнопочку для uKeeper'a. Делаю это следующим образом:

wyfinger

Sub SelectByColor()
' Выбор объектов на листе с указанным цветом линий
Set sList = Application.ActiveWindow.Page.Shapes
For Each sItem In sList
  lineColor = sItem.CellsSRC(visSectionObject, visRowLine, visLineColor).FormulaU
  If lineColor = "THEMEGUARD(RGB(0,153,255))" Then
    ActiveWindow.Select sItem, visSelect
  End If
Next

wyfinger

Много дебилов-дизайнеров повадились в последнее время злоупотреблять CSS свойством position,
эти самые дизайнеры добавляют всякого-рода непрокручиваемые области. Особенно любят они их
во всю ширину сверху или снизу. Эту мерзость невозможно смотреть на широкоформатном мониторе,
и уж тем более на ультраширокоформатном.
Примеры: yandex.ru, intel.com, lifejournal.com

Вот этот простой код на js избавляет от проблемы. В браузере Vivaldi можно добавить в папку
C:\Program Files (x86)\Vivaldi\Application\0.0.0.0\resources\vivaldi\user_files
(вместо нулей - версия) и активировать скрипт в меню рядом с ползунком масштаба.

wyfinger

'
' Сравнение строк с пометкой изменений, text diff
' Работает по словам, можно переделать для работы по строкам
' wyfinger@yandex.ru / 2016-04-27
'

Private Function PrepareString(strInput As String) As String
'
' Удаляем пробелы, переносы строк и табуляцию

wyfinger

#!/usr/bin/env python3

# Загружаем все что можно загрузить с сайта Siemens Siprotec
#

import time
from selenium import webdriver
import win32com.client as win32

driver = webdriver.Firefox()