Присвоить ячейке значение другой ячейки excel vba - Word и Excel

0 / 0 / 0

Регистрация: 16.02.2011

Сообщений: 11

Как присвоить ячейке значение другой ячейки, у которой известны координаты

16.02.2011, 18:10. Показов 33320. Ответов 8

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

pashulka

4131 / 2235 / 940

Регистрация: 01.12.2010

Сообщений: 4,624

17.02.2011, 01:24

Давайте воспользуемся свойствами и методом об’екта Range
— Value
— Offset
— Select

Если нам известны номер строки и номер столбца и
под другой мы подразумеваем любую ячейку, то

Visual Basic

1 2	ActiveCell.Value = Cells(iRow, iClm).Value Cells(iRow, iClm).Offset(0, 1).Select 'смещение на один столбец вправо

Примечание :
ActiveCell — активная ячейка рассматривается только в качестве ‘наглядного пособия’ и может быть заменена на любой другой вариант обращения к ячейке.

На самом деле можно обойтись и без явного использования Value, Offset с тем же результатом

Visual Basic

1 2	ActiveCell = Cells(iRow, iClm) Cells(iRow, iClm + 1).Select

Естественно, что перемещаться можно в любом направлении, но не стоит забывать, что в рабочем листе существует всего 256 столбцов и 65536 строк, а это значит, что при использовании вот этих инструкций Вы получите сообщение об ошибке (*)

Visual Basic

1 2	Cells(1, 250).Offset(1, 10).Select Cells(65530 + 10, 1).Select

P.S. Если Вам нужно перейти к следующей в строке ячейке, то можно использовать :

Visual Basic

1	Cells(iRow, iClm).Next.Select

Если iRow = 256, то получите ошибку (*)

* — сообщение об ошибке Вы получите только, в том, случае если у Вас отсутствует режим отложенной ошибки и т.д.

4131 / 2235 / 940

Регистрация: 01.12.2010

Сообщений: 4,624

17.02.2011, 01:27

Прощу прощения за опечатку, правильный вариант :
Если iClm = 256, то получите ошибку (*)

0 / 0 / 0

Регистрация: 16.02.2011

Сообщений: 11

17.02.2011, 12:09

[ТС]

Спасибо за помощь!

0 / 0 / 0

Регистрация: 16.02.2011

Сообщений: 11

17.02.2011, 12:38

[ТС]

А если ячейка, в которую надо внести значение, находится на другом листе?

3944 / 2858 / 665

Регистрация: 08.06.2007

Сообщений: 9,666

Записей в блоге: 4

17.02.2011, 12:40

Для присваивания в строке 3 ячейке в колонке 2 значения ячейки в колонке 1 можно написать:

Код

  Cells(3, 2) = Cells(3, 1)

А можно и короче:

Последнее работает даже если установлен стиль ссылок R1C1

pashulka

4131 / 2235 / 940

Регистрация: 01.12.2010

Сообщений: 4,624

17.02.2011, 13:28

Visual Basic

1
2
3

Worksheets('Лист1').Cells(3, 3).Value = Worksheets('Лист2').Cells(iRow, iClm).Value
Worksheets(1).Cells(3, 3).Value = Worksheets(2).Cells(iRow, iClm).Value
Лист1.Cells(3, 3).Value = Лист2.Cells(iRow, iClm).Value

— можно обойтись и без явного использования Value с тем же результатом
— имя листа можно заменить на переменную
— вместо Worksheets можно использовать Sheets
— сократить код можно, если использовать With или Set

Предполагается , что:
iRow — это номер строки
iClm — это номер столбца
‘Лист1’, ‘Лист2’ — это имя рабочих листов
1, 2 — это индекс (номер) рабочего листа в семействе Worksheets
Лист1, Лист2 — это имя рабочих листов в среде VBA, не путайте с именем рабочего листа, отображаемого на ярлычке

To palva
Прежде чем дополнять чужие ответы, неплохо для начала
внимательно его прочитать

>ActiveCell — активная ячейка рассматривается только в >качестве ‘наглядного пособия’ и может быть заменена на любой другой >вариант обращения к ячейке.
>На самом деле можно обойтись и без явного использования Value, >Offset с тем же результатом
>ActiveCell = Cells(iRow, iClm)

Cells(3, 2) = Cells(3, 1)
Разве это не клон моего ответа ???

А второй вариант в контексте данного случая не может
быть применим, так как в начальных условиях, задано, что известны координаты ячейки, т.е. номер ячейки и номер столбца, а не её адрес.
Хотя этот способ я, как и Вы, тоже использую, но …

>Последнее работает даже если установлен стиль ссылок R1C1

А, что остальные варианты при стиле R1C1 не работают ???

3944 / 2858 / 665

Регистрация: 08.06.2007

Сообщений: 9,666

Записей в блоге: 4

17.02.2011, 14:48

> Cells(3, 2) = Cells(3, 1)
> Разве это не клон моего ответа ???

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

> А второй вариант в контексте данного случая не может быть применим, так как в начальных условиях, задано, что известны координаты ячейки, т.е. номер ячейки и номер столбца, а не её адрес.

Если координаты ячейки вычисляются в макросе или являются переменными, то, конечно, проще использовать Cells. Если координаты ячейки постоянны, то можно заранее преобразовать их в адрес и использовать в макросе более короткую запись. Хотя ячейкам с постоянным адресом логичнее дать имя, например, ‘CursEvro’ и получать значение так: [CursEvro]

>>Последнее работает даже если установлен стиль ссылок R1C1

>А, что остальные варианты при стиле R1C1 не работают ???

Работают, но это написано под впечатлением странной несимметричной ситуации: Когда стиль R1C1 установлен, то можно написать [J10] = [R20C12], то есть рабоают оба способа адресации. А когда стиль R1C1 НЕ установлен, то [J10] работает, а [R20C12] — нет.

Извините, я не хотел вас уязвить. Я больше думал об авторе вопроса и боялся, что ваш ответ будет для него слишком замысловатым.

4131 / 2235 / 940

Регистрация: 01.12.2010

Сообщений: 4,624

18.02.2011, 00:55

To Palva

>Извините, я не хотел вас уязвить. Я больше думал об авторе вопроса и боялся, что ваш ответ будет для него слишком замысловатым.

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

ActiveCell.Value = Cells(3, 1).Value

Примечание :
— ActiveCell — можно заменить на другой способ обращения к ячейке
— Value — можно убрать

После прочтения этого примечания, человек должен сам произвести некоторые действия, для самостоятельного закрепления материала.
т.е. заменить ActiveCell на Cells(1, 1) и убрать Value

> Cells(3, 2) = Cells(3, 1)
А появление подобного кода, может рассматриваться как сомнение в умственных способностях человека.

Кстати, если этот топик читают преподаватели, то они смогут подтвердить наличие подобной методики.

Источник

$begingroup$

I have an Excel Worksheet consisting of two columns, one of which is filled with strings and the other of which is empty. I would like to use VBA to assign the value of the cells in the empty column based on the value of the adjacent string in the other column.

Dim regexAdmin As Object 
Set regexAdmin = CreateObject("VBScript.RegExp") 
regexAdmin.IgnoreCase = True
regexAdmin.Pattern = "Admin" 

Dim i As Integer
For i = 1 To 10 'let's say there is 10 rows
    Dim j As Integer
    For j = 1 To 2
        If regexAdmin.test(Cells(i, j).Value) Then
            Cells(i, j + 1).Value = "Exploitation"
        End If
    Next j
Next i

The problem is that when using this loop for a big amount of data, it takes way too long to work and, most of the time, it simply crashes Excel.

Does anyone know a better way of doing this?

Jamal

34.8k13 gold badges132 silver badges236 bronze badges

asked Aug 7, 2014 at 13:03

$endgroup$

$begingroup$

The short answer is:

Don’t use vba, use a formula. In particular, a combination of IF and SEARCH.

=IF(SEARCH($A1,"Admin")>0,"Exploitation","")

But this is code review, so let’s do that anyway.

Regex is slow. It seems that you’re only using it for it’s case insensitivity. Given that, you can directly compare cell values by using StrComp with the vbTextCompare option. (useful article on StrComp)
i and j are typically used for loop counters, but row and col make more sense in this case.

Here is what this could could look like:

Dim row As Integer
For row = 1 To 10 'let's say there is 10 rows
    Dim col As Integer
    For col = 1 To 2
        If StrComp("Admin",Cells(row, col).Value,vbTextCompare) Then
            Cells(row, col + 1).Value = "Exploitation"
        End If
    Next col
Next row

answered Aug 7, 2014 at 16:07

RubberDuckRubberDuck

30.8k6 gold badges68 silver badges172 bronze badges

$endgroup$

$begingroup$

I would think that simple string comparison would be much faster than Regex.

Dim pattern as string
pattern = "Admin"
Dim i As Integer
For i = 1 To 10 'let's say there is 10 rows
    Dim j As Integer
    For j = 1 To 2
        If Cells(i, j) = pattern Then
            Cells(i, j + 1) = "Exploitation"
        End If
    Next j
Next i

answered Aug 7, 2014 at 18:29

PerryJPerryJ

1913 bronze badges

$endgroup$

$begingroup$

May I suggest a 50% reduction in runtime/effort?

Dim row As Integer
For row = 1 To 10 'let's say there is 10 rows
    If StrComp("Admin",Cells(row, 1).Value,vbTextCompare) Then
        Cells(row, 2).Value = "Exploitation"
    End If
Next row

Did nobody notice that the OP talks about «checking ONE column, writing to the NEXT adjacent», really? Why loop columns then? The second pass would only check either an empty cell or one with «Exploitation» in it.

Alex L

5,7272 gold badges24 silver badges68 bronze badges

answered Jun 20, 2015 at 18:07

user1016274user1016274

6145 silver badges9 bronze badges

$endgroup$

$begingroup$

In B1:

=if(upper(A1)="ADMIN","Exploitation","")

Then just fill it down. This is case insensitive.

This auto fill can be done two ways, either interactively in the worksheet, or programmatically:

Interactively: Excel has an autofill feature. With B1 selected and that formula put in, just double click the fill handle, which is the tiny square in the bottom right corner of cell when it’s selected. Excel will intelligently copy the formula down to the end of the contiguous range that has data. Meaning if A1-A256 has data with no blanks, it’ll autofill to B256. Alternatively, if there are blanks, scroll to the bottom and select B256 (or whatever the end is). Then Ctrl + Shift + Up arrow to select the range leading to B1, and Ctrl+D to copy it down (think d= ditto)

Using VBA… if you must do this programmatically: with the formula containing cell as your selection:

Selection.AutoFill Destination:=Range("B1:B19")

There’s other options available for autofill to do a few cool tricks. Can copy a literal value instead of a formula, or also fill a series based on a pattern. You can also set custom patterns for it to recognize, such as lines of business you commonly repeat in stuff or cities you have retail locations in, etc.

rolfl

97.1k17 gold badges214 silver badges417 bronze badges

answered Sep 14, 2015 at 21:49

Gary RitterGary Ritter

3893 silver badges4 bronze badges

$endgroup$

$begingroup$

Wow. Just reading through the first couple of lines got me wondering:

Why the late-binding?
Why use a regex at all?

@ckuhn203 already addressed the naming in his answer, but I find this:

Dim i As Integer
For i = 1 To 10 'let's say there is 10 rows

Turned into that:

Dim row As Integer
For row = 1 To 10 'let's say there is 10 rows

…Doesn’t need the comment anymore.

I would like to use VBA to assign the value of the cells in the empty column based on the value of the adjacent string in the other column.

I think that’s [mis|ab]using VBA: Excel itself is very good at dealing with assigning cell values based on other cells’ values.

regexAdmin.Pattern = "Admin"

I think that’s [mis|ab]using regex: if your pattern is just a plain word, you’re most probably trying to kill a mosquito with a bazooka. Wrong tool for the job here.

answered Aug 7, 2014 at 16:18

Mathieu GuindonMathieu Guindon

74.9k17 gold badges189 silver badges460 bronze badges

$endgroup$

$begingroup$

Whenever you are accessing the Range object it should be done with a single read/write operation.

Prior to entering the for loop you should read the entire range that you are looking to work with.

data = Range(Cells(1,1), Cells(10,2)).Value

Now you can work with the data:

For i = 1 To 10 'let's say there is 10 rows
    Dim j As Integer
    For j = 1 To 2
        If regexAdmin.test(data(i, j)) Then
            data(i, j + 1) = "Exploitation"
        End If
    Next j
Next i

Finally write the data back to excel:

Range(Cells(1,1), Cells(10,2)).Value = data

answered Jun 20, 2015 at 5:26

$endgroup$

$begingroup$

Combining all the other answers together, made it case insensitive like the regex in the original, removed the need to specify how many rows and declaring all the variables because Option Explicit avoids so many errors in vba

Option Explicit

Sub checkForExploit()

Dim row As Integer
Dim data() As Variant
Dim datarange As Range

Set datarange = Range("A1:B10")

data = datarange.Value

For row = 1 To UBound(data, 1)
    If LCase(data(row, 1)) = "admin" Then
        data(row, 2) = "Exploitation"
    End If
Next row

datarange.Value = data

End Sub

answered Dec 20, 2019 at 15:27

$endgroup$

Источник

Vba excel присвоить значение ячейке

На этом шаге мы рассмотрим реализацию данного действия.

Для ввода в табличную базу данных на листе База расстояния между НП и их названий, запишите макрос РасстоянияВвести (рисунок 1).

Рис.1. Подпрограмма РасстоянияВвести

Этот макрос коренным образом отличается от всех созданных ранее. Одно из его отличий заключается в том, что при его выполнении для ввода данных Excel не активизирует рабочий лист База и не активизирует ячейки, в которые эти данные будут введены. Следующее его отличие — его запись осуществляется не в механической записи последовательности действий, а в наборе кода VBA с клавиатуры.

Присвоение ячейкам листа База значений, введенных в диапазон ячеек D2:G2 на рабочем листе Города, производится с помощью кода VBA. Последовательность выполнения подпрограммы следующая:

трем переменным X, Y и Z присваиваются значения, предварительно введенные в ячейки D2, E2 и G2 активного рабочего листа. Так как макрос РасстоянияВвести будет запускаться на выполнение кнопкой Расстояние ввести, находящейся на рабочем листе Города, то необходимости указания имени этого рабочего листа в тексте подпрограммы нет. Макрос довольно простой, и особой необходимости вводить в подпрограмму переменные не было. Это сделано с позиции читаемости.
переменной Row присваивается значение определяемое с помощью функции CountA, которая проводит подсчет непустых ячеек в столбце В (столбец может быть любой от А до D) на листе База и увеличенное на единицу. Значение переменной Row указывает на номер первой пустой строки, с которой будет осуществляться ввод данных;
в табличную базу данных на листе База необходимо ввести две строки, по четыре записи в каждой: НП отправления (столбец А), НП прибытия (столбец В), соединенное название пункта отправления и прибытия, разделенные символом пробел (столбец С) и расстояние между НП (столбец D). Эти значения последовательно присваиваются четырем ячейкам слева направо сначала первой, а затем второй строки. Следовательно, адреса ячеек изменяются в следующей последовательности: первая строка — Cells(Row, 1), Cells(Row, 2), Cells(Row, 3), Cells(Row, 4) и вторая строка — Cells(Row + 1, 1), Cells(Row + 1, 2), Cells(Row + 1, 3) и Cells(Row + 1, 4).

Рассмотрим более подробно строку кода VBA для ввода данных в ячейку во второй заполняемой строке столбца С рабочего листа База:

Прокомментируем приведенную формулу.

Sheets(«База«) — ранее, при выделении или активизации ячейки, рабочий лист не указывался. В этой строке кода VBA присвоение значения ячейке листа База задается без его активизации и с другого листа. По иерархии объект Sheets(Рабочий лист) находится выше, чем объект Cells(Ячейка, Диапазон). Если не указать достаточный путь, в частности, рабочий лист, то ввод данных будет производиться в ячейки на активном рабочем листе.
Cells(Row + 1, 3) — координаты ячейки: Row+1(строка); 3 (столбец С).
Value — ячейке будет присвоено значение.
= — операция присваивания.
X & » » & Y — значение ячейки D2 (или значение, возвращаемое формулой, находящейся в этой ячейке) объединить через пробел со значением ячейки Е2 (или значение возвращаемое формулой). Знак & — операция объединения.

На следующем шаге мы рассмотрим реализацию проверки наличия повторяющихся записей.

Как присвоить ячейке значение другой ячейки, у которой известны координаты

Вопрос по адресации в Excel: как получить данные из ячейки, адрес которой указан в другой ячейке?
Доброго дня всем. Тут такое дело — в ячейке, к примеру А1 лежит номер столбца, а в ячейке А2 -.

Как присвоить значение ячейки одного листа и поставить ее в другой лист
Подскажите пожалуйста! Как присвоить значение ячейки одного листа и поставить ее в другой лист .

Как присвоить переменной имя ячейки ексель по которой кликнул пользователь
Здравствуйте. Известно только то что пользователь обязательно кликнет по ячейке после того как.

Давайте воспользуемся свойствами и методом об’екта Range
— Value
— Offset
— Select

Если нам известны номер строки и номер столбца и
под другой мы подразумеваем любую ячейку, то

На самом деле можно обойтись и без явного использования Value, Offset с тем же результатом

P.S. Если Вам нужно перейти к следующей в строке ячейке, то можно использовать :

Если iRow = 256, то получите ошибку (*)

* — сообщение об ошибке Вы получите только, в том, случае если у Вас отсутствует режим отложенной ошибки и т.д.

To palva
Прежде чем дополнять чужие ответы, неплохо для начала
внимательно его прочитать

Cells(3, 2) = Cells(3, 1)
Разве это не клон моего ответа .

>Последнее работает даже если установлен стиль ссылок R1C1

А, что остальные варианты при стиле R1C1 не работают .

Чтение и запись значения ячейки в VBA

В приложении Excel все данные как правило находятся в ячейках на листах, с которыми макросы работают как с базой данных. Поэтому, начинающему программисту VBA важно понимать как читать значения из ячейки Excel в переменные или массивы и, наоборот, записывать какие-либо значения на лист в ячейки.

Обращение к конкретной ячейке

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

Полный путь к ячейке A1 в Книге1 на Листе1 можно записать двумя вариантами:

С помощью Range
С помощью Cells

Пример 1: Обратиться к ячейке A3 находящейся в Книге1 на Листе1

Однако, как правило, полный путь редко используется, т.к. макрос работает с Книгой, в которой он записан и часто на активном листе. Поэтому путь к ячейке можно сократить и написать просто:

Пример 2: Обратиться к ячейке A1 в текущей книге на активном листе

Если всё же путь к книге или листу необходим, но не хочется его писать при каждом обращении к ячейкам, можно использовать конструкцию With End With. При этом, обращаясь к ячейкам, необходимо использовать в начале «.» (точку).

Пример 3: Обратиться к ячейке A1 и B1 в Книге1 на Листе2.

Так же, можно обратиться и к активной (выбранной в данный момент времени) ячейке.

Пример 4: Обратиться к активной ячейке на Листе3 текущей книги.

Чтение значения из ячейки

Есть 3 способа получения значения ячейки, каждый из которых имеет свои особенности:

Value2 — базовое значение ячейки, т.е. как оно хранится в самом Excel-е. В связи с чем, например, дата будет прочтена как число от 1 до 2958466, а время будет прочитано как дробное число. Value2 — самый быстрый способ чтения значения, т.к. не происходит никаких преобразований.
Value — значение ячейки, приведенное к типу ячейки. Если ячейка хранит дату, будет приведено к типу Date. Если ячейка отформатирована как валюта, будет преобразована к типу Currency (в связи с чем, знаки с 5-го и далее будут усечены).
Text — визуальное отображение значения ячейки. Например, если ячейка, содержит дату в виде «число месяц прописью год», то Text (в отличие от Value и Value2) именно в таком виде и вернет значение. Использовать Text нужно осторожно, т.к., если, например, значение не входит в ячейку и отображается в виде «#####» то Text вернет вам не само значение, а эти самые «решетки».

По-умолчанию, если при обращении к ячейке не указывать способ чтения значения, то используется способ Value.

Пример 5: В ячейке A1 активного листа находится дата 01.03.2018. Для ячейки выбран формат «14 марта 2001 г.». Необходимо прочитать значение ячейки всеми перечисленными выше способами и отобразить в диалоговом окне.

Пример 6: В ячейке С1 активного листа находится значение 123,456789. Для ячейки выбран формат «Денежный» с 3 десятичными знаками. Необходимо прочитать значение ячейки всеми перечисленными выше способами и отобразить в диалоговом окне.

При присвоении значения переменной или элементу массива, необходимо учитывать тип переменной. Например, если оператором Dim задан тип Integer, а в ячейке находится текст, при выполнении произойдет ошибка «Type mismatch». Как определить тип значения в ячейке, рассказано в следующей статье.

Пример 7: В ячейке B1 активного листа находится текст. Прочитать значение ячейки в переменную.

Таким образом, разница между Text, Value и Value2 в способе получения значения. Очевидно, что Value2 наиболее предпочтителен, но при преобразовании даты в текст (например, чтобы показать значение пользователю), нужно использовать функцию Format.

Запись значения в ячейку

Осуществить запись значения в ячейку можно 2 способами: с помощью Value и Value2. Использование Text для записи значения не возможно, т.к. это свойство только для чтения.

Пример 8: Записать в ячейку A1 активного листа значение 123,45

Все три строки запишут в A1 одно и то же значение.

Пример 9: Записать в ячейку A2 активного листа дату 1 марта 2018 года

В данном примере тоже запишется одно и то же значение в ячейку A2 активного листа.

Визуальное отображение значения на экране будет зависеть от того, какой формат ячейки выбран на листе.

Excel vba записать значение в ячейку

VBA-Урок 5. Свойства (Properties)

В данной статье мы будем учиться писать VBA код, чтобы управлять содержимым ячеек, самими ячейками и листами.

1. Запись значений в ячейку

Для начала откроем редактор, добавим модуль, скопируем туда этот макрос:

Мы обратились к ячейке A1 . Теперь давайте попробуем управлять данной ячейкой. Чтобы увидеть, что мы можем сделать, добавим точку после Range («A1»).

Выберите значение Value и нажмите Tab. Получим такой код:

Значение Value отображает содержимое ячейки.

Теперь давайте запишем значение 35 в ячейку A1:

Попробуем теперь записать текст в ячейку (когда присваиваем текстовое значение, его нужно брать в двойные кавычки «»):

Заметим, что макрос будет отображать значение в том листе, который вы последний раз открывали. Поэтому, чтобы управлять содержимым ячейки на любом листе книги, нам нужно будет прописать полный путь к ячейке, а именно добавить впереди кода название листа, например:

Вариант 1. Обращаемся по названию листа — Sheets(«Sheet2»).

Вариант 2. Обращаемся не по названию листа, а по его порядковому номеру — Sheets(2).

Аналогично, если мы хотим обратиться к ячейке в другой книге, нам нужно в начале кода прописать название книги:

Хотя мы указываем параметр Value в наших примерах, на самом деле его можно не использовать, поскольку он стоит по умолчанию. То есть, эти две строки кода будут эквивалентными:

2. Удаление значений

Удалим значение 35 из ячейки A1, которое мы записали в начале урока:

3. Форматирование значений

Если вы выберете значение Font , то появится список параметров, которые вы сможете применить к ячейке:

Форматирование: изменение размера текста

Давайте присвоим ячейке значение 35 и уменьшим размер шрифта до 8:

Работа с Excel — записать в ячейку значение из TextBox

Что еще можно почитать

Дозапись в файл на FTP (Декабрь 8, 2015)

Генератор QR-кода на VB .NET (Март 13, 2016)

Plazma — Black Bird Fly (Cover) (Сентябрь 2, 2015)

Magic Mystery (Systems In Blue Cover) (Март 30, 2016)

Получить имя компьютера по его IP-адресу (Декабрь 4, 2015)

13 комментариев: Работа с Excel — записать в ячейку значение из TextBox

Добрый вечер!
Как сделать, что б запись выполнялась в пустую строку таблицы excel т.е. программа ищет пустую стоку и в нее записывает значение?

@ Игорь:
Добрый.
Вам нужен UsedRange, можете загуглить.

Пример будет выглядеть так (строка 7):

@ Игорь:
Добрый.
Вам нужен UsedRange, можете загуглить.

БОЛЬШОЕ Спасибо! Сейчас попробую погуглить и разобраться!
Но я вот, что имел ввиду:
есть два поля textbox1 и textbox2, кнопка button1 «Записать». Необходимо при нажатии кнопки выполнить запись из textbox1 и textbox2 в таблицу excel (например файл 1.xlsx). Причем textbox1 в столбец «В», а textbox2 в столбец «С», но в свободную строку (не заполненную), например 1, 2, 3 строки заполнены, а 4 пустая — так вот в нее!

В cells второй параметр — это и есть индекс столбца. Там указана 1, т.е. первый столбец. Вы пишите нужный.
Что Вас смущает?

VBA Excel. Ячейки (обращение, запись, чтение, очистка)

Обращение к ячейке на листе Excel из кода VBA. Запись информации в ячейку. Чтение информации из ячейки. Очистка значения ячейки. Метод ClearContents объекта Range.

Обращение к ячейке

Допустим, у нас есть два открытых файла: «Книга1» и «Книга2», причем, файл «Книга1» активен и в нем находится исполняемый код VBA.

В общем случае при обращении к ячейке неактивной рабочей книги «Книга2» из кода файла «Книга1» прописывается полный путь:

Удобнее обращаться к ячейке через свойство рабочего листа Cells(номер строки, номер столбца), так как вместо номеров строк и столбцов можно использовать переменные. Обратите внимание, что при обращении к любой рабочей книге, она должна быть открыта, иначе произойдет ошибка. Закрытую книгу перед обращением к ней необходимо открыть.

Теперь предположим, что у нас в активной книге «Книга1» активны «Лист1» и ячейка на нем «A1». Тогда обращение к ячейке «A1» можно записать следующим образом:

Точно также можно обращаться и к другим ячейкам активного рабочего листа, кроме обращения ActiveCell, так как активной может быть только одна ячейка, в нашем примере — это ячейка «A1».

Если мы обращаемся к ячейке на неактивном листе активной рабочей книги, тогда необходимо указать этот лист:

Имя ярлыка может совпадать с основным именем листа. Увидеть эти имена можно в окне редактора VBA в проводнике проекта. Без скобок отображается основное имя листа, в скобках — имя ярлыка.

Кроме того к ячейке на рабочем листе можно обращаться по ее индексу (порядковому номеру), который считается по расположению ячейки на листе слева-направо и сверху-вниз. Например, индекс ячеек в первой строке равен номеру столбца. Индекс ячеек во второй строке равен количеству ячеек в первой строке (которое равно общему количеству столбцов на листе — зависит от версии Excel) плюс номер столбца. Индекс ячеек в третьей строке равен количеству ячеек в двух первых строках плюс номер столбца. И так далее. Для примера, Cells(4) та же ячейка, что и Cells(1, 4). Используется такое обозначение редко, тем более, что у разных версий Excel может быть разным количество столбцов и строк на рабочем листе.

Запись информации в ячейку

Содержание ячейки определяется ее свойством «Value», которое в VBA Excel является свойством по умолчанию и его можно явно не указывать. Записывается информация в ячейку при помощи оператора присваивания «=»:

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

Чтение информации из ячейки

Считать информацию из ячейки в переменную можно также при помощи оператора присваивания «=»:

Точно также можно обмениваться информацией между ячейками:

Очистка значения ячейки

Очищается ячейка от значения с помощью метода ClearContents. Кроме того, можно присвоить ячейке значение нуля или пустой строки:

Чтение и запись значения ячейки в VBA

Обращение к конкретной ячейке

Полный путь к ячейке A1 в Книге1 на Листе1 можно записать двумя вариантами:

С помощью Range
С помощью Cells

Пример 1: Обратиться к ячейке A3 находящейся в Книге1 на Листе1

Пример 2: Обратиться к ячейке A1 в текущей книге на активном листе

Пример 3: Обратиться к ячейке A1 и B1 в Книге1 на Листе2.

Так же, можно обратиться и к активной (выбранной в данный момент времени) ячейке.

Пример 4: Обратиться к активной ячейке на Листе3 текущей книги.

Чтение значения из ячейки

Есть 3 способа получения значения ячейки, каждый из которых имеет свои особенности:

Value2 — базовое значение ячейки, т.е. как оно хранится в самом Excel-е. В связи с чем, например, дата будет прочтена как число от 1 до 2958466, а время будет прочитано как дробное число. Value2 — самый быстрый способ чтения значения, т.к. не происходит никаких преобразований.
Value — значение ячейки, приведенное к типу ячейки. Если ячейка хранит дату, будет приведено к типу Date. Если ячейка отформатирована как валюта, будет преобразована к типу Currency (в связи с чем, знаки с 5-го и далее будут усечены).
Text — визуальное отображение значения ячейки. Например, если ячейка, содержит дату в виде «число месяц прописью год», то Text (в отличие от Value и Value2) именно в таком виде и вернет значение. Использовать Text нужно осторожно, т.к., если, например, значение не входит в ячейку и отображается в виде «#####» то Text вернет вам не само значение, а эти самые «решетки».

По-умолчанию, если при обращении к ячейке не указывать способ чтения значения, то используется способ Value.

Пример 7: В ячейке B1 активного листа находится текст. Прочитать значение ячейки в переменную.

Запись значения в ячейку

Пример 8: Записать в ячейку A1 активного листа значение 123,45

Все три строки запишут в A1 одно и то же значение.

Пример 9: Записать в ячейку A2 активного листа дату 1 марта 2018 года

В данном примере тоже запишется одно и то же значение в ячейку A2 активного листа.

Визуальное отображение значения на экране будет зависеть от того, какой формат ячейки выбран на листе.

Запись значения в ячейку, которая не вызывает функцию, через функцию VBA

Мне интересно, можно ли записывать значения в ячейку в Excel через функцию VBA?

Аки ни строки в следующей функции будут называть:

Но следующим пустышки Sub будет работать правильно:

Есть ли что-то, что нужно сделать, чтобы быть в состоянии записать в ячейку, которая не является ячейкой, вызывающей конкретную функцию?

Создан 12 сен. 16 2016-09-12 05:33:09 Matt

Уже описано здесь, поиск этой ссылке: //stackoverflow.com/questions/9476282/cannot-vba-write-data-to-cells-in-excel-2007-2010-within-a-функция – Shai Rado 12 сен. 16 2016-09-12 05:37:14

может быть это временное решение может сделать для вас:

сократить вниз вашу OffsetValue функцию:

место следующие подвиды в кодовой области рабочего листа вы хотите использовать Function OffsetValue() в:

Если вы не хотите удалять звонок OffsetValue() из той ячейки, которую вы написали, а затем просто удалить/комментарий Target.ClearContents

это только базовый код, который вы можете улучшить с:

некоторые проверка Target диапазона, передаваемым в Worksheet_Change()

вы можете проверить, если он соответствует конкретным Значение (например: проверка Target.Value с некоторым диапазоном значений) или Диапазон (например: проверка Target сам диапазон, принадлежащий предопределенному Range ) критерии

обрабатывать ту же потребность на протяжении всей книги

, то вы должны переключиться на использование обработчика Sub ThisWorkbook_Change() событий в коде панели ThisWorkbook

Как получить старое значение измененной ячейки в Excel VBA?

Я обнаруживаю изменения в значениях определенных ячеек в электронной таблице Excel, как это.

предполагая, что это не слишком плохой способ кодирования, как мне получить значение ячейки до изменения?

14 ответов

объявить переменную say

и SelectionChange событие

и в Worksheet_Change событие

вы можете использовать событие для изменения ячейки, чтобы запустить макрос, который делает следующее:

у меня есть альтернативное решение для вас. Можно создать скрытый лист для сохранения старых значений диапазона интересов.

удалить его, когда книга закрыта.

и измените событие Worksheet_Change следующим образом.

вот способ, который я использовал в прошлом. Обратите внимание, что вам нужно добавить ссылку на среду выполнения сценариев Microsoft, чтобы вы могли использовать объект Dictionary — если вы не хотите добавлять эту ссылку, вы можете сделать это с коллекциями, но они медленнее, и нет элегантного способа проверить .Существует (вы должны поймать ошибку).

Как и любой подобный метод, у этого есть свои проблемы-во-первых, он не будет знать «старое» значение, пока значение не будет фактически изменено. Фиксировать это вам нужно будет поймать открытое событие в книге и пройти через лист.UsedRange населяя OldVals. Кроме того, он потеряет все свои данные, если вы сбросите проект VBA, остановив отладчик или что-то подобное.

Мне тоже пришлось это сделать. Я нашел решение от «Chris R» действительно хорошо, но подумал, что оно может быть более совместимым, не добавляя никаких ссылок. Крис, ты говорил об использовании коллекции. Итак, вот еще одно решение с использованием Collection. И в моем случае это не так уж и медленно. Кроме того, с помощью этого решения при добавлении события «_SelectionChange» он всегда работает (нет необходимости в workbook_open).

напишите это в ThisWorkbook модуль
закройте и откройте книгу

попробуйте это, он не будет работать для первого выбора, тогда он будет работать хорошо:)

мне нужно было захватить и сравнить старые значения с новыми значениями, введенными в сложную таблицу планирования. Мне нужно было общее решение, которое работало, даже когда пользователь менял много строк одновременно. Решение реализовало класс и коллекцию этого класса.

есть три листа, на которых я отслеживаю ячейки. Каждый лист получает свою собственную коллекцию как глобальную переменную в модуле с именем ProjectPlan как следует:

суб InitDictionaries вызывается из рабочего листа.откройте, чтобы установить коллекции.

для управления каждой коллекцией объектов oldValue используются три модуля: Add, Exists и Value.

тяжелый подъем выполняется в обратном вызове Worksheet_SelectionChange. Один из четырех показан ниже. Единственное отличие-это коллекция, используемая в вызовах ADD и EXIST.

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

и затем я могу вычислить сравнение некоторого текущего значения с исходным значением.

давайте сначала посмотрим, как обнаружить и сохранить значение одной ячейки интереса. Предположим Worksheets(1).Range(«B1») ваша ячейка интереса. В обычном модуле используйте следующее:

затем в модуле рабочих листов (1):

это будет захватить изменение Worksheets(1).Range(«B1») , происходит ли изменение из-за того, что пользователь активно выбирает эту ячейку на листе и изменяет значение, или из-за других кодов VBA, которые изменяют значение Worksheets(1).Range(«B1») .

С мы объявили переменную StorageArray как public, вы можете ссылаться на его последнее значение в других модулях в том же проекте VBA.

чтобы расширить нашу область до обнаружения и сохранения значений нескольких интересующих ячеек, вам необходимо:

объявить StorageArray как двумерный массив с количеством строк, равным числу ячеек ведется наблюдение.
изменить Sub SaveToStorageArray процедура для более общего Sub SaveToStorageArray(TargetSingleCell as Range) и изменить соответствующий коды.
изменить Private Sub Worksheet_Change процедура для размещения мониторинга этих нескольких ячеек.

приложение: Для получения дополнительной информации о времени жизни переменных, пожалуйста, обратитесь к:https://msdn.microsoft.com/en-us/library/office/gg278427.aspx

в ответ на ответ Мэтта Роя я нашел этот вариант отличным ответом, хотя я не мог опубликовать как таковой с моим текущим рейтингом. 🙁

Итак, спасибо Мэтту Рою за доведение этого кода до нашего сведения и Крису.R для размещения исходного кода.

мне нужна была эта функция, и мне не понравились все решения выше, попробовав большинство, поскольку они либо

медленно
имеют сложные последствия, такие как использование приложения.расстегивать.
не захватывать, если они не были выбраны
не захватывает значения, если они не были изменены до
слишком сложно

Ну, я очень много думал об этом, и я завершил решение для полной отмены, повтора история.

захватить старое значение на самом деле очень легко и очень быстро.

мое решение-захватить все значения, как только пользователь откроет лист, откроется в переменную, и она обновляется после каждого изменения. эта переменная будет использоваться для проверки старого значения ячейки. В решениях выше всех из них используется для loop. На самом деле есть способ попроще.

для захвата всех значений я использовал эту простую команду

Да, просто это, на самом деле excel вернет массив, если диапазон является несколькими ячейками, поэтому нам не нужно использовать для каждой команды, и это очень быстро

следующий подраздел-это полный код, который должен быть вызван в Workbook_SheetActivate. Для фиксации изменений необходимо создать еще одну подзаголовок. Например, у меня есть sub под названием «catchChanges», который работает на Workbook_SheetChange. Он будет захватывать изменения, а затем сохранять их на другом листе истории изменений. затем выполняется UpdateCache, чтобы обновить кэш новые значения

Теперь получить старое значение очень просто, так как массив имеет тот же адрес ячеек

примеры если мы хотим ячейку D12, мы можем использовать следующее

Это фрагмент, объясняющий метод, я надеюсь, что всем это нравится

Источник

Обращение к ячейке на листе Excel из кода VBA по адресу, индексу и имени. Чтение информации из ячейки. Очистка значения ячейки. Метод ClearContents объекта Range.

Обращение к ячейке по адресу

Workbooks(«Книга2.xlsm»).Sheets(«Лист2»).Range(«C5»)

Workbooks(«Книга2.xlsm»).Sheets(«Лист2»).Cells(5, 3)

Workbooks(«Книга2.xlsm»).Sheets(«Лист2»).Cells(5, «C»)

Workbooks(«Книга2.xlsm»).Sheets(«Лист2»).[C5]

ActiveCell

Range(«A1»)

Cells(1, 1)

Cells(1, «A»)

[A1]

Точно также можно обращаться и к другим ячейкам активного рабочего листа, кроме обращения ActiveCell, так как активной может быть только одна ячейка, в нашем примере – это ячейка «A1».

Если мы обращаемся к ячейке на неактивном листе активной рабочей книги, тогда необходимо указать этот лист:

‘по основному имени листа

Лист2.Cells(2, 7)

‘по имени ярлыка

Sheets(«Имя ярлыка»).Cells(3, 8)

Имя ярлыка может совпадать с основным именем листа. Увидеть эти имена можно в окне редактора VBA в проводнике проекта. Без скобок отображается основное имя листа, в скобках – имя ярлыка.

Обращение к ячейке по индексу

К ячейке на рабочем листе можно обращаться по ее индексу (порядковому номеру), который считается по расположению ячейки на листе слева-направо и сверху-вниз.

Например, индекс ячеек в первой строке равен номеру столбца. Индекс ячеек во второй строке равен количеству ячеек в первой строке (которое равно общему количеству столбцов на листе, зависящему от версии Excel) плюс номер столбца. Индекс ячеек в третьей строке равен количеству ячеек в двух первых строках плюс номер столбца. И так далее.

Для примера, Cells(4) та же ячейка, что и Cells(1, 4). Используется такое обозначение редко, тем более, что у разных версий Excel может быть разным количество столбцов и строк на рабочем листе.

По индексу можно обращаться к ячейке не только на всем рабочем листе, но и в отдельном диапазоне. Нумерация ячеек осуществляется в пределах заданного диапазона по тому же правилу: слева-направо и сверху-вниз. Вот индексы ячеек диапазона Range(«A1:C3»):

Обращение к ячейке Range("A1:C3").Cells(5) соответствует выражению Range("B2").

Обращение к ячейке по имени

Если ячейке на рабочем листе Excel присвоено имя (Формулы –> Присвоить имя), то обращаться к ней можно по присвоенному имени.

Допустим одной из ячеек присвоено имя – «Итого», тогда обратиться к ней можно – Range("Итого").

Запись информации в ячейку

Cells(2, 4).Value = 15

Cells(2, 4) = 15

Range(«A1») = «Этот текст записываем в ячейку»

ActiveCell = 28 + 10*36

Чтение информации из ячейки

Считать информацию из ячейки в переменную можно также при помощи оператора присваивания «=»:

Sub Test()

Dim a1 As Integer, a2 As Integer, a3 As Integer

Range(«A3») = 6

Cells(2, 5) = 15

a1 = Range(«A3»)

a2 = Cells(2, 5)

a3 = a1 * a2

MsgBox a3

End Sub

Точно также можно обмениваться информацией между ячейками:

Cells(2, 2) = Range(«A4»)

Очистка значения ячейки

Очищается ячейка от значения с помощью метода ClearContents. Кроме того, можно присвоить ячейке значение нуля. пустой строки или Empty:

Cells(10, 2).ClearContents

Range(«D23») = 0

ActiveCell = «»

Cells(5, «D») = Empty

Источник

Подстановка значения из одной ячейки в другую

DimaS

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

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

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

Сообщений: 11

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

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

Всем привет,
Только начал пробовать использовать VBA (не буду объяснять свои чуства, но прошу снисхождения…)
Понимаю, что задача для большинства из вас крайне элементарна, но таки прошу помочь (подобного на форуме не нашел).
[b]Необходимо, чтоб при изменении значения в одной ячейке (А2) менялось значение в другой ячейке (А1).
Должно это работать постоянно, без необходимости запуска.

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

Test.xlsm
(9.5 Kb)

Ответить

китин

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

Группа: Модераторы

Ранг: Экселист

Сообщений: 6973

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

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

Excel 2007;2010;2016

ну так, на коленке один из вариантов
в модуль листа
[vba]

Код

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, Range(«A2»)) Is Nothing Then
    tt_ = Target.Value
        If Target <> «» Then Target.Offset(-1, 0) = Target.Value + 1
        End If
End Sub

[/vba]

Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852

Ответить

DimaS

Дата: Среда, 23.12.2020, 16:12 |
Сообщение № 3

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

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

Сообщений: 11

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

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

Игорь, спасибо за ответ,
Написанное выше, срабатывает только в случае изменения значения ячейки и нажатии клавиши ENTER.
Но моя задача оказалась сложнее…

Пример ниже и в прилагаемом файле:
Ячейка С4 — вносим данные вручную;
Ячейка С3 — считается по формуле (например просто С3=С4)
Ячейка С2 — должна заполниться автоматически (VBA) — взять знаяение ячейки С3 (ну и это должно работать постоянно, без необходимости запуска).

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

8682682.xlsm
(13.2 Kb)

Сообщение отредактировал DimaS — Среда, 23.12.2020, 16:22

Ответить

Kuzmich

Дата: Среда, 23.12.2020, 20:23 |
Сообщение № 4

Группа: Проверенные

Ранг: Ветеран

Сообщений: 707

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

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

Excel 2003

Цитата

Но моя задача оказалась сложнее…

Ячейка С4 — вносим данные вручную
[[vba]

Код

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, Range(«C4»)) Is Nothing Then
    tt_ = Target.Value
        If Target <> «» Then Target.Offset(-2, 0) = Target.Value + 0
        End If
End Sub

[/vba]

Ответить

DimaS

Дата: Четверг, 24.12.2020, 08:42 |
Сообщение № 5

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

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

Сообщений: 11

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

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

Также спасибо, Kuzmich,
Написанное выше, срабатывает только в случае изменения значения ячейки и нажатии клавиши ENTER.
Мне же необходимо, чтоб при ручном изменении значения в ячейке С4, по формуле рассчитались значение С3 и потом, при помощи VBA значение из С3 попало в С2.
Добиться этого не получается.
Очень прошу помочь!

Ответить

Pelena

Дата: Четверг, 24.12.2020, 09:25 |
Сообщение № 6

Группа: Админы

Ранг: Местный житель

Сообщений: 18797

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

Замечаний:
±

Excel 2016 & Mac Excel

DimaS, поясните тогда, что Вы понимаете под «ручным изменением», если не нажатие Enter?

«Черт возьми, Холмс! Но как??!!»
Ю-money 41001765434816

Ответить

DimaS

Дата: Четверг, 24.12.2020, 16:39 |
Сообщение № 7

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

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

Сообщений: 11

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

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

Ручное изменение ячейки С4 с нажатием Enter.
После чего в соответствии с формулой, изменяется значение в ячейке С3.
А вот значение в ячейке С2 (для которой записан указанный выше код VBA, не меняется.
Точнее измениться, если войду в ячейку С3 с формулой и нажму Enter.
А необходимо, чтоб после изменения значения в ячейке С4 и нажатия только тут клавиши Enter, изменились значения в ячейках С3 (в соответствии с формулой) и автоматически в ячейке С2 (по процедуре VBA).
Надеюсь это вообще возможно…

Ответить

RAN

Дата: Четверг, 24.12.2020, 18:11 |
Сообщение № 8

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

Ранг: Экселист

Сообщений: 5645

А необходимо, чтоб после изменения значения в ячейке С4 и нажатия только тут клавиши Enter, изменились значения в ячейках С3 (в соответствии с формулой) и автоматически в ячейке С2 (по процедуре VBA).
Надеюсь это вообще возможно…

Легко
[vba]

Код

Private Sub Worksheet_Calculate()
[c2] = [c3] ‘ или [c4]
End Sub

[/vba]

Быть или не быть, вот в чем загвоздка!

Ответить

Kuzmich

Дата: Четверг, 24.12.2020, 19:59 |
Сообщение № 9

Группа: Проверенные

Ранг: Ветеран

Сообщений: 707

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

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

Excel 2003

Цитата

чтоб после изменения значения в ячейке С4 и нажатия только тут клавиши Enter……

А в макросе, что я привел в сообщении #4, разве не так?

Ответить

Pelena

Дата: Четверг, 24.12.2020, 22:42 |
Сообщение № 10

Группа: Админы

Ранг: Местный житель

Сообщений: 18797

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

Замечаний:
±

Excel 2016 & Mac Excel

DimaS, подозреваю, что у Вас отключены автовычисления

«Черт возьми, Холмс! Но как??!!»
Ю-money 41001765434816

Ответить

DimaS

Дата: Пятница, 25.12.2020, 16:27 |
Сообщение № 11

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

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

Сообщений: 11

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

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

Всем большое спасибо за участие в решении задачи, надеюсь получится довести до конца )
Проверил — Автовычисление включено.
но …, к сожалению:
1. Вариант предложеyный Igor и Kuzmich — не до конца срабатывает.
При внесении числа в С4 рассчитывается по формуле С3, но не изменяется С2 в соответствии с приведенным выше алгоритмом. А вот если после этого зайти в С3 (ячейка с формулой) и просто нажать Enter, то С2 изменяется в соответствии с VBA алгоритмом.
2. Вариант предложенный RAN — срабатывает так, как необходимо, но только один раз, после чего получаю ошибку out of stack space
К сожалению, не знаю почему ((

Сообщение отредактировал DimaS — Пятница, 25.12.2020, 16:38

Ответить

Kuzmich

Дата: Пятница, 25.12.2020, 16:55 |
Сообщение № 12

Группа: Проверенные

Ранг: Ветеран

Сообщений: 707

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

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

Excel 2003

Цитата

При внесении числа в С4 рассчитывается по формуле С3, но не изменяется С2 в соответствии с приведенным выше алгоритмом

Не верю.
В макросе, что я привел в сообщении #4, изменяется С2.
Вы только макрос вставьте в модуль листа вместо своего

Ответить

DimaS

Дата: Пятница, 25.12.2020, 17:10 |
Сообщение № 13

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

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

Сообщений: 11

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

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

Да, Kuzmich, работает, но берет информацию с С4 и ставит в С2, без участия С3.
[vba]

Код

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Not Intersect(Target, Range(«C4»)) Is Nothing Then
tt_ = Target.Value
If Target <> «» Then Target.Offset(-2, 0) = Target.Value + 0
End If
End Sub

[/vba]
Если в алгоритме меняю С4 на С3 и Target.Offset на (-1, 0) , то уже не срабатывает

Сообщение отредактировал DimaS — Пятница, 25.12.2020, 17:12

Ответить

Kuzmich

Дата: Пятница, 25.12.2020, 17:21 |
Сообщение № 14

Группа: Проверенные

Ранг: Ветеран

Сообщений: 707

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

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

Excel 2003

Цитата

Если в алгоритме меняю С4 на С3 и Target.Offset на (-1, 0) , то уже не срабатывает

Тогда будет срабатывать на изменение ячейки С3

Ответить

DimaS

Дата: Пятница, 25.12.2020, 17:30 |
Сообщение № 15

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

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

Сообщений: 11

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

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

В том то и вопрос, Kuzmich, срабатывает (C2 = C3), но только при ручном изменении С3 с нажатием клавиши Enter.
А если C3 является формулой (например С3=С4+1), то С3 изменяется при изменении С4, а С2 не меняется (хотя в соответствии с VBA кодом С2=С3).

Сообщение отредактировал DimaS — Пятница, 25.12.2020, 17:32

Ответить

Kuzmich

Дата: Пятница, 25.12.2020, 17:47 |
Сообщение № 16

Группа: Проверенные

Ранг: Ветеран

Сообщений: 707

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

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

Excel 2003

Если C2 = C3 и С3=С4+1, то при изменении ячейки С4 будет меняться и С3 и С2
[vba]

Код

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, Range(«C4»)) Is Nothing Then
    End If
End Sub

[/vba]

Ответить

DimaS

Дата: Пятница, 25.12.2020, 18:14 |
Сообщение № 17

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

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

Сообщений: 11

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

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

Если C2 = C3 и С3=С4+1, то при изменении ячейки С4 будет меняться и С3 и С2

Условие и ожидаемый результат сформулированы идеально.
Но С2 меняется только тогда, когда захожу в С3 и нажимаю Enter, а при изменении С4 меняется только С3 (потом если зайду в С3 и нажму Enter, то изменится C2)

Ответить

Kuzmich

Дата: Пятница, 25.12.2020, 18:22 |
Сообщение № 18

Группа: Проверенные

Ранг: Ветеран

Сообщений: 707

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

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

Excel 2003

Меняйте С4 и смотрите на С2

Ответить

DimaS

Дата: Пятница, 25.12.2020, 19:16 |
Сообщение № 19

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

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

Сообщений: 11

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

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

Но в приложенном файле в ячейке С2 присутствует формула C2=C3 и код VBA в этом случае не нужен.
Изначально не указал, что ячейка С2 должна быть изначально пуста (или не иметь формулы) и должна заполняться только благодаря процедуре VBA

Сообщение отредактировал DimaS — Пятница, 25.12.2020, 19:17

Ответить

Kuzmich

Дата: Пятница, 25.12.2020, 19:37 |
Сообщение № 20

Группа: Проверенные

Ранг: Ветеран

Сообщений: 707

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

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

Excel 2003

ячейка С2 должна быть изначально пуста (или не иметь формулы) и должна заполняться только благодаря процедуре VBA
Не могу понять, что вы хотите?
Макрос из сообщения #4 как раз это и делает при изменении значения в С4

Ответить

Источник