powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / помогите : необходимо сделать автомотический перенос курсора на следующую ячейку...
10 сообщений из 10, страница 1 из 1
помогите : необходимо сделать автомотический перенос курсора на следующую ячейку...
    #33707621
user :)
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
помогите, пожалуйста, воре бы и простая задача, а решить не могу.
привожу пример.
имеется столбец ячеек, в каждой должно быть не более 150 символов.
возможно ли сделасть, что бы при заполнении 150 символов первой ячейки курсор автоматически переходил на вторую, нижнюю ячейку.
т.е. я так думаю, необходимо отслеживать в реальном времени количество вводимых символов в ячейку и как оно достигнет наших стапятидесяти курсор перескакивал на следующую, желательно на нижестоящую :), ячейку.
если кто поможет мне в решении этой задачки, тому вселенская благодарность :)

mail: mah_max@mail.ru
icq
: 204-814-336
...
Рейтинг: 0 / 0
помогите : необходимо сделать автомотический перенос курсора на следующую ячейку...
    #33707862
!GUEST!
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
В Excel нет стандартного обработчика на это событие ввода символа. Пока не нажмешь Enter не проверишь. Самому можно сделать, но сложно. Но в формах это есть. Если сделать ввод данных через простенькую форму - то без проблем совсем.
...
Рейтинг: 0 / 0
помогите : необходимо сделать автомотический перенос курсора на следующую ячейку...
    #33708758
user :)
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
понимаете, дело в том, что я совсем недавно начал изучать встроенный, да и вообще microsoft Visual Basic и для меня и ввод и обраюотка данны через форму, а тем более чтобы они распределялись по этим ячейкам таким обзаром. и я не откажусь от помощи :) , если необходимо могу выслать этот самый бланк, и вообще могли бы Вы порекомендовать какую - нибудь литературу (желательно в электронном виде) для изучения MVB. заранее спасибо.
...
Рейтинг: 0 / 0
помогите : необходимо сделать автомотический перенос курсора на следующую ячейку...
    #33708886
!GUEST!
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Для начала хороша эта книга http://]http://www.ozon.ru/context/detail/id/1670717/. В электронном виде не знаю где. По почте пришлю прорамку, которую хотите.
...
Рейтинг: 0 / 0
помогите : необходимо сделать автомотический перенос курсора на следующую ячейку...
    #33708961
Фотография big-duke
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
...
Рейтинг: 0 / 0
помогите : необходимо сделать автомотический перенос курсора на следующую ячейку...
    #33709497
Logayn
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
"Профессиональное программирование на VBA в Excel 2002". Автор - Джон Уокенбах(формат djvu, весит 25 М)
http://kibizoid.livejournal.com/63550.html
...
Рейтинг: 0 / 0
помогите : необходимо сделать автомотический перенос курсора на следующую ячейку...
    #33709519
Logayn
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
2!GUEST!

Не могли бы и мне выслать??))
...
Рейтинг: 0 / 0
помогите : необходимо сделать автомотический перенос курсора на следующую ячейку...
    #33709893
Дмит
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Можно сделать так:
Вводите весь текст в одну ячейку.
Нажимаете Enter.
Макрос разносит текст по ячейкам по 150 знаков.

Пример макроса:

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim str As String, i As Long
If Target.Cells.Count =  1  And Target.Column =  3  Then
    str = Target.Value
    i =  1 
Application.EnableEvents = False
    Do While Len(Mid(str, i,  150 )) =  150 
        Target.Offset((i -  1 ) /  150 ,  0 ) = Mid(str, i,  150 )
        i = i +  150 
    Loop
    Target.Offset(i /  150 ,  0 ) = Mid(str, i)
    Target.Offset(i /  150 ,  0 ).Select
Application.EnableEvents = True
End If
End Sub
...
Рейтинг: 0 / 0
помогите : необходимо сделать автомотический перенос курсора на следующую ячейку...
    #33709897
!GUEST!
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Logayn2!GUEST!

Не могли бы и мне выслать??))

пожалуйста
...
Рейтинг: 0 / 0
помогите : необходимо сделать автомотический перенос курсора на следующую ячейку...
    #33711617
user :)
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
спасибо, ребята, помогли очень
...
Рейтинг: 0 / 0
10 сообщений из 10, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / помогите : необходимо сделать автомотический перенос курсора на следующую ячейку...
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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