Visual Basic, .NET, ASP, VBScript
 

   
   
     

Форум - VBA

Страница: 1 |

 

  Вопрос: Активировать колонку Добавлено: 01.11.08 16:59  

Автор вопроса:  AngryBadger
Не могу понять, как активировать колонку, следующую за последней заполненой, помогите если не сложно.

Sub Save()

Range("A:A").Copy
Workbooks.Open ("C:\2.xls")
Sheets(1).Activate
iClm = Cells(1, 256).End(xlToLeft).Column
i = iClm + 1
Columns(1, i).Activate
ActiveSheet.Paste
Application.Workbooks("2.xls").Close

End Sub

Ответить

  Ответы Всего ответов: 2  

Номер ответа: 1
Автор ответа:
 mc-black



ICQ: 308-534-060 

Вопросов: 20
Ответов: 1860
 Web-сайт: mc-black.narod.ru/dzp.htm
 Профиль | | #1
Добавлено: 02.11.08 13:36
Именно колонку, или же все-таки ячейку? А то приведённый фрагмент кода смотрится как-то не в тему.

Ответить

Номер ответа: 2
Автор ответа:
 mc-black



ICQ: 308-534-060 

Вопросов: 20
Ответов: 1860
 Web-сайт: mc-black.narod.ru/dzp.htm
 Профиль | | #2
Добавлено: 02.11.08 13:55
Выделение первой пустой ячейки вправо от активной:
  1. Sub DoIt()
  2.     Cells(ActiveCell.Row, ActiveCell.End(xlToRight).Column + 1).Select
  3. End Sub


Выделение первой колонки вправо от последней заполненной ячейки, что вправо активной ячейки:
  1. Sub DoIt()
  2.     ActiveSheet.Columns(ActiveCell.End(xlToRight).Column + 1).Select
  3. End Sub

Ответить

Страница: 1 |

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



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