Обратный знак равенства

У меня возник вопрос о коде. Я не уверен, что это выполнимо, я пытался найти ответ.

Однако можно ли изменить знак равенства в кодах?

Пример кода:

Worksheets("Example").Cells(1, 1).value = Me.checkbox1.value 

Это даст ячейке A1 значение True или False.

Но если я хочу сделать это наоборот? Что данные из A1 дают мне значение для флажка?

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

Есть идеи?

Это пример формы:
введите описание изображения здесь

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

Когда CommandButton1 нажат:
Если кнопка Toggle не нажата, код будет считывать значение тега и копировать данные с листа в форму.

Если нажать кнопку Toggle, код будет считывать значение тега и копировать данные из формы на листе.

 Private Sub CommandButton1_Click() Dim ctrl As Control Dim vTag As Variant For Each ctrl In UserForm1.Controls If TypeName(ctrl) = "CheckBox" Then vTag = Split(ctrl.Tag, "|") If UserForm1.ToggleButton1 Then ctrl = ThisWorkbook.Worksheets(vTag(0)).Range(vTag(1)) Else ThisWorkbook.Worksheets(vTag(0)).Range(vTag(1)) = ctrl End If End If Next ctrl End Sub 

Подход 1

  • Скопируйте заявления, которые хотите изменить на лист, начиная с ячейки A1.

  • Установите ячейку B1 в формулу: = FIND ("=", A1)

  • Установите ячейку C1 в формулу: = MID (A1, B1 + 1, LEN (A1) -B1) & "=" & MID (A1,1, B1-1)

  • Скопируйте ячейки B1 и C1 вниз

  • Ячейки C1 и down будут содержать операторы, которые вы хотите скопировать обратно в модуль или форму.

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

редактировать

Перечитав вышеизложенное, я понял, что изображение поможет:

Изображение формул Excel, используемое для обратного присваивания

Большинство заданий не очень изобретательны, но вы можете видеть эту идею. Я предполагаю, что большинство ваших назначений находятся в двух блоках: (1) рабочий лист для формирования и (2) назад. Если это так, все очень просто.

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