Visual Basic, .NET, ASP, VBScript
Новости | Примеры | Библиотека кодов | НеЧаВо | VBA | Справочник по VB | Справочник по WinAPI | ActiveX контролы | Статьи по VB | Мастерская разработчика | Форум VBNet | Яndex bar! | Голосование | Полезные программы | Магазин VBNet | Рассылка | Конкурсы | Юмор | Чат | Реклама на VBNet | Автора! | Ссылки | Бета-тестирование | Послать пример на сайт
 

   
   
     

Форум - VBA

Страница: 1 |

 

  Вопрос: активировать ячейки с пом VBA Добавлено: 15.10.08 11:00  

Автор вопроса:  Kairat1976 | ICQ: 83030230 
Здравствуте, мне необходимо активировать ячейку с помощью VBA в зависимости от значения в текущей активной ячейке варианов 8 вверех, внизх, вправо, влево и по диагонали
Заранее благодарен
С уважением
Кайрат

Ответить

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

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



ICQ: 308-534-060 

Вопросов: 20
Ответов: 1860
  Web-сайт: mc-black.narod.ru/dzp.htm
 Профиль | | #1 		Добавлено: 15.10.08 12:29
  1. Option Explicit
  2.  
  3. Sub Main()
  4.     Dim i As Integer
  5.     i = ActiveCell.Value
  6.     Select Case i
  7.         Case 1
  8.             ActiveCell.Offset(-1, -1).Activate
  9.         Case 2
  10.             ActiveCell.Offset(-1, 0).Activate
  11.         Case 3
  12.             ActiveCell.Offset(-1, 1).Activate
  13.         Case 4
  14.             ActiveCell.Offset(0, -1).Activate
  15.         Case 5
  16.             ActiveCell.Offset(0, 0).Activate
  17.         Case 6
  18.             ActiveCell.Offset(0, 1).Activate
  19.         Case 7
  20.             ActiveCell.Offset(1, -1).Activate
  21.         Case 8
  22.             ActiveCell.Offset(1, 0).Activate
  23.         Case 9
  24.             ActiveCell.Offset(1, 1).Activate
  25.     End Select
  26. End Sub


Или в обработчике событий

Ответить

Страница: 1 |

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



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