MCH, к сожалению, нет. Эта фукнция считает угол между осью Х и прямой от (0;0) до указанной координаты. В моем варианте по другому. Спасибо за вариант, может есть еще догадки?
Доброе утро всем, Михаил С., угол между прямой, образуемой двумя координатами и горизонталью (X), приложил пояснение. При этом могут быть отрицательные координаты. Казанский, всего 3 поля, приложил файл. Понимаю, что задача трудная. Может есть возможность выполнить это макросом?
Добрый вечер, уважаемые. Даны координаты (X,Y) по каждой строке. Есть ли возможность создать макрос, способный вычислить угол между соседними координатами? Буду рад любой подсказке.
Извиняюсь что сразу не написал, необходим Макрос. Пока он лишь преобразует csv файл в xls и удаляет один столбец.
Код
Option Explicit
Sub ImportCSVsWithReference()
Dim wbCSV As Workbook
Dim wsMstr As Worksheet: Set wsMstr = ThisWorkbook.Worksheets("Sheet")
Dim fPath As String: fPath = "C:\work\" 'path to CSV files, include the final \
Dim fCSV As String
If MsgBox("Clear the existing MasterCSV sheet before importing?", vbYesNo, "Clear?") _
= vbYes Then wsMstr.UsedRange.Clear
Application.ScreenUpdating = False
fCSV = Dir(fPath & "*.csv")
Do While Len(fCSV) > 0
'open a CSV file
Set wbCSV = Workbooks.Open(fPath & fCSV)
'insert col A and add CSV name
Columns(1).Insert xlShiftToRight
Columns(1).SpecialCells(xlBlanks).Value = ActiveSheet.Name
'copy date into master sheet and close source file
ActiveSheet.UsedRange.Copy wsMstr.Range("A" & Rows.Count).End(xlUp).Offset(1)
wbCSV.Close False
'ready next CSV
fCSV = Dir
Loop
Application.ScreenUpdating = True
End Sub
Sub delete()
Columns(7).delete
End Sub
Sub AAA()
Call ImportCSVsWithReference
Call delete
End Sub
Кнопка цитирования не для ответа. Для оформления кода в сообщении - кнопка <...>[МОДЕРАТОР]
Добрый день. Есть поле "Марка", в которое заносится информация о марке и модели Авто (Lada_2012). Необходимо перенести модель авто в поле "Модель" (название поля создано), удалить нижнее подчеркивание, а марку оставить. Буду рад любой подсказке! Спасибо заранее. P.S. Второе поле занято, есть ли возможность создать между 1 и 2 полем пустой столбец, в которое будет заноситься модель авто?