|
Подкачка данных из другой таблицы с условием
#36117053
Ссылка:
Ссылка на сообщение:
Ссылка с названием темы:
|
|
|
|
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
60.
61.
62.
63.
64.
65.
66.
67.
68.
69.
70.
71.
72.
73.
74.
75.
76.
77.
78.
79.
80.
81.
82.
83.
84.
85.
Sub Button2_Click()
'Дальше код выполнения переноса данных
Dim i As Integer
Dim j As Integer
Dim s As Long
Dim s1 As Long
Dim s2 As Long
Dim s3 As Long
Dim n As Integer
Dim p As Integer
Dim nn As Integer
n = Worksheets("sheet1").Cells( 1 , 18 ).Value - 1
nn = Workbooks("BD_VBA.xls").Worksheets("sheet1").Cells( 1 , 18 ).Value
For i = 0 To n Step 1
j = 0
For j = 0 To nn Step 1
If (Workbooks("BD_VBA.xls").Worksheets("sheet1").Cells( 5 + i + j, 1 ) = Workbooks("book2.xls").Worksheets("sheet1").Cells( 3 + i, 1 )) And (Workbooks("BD_VBA.xls").Worksheets("sheet1").Cells( 5 + i + j, 2 ) = Workbooks("book2.xls").Worksheets("sheet1").Cells( 3 + i, 2 )) And (Workbooks("BD_VBA.xls").Worksheets("sheet1").Cells( 5 + i + j, 8 ) = Workbooks("book2.xls").Worksheets("sheet1").Cells( 3 + i, 3 )) Then
Windows("BD_VBA.xls").Activate
Cells( 5 + i + j, 5 ).Select
Selection.Copy
Windows("book2.xls").Activate
Cells( 3 + i, 9 ).Select
ActiveSheet.Paste
End If
Next j
Next i
For i = 0 To n Step 1
j = 0
For j = 0 To nn Step 1
If (Workbooks("BD_VBA.xls").Worksheets("sheet1").Cells( 5 + i + j, 1 ) = Workbooks("book2.xls").Worksheets("sheet1").Cells( 3 + i, 1 )) And (Workbooks("BD_VBA.xls").Worksheets("sheet1").Cells( 5 + i + j, 2 ) = Workbooks("book2.xls").Worksheets("sheet1").Cells( 3 + i, 2 )) And (Workbooks("BD_VBA.xls").Worksheets("sheet1").Cells( 5 + i + j, 9 ) = Workbooks("book2.xls").Worksheets("sheet1").Cells( 3 + i, 3 )) Then
Windows("BD_VBA.xls").Activate
Cells( 5 + i + j, 6 ).Select
Selection.Copy
Windows("book2.xls").Activate
Cells( 3 + i, 10 ).Select
ActiveSheet.Paste
End If
Next j
Next i
For i = 0 To n Step 1
j = 0
For j = 0 To nn Step 1
If (Workbooks("BD_VBA.xls").Worksheets("sheet1").Cells( 5 + i + j, 1 ) = Workbooks("book2.xls").Worksheets("sheet1").Cells( 3 + i, 1 )) And (Workbooks("BD_VBA.xls").Worksheets("sheet1").Cells( 5 + i + j, 2 ) = Workbooks("book2.xls").Worksheets("sheet1").Cells( 3 + i, 2 )) And (Workbooks("BD_VBA.xls").Worksheets("sheet1").Cells( 5 + i + j, 10 ) = Workbooks("book2.xls").Worksheets("sheet1").Cells( 3 + i, 3 )) Then
Windows("BD_VBA.xls").Activate
Cells( 5 + i + j, 7 ).Select
Selection.Copy
Windows("book2.xls").Activate
Cells( 3 + i, 11 ).Select
ActiveSheet.Paste
End If
Next j
Next i
For i = 0 To n Step 1
If Worksheets("sheet1").Cells( 3 + i, 11 ) = " - " Or Worksheets("sheet1").Cells( 3 + i, 11 ) = "" Then Worksheets("sheet1").Cells( 3 + i, 11 ) = 0
s3 = Worksheets("sheet1").Cells( 3 + i, 11 ).Value
If Worksheets("sheet1").Cells( 3 + i, 10 ) = " - " Or Worksheets("sheet1").Cells( 3 + i, 10 ) = "" Then Worksheets("sheet1").Cells( 3 + i, 10 ) = 0
s2 = Worksheets("sheet1").Cells( 3 + i, 10 ).Value
If Worksheets("sheet1").Cells( 3 + i, 9 ) = " - " Or Worksheets("sheet1").Cells( 3 + i, 9 ) = "" Then Worksheets("sheet1").Cells( 3 + i, 9 ) = 0
s1 = Worksheets("sheet1").Cells( 3 + i, 9 ).Value
s = s1 + s2 + s3
Worksheets("sheet1").Cells( 3 + i, 6 ).Value = s
Next i
End Sub
вот код, желательно чтобы он подкачивал данные из BD_VBA.xls без его открытия, если это невозможно, тогда чтобы он автоматически открывался |
|
|
