h8nor

Question

Мышь

Сложный

Какую купить мышь для черчения, чтобы ползала без глюков?

3 подписчика
более трёх лет назад
5989 просмотров

3

ответа

Answer 1 · 2014-08-29 15:01:27

Если файл сохранён на диске, можно так:
1. Открываете книгу с данными на нужном листе
2. Заходите в VBA (Alt+F11)
3. Выбираете в меню Insert -> Module
4. Вставляете нижеприведённый код
5. Нажимаете F5 (не сохраняете исходный файл)

Option Explicit ' Обязательное объявление переменных
Option Base 1 ' Нижняя граница массива (по умолчанию)
'123456789012345678901234567890123456h8nor@ya567890123456789012345678toster56789

Sub Border_Limit()
  Dim Limit As Integer, Count As Integer, SaveDir As String, SetTitle As Boolean
  
  Count = 1: Limit = 1000 ' Счётчик файлов; Количество строк
  SetTitle = False ' Если есть заголовок, заменить False на True
  
  SaveDir = ThisWorkbook.Path ' Или вписать полный путь для сохранения "C:\"
  ' Предполагается, что в колонке A нет пустых ячеек
  While Not IsEmpty(Cells(IIf(SetTitle, 2, 1), 1))
    Rows("1:" & Limit).Copy
    Workbooks.Add xlWBATWorksheet ' Создать новую книгу: шаблон с 1 листом
    ActiveSheet.Paste: Cells(1, 1).Select
    ActiveWorkbook.SaveAs Filename:=SaveDir & "\Массив_" & Count & ".xlsx", _
      FileFormat:=xlOpenXMLWorkbook
    ActiveWindow.Close
    Rows(IIf(SetTitle, 2, 1) & ":" & Limit).Delete Shift:=xlUp
    Count = Count + 1
  Wend: MsgBox "Файл разбит на " & Count - 1 & " файл(ов). "
End Sub

Никакие C++ запускать не надо.

Для пытливых умов: Отказ от Слияния в пользу шаблонов https://toster.ru/q/320942

Answer 2 · 2016-03-14 20:37:47

Изменяется региональными настройками системы: Дополнительные параметры (кнопка) -> Числа (вкладка) -> Разделитель элементов списка. Блинк

Написать макрос для сохранения данных с разделителем запятой:

Sub SaveAComma()
  ActiveWorkbook.SaveAs Filename:="C:\Users\User\Desktop\ActiveSheet.csv", _
    FileFormat:=xlCSV, CreateBackup:=False, Local:=False
End Sub

Чтобы открыть файл c разделителем "запятая" - в первой строке CSV-файла написать sep=,

Answer 3 · 2014-06-28 00:00:23

Считаются эффективными ассоциативные методики (не книга).
Прежде чем оценивать, просмотрите первый урок.
ЗЫ: Раз, Два, Три месяца не хватит на освоение 2-го языка. Четыре.

Answer 4 · 2016-02-10 11:08:53

h8nor @honor8

Принципы быстродействия VBA в описании

Пожалуйста rkrdo.github.io/2013/10/04/github-raw и raw.githack.com

Ответ написан более трёх лет назад

Комментировать

Answer 5 · 2015-01-22 11:08:33

1) Да, особенно Excel. Думаю не стоит рассказывать о том, что Excel удобнее своих аналогов.
2) Нет, вероятно это слухи. Можно даже сказать, что языки несовместимы.
3) Нет. Для того чтобы работать во фрилансе, нужно уметь писать на тех языках, на которых предполагается выполнения задания. Как правило VBA там нет.

В целом с помощью VBA можно решать другие задачи, например для AutoCAD. Можно подключать сторонние библиотеки и работать с их функциями. Да и в любой области, где производительность не играет особой роли, а важен результат. Неплохо его знать для того, чтобы придя за чужой компьютер, можно было не разворачивать среду программирования, а воспользоваться ей из установленного пакета MS Office (который есть на любом ПК под Windows).

VBA можно понять самому (достаточно почитать справку в и-нете). Что мешает после VBA освоить другой инструмент (выучить ещё один язык)?

Ах, да! Если действительно вас интересует перспективный язык - смотрите в сторону разработки мобильных приложений (каждая вторая компания их выпускает).