Использование языка программирования Visual Basic for Applications (VBA) для обработки результатов А...
Дипломная работа - Педагогика
Другие дипломы по предмету Педагогика
мени файла
FileName = Application.GetOpenFilename(filefilter:=Filt, FilterIndex:=FilterIndex, Title:=Title)
При отмене - выйти из окна
If FileName = False Then
MsgBox "Файл не выбран"
FileNameXLS = " "
Exit Function
End If
Отображение полного имени и пути
MsgBox "Вы выбрали " & FileName
FileNameXLS = FileName
End Function
Private Function FileNameOnly(pname) As String
Возвращает имя файла из пути/имени файла
FileNameOnly = Dir(pname)
End Function
Sub GreetMe4()
Процедура для определения приветствия
If Time < 0.5 Then
MsgBox "Доброе утро" & ", выберите импортируемый файл"
Else
If Time >= 0.5 And Time < 0.75 Then
MsgBox "Добрый день" & ", выберите импортируемый файл"
Else
If Time >= 0.75 Then
MsgBox "Добрый вечер" & ", выберите импортируемый файл"
End If
End If
End If
End Sub
Function Num(File) As Integer
Определение количества тестиреумых
Dim i As Integer
For i = 7 To 10000
If Workbooks(File).Sheets(1).Cells(i, 1).Value = "Кол-во" Then Exit Function
Num = Num + 1
Next i
End Function
Sub Diagr()
Application.ScreenUpdating = False
Charts.Add
ActiveChart.Location _
Where:=xlLocationAsObject, Name:="Лист1"
With ActiveChart
.SetSourceData Range("G18:H27")
.HasTitle = True
.ChartType = xl3DColumnClustered
.HasLegend = False
.ApplyDataLabels Type:=xlDataLabelsShowValue
.Axes(xlCategory).TickLabels.Orientation = xlHorizontal
.ChartTitle.Font.Bold = True
.ChartTitle.Font.Size = 12
.PlotArea.Top = 18
.PlotArea.Height = 162
.Axes(xlValue).MaximumScale = 0.6
.Deselect
End With
Application.ScreenUpdating = True
End Sub