Дублируйте то, что находится в текстовом поле в других текстовых блоках на других листах

У меня четыре листа в электронной таблице.

На каждом листе есть текстовое поле.

Когда я ввожу текстовое поле на листе 1, я хочу, чтобы текстовые поля на листах2, sheet3 и sheet4 заполнялись одинаковым значением.

Вот еще один способ:

Создайте модуль и поместите там этот код. Это необходимо настроить для ваших собственных имен текстовых полей и имен листов

Public Sub UpdateTextBoxes(str As String) Sheets("sheet1").TextBox1.Text = str Sheets("sheet2").TextBox1.Text = str Sheets("sheet3").TextBox1.Text = str End Sub 

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

 Private Sub TextBox1_Change() UpdateTextBoxes Me.TextBox1.Text End Sub 

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

Вот один из способов: установить свойство LinkedCell для первого текстового поля в A1. Установите свойство LinkedCell для каждого другого текстового поля в A1 собственного листа. Затем в листы 2-4 ячейку A1, положить

 =Sheet1!A1 

Теперь все, что вы вводите в текстовое поле на Sheet1, будет в текстовых окнах на листе 2-4. Если вы введете что-либо в текстовые поля в 2-4, вы нарушите связь. Но из вашего вопроса, похоже, вы только хотите ввести первый.

Вот еще один способ.

 Private Sub TextBox1_Change() Dim ws As Worksheet For Each ws In Me.Parent.Worksheets ws.OLEObjects("TextBox1").Object.Text = Me.TextBox1.Text Next ws End Sub 

Поместите это в модуль класса для листа. Предполагается, что все ваши текстовые поля называются TextBox1. Всякий раз, когда вы меняете один на Sheet1, те, которые на другом листе меняются.

Вы хотите, чтобы другие текстовые поля были доступны для редактирования или всегда отображали содержимое первого? Что происходит с другими текстовыми полями, когда пользователь редактирует 2-й, 3-й и т. Д. (В первом случае)? Эти вопросы повлияют на решение … Но если вы просто хотите, чтобы ящики имитировали первый, то используйте SheetName!CellAddress следующим образом:

 =WorksheetName!A1 

Просто замените имя рабочего листа и соответствующую ячейку.

Создайте именованный диапазон где-нибудь в вашей книге, затем введите это имя в свойство cellboxgedcell.

  • Получение текста из хеш-таблицы текстовых полей
  • Как перенести данные из TextBox в формулу в другом текстовом поле
  • Код VBA / Macro для получения значения текстового поля
  • Удалить строку из текстового поля в слайде PowerPoint из папки - Компонент Error ActiveX не может создать объект
  • Код устранения неполадок для макросов и текстовых полей
  • Передайте значение текстового поля UserForm в ячейку
  • Размер текста Excel / PowerPoint после сжатия
  • Сохранить значение текстового поля, VBA, Excel
  • Форматирование текстовых полей в форме пользователя
  • Как активировать входной режим с VBA на текстовом поле неактивного x, вставленного в рабочий лист?
  • Как установить текстовое поле в пользовательской форме для дробного значения?
  • Interesting Posts

    выберите разделительный лист в данных импорта из Excel в базу данных ADO.net, используя C #

    Дождитесь завершения команды оболочки

    Выделение второй и более повторяющихся строк в excel, но не в первом случае?

    проверьте, существует ли столбец VBA

    найти и заменить значения в базе данных с помощью массива VBA

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

    excel vba shape.copy работает в одном случае, но не в другом

    IF, включая VLOOKUP

    Вкладка импорта с запятыми из Excel с использованием SQL 2012 SP

    Объединить несколько книг с несколькими рабочими листами с использованием VBA

    Создание динамической ссылки на встроенные документы в Excel БЕЗ VBA

    vba – сравнить значение в разных ячейках

    Извлечение двух наименьших значений, соответствующих уникальному идентификатору столбца

    Excel, величина каждых трех строк

    Пользовательские заголовки, зависящие от выбора данных

    Давайте будем гением компьютера.