SERGE_BLIZNUK
Silver Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору NPC Troitsky мне кажется, что ему ( NPC ) проще надо... Если я правильно его понял, то ему нужно из одной книги стобцы A и B перевести в hex, объединить, дописать "25002" и результат поместить в столбец A другой книги. Похоже, что один цикл лишний (хотя, если у него всего два стобца заполнены, он этого даже не заметит ;-)))) Код: Dim i As Integer, j As Integer With Worksheets(1) For j = 1 To .UsedRange.Rows.Count Worksheets(2).Cells(j, 1).Value _ = Hex(.Cells(j, 1).Value) _ & Hex(.Cells(j, 2).Value) _ & "25002" Next j End With | kramrus Цитата: сначала хотел в личку написать, а потом решил, вдруг ещё кому-то пригодится... есть огромная куча сервисов в интернете, которые позволяют разместить у себя ваш файл (т.н. файл-обменники). Например, http://slil.ru http://www.mytempdir.com http://ifolder.ru http://www.paid4load.com и, конечно, самый известный рапидшара - http://rapidshare.com на любой из них заходите, нажимаете кнопку "Обзор" (или "Browse"), выбираете ваш файл (его лучше предварительно запаковать и имя архиву дать английскими буквами - не все обменники дружат с русскими названиями. Кстати, запаковать можно с паролем - тогда вы сможете быть уверенным, что кроме того, кому вы сообщили ссылку на файл и пароль, никто не сможет его просмотреть), потом жмакаете "Загрузить" ("Upload"). Получаете ссылочку. вот её и публикуете. вуаля. |