Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Пользователи » ktcmax
Выбрать дату в календаре…Выбрать дату в календаре

Страницы: 1
Текст в ячейке разбить на буквы в ячейках
 
#
11.06.2025 13:48:51
Михаил Нарвич, премного благодарен. Всё в лучшем виде получилось.
 
Перейти    
Текст в ячейке разбить на буквы в ячейках
 
#
11.06.2025 13:22:25
jakim, спасибо. но в моем случае как-то трудноприменимо. У меня данные в таблицах на разных листах, да и строки с разных столбцов начинаются. Замучаешься запросы делать.
 
Перейти    
Текст в ячейке разбить на буквы в ячейках
 
#
11.06.2025 09:57:52
В коде и файле формулы отличаются. Разница в языковых версиях excel?
Так же при изменении текста в ячейке А2 формула сразу слетает с ошибкой "недопустимое имя".
Для примера файл со значениями каких добиваюсь. Есть некая анкета с каждой буквой в отдельной ячейке, вот и заморачиваюсь, чтобы на одном листе вносить данные в одну ячейку, а на другом бы получалась каждая буква в отдельной. Уперся только в пробелы.
Изменено: ktcmax - 11.06.2025 10:09:52
 
Перейти    
Текст в ячейке разбить на буквы в ячейках
 
#
10.06.2025 23:04:19
А можно в формуле =ПСТР(ПОДСТАВИТЬ($A2;" ";);СТОЛБЕЦ(A1);1) учитывать пробелы? Чтобы в ячейках по буквам получалось не ИванПетрович, а Иван Петрович, то есть одна из ячеек была пустой в качестве пробела.
 
Перейти    
Неправильный выбор значения в столбце
 
#
16.02.2022 09:10:54
Ёк-Мок, Спасибо.
Вышел из ситуации другим способом.
Код
S = Range("C:C").Find(Num, , , xlWhole)
If Not S Is Nothing Then
        a = S.Row
        b = Cells(a, 5).Value
            If Val(Pl.Value) <> b Then   'Проверка соответствия Pl значениям в других строках
            MsgBox "Значение неверное"
            Exit Sub
            Else
            'MsgBox "Значение нормальное"
            End If
        End If
 
Перейти    
Неправильный выбор значения в столбце
 
#
15.02.2022 11:08:19
Добрый день.
При подборе значения в ячейке столкнулся с таким казусом:
Есть форма в ней textbox с именем Num. Вводим в него значение "6"
При таком раскладе:
Код
S = Range("C:C").Find(Num)
If Not S Is Nothing Then
        a = S.Row
        b = Cells(a, 5).Value
            If Val(Pl.Value) <> b Then   'Проверка соответствия Pl значениям в других строках
            MsgBox "Значение неверное" 
            Exit Sub
            Else
            'MsgBox "Значение нормальное"
            End If
        End If

предполагался возврат строки со значением "6" в ячейке.
Но если такого значения нет, то возвращается строка со значением "16" в ячейке.
Как сделать правильно? Чтобы если если значения "6" нет, то код выполнялся дальше?
 
Перейти    
Сравнить сумму значений по указанному имени и заведению со значением, указанным на форме.
 
#
02.02.2022 15:57:52
Пока не хватает опыта сваять такую конструкцию:

Есть UserFotm для ввода значений и записи в таблицу.
Что требуется:
Форма: введено значение в строку "Выпито данным человеком".
Проверка по таблице, сумма значений ячеек "Выпито данным человеком" в остальных строках, где совпадает "№ Бара", + сумма введенная в форме, не должна быть больше значения "Сколько бутылок в заведении" остальных ячеек с соответствующим значением "№ Бара" в строке.
Если больше Msgbox "Быть того не может"
Проверка срабатывает по кнопке "Сохранить"
Таблица будет с защитой, пользователь вводит и удаляет данные только через формы, поэтому, как я думаю, риском наличия в таблице данных уже не соответствующих критериям проверки, можно пренебречь.
 
Перейти    
Выбор и удаление строки, действие по кнопке комбобокса
 
#
02.02.2022 13:18:03
Большое человеческое.
Есть еще проблемка, но к данному вопросу не относится. Сейчас новую тему сделаю.
 
Перейти    
Выбор и удаление строки, действие по кнопке комбобокса
 
#
02.02.2022 10:42:50
Как понял последние две строки удаляют пустые значения из combobox?
Но они вроде бы и так не образуются.
 
Перейти    
Выбор и удаление строки, действие по кнопке комбобокса
 
#
02.02.2022 10:38:08
Благодарю. Низкий поклон.
 
Перейти    
Выбор и удаление строки, действие по кнопке комбобокса
 
#
02.02.2022 09:34:51
Прикрепил файл к первому сообщению.
 
Перейти    
Выбор и удаление строки, действие по кнопке комбобокса
 
#
02.02.2022 09:05:31
Добавил то, что у меня пока что есть.
Данные в комбобоксе есть, знаю как выбранное в другое место куда-то внести.
А вот чтобы по выбранному выделить строку и удалить её пока не хватает знаний.
 
Перейти    
Выбор и удаление строки, действие по кнопке комбобокса
 
#
02.02.2022 08:51:52
День добрый.
Подскажите пример кода в такой ситуации:
Есть форма с Combobox1 (диапазон значений инициализирован из столбца таблицы) и кнопка CommandButton1.
Как сделать чтобы при нажатии кнопки выбранное в Combobox1 значение возвращало ячейку и удалялась вся строка содержащая эту ячейку?
Код
Private Sub UserForm_Initialize()
'Список значений в combobox 
'ComboBoxcod.List = ActiveWorkbook.Worksheets("Книга1").Range("A4", Cells(Rows.Count, 1).End(xlUp)).Select
Dim LastRow As Long
LastRow = Cells(Rows.Count, 1).End(xlUp).Row 'Последняя строка по столбцу 
Set x = Range(Cells(4, 1), Cells(LastRow, 1))
ComboBox1.List = x.Value
End Sub

EnPrivate Sub CommandButton1_Click()

End Sub
Изменено: ktcmax - 02.02.2022 09:34:11
 
Перейти    
Сохранение высоты строк при вставке в шаблон
 
#
31.01.2022 17:38:50
Добрый день.
Для копирования данных и вставки в шаблон сделал так:
Скрытый текст
Проблема в том, что в шаблоне есть шапка и там высота строки больше чем остальные. Как сделать, чтобы при вставке сохранялась высота строки как в шаблоне?
Для универсальности и ширина столбцов так же.
 
Перейти    
Обращение к динамическому имени книги excel
 
#
29.01.2022 18:21:23
Благодарю.
Буду пробовать.
 
Перейти    
Обращение к динамическому имени книги excel
 
#
29.01.2022 18:15:50
День добрый.

В vba не силён, только пытаюсь осваивать, так что сильно не пинайте.
Вопрос в следующем:
обработка задач по кнопке
'создаем книгу с динамическим именем
Код
Private Sub CommandButton3_Click()
Workbooks.Add
ActiveWorkbook.SaveAs (ThisWorkbook.Path & "\Новый отчет " & Format(Now(), "DD MMM YYYY hh-mm-ss AMPM") & ".xlsx")

в дальнейшем в ходе выполнения требуется переключиться на другую книгу, для извлечения данных
Код
Workbooks("Книга1.xlsm").Activate

Как сделать переключение на созданную книгу обратно?  
 
Перейти    
Страницы: 1
Наверх