VPF::Выдиление ячеек - Форум программистов

Staruha

Дата 22.5.2005, 10:55 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1292
Регистрация: 1.2.2004
Где: Казань

Репутация: 13
Всего: 27

Благодаря Вашим рассуждениям у меня получилось

Код


 Private Sub CommandButton1_Click()
Dim dRange As Range 'äèàïàçîí
Dim dr As Integer
Dim dc As Integer
Dim c As Integer
Dim r As Integer
 
ActiveSheet.UsedRange.Select
  Set dRange = Selection
  r = dRange.Range("A1").Row + 1 'Ñòðîêà ïåðâîé ÿ÷åéêè âíóòðè äèàïàçîíà
  c = dRange.Range("A1").Column + 1
     dc = dRange.Columns.Count - 2 - 1
     dr = dRange.Rows.Count - 2 - 1
  Range(Cells(r, c), Cells(r + dr, c + dc)).Select
End Sub

Это сообщение отредактировал(а) Staruha - 22.5.2005, 10:57

Присоединённый файл ( Кол-во скачиваний: 0 )

__.rar

--------------------

Возмездие настигнет

Gannibal

Дата 22.5.2005, 15:00 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 742
Регистрация: 15.4.2003
Где: 010101

Репутация: нет
Всего: 17

замечятельный код .. огромное сапсибо smile

токо вото н ещё некоректно работает ну как так как надо ... но неполностью ещё надо подпровлять будет smile

а так огромное спасибо.. smile

--------------------

Я родился в этом безумном мире - и Я сделаю всё чтобы в нём выжить!

Staruha

Дата 22.5.2005, 19:29 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1292
Регистрация: 1.2.2004
Где: Казань

Репутация: 13
Всего: 27

Не забудь показать финальную версию smile

Это сообщение отредактировал(а) Staruha - 22.5.2005, 19:30

--------------------

Возмездие настигнет

Gannibal

Дата 22.5.2005, 21:39 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 742
Регистрация: 15.4.2003
Где: 010101

Репутация: нет
Всего: 17

это обязательно smile

--------------------

Я родился в этом безумном мире - и Я сделаю всё чтобы в нём выжить!

Staruha

Дата 22.5.2005, 22:03 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1292
Регистрация: 1.2.2004
Где: Казань

Репутация: 13
Всего: 27

Посмотрела насчет корректности .Ну да есть.
Вот здесь поправила

Код


  r = dRange.Range("B2").Row 'вторая ячейка в диапазоне
 c = dRange.Range("B2").Column
dc = dRange.Columns.Count - 3
dr = dRange.Rows.Count - 3

--------------------

Возмездие настигнет

Ochkaric

Дата 17.7.2007, 16:21 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 1
Регистрация: 17.7.2007

Репутация: нет
Всего: нет

Добрый день (вечер или ночь)!
Помогите решить проблему: надо заставить работать индикатор текущего состояния (с помощью UserForm). В книге Джона Уокенбаха рассматривается частный пример, который не годится.
У меня макрос долго работает, выполняя как перенос данных так и их анализ. Есть ли другие примеры
на эту тему ?

bilya

Дата 18.7.2007, 12:19 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 112
Регистрация: 3.1.2007

Репутация: 1
Всего: 1

Может - ну его, Джона Уокенбаха, к соседям постучим? http://forum.developing.ru/showthread.php?t=10446
smile

mihanik

Дата 19.7.2007, 11:48 (ссылка)

(нет голосов)

Загрузка ...

-=Белый Медведь=-

Профиль
Группа: Комодератор
Сообщений: 4054
Регистрация: 24.4.2006
Где: г. Тверь

Репутация: 9
Всего: 109

Ochkaric!!!
Модератор: Пожалуйста, один топик - один вопрос.

--------------------

Программистами не рождаются, - это родовая травма...

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Программирование, связанное с MS Office \| Следующая тема »