Cuestión : ¿Vba de Excel - cómo determinar si 3 células son vacías?

Soy codificación en Worksheet_BeforeDoubleClick () y usar la letra “r” de la fuente de Marlett para demostrar un X si una célula double-clicked, pero claro el X si las células particulares double-clicked de again.

For 3 (E46: E48) dentro de esta gama del double-click, si existe un X (Marlett “r”) y un double-click lo quita (blanco = vbNullString), necesito comprobar para ver eventualmente de las 3 células (E46: E48) todavía contienen un X (Marlett “r”), y si son todos espacio en blanco, me necesitan hacer algo a un diverso cell.

I no pueden conseguir mi código para trabajar: es la línea 8 en el código debajo de ése no está trabajando right.
Hope que puede alguien help. class= > " claro " del
> del " codeSnippet " del class= del
class= " lineNumbers " del
class= del 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
el >If notpretty " del class= " del id= " codeSnippet782781 del 
 1 entonces sale el submarino
Si no intersecarse (blanco, gama (“E18: E328”)) Entonces está nada
	Target.Font.Name = “Marlett”
	Si blanco = vbNullString entonces
		Blanco = “r”
	
		Blanco = vbNullStrung
		Si no intersecarse (blanco, gama (“E46: E48”)) Entonces está nada
			Si IsNull (gama (“E46: E48”)) Entonces
				… hacer algo a una diversa célula
			
				… soso - soso
			Terminar si
	Terminar si
Terminar si
class= del

Respuesta : ¿Vba de Excel - cómo determinar si 3 células son vacías?

Tenía la cancelación = declaración verdadera en un lugar menos que óptimo. Si usted lo mueve antes del extremo pasado si, ése permitiría que ocurriera el acontecimiento normal del double-click si el usuario double-clicks fuera de la gama E18: E328
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:

Worksheet_BeforeDoubleClick secundario privado (blanco de ByVal como gama, cancelación como boleana)
Si Target.Cells.Count > 1 entonces salen el submarino
Si no intersecarse (blanco, gama (“E18: E328”)) Entonces está nada
    Target.Font.Name = “Marlett”
    Si blanco = vbNullString entonces
        Blanco = “r”
    
        Blanco = vbNullString
        Si no intersecarse (blanco, gama (“E46: E48”)) Entonces está nada
            Si Application.CountA (gama (“E46: E48”)) = 0 entonces
                Gama (“F46”) = “verdad”
            
                Gama (“F46”) = “falso”
            Terminar si
        Terminar si
    Terminar si
    La cancelación = verdad
Terminar si
Terminar el submarino
Otras soluciones  
 
programming4us programming4us