Гость
Войти | Профиль | Очистить
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Проверка на количество значений / 14 сообщений из 14, страница 1 из 1
03.11.2006, 12:10
    #34103615
Frost_Imp
Frost_Imp
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Проверка на количество значений
Всем доброго времени суток!
Кто может подсказать решение следующей проблемы:
есть ящейка, в нее вписывается или вставляется числовое значение. Нужно написать процедурку такого характера
Код: plaintext
if в ячейке  10  цифр\nthen отнять удалить первую цифру из этих  10 \nelse оставить как есть \nend if\n
--------------------
А что на самом деле хотел сказать "Frost_Imp" никто не знает, так как одминистрация форума попросила его быть вежливым.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.11.2006, 12:23
    #34103682
Denis_Sql
Denis_Sql
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Проверка на количество значений
Sub www()
If Len(Cells(1, 1).Value) = 10 Then
Cells(2, 1).Value = Right(Cells(1, 1).Value, 9)
Else
Cells(2, 1).Value = Cells(1, 1).Value
End If
End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.11.2006, 12:24
    #34103687
Denis_Sql
Denis_Sql
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Проверка на количество значений
Sub www()
If Len(Cells(1, 1).Value) = 10 Then
Cells(2, 1).Value = Right(Cells(1, 1).Value, 9)
Else
Cells(2, 1).Value = Cells(1, 1).Value
End If
End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.11.2006, 12:28
    #34103705
vkodor
vkodor
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Проверка на количество значений
Код: plaintext
1.
2.
3.
4.
5.
Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = False
    If Len(Target) >  9  Then _
        Target = Mid(Target, Len(Target) -  9 )
    Application.EnableEvents = True
End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.11.2006, 12:29
    #34103707
k-nike
k-nike
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Проверка на количество значений
А так короче:
Код: plaintext
1.
2.
3.
4.
Sub www()
    If Len(Cells( 1 ,  1 ).Value) =  10  Then
       Cells( 1 ,  1 ).Value = Right(Cells( 1 ,  1 ).Value,  9 )
    End If
End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.11.2006, 12:34
    #34103740
Denis_Sql
Denis_Sql
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Проверка на количество значений
Уел таки...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.11.2006, 12:37
    #34103752
SvIva
SvIva
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Проверка на количество значений
А если формулой ?
Код: plaintext
=ЕСЛИ(ДЛСТР(A1)= 10 ;ПСТР(A1; 2 ; 9 );A1)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.11.2006, 12:38
    #34103757
Frost_Imp
Frost_Imp
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Проверка на количество значений
ээээ.... первую цифру отнимает... Только потом почему то не присваивается исходной ячейке измененное значение
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.11.2006, 12:48
    #34103800
Frost_Imp
Frost_Imp
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Проверка на количество значений
Разобрался. Всем спасибо!
--------------------
А что на самом деле хотел сказать "Frost_Imp" никто не знает, так как одминистрация форума попросила его быть вежливым.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Период между сообщениями больше года.
21.02.2018, 16:17
    #39605612
Димка-Хулиган
Димка-Хулиган
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Проверка на количество значений
Подскажите плиз как сделать тоже самое, но только для всего первого столбца, а не одной ячейки. И прописать это в коде страницы.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.02.2018, 16:37
    #39605627
Akina
Akina
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Проверка на количество значений
Димка-Хулиган , возьми код из 3352800 и доработай его, оберни обрезку в цикл по ячейкам диапазона.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.02.2018, 16:40
    #39605634
Димка-Хулиган
Димка-Хулиган
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Проверка на количество значений
Akina,
Как только я его не крутил, не получается у меня ничего
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.02.2018, 16:58
    #39605645
Akina
Akina
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Проверка на количество значений
Код: vbnet
1.
2.
3.
For Each OneCall IN Worksheet("Name").Columns("A").UsedRange
    If Len(OneCell) > 9 Then ' и так далее
Next
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.02.2018, 18:21
    #39605709
Казанский
Казанский
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Проверка на количество значений
Димка-Хулиган,
примерно так
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
Private Sub Worksheet_Change(ByVal T As Range)
Dim s$
  Set T = Intersect(T, UsedRange.Columns(1))
  If T Is Nothing Then Exit Sub
  On Error Resume Next
  Application.EnableEvents = False
  For Each T In T
    s = T.Formula
    If Len(s) > 9 Then T.Formula = Mid(s, Len(s) - 9)
  Next
  Application.EnableEvents = True
End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Проверка на количество значений / 14 сообщений из 14, страница 1 из 1
Целевая тема:
Создать новую тему:
Автор:
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 409ms
Закрыть
start [/forum/topic.php?fid=61&mobile=1&tid=2172393]:
 0ms
get settings:
 10ms
get forum list:
 14ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 31ms
get topic data:
 12ms
get forum data:
 3ms
get page messages:
 54ms
get tp. blocked users:
 2ms
others: 275ms
total:  409ms
x
x
Закрыть


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