| Вопрос: Vopros ... EXCEL "VBA" | Добавлено: 06.07.05 13:51 |
Автор вопроса:  Ramil | Web-сайт: www.Ramil.boom.ru | ICQ: 286597559 |
|
Spasibo chto reshili mne pomoch ...
Kak mojno zdelat' ? Esli v yacheyke Range("C7:BB7") est' kokayata cifra to kopiruem ego na druguyu knigu ... esli tam net cifr to propuskaem etot list i perexodim na drugoy list.listov u menya 200. Naprimer vot tak For i = 1 to 200
'esli est v Range("C7:BB7") kokayata cifra to kopiruem ego na druguyu knigu. next i Ochen' proshu pomoshi ... Spasibo. |
| Ответы | Всего ответов: 6 |
|
Номер ответа: 1 Автор ответа:  ActiveX Вопросов: 0 Ответов: 73 |
Профиль | | #1 | Добавлено: 06.07.05 20:06 |
|
Если числовое значение не является результом вычислений формулы или ссылкой, то достаточно :
On Error Resume Next
For Each iList In Worksheets iCount = iList.Range("C7:BB7"  .SpecialCells(2, 1).Count
If iCount > 0 Then MsgBox "Здесь должно быть копирование" End If Next |
||
|
Номер ответа: 2 Автор ответа: RamilICQ: 286597559 Вопросов: 13 Ответов: 25 |
Web-сайт: Профиль | | #2 | Добавлено: 07.07.05 14:25 |
|
Spasibo chto otvetili mne ... ActiveX
Vi mne uje neskolko raz pomogali ... bolshoe Spasibo. No etot kod mne ne pomog  ili ya ne smog pravilno ispolzivat' ...
U menya setuaciya vot takaya ... Dim a, t, date1 As String
a = Range("a1"
' "a" eto ssilka t = Range("a2"
' "t" eto imya fayla date1 = Range("a3"
' date1 eto data katoruyu ukozali zaranee 'esli data = 1 to Range("C7:BB7" esli 2 to Range("C8:BB8" i tak dalee ... do 31 go
g = a & t Workbooks.Open Filename:=g ' V otkritom fayle 200 shitov ... mne nado chtob programma iskala esli naprimer date1 = 1 to v Range("C7:BB7" esli est' kokayata cifra ... to kopiruet vse Range("C7:BB7" v knugu ("Книга1.xls" v Range("a1"perexodit obratno na otkritiy fayl gde on vzyal eti dannie i prodoljaet iskat' v next worksheets ... esli est' esho odna Range("C7:BB7" s dannimi ... opyat' kopiruet ego opyat' perexodit na ("Книга1.xls" no delaet Paste uje na Range("a2" i.t.
netx i Ochen' proshu pomoshi ... |
||
|
Номер ответа: 3 Автор ответа: ActiveXВопросов: 0 Ответов: 73 |
Профиль | | #3 | Добавлено: 07.07.05 16:02 |
|
Ramil, если честно, то у меня уже после прочтения пяти строк транслита начинается полный разброд мыслей, причем в диаметрально противоположном направлении. Однако, после титанических усилий, предпринятых для прочтения Вашего поста я пришёл к мнению, что для Вас основным препятствием является изменение адреса копируемого диапазона, в зависимости от дня (data)
On Error Resume Next
For Each iList In Worksheets iAddress = Range("C7:BB7" .Offset(Day(Now) - 1).Address
iCount = iList.Range(iAddress).SpecialCells(2, 1).Count If iCount > 0 Then MsgBox "Здесь должно быть копирование" End If Next Переменная iAddress использована для лучшей читаемости кода и не является жизненно необходимой Кстати, Вы так и сказали, что именно представляют собой искомые числовые значения (см. первый пост) |
||
|
Номер ответа: 4 Автор ответа: RamilICQ: 286597559 Вопросов: 13 Ответов: 25 |
Web-сайт: Профиль | | #4 | Добавлено: 07.07.05 16:46 |
|
Ya mogu vam otpravit' excel fayl ... tama ya napishu chto mne nado ... vi mojete mne pomoch ? mne ochen' nujna pomosh ... vi stolko zdelali dlya menya ... ya daje ne znayu kak vas ot blogadarit' .
Magu ya vam otpravit fayl ... chtob vi posmatreli kak mojno eto zdelat' . Pojaluysta ... esli mojno to napishite mne vash e-mail ... |
||
|
Номер ответа: 5 Автор ответа: ActiveXВопросов: 0 Ответов: 73 |
Профиль | | #5 | Добавлено: 07.07.05 21:07 |
| Можете конечно выслать vba@nxt.ru, но если все комментарии опять на транслите, то вряд ли я чем-то смогу Вам быть полезен. | ||
|
Номер ответа: 6 Автор ответа: RamilICQ: 286597559 Вопросов: 13 Ответов: 25 |
Web-сайт: Профиль | | #6 | Добавлено: 08.07.05 11:32 |
|
Spasibo chto soglasilis'
Ya vam otpravlyu excel fayl (200 rabochix listov) i perviy list gde ya napishu chto mne nado na ruskom yazike. |
||
Страница: 1 |