ReSQL.ru
     
powered by simpleCommunicator - 2.0.59     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / как написать в VBA условие* "последний символ = "2"*
8 сообщений из 8, страница 1 из 1
как написать в VBA условие* "последний символ = "2"*
    #36542667
Shun
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shun
Гость
Подскажите, как написать в VBA условие
"если последний символ имени ячейки = 2 то ... "

Заранее благодарна
...
Рейтинг: 0 / 0
25.03.2010, 15:54
| Ответить | Цитировать | Написать  
как написать в VBA условие* "последний символ = "2"*
    #36542722
Фотография qwrqwr
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
qwrqwr
Участник
Shun,
Код: plaintext
if (range("моя ячейка").row- 2 ) mod  10  =  0  then ...
...
Рейтинг: 0 / 0
25.03.2010, 16:07
| Ответить | Цитировать | Написать  
как написать в VBA условие* "последний символ = "2"*
    #36542724
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Konst_One
Участник
Код: plaintext
1.
2.
IF Right(CStr(Ячейка),  1 ) = "2" THEN
 MsgBox "последняя 2-ка"
END IF
...
Рейтинг: 0 / 0
25.03.2010, 16:08
| Ответить | Цитировать | Написать  
как написать в VBA условие* "последний символ = "2"*
    #36542738
Фотография Игорь Горбонос
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Игорь Горбонос
Участник
> Автор: Shun
> Подскажите, как написать в VBA условие
> "если последний символ имени ячейки = 2 то ... "

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
Option Explicit

Sub dfbg()
If Len(CStr(ActiveSheet.Cells( 1 ,  1 ).Value)) >  0  And _
    Right(CStr(ActiveSheet.Cells( 1 ,  1 ).Value),  1 ) = "2" Then
    MsgBox "Последний символ равен 2"
Else
    MsgBox "Последний символ не равен 2"
End If
End Sub


Posted via ActualForum NNTP Server 1.4
...
Рейтинг: 0 / 0
25.03.2010, 16:13
| Ответить | Цитировать | Написать  
как написать в VBA условие* "последний символ = "2"*
    #36542793
Djon Player
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Djon Player
Участник
Ну для ускорения предыдущий код можно написать ещё так:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
With ActiveSheet.Cells( 1 ,  1 )
  If Len(CStr(.Value)) >  0  And _
   Right(CStr(.Value),  1 ) = "2" Then
   MsgBox "Последний символ равен 2"
  Else
   MsgBox "Последний символ не равен 2"
  End If
End With

А если учесть, что для пустой ячейки ошибки не будет при использовании Right, то можно сократить и оставить только это:

Код: plaintext
1.
2.
3.
4.
If Right(CStr(ActiveSheet.Cells( 1 ,  1 ).Value),  1 ) = "2" Then
  MsgBox "Последний символ равен 2"
 Else
  MsgBox "Последний символ не равен 2"
End If
...
Рейтинг: 0 / 0
25.03.2010, 16:32
| Ответить | Цитировать | Написать  
как написать в VBA условие* "последний символ = "2"*
    #36542969
.Михаил.
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
.Михаил.
Участник
Shun,
Код: plaintext
1.
If Cells( 1 ,  1 ).Value Like "*2" Then
...
Рейтинг: 0 / 0
25.03.2010, 17:32
| Ответить | Цитировать | Написать  
как написать в VBA условие* "последний символ = "2"*
    #36543518
Фотография vlth
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vlth
Участник
Хм... Shun , смотря что Вы подразумеваете под именем... И все почему-то ответили про содержимое ячейки (?)

1. Если "имя" - это имя ячейки:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
Sub Example()
Dim oCell As Range
For Each oCell In Selection.Cells
    If fncHasName(oCell) Then
        If oCell.Name Like "*2" Then MsgBox oCell.Address
    End If
Next
End Sub
Function fncHasName(objC As Range) As Boolean
On Error Resume Next
fncHasName = Not IsEmpty(objC.Name)
End Function
1. Если "имя" - это адрес ячейки:
Код: plaintext
1.
2.
3.
4.
5.
Sub Example2()
Dim oCell As Range
For Each oCell In Selection.Cells
    If oCell.Column Like "*2" Then MsgBox oCell.Address
Next
End Sub
...
Рейтинг: 0 / 0
26.03.2010, 01:18
| Ответить | Цитировать | Написать  
как написать в VBA условие* "последний символ = "2"*
    #36543599
Shun
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shun
Гость
Спасибо ^_^
...
Рейтинг: 0 / 0
26.03.2010, 06:52
| Ответить | Цитировать | Написать  
8 сообщений из 8, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / как написать в VBA условие* "последний символ = "2"*
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]