Обработка радиокнопок ActiveX (имя группы) при дублировании листа с радиоканалом ActiveX - PullRequest
0 голосов
/ 16 января 2019

У меня есть исходный лист Excel со многими радиокнопками ActiveX, которые я копирую с помощью сценария VBA.

Чтобы это работало, мне нужно адаптировать имя группы радиокнопок к имени листа (доступно как переменная n)

Решение, которое я собираюсь найти, - добавить имя листа в конец или начало каждого имени группы;

currentradiobuttongroupname = currentradiobuttongroupname + n

Пока у меня есть:

Sub radioomzetter(ActiveSheet, n)
  Dim Ctrl As OLEObject
  For Each Ctrl In ActiveSheet.OLEObjects
      If TypeName(Ctrl.Object) = "OptionButton" Then
          Ctrl.Object.GroupName = Ctrl.Object.GroupName && n
      End If
  Next Ctrl
End Sub

К сожалению, это дает синтаксическую ошибку. Буду признателен за любую помощь.

1 Ответ

0 голосов
/ 16 января 2019

.GroupName && n выглядит неправильно. Одного & должно хватить. - Вариатус

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