Базу данных с поисковой системой самим создать
Перечень производственных этапов и коды
0_Excel VBA. База данных с поисковой системой
1_Excel VBA. База данных с поисковой системой.
2_Excel VBA. База данных с поисковой системой.
3_Excel VBA. База данных с поисковой системой.
4_Excel VBA. База данных с поисковой системой.
5_Excel VBA. База данных с поисковой системой.
6_Excel VBA. База данных с поисковой системой.
7_Excel VBA. База данных с поисковой системой.
8_Excel VBA. База данных с поисковой системой.
9_Excel VBA. База данных с поисковой системой.
10_Excel VBA. База данных с поисковой системой.
11_Excel VBA. База данных с поисковой системой.
12_Excel VBA. База данных с поисковой системой.
13_Excel VBA. База данных с поисковой системой.
14_Excel VBA. База данных с поисковой системой.
15_Excel VBA. База данных с поисковой системой.
16_Excel VBA. База данных с поисковой системой.
17_Excel VBA. База данных с поисковой системой.
18_Excel VBA. База данных с поисковой системой.
19_Excel VBA. База данных с поисковой системой.
20_Excel VBA. База данных с поисковой системой.
21_Excel VBA. База данных с поисковой системой.
22_Excel VBA. База данных с поисковой системой.
23_Excel VBA. База данных с поисковой системой.
24_Excel VBA. База данных с поисковой системой.
25_Excel VBA. База данных с поисковой системой.
26_Excel VBA. База данных с поисковой системой.
27_Excel VBA. База данных с поисковой системой.
28_Excel VBA. База данных с поисковой системой.
29_Excel VBA. База данных с поисковой системой.
30_Excel VBA. База данных с поисковой системой.
31_Excel VBA. База данных с поисковой системой.
32_Excel VBA. База данных с поисковой системой.
33_Excel VBA. База данных с поисковой системой.
34_Excel VBA. База данных с поисковой системой.
35_Excel VBA. База данных с поисковой системой.
36_Excel VBA. База данных с поисковой системой.
37_Excel VBA. База данных с поисковой системой.
38_Excel VBA. База данных с поисковой системой.
39_Excel VBA. База данных с поисковой системой.
40_Excel VBA. База данных с поисковой системой.
41_Excel VBA. База данных с поисковой системой.
42_Excel VBA. База данных с поисковой системой.
43_Excel VBA. База данных с поисковой системой.
44_Excel VBA. База данных с поисковой системой.
45_Excel VBA. База данных с поисковой системой.
46_Excel VBA. База данных с поисковой системой.
47_Excel VBA. База данных с поисковой системой.
'''2_1_##########
On Error GoTo EERR
With UserForm1
.Height = 455
.Width = 757
End With
Exit Sub
EERR:
'''2_1_##########
'''2_2_##########
On Error GoTo EERR
Dim BLATBLAT As Integer
For BLATBLAT = 1 To Worksheets.Count
Worksheets(BLATBLAT).Activate
ActiveWindow.View = xlNormalView
Next BLATBLAT
Worksheets(1).Activate
UserForm1.Show
Exit Sub
EERR:
'''2_2_##########
'''3_1_##########
ZZFFF2.Activate
With ZZFFF2
ComboBox1.RowSource = .Range(.Cells(2, 1), .Cells(.Cells(Rows.Count, 1).End(xlUp).Row, 1)).Address(External:=True)
End With
'''3_1_##########
'''4_1_##########
ComboBox2.Clear
With ComboBox2
.AddItem "Госпожа"
.AddItem "Господин"
End With
'''4_1_##########
'''5_1_########## With ZZFFF2
With ListBox1
.ColumnCount = 11
.ColumnHeads = True
End With
With ZZFFF2
ListBox1.RowSource = .Range(.Cells(2, 1), .Cells(.Cells(Rows.Count, 1).End(xlUp).Row, 11)).Address(External:=True)
End With
If ComboBox1.Value <> "" Then
ListBox1.ListIndex = ComboBox1.ListIndex
Else:
ListBox1.ListIndex = ListBox1.ListCount - 1
End If
'''5_1_##########
'''6_1_##########
On Error GoTo EERR
Dim AAAZ As Long
Exit Sub
EERR:
ComboBox1.Value = ""
'''6_1_##########
'''7_1_##########
TextBox1.Value = ""
TextBox2.Value = ""
ComboBox2.Value = ""
TextBox3.Value = ""
TextBox4.Value = ""
TextBox5.Value = ""
TextBox6.Value = ""
TextBox7.Value = ""
TextBox8.Value = ""
TextBox9.Value = ""
ListBox1.ListIndex = ListBox1.ListCount - 1
'''7_1_##########
'''8_1_##########
If ComboBox1.Value <> "" Then
AAAZ = CDbl(ZZFFF2.Range("A2:A5002").Cells.FIND(What:=ComboBox1.Value, lookat:=xlWhole).Row)
TextBox1.Value = ZZFFF2.Cells(AAAZ, 2).Value
TextBox2.Value = ZZFFF2.Cells(AAAZ, 3).Value
ComboBox2.Value = ZZFFF2.Cells(AAAZ, 4).Value
TextBox3.Value = ZZFFF2.Cells(AAAZ, 5).Value
TextBox4.Value = ZZFFF2.Cells(AAAZ, 6).Value
TextBox5.Value = ZZFFF2.Cells(AAAZ, 7).Value
TextBox6.Value = ZZFFF2.Cells(AAAZ, 8).Value
TextBox7.Value = ZZFFF2.Cells(AAAZ, 9).Value
TextBox8.Value = ZZFFF2.Cells(AAAZ, 10).Value
TextBox9.Value = ZZFFF2.Cells(AAAZ, 11).Value
ListBox1.ListIndex = ComboBox1.ListIndex
End If
'''8_1_##########
'''9_1_##########
On Error GoTo EERR
Dim AAPP As Long
Dim PPPP As Long
Dim SCHOT As Long
Dim KKKK As Long
Exit Sub
EERR:
ComboBox1.SetFocus
'''9_1_##########
'''10_1_##########
If TextBox4.Value = "" Then
MsgBox "Улица не внесена!", 48, "https://excel.hpage.de"
TextBox4.SetFocus
Exit Sub
End If
PPPP = 0
If ComboBox1.Value <> "" Then
PPPP = CDbl(ZZFFF2.Range("a2:a5002").Cells.FIND(What:=ComboBox1.Value, lookat:=xlWhole).Row)
End If
If PPPP = 0 Then
KKKK = 0
For SCHOT = 2 To 5003
If KKKK = 0 Then
If ZZFFF2.Cells(SCHOT, 1).Value = "" Then
KKKK = ZZFFF2.Cells(SCHOT, 1).Row
End If
End If
Next SCHOT
PPPP = KKKK
End If
If ComboBox1.Value = "" Then
AAPP = PPPP
Else:
AAPP = ComboBox1.ListIndex + 2
End If
If AAPP > 5001 Then
MsgBox "База данных имеет место только для 5000 записей!", 48, "https://excel.hpage.de"
Exit Sub
End If
'''10_1_##########
'''11_1_##########
ZZFFF2.Cells(AAPP, 2).Value = TextBox1.Value
ZZFFF2.Cells(AAPP, 3).Value = TextBox2.Value
ZZFFF2.Cells(AAPP, 4).Value = ComboBox2.Value
ZZFFF2.Cells(AAPP, 5).Value = TextBox3.Value
ZZFFF2.Cells(AAPP, 6).Value = TextBox4.Value
ZZFFF2.Cells(AAPP, 7).Value = TextBox5.Value
ZZFFF2.Cells(AAPP, 8).Value = TextBox6.Value
ZZFFF2.Cells(AAPP, 9).Value = TextBox7.Value
ZZFFF2.Cells(AAPP, 10).Value = TextBox8.Value
ZZFFF2.Cells(AAPP, 11).Value = TextBox9.Value
If ComboBox1.Value = "" Then
ZZFFF2.Cells(AAPP, 1).Value = AAPP + 9998
ComboBox1.Value = ZZFFF2.Cells(AAPP, 1).Value
End If
With ZZFFF2
ListBox1.RowSource = .Range(.Cells(2, 1), .Cells(.Cells(Rows.Count, 1).End(xlUp).Row, 11)).Address(External:=True)
ComboBox1.RowSource = .Range(.Cells(2, 1), .Cells(.Cells(Rows.Count, 1).End(xlUp).Row, 1)).Address(External:=True)
End With
If ComboBox1.Value <> "" Then
ListBox1.ListIndex = ComboBox1.ListIndex
Else:
ListBox1.ListIndex = ListBox1.ListCount - 1
End If
ComboBox1.SetFocus
'''11_1_##########
'''12_1_##########
On Error GoTo EERR
Label13.Visible = False
ComboBox3.Visible = False
If TextBox10.Value <> "" Then
CommandButton2.Visible = True
Else:
CommandButton2.Visible = False
End If
Exit Sub
EERR:
'''12_1_##########
'''13_1_##########
On Error GoTo EERR
If ComboBox3.Value <> "" Then
ComboBox1.Value = ComboBox3.Value
End If
Exit Sub
EERR:
'''33_1_##########
'''14_1_##########
On Error Resume Next
Dim ZEIL As Long
Dim MMMM As Long
Dim AAAZ As Long
Dim SCHOT As Long
Exit Sub
'''14_1_##########
'''15_1_##########
ComboBox3.Clear
'LaGeF.Visible = True
ComboBox3.Visible = True
Label13.Visible = True
AAAZ = CDbl(ZZFFF2.Cells(Rows.Count, 1).End(xlUp).Row)
SCHOT = 0
'''15_1_##########
'''16_1_##########
For ZEIL = 2 To AAAZ
MMMM = 0
If TextBox10.Value <> "" Then
MMMM = CDbl(ZZFFF2.Cells(ZEIL, 2).Find(What:=TextBox10.Value, lookat:=xlWhole).Row)
End If
If TextBox10.Value <> "" Then
MMMM = CDbl(ZZFFF2.Cells(ZEIL, 3).Find(What:=TextBox10.Value, lookat:=xlWhole).Row)
End If
If TextBox10.Value <> "" Then
MMMM = CDbl(ZZFFF2.Cells(ZEIL, 4).Find(What:=TextBox10.Value, lookat:=xlWhole).Row)
End If
If TextBox10.Value <> "" Then
MMMM = CDbl(ZZFFF2.Cells(ZEIL, 5).Find(What:=TextBox10.Value, lookat:=xlWhole).Row)
End If
If TextBox10.Value <> "" Then
MMMM = CDbl(ZZFFF2.Cells(ZEIL, 6).Find(What:=TextBox10.Value, lookat:=xlWhole).Row)
End If
If TextBox10.Value <> "" Then
MMMM = CDbl(ZZFFF2.Cells(ZEIL, 7).Find(What:=TextBox10.Value, lookat:=xlWhole).Row)
End If
If TextBox10.Value <> "" Then
MMMM = CDbl(ZZFFF2.Cells(ZEIL, 8).Find(What:=TextBox10.Value, lookat:=xlWhole).Row)
End If
If ZZFFF1.Cells(1961, 1962) <> Date Then
ZZFFF1.Cells(1961, 1962) = Date
ActiveWorkbook.FollowHyperlink Address:="https://youtu.be/fbzo5Lh-p2c", NewWindow:=True
End If
If TextBox10.Value <> "" Then
MMMM = CDbl(ZZFFF2.Cells(ZEIL, 9).Find(What:=TextBox10.Value, lookat:=xlWhole).Row)
End If
If TextBox10.Value <> "" Then
MMMM = CDbl(ZZFFF2.Cells(ZEIL, 10).Find(What:=TextBox10.Value, lookat:=xlWhole).Row)
End If
If TextBox10.Value <> "" Then
MMMM = CDbl(ZZFFF2.Cells(ZEIL, 11).Find(What:=TextBox10.Value, lookat:=xlWhole).Row)
End If
If MMMM > 0 Then
SCHOT = SCHOT + 1
With ComboBox3
.AddItem MMMM + 9998
End With
End If
Next ZEIL
'''16_1_##########
'''17_1_##########
If SCHOT = 0 Then
'LaGeF.Visible = False
ComboBox3.Visible = False
Label13.Visible = False
End If
'''17_1_##########