sibtotal

sibtotal

пикабушник
3434 рейтинг 0 подписчиков 905 комментариев 5 постов 1 в "горячем"
-4

VBA for MS Office: Цикл без модуля (окно Immediate)

Добрый день, начинающие макросописатели!


Знаете ли вы, что для запуска простенького цикла не обязательно добавлять модуль, создавать процедуру (Sub).


Несложный цикл, даже вложенный, можно выполнить прямо из окошка Immediate (полезнейшая штука, я щетаю).


В окне Immediate для разделения команд используется не перенос строки, а двоеточие (кстати, двоеточие как разделитель можно использоватьи в обычных макросах).


Например, я хочу в бекапе файла для уменьшения размера убрать все формулы, заменив их значениями. В нём больше ста листов, еле ворочается.


Набираю в окне Immediate такую строку

for each sh in activeworkbook.Sheets:sh.usedrange.value=sh.usedrange.value:debug.Print sh.name:next sh

VBA for MS Office: Цикл без модуля (окно Immediate) Vba, Vba excell, Excel, На заметку

Жму Enter – и дожидаюсь окончания работы цикла. Ура, всё готово.

5

Вставка кириллицы из/в VBA MS Office

Наверняка, каждый, кто пользуется макросами в работе с MS Office, раньше или позже сталкивается с проблемой вставки русского текста в окно редактора макросов или из него.


Неправильно настроенная система пытается перекодировать текст и заменяет кириллические знаки на символ вопроса.

Вот так:

Вставка кириллицы из/в VBA MS Office Vba, Vba excell, Excel, На заметку

Можно покопаться в реестре, исправить настройки перекодировки. Но это средство доступно не всем.


Есть выход проще: перед копированием текста переключите раскладку на русскую в исходной программе (той, из которой копируете текст).


Пусть ваши макросы работают как надо!

-2

SMS-мошенники

Очередные мошенники. SMS c номера +79920111614

"/VISA/ Заявка на перевод с карты 9490.00RUB. принята. Инф: 89000463030"


Погуглил номера, похоже Свердловская область (живу в Сибири).

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


На всякий случай уточню признаки явного sms от разводил:

1. Не указан банк.

2. Не указаны последние цифры номера карты.

3. Телефонные номера sms зарегистрированы в другом регионе.

4. Банки не пользуются длинными "левыми" номерами для информационных sms по картам.

SMS-мошенники Мошенничество, Телефонные мошенники, Развод через СМС

Хотел было написать жалобы операторам, обслуживающим номера, но гугл не выдаёт никаких контактов (ЗАО "РТ-Мобайл" Свердловская обл., ООО "ЕКАТЕРИНБУРГ-2000")

Готовы принять вызов и засветиться в рекламе? Тогда поехали!

Готовы принять вызов и засветиться в рекламе? Тогда поехали!

Признайтесь, вы хоть раз, но заходили на Авито. Возможно, продавали старые книги, детские вещи или старинные, но совсем ненужные вам вазы или статуэтки. Когда звезды сходятся, покупка или продажа выходит крайне удачной. Как у наших героев.


1. @MorGott

Почти открыл свой магазин на Авито из детских вещей, из которых вырос его ребенок.


2. @Little.Bit

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


3. @MadTillDead

Собралась с силами и продала на Авито все, что напоминало ей о бывшем.


4. @Real20071

Его жена доказала, что в декрете тоже есть заработок. Причем на любимом деле и Авито.


Своим удачным опытом они поделились в коротких роликах. Теперь ваша очередь!

Снимите видео об успешном опыте продажи, покупки или обмена на Авито, отправьте его нам и получите шанс показать свой ролик всей стране. Представьте, вы можете попасть в рекламу Авито! А еще выиграть один из пяти смартфонов Honor 20 PRO или квадрокоптер. Ну что, готовы принять вызов? Смотрите правила, подробности и ролики для вдохновения тут.

Отличная работа, все прочитано!