Страница 1 из 1
копирование со здвигом
Добавлено: 23 окт 2009, 12:51
angej
привет! возникла у меня еще одна идейка в упрощении своей роботы но не знаю на сколько это реально сделать....
вопрос такой:
можно ли скопировать с таблицы например два первых столбца и четвертый пропуская третий а вставить их соответственно в первый и второй столбец а четвертый в пятый столбец пропуская два столбца
вот такой замут...
Re: копирование со здвигом
Добавлено: 23 окт 2009, 13:00
atavin-ta
Код: Выделить всё
Sub CopyCols()
Sheets("Лист1").Columns("A:B").Copy
Sheets("Лист2").Range("A1").Select()
ActiveSheet.Paste
Sheets("Лист1").Select
Sheets("Лист1").Columns("D :D ").Copy
Sheets("Лист2").Range("E1").Select
ActiveSheet.Paste
Sheets("Лист2").Range("A1").Select()
End Sub
, или ты про аксес?
Re: копирование со здвигом
Добавлено: 23 окт 2009, 13:09
angej
сам механизм понятен... теперь буду пробовать реализовать его под свои нужды... с созданием разных переменных
спасибо!!!
Re: копирование со здвигом
Добавлено: 23 окт 2009, 13:16
atavin-ta
Это самый тупой и дряной способ. Лучше циклом и без буфера.
Re: копирование со здвигом
Добавлено: 23 окт 2009, 13:24
angej
буду конечно пробовать сделать в цыкле... я так понимаю сдесь нужно делать два цыкла или можно как-то управиться одним? и еще, что значит без буфера
Re: копирование со здвигом
Добавлено: 23 окт 2009, 13:38
atavin-ta
Одним. В теле три присавивания ячеек ячейкам.
Примерно так:
Код: Выделить всё
Sub CopyClos
dim i as integer
for i=1 to 65536 step 1
Sheets("Лист2").Cells(i,1)=Sheets("Лист1").Cells(i,1)
Sheets("Лист2").Cells(i,2)=Sheets("Лист1").Cells(i,2)
Sheets("Лист2").Cells(i,5)=Sheets("Лист1").Cells(i,4)
next i
end sub
Этот вариант тоже, возможно, не лучший. А без буфера - это без буфера обмена. То есть без paste/copy.
копирование со здвигом
Добавлено: 10 ноя 2009, 01:10
PataFromOzz
Для копирования файла, на delphi нужно использовать "CopyFile", где конкретно нужно указывать какой файл нужно копировать.
Но мне нужно скопировать все файлы, которые находятся на флешке
Может у кого-нибудь есть такой исходник?
Re: копирование со здвигом
Добавлено: 10 ноя 2009, 18:27
VictorM
PataFromOzz вообще-то это несколько не по теме))