Добавить диапазон ячеек

Страница 1 из 1 1
Модератор форума: китин, _Boroda_, DrMini

Добавить диапазон ячеек (Макросы/Sub)

AlexRen

Дата: Среда, 09.04.2014, 19:53 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 2

Репутация: 0 ±

Замечаний: 0% ±

Excel 2007

Здравствуйте. Подскажите как переделать код чтобы он срабатывал на определенные ячейки?
[vba]

Код

Private Sub Worksheet_Change(ByVal Target As Range)
       myD = Target.Text
       If IsNumeric(myD) = True And Len(myD) = 2 Then
           Target.Value = CDbl(Left(myD, 1) & "," & Right(myD, 1))
       End If
End Sub

[/vba]

Сообщение отредактировал AlexRen - Среда, 09.04.2014, 19:56

Ответить

ikki

Дата: Среда, 09.04.2014, 21:45 | Сообщение № 2

Группа: Друзья

Ранг: Старожил

Сообщений: 1906

Репутация: 504 ±

Замечаний: 0% ±

Excel 2003, 2010

в начало макроса вставить проверку - является ли ячейка "определённой".
так как Вы не рассказали, какие именно ячейки у Вас "определенные" (нет-нет, я всё понимаю - военная тайна, подписка о неразглашении и всё такое...), то более конкретно ответить невозможно.

помощь по Excel и VBA
ikki@fxmail.ru, icq 592842413, skype alex.ikki

Ответить

AlexRen

Дата: Среда, 09.04.2014, 21:52 | Сообщение № 3

Группа: Пользователи

Ранг: Прохожий

Сообщений: 2

Репутация: 0 ±

Замечаний: 0% ±

Excel 2007

Цитата ikki, 09.04.2014 в 21:45, в сообщении № 2

так как Вы не рассказали, какие именно ячейки у Вас "определенные"

Мне нужно чтобы код срабатывал в ячейках "G3:G31"

Ответить

ikki

Дата: Среда, 09.04.2014, 22:15 | Сообщение № 4

Группа: Друзья

Ранг: Старожил

Сообщений: 1906

Репутация: 504 ±

Замечаний: 0% ±

Excel 2003, 2010

[vba]

Код

if target.column<>7 or target.row<3 or target.row>31 then exit sub

[/vba]

помощь по Excel и VBA
ikki@fxmail.ru, icq 592842413, skype alex.ikki

Ответить

_Boroda_

Дата: Среда, 09.04.2014, 22:44 | Сообщение № 5

Группа: Админы

Ранг: Местный житель

Сообщений: 16957

Репутация: 6631 ±

Замечаний: ±

2003; 2007; 2010; 2013 RUS

или так
[vba]

Код

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("G3:G31")) Is Nothing Then
'код макроса
End If
End Sub

[/vba]

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995

Ответить

Добавить диапазон ячеек (Макросы/Sub)

Страница 1 из 1
1