Vba enter в ячейке excel - Word и Excel - помощь в работе с программами

I am trying to programmatic press the enter key once a value has been set to specific cell:

Private Sub TextBox1_Change()
    If TextBox1.Text = "ALC Test" Then
        Range("$F$2").Value = "17"
        ActiveWorkbook.RefreshAll
    End If
    If TextBox1.Text = "ALC Prod" Then
        Range("$F$2").Value = "54"
        ActiveWorkbook.RefreshAll
    End If
    If TextBox1.Text = "" Then
        Range("$F$2").Value = ""
        ActiveWorkbook.RefreshAll
    End If
End Sub

So that I can trigger in excel the refresh of my table
But that does not to seam to work correctly

asked Jan 18, 2017 at 13:07

Using sendkeys is correct.

If you just want to recalculate (refresh) your table data, you could do the following:

Private Sub TextBox1_Change()

If TextBox1.Text = "ALC Test" Then
        Range("$F$2").Value = "17"
        Range("$F$2").Select
        Application.SendKeys("~")

In your situation, you need to select the cell (that holds the parameters) before the enter command is send to excel.

answered Jan 18, 2017 at 13:17

davejaldavejal

5,96910 gold badges39 silver badges82 bronze badges

What you do is: change the value, and then press «enter» , which has no effect.

Use

calculate

activesheet.calculate

edited to make it clear:

Private Sub TextBox1_Change()
If TextBox1.Text = "ALC Test" Then
    Range("$F$2").Value = "17"
    calculate

answered Jan 18, 2017 at 13:10

PierrePierre

1,0267 silver badges20 bronze badges

Источник

natalie
	1
15.09.2011, 16:52. Показов 4558. Ответов 4 Существует выгрузка из 1С (бухгалтерская программа) в Excel. В одну ячейку выгружаются данные через Enter, например Иванов enter, материалы enter, песок enter, Козлов. Мне необходимо вынуть из этой ячейки слово, стоящее после 2 enter’а, то есть на 3 строке в ячейке. Подскажите, как это сделать? Заранее спасибо.

Сумрак

15.09.2011, 17:43

Функция instr самый простой вариант:

Visual Basic

for i=1 to 2
n=instr(n,Строка, chr(13))
next i
x=instr(n,Строка, chr(13))
НужнаяСтрока=Mid(Строка,n,x-n)

Чтото вроде этого… только плюс минус один знак в Mid финкции.

Сумрак

15.09.2011, 20:41

2й, мне этот больше нравится

Visual Basic

dim mV as Variant
mV=split(Строка,chr(13))
if isArray(mV) then
Msgbox mV(2)
end if

в массиве Mv будут лежать все слова разделенны Enter

natalie
18.09.2011, 10:19	4
> Сумрак он мне ошибку выдает. (subscript out of range) Что подразумевается под Строкой? Мой текст?

natalie
18.09.2011, 11:20	5
> Все заработало. Всем спасибо. Там оказывается не enter был.

Источник

vanking

Пользователь

Сообщений: 6
Регистрация: 08.10.2014

Друзья, столкнулся с такой элементарной, но непросто проблемой:
Я делаю на заказ таблицу с VBA-кодом для ведения картотеки частного врача.
Заказчик (врач) попросил чтобы в тех ячейках, где вписывается диагноз и рекомендации, была реализована возможность по нажатию Enter вставлять принудительно перенос на следующую строку в той же ячейке (Аналогично, как это делает комбинация Alt+Enter).

Конечно, я ему могу порекомендовать жать Alt+Enter где ему надо, и не париться, но:
1. Его уровень знания ПК очень новичковый, он клавиатурными комбинациями не пользуется, даже Ctrl-C и т.п.
2. Очень хороший бюджет проекта, который позволяет ему «покапризничать»
Что я уже попробовал — естественно написал код, который захватывает нажатие Enter’a.
Несложно проанализировать содержимое ячейки и в конце прибавить символ переноса строки — chr(10).
Но если заказчик надумает поставить Enter в середине текста, вопреки его ожиданиям, перенос строки вновь допишется в конце.
Как тут быть?

Юрий М

Модератор

Сообщений: 60574
Регистрация: 14.09.2012

Контакты см. в профиле

09.10.2014 00:14:41

Цитата
vanking пишет: если заказчик надумает поставить Enter в середине текста, вопреки его ожиданиям, перенос строки вновь допишется в конце

Почему в конце?
И как Ваш врач заканчивает тогда редактирование — стрелками?

vanking

Пользователь

Сообщений: 6
Регистрация: 08.10.2014

09.10.2014 00:17:27

Цитата
Юрий М пишет: Почему в конце?

Потому что после нажатия Enter’a редактирование ячейки завершается, и лишь потом запускается обработчик. С содержимым ячейки я работаю как с обычной текстовой строкой, а положение курсора, где был нажат Enter — неизвестно.

Цитата
И как Ваш врач заканчивает тогда редактирование — стрелками?

Tab’ом

Юрий М Модератор Сообщений: 60574 Регистрация: 14.09.2012 Контакты см. в профиле	А каким образом Enter нажимается в середине текста? Он в середину строки помещает курсор?

vanking

Пользователь

Сообщений: 6
Регистрация: 08.10.2014

09.10.2014 00:38:34

Цитата
Юрий М пишет: Он в середину строки помещает курсор?

Да. Он хочет работать с ячейкой по аналогии как с блокнотом. Ввёл текст, потом там где посчитал нужным, повставлял переносы строк для удобочитаемости, и распечатал. Клавиши со стрелками здесь работают в режиме навигации по тексту в ячейке.

Для наглядности, прикладываю скрин.
Как видно, ячейка куда вводится диагноз, еще и объединённая.

Юрий М Модератор Сообщений: 60574 Регистрация: 14.09.2012 Контакты см. в профиле	Наверное, всё же придётся обучить его комбинации клавиш Alt+Enter. Не думаю, что он совсем необучаемый)) Или вариант: на эту объединённую ячейку наложить «Надпись» — пусть себе переносит))

	Проще было бы через форму решить, нет? Хотя переделывать на форму на полпути, конечно, не фонтан. Но, может быть, просто TextBox сгодится?

vanking

Пользователь

Сообщений: 6
Регистрация: 08.10.2014

09.10.2014 00:57:52

Цитата
Юрий М пишет: на эту объединённую ячейку наложить «Надпись»

с этого места поподробней — что имеется ввиду?))

Цитата
Максим Зеленский пишет: Но, может быть, просто TextBox сгодится?

TextBox — это как запасной вариант. Пока ищу более изящное решение, чтобы всё выглядело как обычный эксель)
Сейчас везде ищу вариант как можно вставить текст с помощью кода VBA, когда ячейка находится в режиме редактирования. Если кто-то сталкивался, буду благодарен)
Пока поиск говорит о том, что код VBA вообще не выполняется, когда любая ячейка находится в режиме редактирования

Юрий М Модератор Сообщений: 60574 Регистрация: 14.09.2012 Контакты см. в профиле	А что подробнее? Над ячейкой разместить «Надпись» или TextBox.

vanking Пользователь Сообщений: 6 Регистрация: 08.10.2014	А эти элементы будут выводиться на печать?

vanking

Пользователь

Сообщений: 6
Регистрация: 08.10.2014

#11

09.10.2014 01:04:17

Пока код у меня в таком состоянии, может, кому-то пригодится:
Текст, вставляемый в код листа:

Код
Private Sub Worksheet_SelectionChange(ByVal Target As Range) Application.OnKey "~", "Abzac" End Sub

Текст, вставляемый в модуль:

Код
Sub Abzac() Dim T As String T = ActiveCell.Value + Chr(10) Application.SendKeys "{F2}" ActiveCell.FormulaR1C1 = T End Sub

Юрий М Модератор Сообщений: 60574 Регистрация: 14.09.2012 Контакты см. в профиле	#12 09.10.2014 01:04:45 Если укажете (в свойствах), то будут)

Источник

Часто требуется внутри одной ячейки Excel сделать перенос текста на новую строку. То есть переместить текст по строкам внутри одной ячейки как указано на картинке. Если после ввода первой части текста просто нажать на клавишу ENTER, то курсор будет перенесен на следующую строку, но другую ячейку, а нам требуется перенос в этой же ячейке.

Это очень частая задача и решается она очень просто — для переноса текста на новую строку внутри одной ячейки Excel необходимо нажать ALT+ENTER (зажимаете клавишу ALT, затем не отпуская ее, нажимаете клавишу ENTER)

Содержание

1 Как перенести текст на новую строку в Excel с помощью формулы
- 1.1 Как в Excel заменить знак переноса на другой символ и обратно с помощью формулы
- 1.2 Как поменять знак переноса на пробел и обратно в Excel с помощью ПОИСК — ЗАМЕНА
- 1.3 Как поменять перенос строки на пробел или наоборот в Excel с помощью VBA
- 1.4 Коды символов для Excel

Как перенести текст на новую строку в Excel с помощью формулы

Иногда требуется сделать перенос строки не разово, а с помощью функций в Excel. Вот как в этом примере на рисунке. Мы вводим имя, фамилию и отчество и оно автоматически собирается в ячейке A6

Для начала нам необходимо сцепить текст в ячейках A1 и B1 (A1&B1), A2 и B2 (A2&B2), A3 и B3 (A3&B3)

После этого объединим все эти пары, но так же нам необходимо между этими парами поставить символ (код) переноса строки. Есть специальная таблица знаков (таблица есть в конце данной статьи), которые можно вывести в Excel с помощью специальной функции СИМВОЛ(число), где число это число от 1 до 255, определяющее определенный знак.
Например, если прописать =СИМВОЛ(169), то мы получим знак копирайта ©

Нам же требуется знак переноса строки, он соответствует порядковому номеру 10 — это надо запомнить.
Код (символ) переноса строки — 10
Следовательно перенос строки в Excel в виде функции будет выглядеть вот так СИМВОЛ(10)

Примечание: В VBA Excel перенос строки вводится с помощью функции Chr и выглядит как Chr(10)

Итак, в ячейке A6 пропишем формулу

=A1&B1&СИМВОЛ(10)&A2&B2&СИМВОЛ(10)&A3&B3

В итоге мы должны получить нужный нам результат.
Обратите внимание! Чтобы перенос строки корректно отображался необходимо включить «перенос по строкам» в свойствах ячейки.
Для этого выделите нужную нам ячейку (ячейки), нажмите на правую кнопку мыши и выберите «Формат ячеек…»

В открывшемся окне во вкладке «Выравнивание» необходимо поставить галочку напротив «Переносить по словам» как указано на картинке, иначе перенос строк в Excel не будет корректно отображаться с помощью формул.

Как в Excel заменить знак переноса на другой символ и обратно с помощью формулы

Можно поменять символ перенос на любой другой знак, например на пробел, с помощью текстовой функции ПОДСТАВИТЬ в Excel

Рассмотрим на примере, что на картинке выше. Итак, в ячейке B1 прописываем функцию ПОДСТАВИТЬ:

=ПОДСТАВИТЬ(A1;СИМВОЛ(10);» «)

A1 — это наш текст с переносом строки;
СИМВОЛ(10) — это перенос строки (мы рассматривали это чуть выше в данной статье);
» » — это пробел, так как мы меняем перенос строки на пробел

Если нужно проделать обратную операцию — поменять пробел на знак (символ) переноса, то функция будет выглядеть соответственно:

=ПОДСТАВИТЬ(A1;» «;СИМВОЛ(10))

Напоминаю, чтобы перенос строк правильно отражался, необходимо в свойствах ячеек, в разделе «Выравнивание» указать «Переносить по строкам».

Как поменять знак переноса на пробел и обратно в Excel с помощью ПОИСК — ЗАМЕНА

Бывают случаи, когда формулы использовать неудобно и требуется сделать замену быстро. Для этого воспользуемся Поиском и Заменой. Выделяем наш текст и нажимаем CTRL+H, появится следующее окно.

Если нам необходимо поменять перенос строки на пробел, то в строке «Найти» необходимо ввести перенос строки, для этого встаньте в поле «Найти», затем нажмите на клавишу ALT, не отпуская ее наберите на клавиатуре 010 — это код переноса строки, он не будет виден в данном поле.

После этого в поле «Заменить на» введите пробел или любой другой символ на который вам необходимо поменять и нажмите «Заменить» или «Заменить все».

Кстати, в Word это реализовано более наглядно.

Если вам необходимо поменять символ переноса строки на пробел, то в поле «Найти» вам необходимо указать специальный код «Разрыва строки», который обозначается как ^l
В поле «Заменить на:» необходимо сделать просто пробел и нажать на «Заменить» или «Заменить все».

Вы можете менять не только перенос строки, но и другие специальные символы, чтобы получить их соответствующий код, необходимо нажать на кнопку «Больше >>», «Специальные» и выбрать необходимый вам код. Напоминаю, что данная функция есть только в Word, в Excel эти символы не будут работать.

Как поменять перенос строки на пробел или наоборот в Excel с помощью VBA

Рассмотрим пример для выделенных ячеек. То есть мы выделяем требуемые ячейки и запускаем макрос

1. Меняем пробелы на переносы в выделенных ячейках с помощью VBA

Sub ПробелыНаПереносы()
For Each cell In Selection
cell.Value = Replace(cell.Value, Chr(32), Chr(10))
Next
End Sub

2. Меняем переносы на пробелы в выделенных ячейках с помощью VBA

Sub ПереносыНаПробелы()
For Each cell In Selection
cell.Value = Replace(cell.Value, Chr(10), Chr(32))
Next
End Sub

Код очень простой Chr(10) — это перенос строки, Chr(32) — это пробел. Если требуется поменять на любой другой символ, то заменяете просто номер кода, соответствующий требуемому символу.

Коды символов для Excel

Ниже на картинке обозначены различные символы и соответствующие им коды, несколько столбцов — это различный шрифт. Для увеличения изображения, кликните по картинке.

Источник

Home / VBA / How to Add a New Line (Carriage Return) in a String in VBA

In VBA, there are three different (constants) to add a line break.

vbNewLine
vbCrLf
vbLf

vbNewLine

vbNewLine inserts a newline character that enters a new line. In the below line of code, you have two strings combined by using it.

Range("A1") = "Line1" & vbNewLine & "Line2"

When you run this macro, it returns the string in two lines.

It returns the character 13 and 10 (Chr(13) + Chr(10)). You can use a code in the following way as well to get the same result.

Range("A1") = "Line1" & Chr(13) & Chr(10) & "Line2"

But when you use vbNewLine you don’t need to use CHAR function.

vbCrLf

vbCrLf constant stands for Carriage Return and Line feed, which means Cr moves the cursor to the starting of the line, and Lf moves the cursor down to the next line.

When you use vbCrLf within two string or values, like, you have in the following code, it inserts a new line.

Range("A1") = "Line1" & vbCrLf & "Line2"

vbLf

vbLf constant stands for line feed character, and when you use it within two strings, it returns line feed character that adds a new line for the second string.

Range("A1") = "Line1" & vbLf & "Line2"

If you want to add a new line while using the VBA MsgBox you can use any of the above three constants that we have discussed.

MsgBox "Line1" & vbNewLine & "Line2"
MsgBox "Line1" & vbCrLf & "Line2"
MsgBox "Line1" & vbLf & "Line2"

There’s also a constant vbCr that returns carriage return character that you can use to insert a new line in a message box.

MsgBox "Line1" & vbCr & "Line2"

vbCr won’t work if you want to enter a cell value until you apply wrap text to it.

Источник

Оформление кода VBA

Смотрите также объекта set WS j).End(xlUp).Row To 2 Is Nothing Then у меня тожеможно ли ее: Private Sub Command2_Click() символы появляются в = «14» Andнапример, что-нибудь в

и склеивания не=ПЕЧСИМВ(B2) чтобы избежать случайного два различных непечатаемыхИсточник: http://www.excelfunctions.net/VBA-Code-Presentation.html вложенного блока кода. переданную процедуре строкуНачиная практиковаться в написании = какой-то лист. Step -1 If Exit Sub Else есть сомнения что разбить на несколько a = MsgBox(«Струйные ячейках склеенных _ Cells(r, c.Column).Value духе : равны друг другу=CLEAN(B2) склеивания двух соседних символа:Перевел: Антон Андронов

Такие увеличенные отступы Sub Find_String(sFindText As кода VBA, оченьЛибо активировать НУЖНЫЙЛИСТ.ACTIVATE aws.Cells(i, j) <> j = x.Column

Комментарии в VBA

это оптимальный вариант. строчек? принтеры печатают текстSerge_007 = «15» _rn — выходим сСкопируйте формулу во все слов. Если нужноВозврат кареткиАвтор: Антон Андронов

помогают понять, где String) Dim i важно с самого , потом Rows.delete «» Then On Application.ScreenUpdating = False: Я создам отдельнуюСпасибо! и изображения, разбрызгивая: А если попробовать, Then Rows(r).Delete; ошибкой If SearchRange.Count ячейки столбца. просто удалить переносы(Carriage return, CR

Эта инструкция познакомит Вас каждый отдельный блок As Integer ‘ начала выработать хорошие и потом снова

Error Resume Next: Set aws = тему с вопросомSergei_A на бумагу мелкие прежде чем писать?KucherovSanja <> TextRange.Count ThenПо желанию, можете заменить строк, оставьте поле или ASCII код с тремя способами кода начинается и переменная типа Integer привычки в оформлении перейти на лист Set ws = Sheets(«Общая база») For по поводу того: да, можно. Пробел+ капли чернил.» &200?’200px’:»+(this.scrollHeight+5)+’px’);»>Const sDELIM As String: Спасибо, извините, тупанул,: Kuzmich, же Вам MergeIf = CVErr(xlErrRef) исходный столбец новым,Заменить на 13) и удалить возвраты каретки заканчивается. для цикла ‘For’ кода, чтобы в AWS и далее ThisWorkbook.Sheets(CStr(aws.Cells(i, j))) If i = aws.Cells(Rows.Count, как правильно записывать _ vbLf & _ = vbLf не поставил пробел показал Exit Function End с удалёнными переносами(Replace With) пустым.Перевод строки из ячеек вЕщё один способ сделать

Dim iRowNumber As дальнейшем написанный код цикл Err <> 0 j).End(xlUp).Row To 2 такого рода формулыOSA913 «Струйные принтеры популярныАндрей перед «_»Юрий М

If ‘проходим по строк:Нажмите кнопку(Line feed, LF Excel. Вы также код более читаемым Integer ‘ переменная было легко читатьLofak Then Set ws

Отступы в коде VBA

Step -1 If и буду благодарен: Подскажите как перенести из-за относительно невысокой: СПАСИБО! Очень помогли!Hugo: excel_pl, Вы не все ячейкам, проверяемВыделите все ячейки вЗаменить все или ASCII код узнаете, как заменить и облегчить работу типа Integer для и понимать, как, либо вычистите = Sheets.Add: ActiveSheet.Name

Переносы строк в VBA

aws.Cells(i, j) <> вам за помощь. на новую строку цены.» & vbLftarakano: Эту кучу AND отписались в своих условие и собираем столбце(Replace All) и 10). В Windows символы переноса строки с ним – хранения результата iRowNumber он работает.все = aws.Cells(i, j):

«» Then Onbosscs часть формулы, которую & _ «Существует: подскажите пожалуйста, что оптимальнее разбить на

старых темах, а текст в переменнуюC

наслаждайтесь результатом! используются оба символа другими символами. Все делать переносы и = 0 ‘В процессе написания кода,листы до того On Error GoTo Error Resume Next:: Приветствую. вставляю в массив

множество моделей таких нужно дописывать в цепочку вложенных ЕСЛИ-ТО уже создали новую. OutText For i

и нажатиемПлюсы: вместе, а в предложенные решения работают разбивать одну длинную последовательно посматриваем ячейки программист может иметь как переносить данные 0 aws.Cells.Copy ws.rows.delete Set ws =Допустим есть в vba? Пробелом и

принтеров, включая модели, конце строки, если — может когда-нибудь Или ответы не = 1 ToCtrl+CДоступно использование последовательных системах *NIX применяется в Excel 2013, строку кода на A1-A100, пока не совершенно чёткое представление из основной базы ws.Cells.PasteSpecial Paste:=xlPasteColumnWidths ws.Cells.PasteSpecial

ThisWorkbook.Sheets(CStr(aws.Cells(i, j))) If проекте визуала длинная
_ не переносится.
специально предназначенные для

текс длинный и

office-guru.ru

Как удалить переносы строк (возвраты каретки) из ячеек в Excel 2013, 2010 и 2007

сэкономите даже пару интересуют? SearchRange.Cells.Count If SearchRange.Cells(i)скопируйте данные в или вложенных формул только перевод строки. 2010, 2007 и несколько коротких. В будет найдено значение о том, чтоДобавлено через 5 минут Paste:=xlPasteFormats End If

Err <> 0 строчка, как ееАлександр П. печати цветных фотографий.» не помещается в минут работы кода…excel_pl Like Condition Then буфер обмена. для сложной проверкиБудьте внимательны: 2003. VBA, чтобы разбить ‘sFindText’ For i за код он

например так aws.Rows(i).Copy ws.Cells(Rows.Count, 1).End(xlUp).Offset(1) Then Set ws записать в 2: На примере из & vbLf & одной строке? кто знает что: Вопрос решён. OutText = OutTextДалее выделите ячейку

текста в обрабатываемойВ Excel встречаютсяПереносы строк могут появиться строку, нужно вставить

= 1 To пишет и какSub ClearPages() For End If: Next
= Sheets.Add: ActiveSheet.Name строки? макрорекордера ActiveWorkbook.Worksheets(«NNN.FFF»).Sort.SortFields.Add Key:=Range(«A1:A6») _ «Недостатки. Вчто б было
там будет вВсем спасибо. & TextRange.Cells(i) &B2

 ячейке. Например, можно оба варианта. При в тексте по символы » _» 100 If Cells(i, этот код должен i = 1 End Sub = aws.Cells(i, j):Alex77755 _ , SortOn:=xlSortOnValues,

большинстве случаев струйные понятнее: Private Sub другой раз.Kucherov Delimeter Next i, нажмите сочетание клавиш удалить возвраты каретки, импорте из файлов разным причинам. Обычно (пробел+подчёркивание) непосредственно перед 1).Value = sFindText работать. Но нужно To Sheets.Count SetLofak On Error GoTo: В нужном месте: Order:=xlAscending, DataOption:=xlSortNormalТо есть, принтеры работают медленнее Command2_Click() a =JayBhagavan: Добрый день!

 ‘выводим результаты безShift+F10 а затем найти.txt возвраты каретки встречаются переносом строки. Это Then ‘ найдено позаботиться и о ws = Sheets(i): Что-то все равно 0 aws.Cells.Copy ws.Cells.PasteSpecial Пробел, Подчёркивание(«_»), Ентер после нужного символа (в страницах в MsgBox(«Г‘ГІГ°ГіГ©Г*Г»ГҐ ГЇГ°ГЁГ*ГІГҐГ°Г» ГЇГҐГ·Г*ГІГ*ГѕГІ: Пробел, нижнее подчёркивание,Как можно перенести последнего разделителя MergeIfи выберите лишние начальные илиили в рабочей книге, сообщает компилятору VBA,

Удаляем возвраты каретки вручную

 совпадение с переданной том, чтобы, вернувшись If ws.Name <>

 не так, не Paste:=xlPasteColumnWidths ws.Cells.PasteSpecial Paste:=xlPasteFormats

gaw ставите пробел? затем минуту), чем лазерные ГІГҐГЄГ±ГІ ГЁ ГЁГ§Г®ГЎГ°Г*Г¦ГҐГ*ГЁГї, энтер.

строки в Макросе? = Left(OutText, Len(OutText)Вставить конечные пробелы, или.csv
например, когда текст что текущая строка строкой ‘ сохраняем к работе спустя «Общая база» Then чистит
End If aws.Rows(i).Copy: (наверное неправильно понял «_» и затем принтеры, и требуют Г°Г*Г§ГЎГ°Г»Г§ГЈГЁГўГ*Гї Г*Г* ГЎГіГ¬Г*ГЈГіСимвол переноса в VBA Нажимаю пробел - — Len(Delimeter)) End(Insert). лишние пробелы междуданные обычно содержат
скопирован с веб-страницы, кода продолжается на номер текущей строки полгода, не пришлось ws.Rows.Delete Next EndBurk ws.Cells(Rows.Count, 1).End(xlUp).Offset(1) End ) enter регулярной замены картриджа Г¬ГҐГ«ГЄГЁГҐ ГЄГ*ГЇГ«ГЁ Г·ГҐГ°Г*ГЁГ«.: Помогите пожалуйста! выдаёт ошибку. Очень Function
Удалите вспомогательный столбец. словами. возвраты каретки и когда они уже

Удаляем переносы строк при помощи формул Excel

 следующей строке. и выходим из ломать голову, пытаясь Sub: If: Next End»a» & vbCrLfМихаил Лебедев с чернилами», , Г‘ГІГ°ГіГ©Г*Г»ГҐ ГЇГ°ГЁГ*ГІГҐГ°Г» ГЇГ®ГЇГіГ«ГїГ°Г*Г»В интернете есть неудобно.

Сцепка происходит поПлюсы:В некоторых случаях переносы переводы строки. Когда есть в рабочейСледующий пример демонстрирует, как цикла iRowNumber = понять, что долженLofakНу и его надо Sub & «b»

: activecell.formulaR1C1 = «=if(vlookup… «Справка») End Sub ГЁГ§-Г§Г* Г®ГІГ*Г®Г±ГЁГІГҐГ«ГјГ*Г® Г*ГҐГўГ»Г±Г®ГЄГ®Г© такой макрос:

Мне желательно в принципу:Создаём один раз строк необходимо удалять, перенос строки вводится книге, полученной от
при помощи переносов i Exit For делать этот код.: Благодарю вас, то поставить до циклаМожет кто нибудь»a» & vbNewLine
- первая часть отtarakano Г¶ГҐГ*Г». Г‘ГіГ№ГҐГ±ГІГўГіГҐГІ Г¬Г*Г®Г¦ГҐГ±ГІГўГ®200?’200px’:»+(this.scrollHeight+5)+’px’);»>Sub MergeToOneCell() данной программе перенестиТекст 1, Текст
  – используем снова
  чтобы в дальнейшем
- вручную нажатием клиента, или, когда строк можно сделать End If Next Ещё более неприятная что нужно! по I помочь добавить функцию & «b» очень много всего»
  : спасибо за оба
  Г¬Г®Г¤ГҐГ«ГҐГ© ГІГ*ГЄГЁГµ ГЇГ°ГЁГ*ГІГҐГ°Г®Гў,
- Const sDELIM As строки, где задаются 2 и снова с
  использовать текст в
  Alt+Enter
мы сами добавляем длинные строки кода
i ‘ сообщение ситуация – когдаBurkА на то,
- очистки дополнительных листов»a» & Chr(13) _ & « способа, теперь буду ГўГЄГ«ГѕГ·Г*Гї Г¬Г®Г¤ГҐГ«ГЁ, Г±ГЇГҐГ¶ГЁГ*Г«ГјГ*Г® String = « данные (вторая строка)
- Вопрос любой рабочей книгой. качестве аргументов функций,, Excel вставляет только их нажатием клавиш гораздо более понятными во всплывающем окне
- кто-то другой станет

Удаляем переносы строк при помощи макроса VBA

: что вам пишут перед копированием туда + Chr(10) & вторая часть от

 знать ГЇГ°ГҐГ¤Г*Г*Г§Г*Г*Г·ГҐГ*Г*Г»ГҐ Г¤Г«Гї ГЇГҐГ·Г*ГІГЁ » ‘символ-разделитель

и переносить строки,Как сделать чтобыМинусы: не внося изменения символ перевода строки.

Alt+Enter и легко читаемыми. сообщает пользователю, ‘ продолжать Вашу работуLofak вы внимания не информации из первого «b» очень много всего»Тогда еще один: Г¶ГўГҐГІГ*Г»Гµ ГґГ®ГІГ®ГЈГ°Г*ГґГЁГ©. ГЌГҐГ¤Г®Г±ГІГ*ГІГЄГЁ.Dim rCell As где If, там

разделитель был неТребуется хотя бы в исходные ячейки. Если же файл.Посмотрите на этот оператор найдена ли строка,

над кодом и, просто хотелось, чтобы
обращаете??? А цикл
листа, что бы

Lofak

office-guru.ru

Как сделать перенос строки с использованием VBA?

 _ & «Private Sub Command2_Click() Г‚ ГЎГ®Г«ГјГёГЁГ*Г±ГІГўГҐ Г±Г«ГіГ·Г*ГҐГў Range стоит AND и «, «, а базовое знание VBA. Результат можно использовать,.csvКакой бы ни былаIf и если найдена не сможет понять, вы, учитывая подсказки, по по строкам информация не дублировалась: Доброго времени суток, третья часть от Dim St as Г±ГІГ°ГіГ©Г*Г»ГҐ ГЇГ°ГЁГ*ГІГҐГ°Г» Г°Г*ГЎГ®ГІГ*ГѕГІDim sMergeStr As у м меня перенос текста наМакрос VBA из следующего например, как аргументполучен от поклонника причина их появления,: – сообщает номер как он работает. сами это сделали, у вас в при каждом последующем имеется таблица exel очень много всего» String St = Г¬ГҐГ¤Г«ГҐГ*Г*ГҐГҐ (Гў Г±ГІГ°Г*Г*ГЁГ¶Г*Гµ String
будет много «AND» следующую строчку?
примера удаляет возвраты функции
 Linux, Unix или
сейчас перед намиIf (index = строки If iRowNumberЭта статья посвящена комментариям, но, видимо, рано
строке 6 запуске?
в которую вносятся
OSA913

 «Струйные принтеры печатают Гў Г¬ГЁГ*ГіГІГі), Г·ГҐГ¬If TypeName(Selection) <> и много «OR»Т.е., чтобы сцепка каретки из всехПРОСМОТР другой подобной системы, стоит задача удалить 1 And sColor1 = 0 Then отступам в кодеLofakLofakBurk данные, с некоторыми: Покажите пожалуйста в текст и изображения, Г«Г*Г§ГҐГ°Г*Г»ГҐ ГЇГ°ГЁГ*ГІГҐГ°Г», ГЁ «Range» Then Exit и хотел бы происходила по принципу: ячеек на активном(LOOKUP). то готовьтесь к возвраты каретки, так = «красный») Or

 MsgBox «Строка « и переносам строк: Скорее уже поздно,, под ЕГО имеется: Rows.Delete дополнительными параметрами, нужно

 моем примере(модуль1). Заранее разбрызгивая на бумагу ГІГ°ГҐГЎГіГѕГІ Г°ГҐГЈГіГ«ГїГ°Г*Г®Г© Г§Г*Г¬ГҐГ*Г» Sub ‘если выделены каждое условие вТекст 1
листе.Минусы: встрече только с как они мешают

 (index = 2 & sFindText & – элементам, которые

 когда-то учился, но ввиду оператор чистки,Lofak что бы данные спасибо! мелкие» & vbNewLine ГЄГ*Г°ГІГ°ГЁГ¤Г¦Г* Г± Г·ГҐГ°Г*ГЁГ«Г*Г¬ГЁ»,

 не ячейки - отдельную строку записывать,
Текст 2

planetaexcel.ru

Перенос строки в коде. Макросы

Sub RemoveCarriageReturns() DimПотребуется создать вспомогательный
символом перевода строки. выполнять поиск фраз And sColor1 = » не найдена» делают код аккуратным
так толком и а вы засунули: Добавить новую строку? копировались на другиеМихаил Лебедев St = St ,»Г‘ГЇГ°Г*ГўГЄГ*») End Subтекс выходим а не вSanja MyRange As Range столбец и выполнитьПлюсы: и приводят к «синий») Or (index Else MsgBox «Строка и понятным. не освоил программирование, его внутрь циклаEnd If aws.Rows(i).Delete листы в зависимости: В Вашем примере + » капли в msgbox длинныйWith Selection одну длинную. Public: Function MergeIf(TextRange As Application.ScreenUpdating = False множество дополнительных шагов.Этот способ самый беспорядку в столбце = 3 And » & sFindTextСамое важное для написания да и долгое ????? ws.Cells(Rows.Count, 1).End(xlUp).Offset(1) End от категории, например — абсурдное выражение чернил. Струйные принтеры и не помещаетсяFor Each rCell

 Sub Delete_Privetik() Dim Range, SearchRange As Application.Calculation = xlCalculationManual
Добавьте вспомогательный столбец в быстрый. при включении режима sColor1 = «зеленый») & » найдена

 аккуратного и понятного время занимался другимLofak If aws.Rows(i).Copy ws.Cells(Rows.Count, вносим мы в написано. И оно

 популярны из-за относительно в одну строку, In .Cells b As Range,

 Range, Condition As For Each MyRange конце данных. ВМинусы: переноса текста. Or (index = в ячейке A» кода – чаще делом, сейчас периодически: К сожалению не

 1).End(xlUp).Offset(1) End If: таблицу тетрациклин, в не соответствует тому

planetaexcel.ru

Символ переноса в VBA

 невысокой цены. Существует как разделить его
sMergeStr = sMergeStr c As Range,
String) Dim i In ActiveSheet.UsedRange If нашем примере онНикаких дополнительных плюшек Все три представленных способа 4 And sColor1 & iRowNumber End оставлять комментарии. Комментарии возникает такая необходимость, пойму, перед? Next разделе категория указываем вопросу, который Вы " & vbNewLine на 2 - & sDELIM & d As Range, As Long 'если 0 < InStr(MyRange, будет называться Вот так можно удалить довольно быстры. Выбирайте = "коричневый") Then If End Sub – это строки пытаюсь что-то вспоминать, For i = Burk что он антибиотик, задаете. St = St 3 строки? rCell.Text 'собираем текст
LastRow As Long, диапазоны проверки и Chr(10)) Then MyRange
1 line переносы строк при тот, который Вам
При помощи переносов строкНе расстраивайтесь, если какую-то

 в коде, которые а что-то осваивать aws.Cells(Rows.Count, j): следовательно вся строкаactivecell.formulaR1C1 = «=if(vlookup…

 + «множество моделейgaw из ячеек r As Long склеивания не равны = Replace(MyRange, Chr(10),

. помощи инструмента « больше подходит:
тот же оператор часть кода, показанного

 исполняют роль заметок заново. В любом

excelworld.ru

Перенос длинных строк в редакторе кода

BurkLofak переносится на лист очень много всего» таких принтеров, включая: Private Sub Command2_Click()Next rCell
On Error Resume друг другу - «») End IfВ первой ячейке вспомогательногоНайти и заменитьУдаляем все переносы строкIf выше, не удалось и помогают разобраться, случае вам огромное:, ну, конечно, перед 2, в антибиотики. — речь идет модели, специально предназначенные a = MsgBox(«СтруйныеApplication.DisplayAlerts = False Next Set b выходим с ошибкой Next Application.ScreenUpdating = столбца (C2) введите»: вручную, чтобы быстроможет быть записан понять – далее какие действия выполняет спасибо за помощь!Lofak

 копированием поставить чистку. Вносим витамин, переносится о СТРОКОВОМ ВЫРАЖЕНИИ, » & vbNewLine принтеры печатают текст ‘отключаем стандартное предупреждение = Range(«g2:g2500»).Cells Set If SearchRange.Count <> True Application.Calculation = формулу для удаления/заменыВыделите все ячейки, в навести порядок на вот так: в учебнике мы та или инаяBurk, НУ ЭТО УЖ Только надо активировать на лист 3 которое записывается в St = St и изображения, разбрызгивая о потере текста c = Range(«bi2:bi2500»).Cells TextRange.Count Then MergeIf xlCalculationAutomatic End Sub переносов строк. Ниже которых требуется удалить одном листе.If (index = рассмотрим эту тему

 часть кода.: КУ-КУ. Перед это страницу , на витамины. активную ячейку. + «для печати на бумагу мелкие».Merge Across:=False ‘объединяем On Error GoTo = CVErr(xlErrRef) ExitЕсли Вы не слишком приведены несколько полезных возвраты каретки илиУдаляем переносы строк при 1 And sColor1 подробнее. Цель приведённогоКомментарии не участвуют вLofak не внутрь строки которую пойдёт запись,LofakСтроковое — т.к. цветных фотографий.» & & vbNewLine & ячейки

 0 If b Function End If близко знакомы с формул для различных

заменить их другим
помощи формул и = «красный») Or примера – продемонстрировать, процессе выполнения программы, понял, обращайтесь. кода, а перед либо проще ws.rows.delete: Пример таблицы во заключено в кавычки. vbNewLine & vbNewLine _ » каплиApplication.DisplayAlerts = True Is Nothing Then For i = VBA, рекомендую изучить случаев: символом. настраиваем таким образом _ (index = как при помощи и не влияютНовичек ней. Как мне ведь ws у вложенияхА в Вашем St = St чернил. Струйные принтеры.Item(1).Value = Mid(sMergeStr, Exit Sub Else 1 To SearchRange.Cells.Count статью о том,Эта формула подходит дляНажмите комплексную обработку текстовых 2 And sColor1

CyberForum.ru

Перенос формулы в VBA на новую строку

 комментариев поясняется каждый на результат работы
: MsgBox «Длинное предложение кажется, перенос осуществляется вас лист, в
Прошу по возможности модуле1 Вы пытаетесь
+ «Недостатки. В популярны из-за относительно
1 + Len(sDELIM))
LastRow = b.Rows.Count If SearchRange.Cells(i) Like как вставить и
использования с комбинациями

Ctrl+H данных в ячейках. = «синий») Or

 блок кода. макроса. Каждая строка, ……» не AWS а который идет перенос? помочь реализовать присвоить переменной типа

 большинстве случаев струйные невысокой цены. Существует ‘добавляем к объед.ячейке LastRow = LastRow Condition Then If выполнить код VBA возврат каретки /, чтобы вызвать диалоговоеИспользуем макрос VBA, чтобы

 _ (index =Часто программисты ленятся добавлять начинающаяся апострофом (‘),Подскажите как осуществляется WS Ну и егоunick12345 Variant не распознаваемый принтеры работают медленнее» » & vbNewLine

 суммарный текст + b.Row - MergeIf <> Empty в Excel.

 перенос строки, характерными окно очистить от переносов 3 And sColor1 подробные комментарии к будет считаться в перенос текста на
WS.rows.delete For i надо поставить до: переносится или копироваться? программой набор символов. & vbNewLine St & _ «множество
End With 1 Application.ScreenUpdating =
Then MergeIf =Урок подготовлен для Вас для Windows иНайти и заменить строк несколько рабочих
= «зеленый») Or своему коду, но, VBA комментарием. Редактор
другую строку? = aws.Cells(Rows.Count, j).End(xlUp).Row цикла по ILofakЯ так подозреваю, = St + моделей таких принтеров,End Sub

 False For r MergeIf & TextRange.Cells(i) командой сайта office-guru.ru для UNIX.(Find and Replace). книг. _ (index = поверьте, затраченные усилия VBA в ExcelНовичек To 2 StepLofak: Копироваться в надежде на «(в страницах в включая модели, специальноА как сделать = LastRow To

planetaexcel.ru

Перенос строки

 & vbCrLf ElseИсточник: https://www.ablebits.com/office-addins-blog/2013/12/03/remove-carriage-returns-excel/
=ПОДСТАВИТЬ(ПОДСТАВИТЬ(B2;СИМВОЛ(13);»»);СИМВОЛ(10);»»)Поставьте курсор в полеЗамечание: 4 And sColor1 оправдают себя с

 выделит такую строку: MsgBox «Длинное предложение -1

: Вот так?Нашел скрипт, который чудо
минуту), чем лазерные предназначенные » &
чтобы место пробела b.Row Step -1
MergeIf = TextRange.Cells(i)Перевел: Антон Андронов=SUBSTITUTE(SUBSTITUTE(B2,CHAR(13),»»),CHAR(10),»»)

CyberForum.ru

Перенос строк с условием

НайтиПервоначально термины «Возврат = «коричневый») Then избытком! Несколько минут, зелёным цветом шрифта, ……»LofakSub Main() Dim выполняет необходимую мнеЛучше приложите пример, принтеры, и требуют vbNewLine & _ в строке If Cells(r, b.Column).Value & vbCrLf EndАвтор: Антон АндроновСледующая формула подходит для(Find what) и каретки» и «ПереводЕсли рассмотренный оператор

 потраченных на написание чтобы с первогоПодскажите как осуществляется
: Да, я так i As Long,

 функцию, но при в котором Ваша

 регулярной замены картриджа «для печати цветных
Const sDELIM As = «14» And If End Ifexcel_pl замены переноса строки нажмите строки» использовались приIf
понятного комментария, могут взгляда было понятно, перенос текста на и имел ввиду, j As Integer, каждом запуске копирует формула внесена в с чернилами» a фотографий.» & vbNewLine String = « Cells(r, c.Column).Value = Next i End: Код сцепляет столбец любым другим символомCtrl+J работе на печатныхразбит на четыре сэкономить Вам долгие что это комментарий, другую строку? но в таком ws As Worksheet, все строки, в ячейку, так будет = MsgBox(St, vbInformation & vbNewLine & » ‘символ-разделитель «15» Then Rows(r).Delete Function по критериюСкрытый текст (например, «, ». На первый взгляд машинках и обозначали строки, то составляющие
часы в будущем. который не будетЛузер случае выпадает ошибка, aws As Worksheet, том числе те, проще понять, что + vbOKOnly, «Справка») _ «Недостатки. В

вставлялся символ переноса Next r End

Kuzmich Option Compare Text
– запятая + поле покажется пустым, две различных операции. его блоки cДругой приём, делающий написанный

 выполняться.: Очевидно по размеру что переменная не x As Range которые уже скопировал это за формула End SubvbCrLf большинстве случаев струйные строки? If: В ячейке включить Function MergeIf(TextRange As пробел). В таком но если посмотрите Любознательный читатель может

 условиями видны гораздо код более читаемым
Ниже продемонстрировано, как при окна. задана: Set x = ранее и что онаMaksymromaniuk принтеры работают медленнее»anvgThe_Prist перенос по словам Range, SearchRange As случае строки не внимательно, то увидите самостоятельно найти подробную более наглядно. Этот – правильно расставлять помощи комментариев поясняетсяМожете сами переноситьBurk Rows(1).Find(«Садовник», , ,Sub Main() Dim вычисляет.: Добрый вечер! & vbNewLine &: В Excel для: А что, в Dim OutText As Range, Condition As будут объединены и в нём маленькую информацию об этом пример иллюстрирует, как отступы. В приведённом

 работа простой процедуры на другую строку:: xlWhole) If x

 i As Long,OSA913Вопрос, конечно, не _ «(в страницах Range можно использовать
Яндексе забанили? String Delimeter = String) Dim Delimeter лишние пробелы не точку. в интернете. аккуратное оформление может
 выше примере видно,SubMsgBox «первая строка»Lofak Is Nothing Then j As Integer,

: Так вопрос то жизненно важный, но в минуту), чем
2 типа символа-переносаIf Cells(r, b.Column).Value

 Chr(10) As String, i появятся.В полеКомпьютеры и программное обеспечение сделать код более что отступ сделан: & Chr(10) &, я вам написал Exit Sub Else
ws As Worksheet, был не об все-таки. лазерные принтеры, и

 строки vbLf и = «14» Andexcel_pl As Long Delimeter=СЖПРОБЕЛЫ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(B2;СИМВОЛ(13);»»);СИМВОЛ(10);», «)Заменить на для работы с

 читаемым и привести для кода внутри’ процедура Sub «вторая строка» ответ на вопрос j = x.Column aws As Worksheet, этом, а переносеВ VBA прописана требуют регулярной замены vbNewLine
_ Cells(r, c.Column).Value: А каких-нибудь спец. = «, «=TRIM(SUBSTITUTE(SUBSTITUTE(B2,CHAR(13),»»),CHAR(10),», «)(Replace With) введите текстами разрабатывались с
 в результате к главной процедуры для просмотра диапазонаНовичек о чистке листа. Application.ScreenUpdating = False:
 x As Range
строки. Но спасибо
очень громоздкая формула, картриджа с чернилами»,андрей = «15» Then символов вместо запятой ‘символы-разделители (можно заменитьА вот так можно любое значение для

 учётом особенностей печатных меньшему количеству ошибокSub

 ячеек A1-A100 активного: Да, помогло. Спасибо. В вашем коде Set aws = Set x = за подсказку, формулаactivecell.formulaR1C1 = «=if(vlookup…

 vbInformation + vbOKOnly,: Если vbLf или _ Rows(r).Delete для строчки « на пробел или удалить все непечатаемые вставки вместо возвратов машинок. Вот почему и путаницы.и далее отступ ‘ листа иНовичек до оператора чистки Sheets(«Общая база») For

 Rows(1).Find(«Садовник», , , в массиве вроде очень много всего» «Справка») End Sub

CyberForum.ru

Перенос текста в VBA

 vbNewLine подставить вSuperCatDelimeter = «, «
; и т.д.) символы из текста, каретки. Обычно для

 теперь для обозначенияУрок подготовлен для Вас увеличивается для каждого
поиска ячейки, содержащей: Да, помогло. Спасибо. надо установить значение

 i = aws.Cells(Rows.Count, xlWhole) If x правильно вычисляет но
ее неудобно читатьКазанский
макрос. то эти: If Cells(r, b.Column).Value» нету?

 ‘если диапазоны проверки включая переносы строк:

 этого используют пробел, разрыва строки используют

planetaexcel.ru

командой сайта office-guru.ru

Источник

Переход к заданной ячейке после нажатия клавиши ВВОД

PiRaTe

Дата: Среда, 04.12.2013, 13:46 |
Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 16

Репутация:
0
±

Замечаний:
0% ±

Excel 2010

Переход к заданной ячейке после нажатия клавиши ВВОД в экселе (не вниз,вправо,влево = а именно на иную заданную ячейку)

Как сделать — чтобы после ввода данных в ячейку H2 и нажатия ENTER — автивной ячейкой для ввода становилась ячейка Е3
Я так понимаю — макрос !

Но как правильно написать ?

Ибрагимов

Сообщение отредактировал PiRaTe — Среда, 04.12.2013, 13:48

Ответить

PiRaTe

Дата: Среда, 04.12.2013, 13:48 |
Сообщение № 2

Группа: Пользователи

Ранг: Новичок

Сообщений: 16

Репутация:
0
±

Замечаний:
0% ±

Excel 2010

Нужна помощь — есть тут кто ?

Ибрагимов

Сообщение отредактировал PiRaTe — Среда, 04.12.2013, 13:49

Ответить

AlexM

Дата: Среда, 04.12.2013, 14:01 |
Сообщение № 3

Группа: Друзья

Ранг: Участник клуба

Сообщений: 4257

Репутация:
1046
±

Замечаний:
0% ±

Excel 2003

Можно в формате ячеек на вкладке «Защита» снять галочку «Защищаемая ячейка» с тех ячеек, по которым надо делать переход. Затем установите защиту на лист, сняв галочку «выделение заблокированных ячеек»

Номер мобильного модема (без голосовой связи)
9269171249 МегаФон, Московский регион.

Ответить

PiRaTe

Дата: Среда, 04.12.2013, 14:07 |
Сообщение № 4

Группа: Пользователи

Ранг: Новичок

Сообщений: 16

Репутация:
0
±

Замечаний:
0% ±

Excel 2010

Алекс — защиты нет совсем

Ибрагимов

Ответить

PiRaTe

Дата: Среда, 04.12.2013, 14:15 |
Сообщение № 5

Группа: Пользователи

Ранг: Новичок

Сообщений: 16

Репутация:
0
±

Замечаний:
0% ±

Excel 2010

Вот например сам файл — посмотрите пожалуйста — может я что то не так делаю ?

Когда ставлю защиту на столбец G — при вводе данных на ячейку (например) I5 и нажатии ENTER
происходит переход в ячейку A6
А нужно чтобы происходил переход в ячейку F6

Ибрагимов

Ответить

AlexM

Дата: Среда, 04.12.2013, 14:17 |
Сообщение № 6

Группа: Друзья

Ранг: Участник клуба

Сообщений: 4257

Репутация:
1046
±

Замечаний:
0% ±

Excel 2003

Файл не видно, наверно он больше 100Кб

Номер мобильного модема (без голосовой связи)
9269171249 МегаФон, Московский регион.

Ответить

PiRaTe

Дата: Среда, 04.12.2013, 14:17 |
Сообщение № 7

Группа: Пользователи

Ранг: Новичок

Сообщений: 16

Репутация:
0
±

Замечаний:
0% ±

Excel 2010

AlexM,
Можно что нибудь сделать — или совсем безнадежно все ?
[moder]Да. Похоже, что безнадежно.
Умный — поймет.

Ибрагимов

Ответить

PiRaTe

Дата: Среда, 04.12.2013, 14:26 |
Сообщение № 8

Группа: Пользователи

Ранг: Новичок

Сообщений: 16

Репутация:
0
±

Замечаний:
0% ±

Excel 2010

Вот переделал

К сообщению приложен файл:

-254.xlsx
(12.4 Kb)

Ибрагимов

Ответить

PiRaTe

Дата: Среда, 04.12.2013, 14:27 |
Сообщение № 9

Группа: Пользователи

Ранг: Новичок

Сообщений: 16

Репутация:
0
±

Замечаний:
0% ±

Excel 2010

Нет я в это не верю !
AlexM, — помогите !

Можете считать меня не умным !

Ибрагимов

Ответить

PiRaTe

Дата: Среда, 04.12.2013, 14:30 |
Сообщение № 10

Группа: Пользователи

Ранг: Новичок

Сообщений: 16

Репутация:
0
±

Замечаний:
0% ±

Excel 2010

пароль 254

Ибрагимов

Ответить

AlexM

Дата: Среда, 04.12.2013, 14:35 |
Сообщение № 11

Группа: Друзья

Ранг: Участник клуба

Сообщений: 4257

Репутация:
1046
±

Замечаний:
0% ±

Excel 2003

Смотрите.

К сообщению приложен файл:

-254_new.xls
(32.0 Kb)

Номер мобильного модема (без голосовой связи)
9269171249 МегаФон, Московский регион.

Ответить

PiRaTe

Дата: Среда, 04.12.2013, 14:43 |
Сообщение № 12

Группа: Пользователи

Ранг: Новичок

Сообщений: 16

Репутация:
0
±

Замечаний:
0% ±

Excel 2010

AlexM,
Нет — Алекс — что то не то получилось !

Когда нажимаю Enter в ячейке J5 — курсор переходит на ячейку G6
Я должен вводит данные в ячейку G6 и нажать Enter — после чего курсор должен переходить на ячейку J6
После того как ввожу данные J6 и Enter — автоматический переход на ячейку G7

И так после ввода данных в ячейке J — курсор переходит автоматом на одну строку ниже в ячейке G

Ибрагимов

Ответить

PiRaTe

Дата: Среда, 04.12.2013, 14:48 |
Сообщение № 13

Группа: Пользователи

Ранг: Новичок

Сообщений: 16

Репутация:
0
±

Замечаний:
0% ±

Excel 2010

В Вашем файле когда я ввожу данные в ячейке J5 курсор переходит на G7 и когда я ввожу данные в ячейку G курсор переходит обратно на ячейку J5 (обратно) вместо того чтобы перейти на вправо
Переход мне нужен только со столбца J на одну ниже но в столбце G

Помогите, пожалуйста !

Ибрагимов

Ответить

PiRaTe

Дата: Среда, 04.12.2013, 15:57 |
Сообщение № 14

Группа: Пользователи

Ранг: Новичок

Сообщений: 16

Репутация:
0
±

Замечаний:
0% ±

Excel 2010

Все — в норме АЛЕКС = СПАСИБО !

ОГРОМНОЕ СПАСИБО !

Ибрагимов

Ответить

PiRaTe

Дата: Среда, 04.12.2013, 16:03 |
Сообщение № 15

Группа: Пользователи

Ранг: Новичок

Сообщений: 16

Репутация:
0
±

Замечаний:
0% ±

Excel 2010

Дата: Среда, 04.12.2013, 14:01 | Сообщение № 3
Группа: Друзья
Ранг: Старожил
Сообщений: 1102
Репутация: 251 ±
Замечаний: 0% ±
===========
РЕШЕНИЕ : ||
=================================================================================================
Можно в формате ячеек на вкладке «Защита» снять галочку «Защищаемая ячейка» с тех ячеек, по которым надо делать переход. Затем установите защиту на лист, сняв галочку «выделение заблокированных ячеек»
Можно в формате ячеек на вкладке «Защита» снять галочку «Защищаемая ячейка» с тех ячеек, по которым надо делать переход. Затем установите защиту на лист, сняв галочку «выделение заблокированных ячеек»AlexM[/b][/b][/b][/b]============================================================================================

Алекс — а через макрос — вообще это возможно ?
Если да — ХОЧУ ЗНАТЬ КАК ???

Ибрагимов

Ответить

AlexM

Дата: Среда, 04.12.2013, 17:11 |
Сообщение № 16

Группа: Друзья

Ранг: Участник клуба

Сообщений: 4257

Репутация:
1046
±

Замечаний:
0% ±

Excel 2003

код
[vba]

Код

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Range(«G4:G11,J4:J11»), Target) Is Nothing Then
If Target.Column = 7 Then Target.Offset(0, 3).Select
If Target.Column = 10 Then Target.Offset(1, -3).Select
End If
End Sub

[/vba]
См. файл
На листе «Защита» сделаны переходы защитой ячеек.
На листе Макрос — макросом

Номер мобильного модема (без голосовой связи)
9269171249 МегаФон, Московский регион.

Ответить

Источник