Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Выбрать дату в календареВыбрать дату в календаре

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 35 След.
Проблема конвертации xlsx в csv, Конвертация частично некорректна
 
В приложенном к #11 файле в 3,5,7,9,11,13 строках стоит 6 нулей.
Владимир
Генерация случайных чисел по нескольким критериям
 
Можно так попробовать:

Код
Option Explicit
' Генерирует случайное число от b до e
Function rnd2(ByVal b As Double, ByVal e As Double) As Double
  rnd2 = b + (e - b) * Rnd
End Function

' генерирует массив случайных чисел
Sub GenRnd()
    Dim n As Long  ' количество чисел в массиве
    Dim arr() As Long, i As Long, d As Double, b As Double, e As Double
    n = 100000
    ReDim arr(1 To n)
    For i = 1 To n
        d = rnd2(0, 100)   ' для процентного распределения
        Select Case d
            Case Is > 30: b = 79.5: e = 100.5
            Case Is > 15: b = 59.5: e = 79.5
            Case Is > 5: b = 39.5: e = 59.5
            Case Else: b = 9.5: e = 39.5
        End Select
        arr(i) = Round(rnd2(b, e), 0)
    Next i
End Sub
Владимир
Проблема конвертации xlsx в csv, Конвертация частично некорректна
 
Cyrillic (Mac OS) не подходит?
Если не подходит, то выложите этот файл (с кракозябрами) - мы его мигом разберем.
Изменено: sokol92 - 19 Окт 2018 19:58:29
Владимир
Проблема конвертации xlsx в csv, Конвертация частично некорректна
 
На экране слева (в #6) - "из текста". Далее выбираете ранее сохраненный csv-файл, указываете, что файл имеет разделитель и т.д. (у меня, к сожалению, нет IOS).
Изменено: sokol92 - 19 Окт 2018 19:16:56
Владимир
Проблема конвертации xlsx в csv, Конвертация частично некорректна
 
Если Вы на экране из #4 нажмете "Продолжить", то файл сохранится именно в csv-формате (это текстовый формат). Закройте после сохранения этот файл, и в новой книге выберите в меню Данные/Импорт текста - вы увидите, что Вы сохранили. Excel, открывая текстовые файлы самостоятельно, выполняет ряд действий (типа обрезания ведущих нулей), которые могут идти вразрез с Вашими ожиданиями (о чем Вас честно предупреждает в #4).
Изменено: sokol92 - 19 Окт 2018 18:21:25
Владимир
Проблема конвертации xlsx в csv, Конвертация частично некорректна
 
Выделите проблемную колонку и в формате ячеек укажите числовой формат: "Текстовый". Проблем не должно быть.
Владимир
Вылетает excel при включении содержимого
 
Цитата
Darkduke написал:
какие конфиденциальные данные вы имеете в виду
Любые, раскрытие которых в сети (Вы же выложите свой файл для всеобщего доступа) не желательно.
Владимир
Как Excel возводит в степень отрицательное число?
 
Раз уж пошли тесты:
Код
Sub Test()
  Debug.Print -2 ^ 2
End Sub
Изменено: sokol92 - 19 Окт 2018 15:02:43
Владимир
Можно ли задавать время задержки в долях секунд?
 
Можно так (заодно и проветрим):
Код
Sub Wait(ByVal ms)
  Dim t As Double
  t = Timer
  While Timer < t + ms / 1000
    DoEvents
  Wend
End Sub

Sub test()
  Wait 100
End Sub
Владимир
Расчет дюрации кредита
 
Цитата
Erikbes написал:
не знаю какую брать именно для кредита
В соответствии с условиями кредитного договора. В Excel есть встроенная функция ДЛИТ.
Владимир
Вылетает excel при включении содержимого
 
Скорее всего, файл имеет нарушенную структуру ("битый"). Можно попробовать:
  • стереть конфиденциальные данные
  • проверить, что измененный файл по-прежнему не открывается на проблемных компьютерах
  • выложить файл или ссылку на него
Владимир
Как Excel возводит в степень отрицательное число?
 
Почему бы не изучить документацию (см. также #5) до обращения на форум? Приоритету операторов там посвящен отдельный подраздел (и знак минус там встречается два раза)
Владимир
Отображение макросов (Alt+F8) только активной рабочей книги_(?)
 
Для начала пробуем:
Код
Sub RunMacroThisWorkbook()
  Application.Dialogs(xlDialogRun).Show , 1
End Sub
Изменено: sokol92 - 16 Окт 2018 16:16:07
Владимир
Интерактивный макрос виснет на Windows 7-10 в Excel 2007-2016, но НЕ виснет на Windows XP 32 bit Excel 2003
 
Здравствуйте, левша! Поздравляю, Вы проделали большую работу. К необходимости часто вызывать DoEvents я тоже пришел "эмипирическим" путем, правда, в иных ситуациях (например, при работе с подобъектами  Workbook.VBProject).
Успехов!
Изменено: sokol92 - 16 Окт 2018 13:35:53
Владимир
run-time error 13: ошибка на некоторых компьютерах при работе с датам
 
Я бы все-таки посоветовал повнимательнее поработать с текстом макроса из приложенного к #4 файла.
Дата из календаря переносится в текстовое поле строкой:
Код
ДопИнформация.Controls(Контрол).Value = Format(TB, S)

Значение переменной S при этом - Empty. Макрос, который Вы указали в #4, не вызывается ни разу. Так что причина "исправления" не та, что Вы описали.
Владимир
Корректное отключение надстроек Excel в Office 365, Не получается отключить надстройки из настраиваемой панели
 
Успехов!
Владимир
Корректное отключение надстроек Excel в Office 365, Не получается отключить надстройки из настраиваемой панели
 
Есть одно радикальное средство. Найдите и удалите файл ExcelXX.xlb, где XX - номер версии Excel. Все меню вернутся в первоначальное состояние.
Обычный путь к файлу %Appdata%\Microsoft\Excel\ExcelXX.xlb
Владимир
О неоптимизированном коде, интересно мнение форумчан
 
Здравствуйте, Михаил! С этим трудно не согласиться.
Изменено: sokol92 - 15 Окт 2018 15:34:58
Владимир
О неоптимизированном коде, интересно мнение форумчан
 
Становится не смешно, когда количество сожженного топлива становится главным аргументом доказательства достоверности блокчейнов...
Владимир
Корректное отключение надстроек Excel в Office 365, Не получается отключить надстройки из настраиваемой панели
 
Правая кнопка мыши - "Удалить настраиваемую панель инструментов".
Владимир
как работает ЕСЛИ (и др. подобные функции с условием)?, происходит ли пересчет вложенных функций второго условия
 
Цитата
DNC написал:
и инстинкт самосохранения призывает валить отседа, пока по моське не надавали.
Тут все мирные, особенно Михаил (если поблизости нет котов).
Кстати Михаил привел отличный пример (надеюсь, с моей подачи). Можно с ним (примером) играться до утра: менять значения ячеек, создавать новые листы, менять в них ячейки и возвращаться на исходный лист и т.д...
Изменено: sokol92 - 14 Окт 2018 20:53:05
Владимир
как работает ЕСЛИ (и др. подобные функции с условием)?, происходит ли пересчет вложенных функций второго условия
 
Еще раз призываю Вас к самостоятельным исследованиям (см. #5)
Владимир
как работает ЕСЛИ (и др. подобные функции с условием)?, происходит ли пересчет вложенных функций второго условия
 
Мотя,спасибо! Автомат, конечно, мастерски переводит - настоящий искусственный интеллект :)  
Владимир
как работает ЕСЛИ (и др. подобные функции с условием)?, происходит ли пересчет вложенных функций второго условия
 
Поищите тему "Сокращенное вычисление логических операторов" в сети. К сожалению, я нашел только на английском. С этим нужно быть предельно внимательным: например, в VBA дело обстоит иначе, чем в формулах Excel.
Код
Sub test()
  MsgBox IIf(2 > 1, 0, 1 / 0)
End Sub
Изменено: sokol92 - 14 Окт 2018 20:18:00
Владимир
как работает ЕСЛИ (и др. подобные функции с условием)?, происходит ли пересчет вложенных функций второго условия
 
Разве я дал сложный совет в #2?
Добавьте стандартный модуль:
Код
Option Explicit
Function MyFunc(arg)
  MsgBox "MyFunc: " & arg
  MyFunc = -arg
End Function
В ячейку B1 добавьте формулу:
Код
=ЕСЛИ(A1>1; 1; MyFunc(A1))

Теперь меняйте ячейку A1 и смотрите, в каких случаях будет вызываться MyFunc.
Этот подход пригодится и для УФ.
Владимир
как работает ЕСЛИ (и др. подобные функции с условием)?, происходит ли пересчет вложенных функций второго условия
 
Проверьте самостоятельно. Впишите вместо "X" имя своей функции, в которой можно выдать какое-нибудь сообщение при вызове.
Владимир
О неоптимизированном коде, интересно мнение форумчан
 
Здравствуйте, коллеги (Михаил - персонально). Спасибо за интересное обсуждение!
Владимир
ВПР стал тормозить и виснуть ., большой файл .
 
Цитата
vikttur написал:
По максимуму перевести вычисления в VBA.
Часто помогает более простой рецепт - заменить формулы на значения там, где не предполагается дальнейшее изменение данных.
Владимир
О неоптимизированном коде, интересно мнение форумчан
 
Здравствуйте, Михаил! Моя точка зрения - если ты программист, разработавший форму ввода данных для неопределенного числа пользователей сети, то набей самолично не менее 100 форм с реальными данными в каждом из (5?) распространенных браузеров - только так можно оценить качество и удобство своего продукта...
Изменено: sokol92 - 13 Окт 2018 13:43:11
Владимир
О неоптимизированном коде, интересно мнение форумчан
 
Здравствуйте, Андрей! Иллюстрация к #10. Пару недель назад вводил информацию на сайте страховой компании одного из самых крупных банков РФ. После серии неудачных попыток ввести исходные данные (10 минут на попытку) добрался (по личным связям) до одного из разработчиков программного обеспечения. Первый его вопрос: Вы в каком браузере вводили? Мы проверяли только в IE, для других браузеров ничего не обещаем. Так вы, ребята, напишите крупными буквами в самом начале: мы - криворукие, поэтому не теряйте времени зря, набивайте данные сразу в IE. Типичная для нашего времени ситуация.
Изменено: sokol92 - 12 Окт 2018 20:20:37
Владимир
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 35 След.
Наверх