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:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:
104:
105:
106:
107:
108:
109:
110:
111:
112:
113:
114:
115:
116:
117:
118:
119:
120:
121:
122:
123:
124:
125:
126:
127:
128:
129:
130:
131:
132:
133:
134:
135:
136:
137:
138:
139:
140:
141:
142:
143:
144:
145:
146:
147:
148:
149:
150:
151:
|
Sort_2_cols_to_grid secundarios ()
'********************************************
'** Asunciones
'********************************************
'** - comienzo de los datos en la fila 23. La fila pasada es calculada por macro
'** - los valores en la columna A y F son iguales
'** - los valores en la columna C y H son iguales
'** - los valores están en las columnas A, B, C, F, G, H
'********************************************
En el error skip1 indicado
DataFirstRow dévil como de largo
DataLastRow dévil como de largo
DataCurrentRow dévil como de largo
ResultFirstRow dévil como de largo
ResultLastRow dévil como de largo
ResultCurrentRow dévil como de largo
ResultFirstCol dévil como de largo
ResultLastCol dévil como de largo
ResultCurrentCol dévil como de largo
RowTitle dévil como secuencia
ColTitle dévil como secuencia
Result1 dévil como secuencia
Result2 dévil como secuencia
Si gama (“B27”) = "" entonces skip1 indicado
DataFirstRow = 27
DataLastRow = [A65536]. Extremo (xlUp). Fila
'Rema (“1: 1”). Selecto
'Cambio de Selection.Delete: =xlUp
'Cambio de Selection.Insert: =xlDown
ResultFirstRow = 1 'fila 1
ResultFirstCol = 6 'columna F
'Gama (“G2: AT21”) .ClearContents
'Primero fijamos los títulos de la fila en la fila 1
' estos títulos de la fila son de la columna C (3) y H
' y saldrá de la columna G (7)
Si 1 = 2 entonces
ResultCurrentRow = 1
ResultCurrentCol = 7
Para DataCurrentRow = DataFirstRow a DataLastRow
ColTitle = células (DataCurrentRow, 3)
Si IsError (Application.Match (ColTitle, gama (células (ResultFirstRow, ResultFirstCol), células (ResultFirstRow, ResultCurrentCol)), 0)) Entonces
Células (ResultCurrentRow, ResultCurrentCol) = ColTitle
ResultCurrentCol = ResultCurrentCol + 2
Terminar si
DataCurrentRow siguiente
ResultLastCol = ResultCurrentCol - 1
ResultLastCol = 54
ResultLastRow = 25
Terminar si '1=2
'Fijamos después los títulos de la fila en la columna F (6)
ResultCurrentRow = 2 - 1
ResultCurrentCol = 6
Para DataCurrentRow = DataFirstRow a DataLastRow
RowTitle = células (DataCurrentRow, 1)
'Si IsError (Application.Match (RowTitle, gama (células (ResultFirstRow, 6), células (ResultCurrentRow, 6)), 0)) Entonces
' ResultCurrentRow = ResultCurrentRow + 1
' Células (ResultCurrentRow, 6) = RowTitle
'Terminar si
'Cogemos después los datos en un lazo
' de las columnas A (1), B (2), C (3), y G (7)
' Localizar la fila y las columnas del resultado usar fósforo
' y entonces pegar los datos del resultado
ColTitle = células (DataCurrentRow, 3)
ResultCurrentCol = Application.Match (ColTitle, gama (células (ResultFirstRow, ResultFirstCol), células (ResultFirstRow, ResultLastCol)), 0)
ResultCurrentRow = Application.Match (RowTitle, gama (células (ResultFirstRow, ResultFirstCol), células (ResultLastRow, ResultFirstCol)), 0)
'Células (DataCurrentRow, 2).Copy
'Células (ResultCurrentRow, ResultCurrentCol + ResultFirstCol - 1).Select
'ActiveSheet.Paste
'Células (DataCurrentRow, 7).Copy
'Células (ResultCurrentRow, ResultCurrentCol + ResultFirstCol). Selecto
'ActiveSheet.Paste
Result1 = células (DataCurrentRow, 2)
Result2 = células (DataCurrentRow, 7)
'Comprobar si la rejilla es vacía
Si IsEmpty (las células (ResultCurrentRow, ResultCurrentCol + ResultFirstCol - 1)) = entonces verdad
Células (ResultCurrentRow, ResultCurrentCol + ResultFirstCol - 1) = “'” + Result1
Células (ResultCurrentRow, ResultCurrentCol + ResultFirstCol) = “'” + Result2
'Comprobar la segunda rejilla a la derecha
Si IsEmpty (células (ResultCurrentRow, ResultCurrentCol + ResultFirstCol - 1 + 24)) = entonces verdad
Células (ResultCurrentRow, ResultCurrentCol + ResultFirstCol - 1 + 24) = “'” + Result1
Células (ResultCurrentRow, ResultCurrentCol + ResultFirstCol + 24) = “'” + Result2
'Comprobar la tercera rejilla (la parte inferior izquierda)
Si IsEmpty (las células (ResultCurrentRow + 12, ResultCurrentCol + ResultFirstCol - 1)) = entonces verdad
Células (ResultCurrentRow + 12, ResultCurrentCol + ResultFirstCol - 1) = “'” + Result1
Células (ResultCurrentRow + 12, ResultCurrentCol + ResultFirstCol) = “'” + Result2
'Comprobar la cuarta rejilla (la parte inferior correcta)
Si IsEmpty (células (ResultCurrentRow + 12, ResultCurrentCol + ResultFirstCol - 1 + 24)) = entonces verdad
Células (ResultCurrentRow + 12, ResultCurrentCol + ResultFirstCol - 1 + 24) = “'” + Result1
Células (ResultCurrentRow + 12, ResultCurrentCol + ResultFirstCol + 24) = “'” + Result2
MsgBox “todas las rejillas es lleno para este accesorio”
Terminar si
Terminar si
Terminar si
Terminar si
DataCurrentRow siguiente
Si 1 = 2 entonces
Para ResultCurrentCol = ResultFirstCol + 1 al paso 2 de ResultLastCol
Gama (células (ResultFirstRow, ResultCurrentCol), células (ResultFirstRow, ResultCurrentCol + 1)). Selecto
Application.CutCopyMode = falso
Con la selección
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = falso
. Orientación = 0
.AddIndent = falso
.ShrinkToFit = falso
.MergeCells = falso
Extremo con
Selection.Merge
ResultCurrentCol siguiente
Terminar si '1=2
'carácter centar del delet de la rejilla
Gama (“G2: BB25”). Selecto
Selection.Replace qué: = " '“, reemplazo: = "", LookAt: =xlPart, _
SearchOrder: =xlByRows, MatchCase: =True, SearchFormat: =False, _
ReplaceFormat: =False
Selection.Replace qué: = " """, reemplazo: = "", LookAt: =xlPart, _
SearchOrder: =xlByRows, MatchCase: =True, SearchFormat: =False, _
ReplaceFormat: =False
Selection.Replace qué: = " ¤ ", reemplazo: = "", LookAt: =xlPart, _
SearchOrder: =xlByRows, MatchCase: =True, SearchFormat: =False, _
ReplaceFormat: =False
Cells.Select
skip1:
Submarino del extremo
|
