Всем привет! может кто-нибудь подскажет как решить проблему? на форме, в строчку записываются 2 числа через "/". при нажатии на кнопку нужно чтобы, эти два числа, стали в 2 разные ячейки.(Пример:нажимаем на кнопку"добавить новую запись", открывается форма, далее в поле числа записываем числа 34/0.5, нажимаем добавить, и в итогде в ячейку А1 должно попасть число 34, а в ячейку В1 число 0.5 )
Всем привет! может кто-нибудь подскажет как решить проблему? на форме, в строчку записываются 2 числа через "/". при нажатии на кнопку нужно чтобы, эти два числа, стали в 2 разные ячейки.(Пример:нажимаем на кнопку"добавить новую запись", открывается форма, далее в поле числа записываем числа 34/0.5, нажимаем добавить, и в итогде в ячейку А1 должно попасть число 34, а в ячейку В1 число 0.5 )Espada
t = [c1].Value ' значение из вашего текстового поля Z = Split(t, "/") ' массив {"до разделителя", "после разделителя"} [a1].Value = Z(0) 'вывод первого элемента массива [b1].Value = Z(1) 'вывод второго элемента массива
[/vba]
[vba]
Код
t = [c1].Value ' значение из вашего текстового поля Z = Split(t, "/") ' массив {"до разделителя", "после разделителя"} [a1].Value = Z(0) 'вывод первого элемента массива [b1].Value = Z(1) 'вывод второго элемента массива
t = [c1].Value ' значение из вашего текстового поля Z = Split(t, "/") ' массив {"до разделителя", "после разделителя"} [a1].Value = Z(0) 'вывод первого элемента массива [b1].Value = Z(1) 'вывод второго элемента массива
t = [c1].Value ' значение из вашего текстового поля Z = Split(t, "/") ' массив {"до разделителя", "после разделителя"} [a1].Value = Z(0) 'вывод первого элемента массива [b1].Value = Z(1) 'вывод второго элемента массива
[/vba]
спасибо, а какого типа должна быть переменная Z??Espada
Да, ошибся, я про переменную t писал. Странно что у автора Цитата Espada, 22.10.2013 в 11:00, в сообщении № 7 Всё отлично работает :)
вот так получилось [vba]
Код
Dim t As String Dim Z As Variant ... t = [G1].Value ' значение из вашего текстового поля Z = Split(t, "/") ' массив {"до разделителя", "после разделителя"} [G22].Value = Z(0) 'вывод первого элемента массива [G23].Value = Z(1) 'вывод второго элемента массива
Да, ошибся, я про переменную t писал. Странно что у автора Цитата Espada, 22.10.2013 в 11:00, в сообщении № 7 Всё отлично работает :)
вот так получилось [vba]
Код
Dim t As String Dim Z As Variant ... t = [G1].Value ' значение из вашего текстового поля Z = Split(t, "/") ' массив {"до разделителя", "после разделителя"} [G22].Value = Z(0) 'вывод первого элемента массива [G23].Value = Z(1) 'вывод второго элемента массива
правда, я немного не так, если записывать обычное число то выдаёт ошибку на Z(1), типа нету числа. можно ли как-то сделать поиск или что-нить, чтобы если "/" нету записывало просто в первую ячейку всё
правда, я немного не так, если записывать обычное число то выдаёт ошибку на Z(1), типа нету числа. можно ли как-то сделать поиск или что-нить, чтобы если "/" нету записывало просто в первую ячейку всёEspada
Sub splt() Dim t$ Dim Z t = [c1].Value If InStr(1, t, "/") <> 0 Then Z = Split(t, "/") [a1].Value = Z(0) [b1].Value = Z(1) Else [a1].Value = t End If End Sub
[/vba]
[vba]
Код
Sub splt() Dim t$ Dim Z t = [c1].Value If InStr(1, t, "/") <> 0 Then Z = Split(t, "/") [a1].Value = Z(0) [b1].Value = Z(1) Else [a1].Value = t End If End Sub
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
