Идею писать скриптики я отбросил сразу: дело, может, и несложное, но для меня малопривычное. Кроме того, я хочу, чтобы все работало в браузере на любой машине, а такого рода скриптики — дело еще менее привычное. Для меня.

Остановился на документах Google. Создал табличку, в одни ячейки которой вставляю параметры, а из другой копирую готовую строку. Вот небольшой отрывок:

Формула результирующей ячейки (A7): ="<a href='"&B7&"' title='"&D7&"'>"&C7&"</a>"

Обратите внимание: внутри строки, ограниченной кавычками, используется апостроф. Или это одинарная кавычка? Как правильно?

***
Все эти советы не будут иметь никакого смысла, если с вашим компьютером вдруг что-то случится. Тогда вам будет не до программ и сайтов, вы будете искать компьютерной помощи. На двери вашего подъезда всегда найдется рекламка того или иного специалиста, но не лучше ли заказать комплексный ремонт компьютеров в Петербурге с бесплатными консультациями, диагностикой и вызовом? По крайней мере, здесь сразу указаны ориентировочные цены на услуги, и можно сразу задать свой вопрос. Только если у вас один компьютер, перепишите заранее телефон. На бумажку — она не ломается.

Для решения проблемы я сделал себе «меню домохозяйки». Это просто папочка, лежащая в легко доступном месте, и содержащая ярлыки всех прикладных программ. То же, что и в папке «Программы» Windows. Отличие в том, что во-первых, там нет никаких вложенных папок, только плоский список, а во-вторых, имена программ дополнены краткими описаниями. Вместо «Fortune 2009» мы пишем «Удалить дубли фоток - Fortune 2009». И так для всех программ, как установленных, так и идущих без инсталлятора и не получивших ссылки из главного меню «Программы». Кстати, в процессе создания этой папочки можно столько всего поудалять!

Приведенный рецепт работает и в Windows XP, но в Vista и Windows 7 добавляется еще бонус: там можно запускать программы через поиск по названию. То есть можно прямо так и набирать «удалить дубли».

И еще кое-что: в окне свойств ярлыка есть поле «Комментарий». Если указать в нем категорию, к которой относится программа, например «Видео», «Фото», «Разработка», после можно будет при просмотре вашей папки в Проводнике сгруппировать ярлыки по этим категориям.

Кстати, вы не обязаны ограничиваться только ярлыками программ. По той же схеме можно наделать себе линков на полезные сайты. Например, «Учиться быстро - homework pro отзывы». Тем более, что и многие приложения нынче в сети.

Итак, первая понадобившаяся мне вчера процедура — умножение. На большой схеме есть множество текстовых объектов, содержащих числа. Эти числа надо домножить на некие коэффициенты. Делать все вручную рехнешься, поэтому и был написан макрос. Мне требовалось также округлять числа до десятков, а вот проверять на ошибки в случае захвата объекта, содержащего текст, который нельзя конвертировать в число, совершенно не требовалось. Кому надо, дополняйте под себя. 

' Процедура Multiplicate
' Домножает значения в нескольких выбранных объектах на заданное число.
' Округляет результат до десятков и форматирует с разделителем тысяч.
' Пропускает нетекстовые объекты, но выдает ошибку, если текст
' не является числом.
'
Sub Multiplicate()
Dim sh As Shape
Dim Multi As Double
Dim UserInput As String
Dim OldVal As String
Dim NewVal As Long
' Спрашиваем у пользователя число, и выходим, если он передумал.
UserInput = InputBox("На что домножить:", "Домножение")
If UserInput = "" Then Exit Sub
' Заменяем в том, что ввел пользователь точку на запятую, чтобы
' не парить его переключением раскладок. Если в системе десятичный
' разделитель - точка, поменяйте в строке ниже точку и запятую местами.
UserInput = Replace(UserInput, ".", ",")
Multi = CDbl(UserInput)
' Перебираем все объекты, которые выделил пользователь перед вызовом
' процедуры
For Each sh In ActiveSelection.Shapes
    With sh
        ' Если имеем дело с текстом...
        If .Type = cdrTextShape Then
            ' Берем старое значение (до 100 символов - для числа хватит)
            OldVal = .Text.Range(0, 100)
            ' Чистим от форматирования пробелами
            OldVal = Replace(OldVal, " ", "")
            ' Умножаем и сразу округляем
            NewVal = Round((CDbl(OldVal) * Multi) / 10) * 10
            ' Форматируем и вставляем обратно
            .Text.Range(0, 100) = Format(NewVal, "### ##0")
        End If
    End With
Next

End Sub

Также читайте всю серию постов по VBA.

***

НКВД — это не только то, что вы подумали, но и то, что вам и в страшном сне не могло присниться. Это хостинг. Кстати, если вы поторопитесь, то успеете на раздачу доменов по смешным ценам.

А пока, ребенок, способный сам установить игру (под ограниченной учетной записью, вам это удавалось? мне — нет), плохо понимает аналогию «вставить диск = подмонтировать образ с винчестера». Поэтому получил от папы набор ярлыков такого вида:

"C:\Program Files\Alcohol 52\AxCmd.exe" H: /M:"D:\Disk Images\JEDIOUTCAST.iso"

Первая часть — путь к исполняемому файлу алкоголя, H: — буква виртуального диска, а после /M: указан путь к образу диска, который нужно смонтировать. Поскольку речь идет о запуске уже установленных игр, можно взять иконку для ярлыка ту же, что и в ярлыке запуска игры, в «Программах».

Теперь достаточно запустить этот ярлык для смены «диска» в виртуальном дисководе. Не беспокойтесь, о том «диске», что был «вставлен» до запуска. Он сам предварительно отмонтируется.

***

Начните зарабатывать, посетив сайт www.eliteforex.ru.

' strVar - значение переменной  
' strFormula - строка, содержащая саму формулу, место, куда надо
' подставить переменную, обозначено символами VAR

Function sheetFormula(strVar As String, strFormula As Variant) As Variant

' Если формула пустая, не тратим ресурсы
If strFormula = "" Then Exit Function

' Юзер - дурак, уберем крайние пробелы
strFormula = Trim(strFormula)

' Чем возиться с параметрами замены, проще все перевести
' в верхний регистр
strFormula = UCase(strFormula)

' Подставляем переменную простой заменой
strFormula = Replace(strFormula, "VAR", CStr(strVar))

' Мой (ну почему только мой?!) фирменный финт:
' заменяем запятую на точку, позволяя пользователю
' использовать любой из этих знаков
strFormula = Replace(strFormula, ",", ".")

' Вычисляем все с помощью функции Evaluate.
' Конструкция выглядит загадочно, но только так я
' добился от этой функции стабильной работы.
' Что она там себе думает, не знаю.
sheetFormula = Evaluate(CStr(strFormula) + "+0")

End Function

Теперь можно попросить пользователя в одной ячейке вбить значение переменной, в другой — формулу, а результат использовать по всей книге.

Между прочим, кого-то из вас поджидает вакансия в Проф-Медиа Business Solutions. Кого?

Также читайте всю серию постов по VBA.

' Поворот выделенных объектов по отдельности на 180 градусов

Sub Rotate180()
Dim sh As Shape
Dim centerX As Double, centerY As Double

' Перебираем все shape в выделении
For Each sh In ActiveSelection.Shapes
    With sh

        ' Ищем центральную точку, вокруг которой будем вращать
        centerY = (.TopY - .BottomY) / 2 + .BottomY
        centerX = (.RightX - .LeftX) / 2 + .LeftX

        ' Вращаем
        .RotateEx 180, centerX, centerY

    End With
Next

End Sub

Не забывайте про возможность поиграть с группировкой. Если при повороте нужно сохранить положение нескольких фигур относительно друг друга, их можно сгруппировать, и только потом поворачивать. Или вернуться к полю ввода угла, — как вам удобнее.

Также читайте всю серию постов по VBA.

Предположим, у нас есть таблица с двумя столбиками с парами взаимосвязанных параметров. Понаблюдали мы раз десять за чем там надо наблюдать, записали результаты, увидели, что зависимость линейная, и стало нам лень остальные двести измерений делать. Первый столбик мы заполним от балды, введем какой-нибудь коэффициент, а для второго значения напишем функцию.

Примерно такую:

' Очень-очень хитрая функция
' аргументы:
' myValue - значение (целое)
' coefficient - коэффициент (вещественное)
' функция возвращает значение типа variant для того,
' чтобы мы могли запихать туда сообщение об ошибке
Function Falshivka(myValue As Integer, _
coefficient As Double) As Variant
' вводим переменную для промежуточных расчетов
Dim Res As Double

' сердце и мотор функции - вычисление
Res = myValue * coefficient

' а теперь разбодяжим слишком правильный результат.
' инициализируем генератор случайных чисел
Randomize

' и используем его (функция rnd вернет случайное
' число от 0 до 1)
' таким образом мы получим некоторой разброс
' вокруг вычисленного значения
Res = Res + (Rnd - 0.5) * (Res * 0.3)

' для интереса предположим, что при исходном
' значении больше нуля, результат тоже обязан
' быть положительным и ненулевым. Проверим это
If myValue > 0 And (Res < 0 Or Res = 0) Then
' ай, не повезло! придется выводить сообщение
' об ошибке, да текстовое,
' чтобы заметно было, а потом - ручками, ручками...
Falshivka = "-= 0 =-"
Else
' все. Присваиваем функции правильный результат.
' Просто пишем имя нашей функции, знак «равно» и то,
' что она должна вернуть.
Falshivka = Res
End If
End Function

Помните, что случайные значения Rnd вовсе не случайны! Было время, я наблюдал повторяющиеся последовательности среди чисел, что она выдает.

Вот так ненавязчиво можно обмануть доверившихся вам людей. Не делайте этого! Такой примитивный и безграмотный обман быстро откроется. Зато мы создали собственную функцию, ничем не хуже встроенной. Теперь в любой ячейке можно вбить «=falshivka()», и в скобках подставить ссылки на ячейки с нужными данными.

Не палите меня, ладно?

Также читайте всю серию постов по VBA.