| Вопрос: Pomogite pojaluysta reshit' problemmu ... Excel | Добавлено: 02.07.05 19:12 |
Автор вопроса:  Ramil | Web-сайт: www.Ramil.boom.ru | ICQ: 286597559 |
|
Zdrastvuyte ...
U menya est' programma na Excel i est' 100 faylov ... v kajdom fayle 200 shitov :( V svoey programme ya pishu dannie i posle najatiya knopki vixodit InputBox gde ya pishu porametri otpravki etix dannix v te fayli(v odin iz 100 faylov i 200 shitov). Delo v tom chto mne nado posle togo kak ya otpravil eti dannie v nujnie mesta (raznie dannie 35 raz otpravlyayutsya v raznie shiti iz 200 v 1 fayl iz 100 faylov) s drugoy knopkoy (katoruyu nado sozdat')chto bi sozdavalas' noviy fayl v kotorim postroetsya tablitsya s verxu vniz 33 yacheek i s levo na pravo 35. (35 eto stolko raz ya otpravlyal dannie) Princip znaeti kakoy ... mne nado programma search. katoraya naydyot v otkritoy knige iz 200 shitov vichislit v kokom iz nix est' dannie naprimer dlya 01.07.2005 dnya i skopiruet ix v fayl gde sozdala ta je programma tablitcu 33 sverxu vniz 35 s levo na pravo. Pomogite mne pojaluysta ... xot' sprashivayte mojet nado dopolnitelnaya informaciya ... mojet ya ne vsyo napisal... Spasibo |
| Ответы | Всего ответов: 4 |
|
Номер ответа: 1 Автор ответа:  night-roll Вопросов: 36 Ответов: 326 |
Профиль | | #1 | Добавлено: 26.07.05 01:51 |
|
а на каком этапе тебе нужна помощь?
создать файл? и можно по-русски писать? |
||
|
Номер ответа: 2 Автор ответа:  Ramil ICQ: 286597559 Вопросов: 13 Ответов: 25 |
Web-сайт: Профиль | | #2 | Добавлено: 28.07.05 15:10 |
|
Здраствуйте
Я уже зделал кое что для себя но у меня не получается следующие етапы. Программа копирует данные с Range("A5:AH5"  и должна вставить в другом книге ("Книга1.xls" в Range("A5" с транспортом .
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True В следуюший раз чтоб делал Paste не на Range("A5" а на Range("B5" на один столбец в право(и.т.п. около 50 ячеек).Но ето должна быть так что бы программа видела если в Range("A5" есть цыфры то COPY делает на Range("B5" и.т.п.
Спосибо вам заранее... |
||
|
Номер ответа: 3 Автор ответа: night-rollВопросов: 36 Ответов: 326 |
Профиль | | #3 | Добавлено: 30.07.05 03:00 |
|
транспорт - это транспозиция, я так понимаю. проверка ячейки на наличие в ней данных
if Range("A5"
.Value <> "" Then ...
' если ничего нет, то ... а на проверку цифр можно так: 1. если есть цифра в строке (например "dfg12df"
тогда ищем рекурсией(перебором) символов в строке 2. если это вообще число (например "2155"
If IsNumeric(Range("В5"
.Value) Then MsgBox "это число"причем если это пустая ячейка, то это "ноль", поэтому сначала проверить на наличие данных (см. выше) |
||
|
Номер ответа: 4 Автор ответа: night-rollВопросов: 36 Ответов: 326 |
Профиль | | #4 | Добавлено: 30.07.05 03:02 |
|
я прошу прощения
if Range("A5"
.Value <> "" Then ...
' если что-то есть, то ... |
||
Страница: 1 |