Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Вставить колонку / 7 сообщений из 7, страница 1 из 1
25.10.2005, 09:07:40
    #33341581
Jojo
Jojo
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вставить колонку
Есть готовая таблица в Excel, нужно в середину вставить колонку.
Вот начал и не могу добить, поскажите пож-та


Private Sub CommandButton111_Click()

Name_book11 = Application.ActiveWorkbook.Name
FILE22 = ActiveWorkbook.Sheets("Загрузка").Cells(3, 5).Value
Workbooks.Open Filename:=FILE22
Name_book22 = Application.ActiveWorkbook.Name

' Добавим новые столбцы
Workbooks(Name_book11).Sheets("Данные").Activate
Workbooks(Name_book11).Sheets("Данные").Range("N1:N64000").Select
Selection.Copy
Workbooks(Name_book22).Sheets("Данные").Activate
Workbooks(Name_book22).Sheets("Данные").Columns("N:N").Select
Workbooks(Name_book22).Sheets("Данные").Range("N:N").Insert Shift:=xlToRight
Workbooks(Name_book22).Sheets("Данные").Range("N1:N64000").Select
ActiveSheet.Paste

MsgBox ("Колонка добавлена ! ")


End Sub


Scio me nihil scire

<<Jojo®>>
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.10.2005, 09:59:45
    #33341704
Jojo
Jojo
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вставить колонку
никто не знает чтоли?
хоть бы примерный код

Scio me nihil scire

<<Jojo®>>
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.10.2005, 10:22:08
    #33341777
Sinner
Sinner
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вставить колонку
есть такая штука, как зяпись макроса...
попробуй включить запись, потом ручками сделать, чего надо,
и в редакторе VBA увидишь программный код этого, очень помогает в работе...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.10.2005, 10:43:38
    #33341858
Jojo
Jojo
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вставить колонку
Sinnerесть такая штука, как зяпись макроса...
попробуй включить запись, потом ручками сделать, чего надо,
и в редакторе VBA увидишь программный код этого, очень помогает в работе...

Я не ламер ...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.10.2005, 10:45:58
    #33341866
Jojo
Jojo
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вставить колонку
все не нада
сам разобрался ... Степлер ...на то опять скажет сам себе проблемы создает и решает. :)

Private Sub CommandButton111_Click()

Name_book11 = Application.ActiveWorkbook.Name
FILE22 = ActiveWorkbook.Sheets("Загрузка").Cells(3, 5).Value
Workbooks.Open Filename:=FILE22
Name_book22 = Application.ActiveWorkbook.Name

' Добавим новые столбцы
Workbooks(Name_book11).Sheets("Данные").Activate
Workbooks(Name_book11).Sheets("Данные").Columns("N:N").Select
Selection.Copy
Workbooks(Name_book22).Sheets("Данные").Activate
Workbooks(Name_book22).Sheets("Данные").Columns("N:N").Select
Selection.EntireColumn.Insert
Workbooks(Name_book22).Sheets("Данные").Columns("N:N").Select
ActiveSheet.Paste

MsgBox ("Колонка добавлена ! ")


End Sub

Scio me nihil scire

<<Jojo®>>
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.10.2005, 18:55:41
    #33343544
White Owl
White Owl
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вставить колонку
JojoЯ не ламер ...
Да? :) А на кой фиг тогда используешь Selection?
Код: plaintext
1.
2.
3.
4.
5.
Dim wsSource as Worksheet, wsDestination as Worksheet
set wsSource = ActiveWorksheet
Workbooks.Open("somefile.xls")
set wsDestination = ActiveWorksheet
wsSource.Columns("N").Copy Destination:=wsDestination.Columns("N")
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.10.2005, 15:47:26
    #33345410
_Jojo_
_Jojo_
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вставить колонку
вот потому что ламер,
сначала задаю глупые вопросы,
а потом 3,14-зжу направо и налево....
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Вставить колонку / 7 сообщений из 7, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 298ms
Закрыть
start [/forum/topic.php?fid=61&mobile=1&tid=2185618]:
 0ms
get settings:
 5ms
get forum list:
 8ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 47ms
get topic data:
 6ms
get forum data:
 1ms
get page messages:
 24ms
get tp. blocked users:
 1ms
others: 202ms
total:  298ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]