Столкнулся с необычной проблемой. У меня есть макрос в котором есть 6 циклов и каждый цикл разной длины и размерности. Суть моего макроса это сравнение двух разных книг и копирование всей информации из одной книги в другую при этом учитывает чтобы кол-во строк было равным, и поэтому в макросе много циклов. Сам макрос выполняется около 40 сек. Так вот возник вопрос как отобразить процесс выполнения макроса. Читал много разных идей но так и не нашёл нужный вариант. Т.е. мне не нужно создавать форму и делать в ней прогресбар для меня лучший вариант отображение в статус бар что упрощает вывод индикации. Ниже код который я использую для того чтобы видеть прогресс, но он работает если его вставить в один цикл, тогда понятно как связать его с макросом но у меня много разных циклов.

Так вот вопрос: как привязать данный код к макросу с множеством циклов? И можно ли запустить индикацию так чтобы параллельно выполнялся макрос? Ну и получится что я буду видеть ход выполнения макроса.
(читать всё…)

Помогите пожалуйста написать программу для PIC12F629. Нужен следующий алгоритм: питание подал — постоянно горит светодиод №1, светодиод №2 не горит. Кнопку нажал и держишь, светодиод №1 сразу потух, светодиод №2 горит. Кнопку отпустил — светодиод №2 моргает 3 секунды после чего загорается светодиод №1. Какие ноги будут задействованы разберусь сам из кода. В наличии установлены micropascal pro for pic и mplab ide.

(читать всё…)

В таблице хранится значение текстом.
Когда я пытаюсь вывести это значение в ячейку таблицы.

То у меня весь текст превращается в строку, как сделать, чтобы воспринимались переносы строки, как в базе данных?

(читать всё…)

Передаю параметры в Post …

Авторизация уже прошла и страничка БЕЗ ПАРАМЕТРОВ загружается,
на ней есть несколько полей и кнопка [Применить фильтр]
в запросе ей соответствует поле Filter.
Поля заполняю точно так же как это вижу сниффером в момент ручного заполнения полей и нажатия кнопки [Применить фильтр]
вот часть кода:

  код delphi: 
  ...
  ADDR := 'http://' + Edit1.Text;
  mpfd := TIdMultiPartFormDataStream.Create;
  ...
  mpfd.AddFormField('ENaklDateF', '');
  mpfd.AddFormField('ZStatusList', '(все)');
  mpfd.AddFormField('Filter', 'Применить фильтр');
  ...
  stream := TMemoryStream.Create;
  ...
  idhttp1.Post(ADDR,mpfd,stream);
  ...

Сниффер показывает, что я передаю (сниффер: HTTPAnalyzer Stand-alone)

... 
mpfd.AddFormField('ENaklDateF', ''); 
mpfd.AddFormField('ZStatusList', '(???)'); 
mpfd.AddFormField('Filter', '????????? ??????'); 
...

HTTPEncode, AnsiToUtf8, UTF8Encode не помогаю.

Как бороться с этими ВОПРОСИКАМИ , есть знатоки ???

(читать всё…)

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

(читать всё…)

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

(читать всё…)

Моя простая программа, которая печатает числа от 1 до n, которая введена заранее. И вот полученный результат, все вроде бы работает. А как сделать так, чтобы печатались цифры, и получалось бы два столбца? Например, я ввожу 2 и 4. А результат должен быть таким
(читать всё…)

Как открыть картинку формата PNG ?
Вообще, надо его конвертировать в JPG.

(читать всё…)

Я узнала что заголовки h1-h6 имеют смысловое значение для поисковой системы.
Можно ли, название сайта которое находится в шапке заключать в тег h1?
Спрашиваю, потому что все мнения расходятся, хотела бы узнать, как правильно.

(читать всё…)

… Где то я не догоняю — как с этим бороться , передаю параметры в Post …

Авторизация уже прошла и страничка БЕЗ ПАРАМЕТРОВ загружается,
на ней есть несколько полей и кнопка [Применить фильтр]
в запросе ей соответствует поле Filter.
Поля заполняю точно так же как это вижу сниффером в момент ручного заполнения полей и нажатия кнопки [Применить фильтр]
вот часть кода:

  код delphi: 
  ...
  ADDR := 'http://' + Edit1.Text;
  mpfd := TIdMultiPartFormDataStream.Create;
  ...
  mpfd.AddFormField('ENaklDateF', '');
  mpfd.AddFormField('ZStatusList', '(все)');
  mpfd.AddFormField('Filter', 'Применить фильтр');
  ...
  stream := TMemoryStream.Create;
  ...
  idhttp1.Post(ADDR,mpfd,stream);
  ...

Сниффер показывает, что я передаю (сниффер: HTTPAnalyzer Stand-alone)

... 
mpfd.AddFormField('ENaklDateF', ''); 
mpfd.AddFormField('ZStatusList', '(???)'); 
mpfd.AddFormField('Filter', '????????? ??????'); 
...

HTTPEncode, AnsiToUtf8, UTF8Encode не помогают

Как бороться с этими ВОПРОСИКАМИ , есть знатоки ?

… Некоторые наблюдения …
Запускаю проект и смотрю, что в итоге ушло в Post Data в соответствующей переменной
Точно так же просматриваю, что отсылает на сервер http://…/OrderList.aspx
при нажатии на кнопку [Применить фильтр]

Так вот:
если я отправляю из программы — то переменная ZStatusList = ‘(???)’,
если запрос отправить со странички ручками — то переменная ZStatusList = ‘(все)’ и остальные поля тоже с русскими буковками а не с вопросиками.
Вот такая неувязочка.
( ЗЫ: Причем если получать данные со странички простым GET сразу в MEMO будет таже проблема с ВОПРОСИКАМИ а если через ПОТОК то все ок. И еще — если скомпилировать проект не на 10 INDY а на старой что идет в комплекте с дистрибутивом Delphi 7 то все ОК — вижу русский и при приеме и при отправки. )
Естественно Post отрабатывается без параметров, как будто я просто первый раз зашел на страничку.
( там данный просто за последнюю неделю отображаются ).

Что посоветуете — сносить INDY 10 и вертать старую (хотя очень не хочется да и будут думаю те еще траблы с возвратом) или есть способ побороть проблему?

(читать всё…)