Visual Basic, .NET, ASP, VBScript
 

   
   
     

Форум - VBA

Страница: 1 |

 

  Вопрос: 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-сайт: www.Ramil.boom.ru
 Профиль | | #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 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам