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

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 47 След.
Макрос ошибочно умножает число на 1000
 
В подобных случаях можно и таким способом:
Код
Sub test()
  With ActiveSheet.UsedRange
    .Value = .Value
  End With
End Sub
Владимир
Опрос про использование MS Office и т.п.
 
Здравствуйте, Михаил! Эксперимент из #29 должен уточнить "врага".
Владимир
Опрос про использование MS Office и т.п.
 
Здравствуйте, коллеги! Насколько я понимаю, за сочетания клавиш в Word отвечает (как и за многое другое) шаблон Normal.dot(m). Для спортивного интереса, временно переименуйте его и попробуйте CTRL+S.
Владимир
Формат ячеек: число отображается в 1000 раз больше
 
Скопируйте проблемную ячейку (одну) в новую книгу. Если в новой книге эффект сохраняется, то выложите новую книгу.
Владимир
Округлить слагаемые таким образом, чтобы выйти на округленную сумму
 
С бухгалтерским приветом! :)  
Владимир
Округлить слагаемые таким образом, чтобы выйти на округленную сумму
 
Скользящее округление.
Владимир
Восстановление "битого" файла Excel с макросом
 
Размер файла в архиве из #1 - действительно 2399 K, архив не битый. Высылать исходный файл бесполезно, поскольку он состоит из нулевых байтов.
Владимир
Восстановление "битого" файла Excel с макросом
 
Бинарный файл из архива содержит только нулевые байты.
Владимир
Из нескольких csv сделать сводный файл, а затем сделать сводный файл по всем директориям
 
Наиболее практичный путь.

1. Объедините файлы. Для этого поместите в директорию с csv-файлами следующий cmd-файл и выполните его:
Код
del common.csv
copy *.csv common.csv
2. Импортируйте common.csv в Excel. Поскольку Ваши файлы имеют "международный" формат (запятая - разделитель полей; дробная часть числа отделяется точкой), проще всего это сделать следующим макросом:
Код
Sub OpenCsvGlobal()
  Dim f
  f = Application.GetOpenFilename("Csv Files (*.csv), *.csv", _
      Title:="Открытие csv-файлов в ""международном"" формате")
  If f <> False Then
    Workbooks.Open f, Format:=xlCSV, local:=False
  End If
End Sub
В открывшейся книге переименуйте лист нужным Вам образом.
Удалите через Автофильтр повторы первой строки (заголовков)

3. Сохраните книгу как книгу Excel.

4. Повторите пункты 1,2 для других директорий и скопируйте листы новых книг в первую книгу.
Владимир
Преобразование в дату 20180305 (год, месяц, число)
 
Дополнение к #3. Такой вариант формата будет корректно работать при любых региональных настройках:
Код
=--ТЕКСТ(A1;"0-00-00")
(формат из #3, для, например, windows-1252 выдаст #VALUE!)
Владимир
Как ускорить вывод данных из массива на лист
 
Прогнал тест из #17 на новой книге - 10 сек. Крайне маловероятно, что проблема (1600 сек) в компьютере.

Уважаемый  Джек Восмеркин, попробуйте сделать следующее:
  • перезагрузите Windows
  • откройте Excel и убедитесь (Alt+F11), что не открыты никакие надстройки и личная книга макросов
  • в новую книгу добавьте макрос Андрея #17 и выполните его
  • опубликуйте  результат
Владимир
Изменить цвет текста в Форме
 
Работает (добавить после строки 23 в #7):
Код
If rngData(i, 7).Value - wksh.Cells(3, 3).Value >= 4 Then ' как в УФ для зеленого цвета
  listItem.ForeColor = RGB(0, 255, 0)
End If
Владимир
Как избавиться от ошибки перед закрытием файла?
 
Выложите файл, пожалуйста, даже интересно стало, что за "заразная болезнь"...
Изменено: sokol92 - 15 Апр 2019 18:53:31
Владимир
Преобразовать время из часов в минуты (из таблицы Word)
 
Цитата
andtv написал:
ответили со скоростью света
Off. Медведь котов отдрессировал. :)  
Владимир
При редактировании TextBox на одной форме почему-то запускается обработчик CommandButton
 
Выложить проблемный файл и описать последовательность действий, приводящих к упомянутому эффекту.
Владимир
создать макрос удаления дубликатов по 70-80% совпадения символов
 
Здравствуйте, коллеги! Для начала можно порекомендовать автору ознакомиться, например, с этой статьей.
Владимир
Скроллинг между Листами используя колесо мыши ?
 
Для тех, кто не любит мышей: Ctrl+PgUp, Ctrl+PgDn
Владимир
Остановка печати в макрос при значении 0 или отсутствие каких-либо значений.
 
Главное, чтобы к Михаилу по этой теме не обращались Минфин и ЦБ!
Владимир
Сослаться на лист в VBA
 
Согласно первой строке макроса из #2 переменная wsBaseSheet последовательно ссылается на листы книги, соответствующей переменной wbAct.
Кстати, наименования листов, как правило, лучше сравнивать регистронезависимо, например так:
Код
 If UCase(wsBaseSheet.Name) = UCase(sSheetName)
Владимир
Комбинация CRTL + Shift + L (Фильтр) не работает, Комбинация горячих клавиш CRTL + Shift + L (Фильтр) не работает
 
Иногда бывают "виноваты" файлы Excel12.xlb и Excel12.pip. Подробности здесь.
Владимир
VBA. получить Collection из Функции, Функция формирует коллекцию. Необходимо получить результат работы функции (т.е. получить Коллекцию)
 
Цитата
sol ant написал:
инициализировать возвращаемую переменную в Функции не требуется
Дополнение. Функция в #1 возвращает объект и инициализируется "значением" Nothing. Это же значение и возвращается, "благодаря" конструкции On error (o чем коллеги написали).
Выполнение макроса test из #1 эквивалентно следующему:
Код
Sub test()
 Dim a As New Collection
 Set a = Nothing
 MsgBox a.Count
End Sub
Казалось бы, функция Msgbox должна вызвать ошибку выполнения, но этого не происходит, ввиду конструкции "New" в описании (объект создается при первом обращении).
Изменено: sokol92 - 10 Апр 2019 12:46:06
Владимир
Как программно отключить колесико мыши
 
Off. Коты обленились совсем: мышиная тема, а они ни гу-гу...
Владимир
Числовой формат, всегда 3 знака
 
Здравствуйте, Михаил! О форматах прекрасно написано на дружественном сайте.
Владимир
Числовой формат, всегда 3 знака
 
Цитата
JAW написал:
Я надеялся, что это можно сделать проще, через формат
[<10]0,00;[<100]0,0;0
Владимир
Создание папки макросом с именем ячейки
 
Эта проблематика обсуждалась здесь.
Владимир
Создание документа с помощью макроса, Выборка определенных данных Из XLSX и создание нового CSV с этими данными внутри
 
Пример макроса. Лист Epson сохраняется как csv с именем листа в той же папке, что и рабочая книга.
Код
Sub CopySheetCsv(ByVal shName)
  Dim Path
  Path = ActiveWorkbook.Path
  
  On Error Resume Next
  Worksheets(shName).Copy  ' копируем в новую книгу
  If Err.Number <> 0 Then
    Exit Sub
  End If
  On Error GoTo 0
  
  Cells.Copy               ' меняем формулы на значения
  Range("A1").PasteSpecial Paste:=xlPasteValues
  Application.CutCopyMode = False
   
  Columns("A:M").Delete    ' удаляем лишние столбцы
  
  On Error Resume Next
  ActiveWorkbook.SaveAs Path & "\" & ActiveSheet.Name, xlCSV
  ActiveWorkbook.Close False
  On Error GoTo 0

End Sub

Sub test()

  CopySheetCsv "Epson"

End Sub
Владимир
Таблица из html в XL, как импортировать таблицу из html в xlsx таблицу???
 
Скорее всего, использовался метод Workbooks.Open - он понимает веб-страницы.
Владимир
Автоматизация вставки текста из Эксель в поле произвольной программы, Работаю в чате, помогите
 
Цитата
ArRiO написал:
Помимо меня 40 человек желают что бы это заработало
Серьезный аргумент. :)

Попробуйте поработать с прилагаемой надстройкой. Рассчитана на версии Excel от 2007.

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

Для отказа от копирования или для выбора другого окна дважды щелкните по пустой ячейке.

Для коллективного использования поместите данную надстройку в доступный сетевой каталог и установите для нее атрибут файла "только чтение" (read only).
Успехов!
Владимир
Числа в Текст
 
Цитата
magistor8 написал:
уберите 3 строку
Коллега, распространенное заблуждение. Выполнить в новой книге:
Код
Sub test()
 With Range("A1")
   .Value = 1
   .NumberFormat = "@"
   MsgBox TypeName(.Value)
 End With
End Sub

Число после изменения формата ячейки остается числом (хотя и выравнивается по значению как текст).
Если же в начале занести в ячейку дату, то после изменения формата ячейки на текстовый типом значения ячейки также будет "Double".

#5 не отработает правильно без предварительного изменения формата ячеек на текстовый.
Владимир
Как подставить значение "ставка" в зависимости от двух значений - ФИО и Подразделение?
 
Цитата
ДОМИЦИЛЯЦИЯ ВЕКСЕЛЯ — проставление на векселе оговорки о том, что он подлежит оплате третьим лицом (домицилиантом)
Off. И не такое еще бывает :)  
Изменено: sokol92 - 4 Апр 2019 15:08:16
Владимир
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 47 След.
Наверх