добрый день, на форме имеется 10 текстбоксов с идентичным наименованием и добавлением чисел от 1 до 10
например user1, user2, user3 ....
помогите сделать так чтобы можно было осуществлять проверку параметров этих текстбоксов (например .Visible) и не переписывать все 10 подряд.
предполагалось что если создать счетчик
Dim UserCount As Integer
UserCount = 1
Do While UserCount < "11"
   'далее необходимо чтобы он проверял:
If user1.Visible = True Then                           ' Как по другому можно записать user1.Visible ?чтобы вместо конкретного числа была переменная UserCount
.......

вроде как часть переноса получилось сделать но во второй строке не удаляется часть текста, перенесенная на 3 строку

Sub SplitAddress()
   Dim sAddress As String
   Dim lCommaPos As Long
   Dim lSpacePos As Long
   Dim lThirdPos As Long
   With ActiveSheet
       sAddress = .Range("A3") ' получили значеие переменной адрес
       If Len(sAddress) > 25 Then 'если адрес длиннее 25 символов
           If Len(.Range("A3") > 0) Then 'если адрес длиннее 0
               'lCommaPos = InStr(1, sAddress, ",", vbBinaryCompare)
               lSpacePos = InStrRev(Left$(sAddress, 25), " ")
               If lSpacePos > 0 Then
                   .Range("M3").Value = Left(sAddress, lSpacePos)
                   sAddress = Mid(sAddress, lSpacePos + 1)
                       If Len(sAddress) > 55 Then
                           If Len(sAddress) > 0 Then
                               lThirdPos = InStrRev(Left$(sAddress, 55), " ")
                                   If lThirdPos > 0 Then
                                       .Range("I4").Value = Left(sAddress, lThirdPos)
                                       .Range("I5").Value = Mid(sAddress, lThirdPos + 1)
                                   
                           End If
                       End If
                       
                   End If
                   .Range("I4").Value = sAddress
               End If
           End If
       Else
           .Range("M3").Value = sAddress
       End If
   End With
End Sub

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

имеется лист в котором есть объединенная ячейка, значением которой является функция "сцепить" из разных источников в том числе и просто текста, данная ячейка долна выглядеть как разлинованный лист (под формализованный бланк) с форматированием по ширине листа
1 рассматриваемый вариант нижнее подчеркивание текста (тут имеются проблемы: подчеркивание пробелов не осуществляется, и если текст не до конца ячейки, то остается пустое место, которое необходимо бы сделать пустым разлинованным полем)
2 автоматический перенос в зависимости от количества символов в строке ( ячейку можно разделить на отдельные строки) но в таком случае не будет работать форматирование по ширине листа
3 некий иной вариант(ы)

большое спасибо=))

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

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

только целиком

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

Здравствуйте, имеется задача, самостоятельно найти решение не смог хоть и нашел что то похожее но в vBA полный 0,

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

Не особо умею пользоваться форумом, исправил

Да пример не правильный, исправил (убрал слэш, формат файла)
нужно чтобы проверка проходила по столбцу В а не по столбцу А, так как нумерацию хочу оставить на постоянной основе

Файл XlM с поддержкой макросов, просто иначе не сохранялся

Помогите пожалуйста, есть файл, работает не корректно, что нужно:
1) в Листе1 в столбце "B" есть форма заполнения данных, необходимо, чтобы при нажатии кнопки "в Ведомость"
в зависимости от выбранного варианта значения ячейки В16, часть данных это формы добавлялась в таблицу с одноименным названием, в следующую пустую строку (Все строки всегда будут заполнены (возможно за исключением отчества)
Пример, если В16 = Н,
то Данные из формы переносятся в лист "Н" и аналогично с двумя другими вариантами (У,Т).

2) аналогично если кто знает, есть необходимость чтобы "это" работало и в open office под Linux