|
|
|
цикл с проверкой данных в ячейки
|
|||
|---|---|---|---|
|
#18+
всем доброе время суток. оговорюсь сразу что в VBA почти 0 ситуация вот какая: есть excel файл (содержимое прикреплено) нужно сделать перебор по ячейкам столбца С и если данные типа дата попадают в диапазон допустим 2009.04.01 по 2009.05.24 тогда содержимое ячейки копируется в свободную ячейку на строку выше Пр.: если С362 попадает в этот диапазон тогда содержимое ячейки А362 копируется (а лучше и вырезается) в ячейку I361. если кто может помогите плз, желательно с пояснениями т.к. хочется разобраться (а сроки поджимают)=( P.S. заранее спасибо ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 31.03.2009, 23:57:26 |
|
||
|
цикл с проверкой данных в ячейки
|
|||
|---|---|---|---|
|
#18+
В чем именно проблема: незнаком синтаксис языка или не понятно как алгоритм составить? Если первое, то используйте функцию записи макроса. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 01.04.2009, 12:28:22 |
|
||
|
цикл с проверкой данных в ячейки
|
|||
|---|---|---|---|
|
#18+
не нужен вам vba никакой ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 01.04.2009, 17:11:36 |
|
||
|
цикл с проверкой данных в ячейки
|
|||
|---|---|---|---|
|
#18+
PlanBне нужен вам vba никакой о, спс=) очень облегчило задачу =) Korcar В чем именно проблема: незнаком синтаксис языка или не понятно как алгоритм составить? Если первое, то используйте функцию записи макроса. не с алгоритмом не каких проблем, сам язык скажем так чужд. разобраться конечно можно(и буду разбираться) просто сроки поджимают и на это времени нет=( вобще в идеале хотел сделать вот как перебор по столбцу С и если дата подходящая тогда бы копировались строки расположенные между пустыми строками на новый лист. ну не буду вас грузить, если возникнут вопросы обязательно задам=)) P.S. огромное спасибо очень выручили ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 01.04.2009, 21:41:34 |
|
||
|
цикл с проверкой данных в ячейки
|
|||
|---|---|---|---|
|
#18+
Guest10001, sub aaa () dim a as date nd1=range("c10000").end(xlup).row 'определили нижнюю ячейку требуемого диапазона столбца С for i% = 1 to nd1 'цикл на столбец a= cells(i,3) k=1 if a<>"" and a>"01.04.2009" and a<24.05.2009" then nd2=range("c"&i).end(xldown).row range(cells(i+1,3),cells(nd2-1,3)).entirerow.select 'возможно, entirerowS, не помню selection.copy sheets(2).cells(k).paste k=k+1+nd2-i end if next end sub короче, может и чушь, но я хочу спать и не хочу проверять а писал я от руки начнёте разбераться - поможет, я надеюсь... ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 01.04.2009, 22:35:41 |
|
||
|
|
start [/forum/topic.php?fid=61&fpage=200&tid=2179649]: |
0ms |
get settings: |
10ms |
get forum list: |
18ms |
check forum access: |
3ms |
check topic access: |
3ms |
track hit: |
54ms |
get topic data: |
10ms |
get forum data: |
2ms |
get page messages: |
48ms |
get tp. blocked users: |
2ms |
| others: | 227ms |
| total: | 377ms |
| 0 / 0 |
