ReSQL.ru
     
powered by simpleCommunicator - 2.0.38     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Проверка на количество значений
14 сообщений из 14, страница 1 из 1
Проверка на количество значений
    #34103615
Frost_Imp
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Frost_Imp
Участник
Всем доброго времени суток!
Кто может подсказать решение следующей проблемы:
есть ящейка, в нее вписывается или вставляется числовое значение. Нужно написать процедурку такого характера
Код: plaintext
if в ячейке  10  цифр\nthen отнять удалить первую цифру из этих  10 \nelse оставить как есть \nend if\n
--------------------
А что на самом деле хотел сказать "Frost_Imp" никто не знает, так как одминистрация форума попросила его быть вежливым.
...
Рейтинг: 0 / 0
03.11.2006, 12:10
| Ответить | Цитировать | Написать  
Проверка на количество значений
    #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:23
| Ответить | Цитировать | Написать  
Проверка на количество значений
    #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:24
| Ответить | Цитировать | Написать  
Проверка на количество значений
    #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:28
| Ответить | Цитировать | Написать  
Проверка на количество значений
    #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:29
| Ответить | Цитировать | Написать  
Проверка на количество значений
    #34103740
Denis_Sql
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Denis_Sql
Участник
Уел таки...
...
Рейтинг: 0 / 0
03.11.2006, 12:34
| Ответить | Цитировать | Написать  
Проверка на количество значений
    #34103752
SvIva
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
SvIva
Участник
А если формулой ?
Код: plaintext
=ЕСЛИ(ДЛСТР(A1)= 10 ;ПСТР(A1; 2 ; 9 );A1)
...
Рейтинг: 0 / 0
03.11.2006, 12:37
| Ответить | Цитировать | Написать  
Проверка на количество значений
    #34103757
Frost_Imp
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Frost_Imp
Участник
ээээ.... первую цифру отнимает... Только потом почему то не присваивается исходной ячейке измененное значение
...
Рейтинг: 0 / 0
03.11.2006, 12:38
| Ответить | Цитировать | Написать  
Проверка на количество значений
    #34103800
Frost_Imp
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Frost_Imp
Участник
Разобрался. Всем спасибо!
--------------------
А что на самом деле хотел сказать "Frost_Imp" никто не знает, так как одминистрация форума попросила его быть вежливым.
...
Рейтинг: 0 / 0
03.11.2006, 12:48
| Ответить | Цитировать | Написать  
Период между сообщениями больше года.
Проверка на количество значений
    #39605612
Димка-Хулиган
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Димка-Хулиган
Гость
Подскажите плиз как сделать тоже самое, но только для всего первого столбца, а не одной ячейки. И прописать это в коде страницы.
...
Рейтинг: 0 / 0
21.02.2018, 16:17
| Ответить | Цитировать | Написать  
Проверка на количество значений
    #39605627
Фотография Akina
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Akina
Участник
Димка-Хулиган , возьми код из 3352800 и доработай его, оберни обрезку в цикл по ячейкам диапазона.
...
Рейтинг: 0 / 0
21.02.2018, 16:37
| Ответить | Цитировать | Написать  
Проверка на количество значений
    #39605634
Димка-Хулиган
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Димка-Хулиган
Гость
Akina,
Как только я его не крутил, не получается у меня ничего
...
Рейтинг: 0 / 0
21.02.2018, 16:40
| Ответить | Цитировать | Написать  
Проверка на количество значений
    #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, 16:58
| Ответить | Цитировать | Написать  
Проверка на количество значений
    #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
21.02.2018, 18:21
| Ответить | Цитировать | Написать  
14 сообщений из 14, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Проверка на количество значений
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru             Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&msg=34103752&tid=2172393]:
 0ms
get settings:
 11ms
get forum list:
 14ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 37ms
get topic data:
 9ms
get forum data:
 3ms
get page messages:
 44ms
get tp. blocked users:
 1ms
others: 295ms
total:  422ms
созд. / загр.: 422ms
x
x
Закрыть


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