Forums Últimos mensajes - Powered by IBM
 
Tags Palabras claves

comparar caracteres

16/01/2006 - 20:01 por Germin | Informe spam
Ayuda Hacer una pregunta
Hola, necesito una macro que lea una matriz, que encuentre el máximo global y
que, por ejemplo, tenga la siguiente matriz:

TAREA A B E F G H I HI BF
A .
B .
E .
F .
G .
H .
I .
HI .
BF...100

Como el máximo global es el 100, se forma otra columna y otra fila llamada
BFHI, dado esto debe eliminar los valores de las filas y columnas que
contengan cada una de las letras y las combinaciones. Entonces debe eliminar,
tanto en filas como columnas las letras: B, F, H, I, BF y HI.

TAREA A B E F G H I HI BF HIBF
A . . . . . .
B..
E . . . .
. .
F
G . . . . . .
H
I.

HI..
BF..
HIBF


COMO VEN LAS LINEAS PUNTEADAS MUESTRAN LAS COLUMNAS Y FILAS QUE SON BORRADAS.

No necesito todo el programa. Sólo quiero ver como ver si algún carácter o
conjunto de caracteres se encuentra más arriba para poder eliminarlo.
email Siga el debateRespuesta 3 respuestasRespuesta Tengo una respuesta
DRAGON AGE™: INQUISITION – Matadragones
 

Leer las respuestas

#1 KL
16/01/2006 - 21:59 | Informe spam
Hola Germin,

Tu explicacion no es nada facil de entender, pero lo voy a intentar. Prueba el codigo que te pongo abajo.

Saludos,
KL

Sub test()
Dim rng As Range, Letra As String
Dim Titulo As String, Valor As Double
Dim col As Long, row As Long
Dim i As Long, j As Long

Set rng = [B2:J10]
With rng.Find(Application.Max(rng), rng(1), xlValues, xlWhole)
Titulo = Cells(.row, 1) & Cells(1, .Column)
Valor = .Value
End With

Application.ScreenUpdating = False

For j = 1 To Len(Titulo)
Letra = Mid(Titulo, j, 1)
For i = 1 To rng.Columns.Count
If InStr(rng(1, i).Offset(-1, 0), Letra) Then rng.Columns(i).ClearContents
Next i
For i = 1 To rng.Rows.Count
If InStr(rng(i, 1).Offset(0, -1), Letra) Then rng.Rows(i).ClearContents
Next i
Next j

col = rng.Column + rng.Columns.Count
fila = rng.row + rng.Rows.Count

Columns(col).Insert
Rows(fila).Insert

Cells(fila, col) = Valor
Cells(rng.row - 1, col) = Titulo
Cells(fila, rng.Column - 1) = Titulo

Application.ScreenUpdating = True
End Sub

Preguntas similares

 

Busqueda sugerida :