Тео, спасибо за ваши усилия. Я думаю, что проблема в том, что функции выполняются слишком долго. После того, как я попробую ваш скрипт, появятся предупреждающие сообщения. Он сказал, что запуск программы занимает более 15 секунд, и велел мне прекратить работу.
Я думаю, что функция должна быть в порядке, но, возможно, не совсем практичной.
Тео, спасибо за ваше время и советы еще раз.
Я думаю, что вопрос можно закрыть.