Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 25.08.2009, 11:00   #1
mephist
Форумчанин
 
Регистрация: 01.05.2009
Сообщений: 200
По умолчанию Ошибка

Доброго времени суток!
Извиняйте, за глупый вопрос, но я уже больше часа ломаю голову.
Код:
Sub Макрос2()
    Dim p, u As Integer
    p = 1: u = 2
    Columns(p & ":" & u).Delete Shift:=xlToLeft
End Sub
Ну ведь должно же работать!!!
mephist вне форума Ответить с цитированием
Старый 25.08.2009, 11:14   #2
EducatedFool
Программист VBA
СуперМодератор
 
Аватар для EducatedFool
 
Регистрация: 13.07.2008
Сообщений: 6,856
По умолчанию

Код:
Sub Макрос2()
    ' попробуйте так
    p = "A": u = "B"
    Columns(p & ":" & u).Delete

    ' можно и так
    p = 1: u = 2
    Columns(p).Resize(, u - p + 1).Delete

    ' или даже так
    p = 1: u = 2
    Range(Cells(p), Cells(u)).EntireColumn.Delete
End Sub
EducatedFool вне форума Ответить с цитированием
Старый 25.08.2009, 11:35   #3
mephist
Форумчанин
 
Регистрация: 01.05.2009
Сообщений: 200
По умолчанию

Спасибо большое.
mephist вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Nero - ошибка драйвера DMA. ошибка CRC NecRoMat Софт 5 09.05.2012 01:29
Ошибка в статье = ошибка в рограмме. Alex Cones Общие вопросы Delphi 14 29.07.2009 18:17
Ошибка в Аfor i:=1 to SI do. Пишит что ошибка в SI Алексей_xXx Помощь студентам 2 29.05.2009 00:09
Ошибка brutos Общие вопросы Delphi 8 19.05.2009 17:09
...Ошибка 101 (net::ERR_CONNECTION_RESET): Неизвестная ошибка... infrared Помощь студентам 0 16.04.2009 17:44