ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Как написать в Exel Если в ячейке код первого символа=n, то действие?
10 сообщений из 10, страница 1 из 1
Как написать в Exel Если в ячейке код первого символа=n, то действие?
    #33608126
Тин
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Тин
Гость
Доброго дня ВСЕМ!

Нужно такое:
Если(в ячейке код первого символа = n, то произвести с данными в этой ячейке действие, перейти к следующей ячейке в столбце) Если(в ячейке код первого символа не равен n, то ничего не делать, перейти к следующей ячейке в столбце)

Как осуществить, пл?
...
Рейтинг: 0 / 0
17.03.2006, 14:11:58
| Ответить | Цитировать | Написать  
Как написать в Exel Если в ячейке код первого символа=n, то действие?
    #33608201
Logayn
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Logayn
Гость
н-р так :
for i=1 to 10
if asc(mid(cells(i,№ столбца).value,1,1))=n then
...
end if
next i
...
Рейтинг: 0 / 0
17.03.2006, 14:30:00
| Ответить | Цитировать | Написать  
Как написать в Exel Если в ячейке код первого символа=n, то действие?
    #33610506
Тин
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Тин
Гость
А если неизвестно количество строк?
То есть количество ячеек в столбце в каждом следующем файле разное, в смысле конечное значение i неизвестно, то как написать правильно вот это:
Код: plaintext
1.
If Asc(Mid(?.Value,  1 ,  1 ))=  32  Then Replace (?," ","йййй ", 1 , 1 )

чтобы заменился первый пробел в ячейке на "йййй " и проверялась следующая ячейка на наличие этого первого пробела.

А если пробела в начале строки нет, то перейти к следующей ячейке. И так до конца ячеек в стоблце.
...
Рейтинг: 0 / 0
19.03.2006, 18:24:02
| Ответить | Цитировать | Написать  
Как написать в Exel Если в ячейке код первого символа=n, то действие?
    #33610931
Logayn
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Logayn
Гость
Можно использовать
For Each element In group
[statements]
[Exit For]
[statements]
Next [element]

Либо

i=1
Do Unil IsEmpty(cells(i,столб).value)
if ...проверка
cells(i,столб).value="йййй" & mid(cells(i,столб).value,2)
End If
i=i+1
Loop
...
Рейтинг: 0 / 0
20.03.2006, 08:34:37
| Ответить | Цитировать | Написать  
Как написать в Exel Если в ячейке код первого символа=n, то действие?
    #33611055
Фотография talgat
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
talgat
Участник
ТинА если неизвестно количество строк?

Тогда нужно поискать пустую строку в нужном диапазоне. (конец списка)
Set r = ActiveSheet.Range("A3:A1000")
Set g = r.Find(What:="")
stroka = "A" & g.Row ' уже пустая ячейка
...
Рейтинг: 0 / 0
20.03.2006, 09:59:06
| Ответить | Цитировать | Написать  
Как написать в Exel Если в ячейке код первого символа=n, то действие?
    #33611190
melamory
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
melamory
Участник
последнюю строку можно найти так

Cells.SpecialCells(xlLastCell).Row
...
Рейтинг: 0 / 0
20.03.2006, 10:45:27
| Ответить | Цитировать | Написать  
Как написать в Exel Если в ячейке код первого символа=n, то действие?
    #33611660
Тин
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Тин
Гость
О! Как подробно!

Спасибо БОЛЬШУЩЕЕ! Вся ясно!
...
Рейтинг: 0 / 0
20.03.2006, 12:44:14
| Ответить | Цитировать | Написать  
Как написать в Exel Если в ячейке код первого символа=n, то действие?
    #33612771
Фотография Senin Viktor
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Senin Viktor
Участник
melamoryпоследнюю строку можно найти так

Cells.SpecialCells(xlLastCell).Row

Можно-то можно, только не последнюю на текущий момент, а просто последняя строка UsedRange'а //ActiveSheet.UsedRange.rows(ActiveSheet.UsedRange.rows.count).row//,
которая уже давно м.б. без данных, можно попасть на пустое перелопачивание тысяч строк, хотя для многих задач этого способа хватит за глаза

По мне самое простое/универсальное, что-то типа этого cells(65536,№СТОЛБЦА).end(xlUp).row,
если требуется найти первое значение снизу
...
Рейтинг: 0 / 0
20.03.2006, 17:57:11
| Ответить | Цитировать | Написать  
Как написать в Exel Если в ячейке код первого символа=n, то действие?
    #33613586
melamory
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
melamory
Участник
Senin Viktor
UsedRange'а //ActiveSheet.UsedRange.rows(ActiveSheet.UsedRange.rows.count).row//,

По мне самое простое/универсальное, что-то типа этого cells(65536,№СТОЛБЦА).end(xlUp).row,
если требуется найти первое значение снизу

хороший способ, не знала, спасибо за науку.
вот только на то. что у тебя написано ругается, говорит не поддерживает метод, может я не так понала?
у меня так получилось:
ActiveSheet.UsedRange.SpecialCells(xlLastCell).Row
...
Рейтинг: 0 / 0
21.03.2006, 10:14:43
| Ответить | Цитировать | Написать  
Как написать в Exel Если в ячейке код первого символа=n, то действие?
    #33613607
vkodor
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vkodor
Участник
Senin Viktor прав
лутше так
Код: plaintext
1.
2.
    Dim myNis As Long
    Dim i As Long
    myNis = Cells(Rows.Count, i).End(xlUp).Row
где i это номер нужного столбца
...
Рейтинг: 0 / 0
21.03.2006, 10:20:51
| Ответить | Цитировать | Написать  
10 сообщений из 10, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Как написать в Exel Если в ячейке код первого символа=n, то действие?
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&msg=33613607&tid=2185090]:
 0ms
get settings:
 5ms
get forum list:
 10ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 46ms
get topic data:
 7ms
get forum data:
 2ms
get page messages:
 31ms
get tp. blocked users:
 1ms
others: 198ms
total:  304ms
созд. / загр.: 304ms
x
x
Закрыть


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