Questione : Vba di Excel - come determinare se 3 cellule sono vuote?

Sono codificazione in Worksheet_BeforeDoubleClick () ed usando la lettera “r„ della fonte di Marlett per mostrare una X se una cellula double-clicked, ma libero la X se cellule particolari double-clicked di again.

For 3 (E46: E48) all'interno di questa gamma di double-click, se una X (Marlett “r„) esiste e un double-click lo rimuoverà (obiettivo = vbNullString), devo controllare per vedere se c'è ne delle 3 cellule (E46: E48) ancora lo contengono una X (Marlett “r„) e se sono tutti spazio in bianco, devono fare qualcosa ad un cell.

I non possono convincere il mio codice per funzionare: è linea 8 nel codice sotto quello non sta funzionando right.
Hope che qualcuno può help. class= > " libero " 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:
il >If notpretty " del class= " del id= " codeSnippet782781 del 
 1 allora esce il sommergibile
Se non intersecare (obiettivo, gamma (“E18: E328„)) Allora è niente
	Target.Font.Name = “Marlett„
	Se obiettivo = vbNullString allora
		Obiettivo = “r„
	Altrimenti
		Obiettivo = vbNullStrung
		Se non intersecare (obiettivo, gamma (“E46: E48„)) Allora è niente
			Se IsNull (gamma (“E46: E48„)) Allora
				… fare qualcosa ad una cellula differente
			Altrimenti
				… insignificante - insignificante
			Concluder se
	Concluder se
Concluder se
class= del

Risposta : Vba di Excel - come determinare se 3 cellule sono vuote?

Ho avuto l'annullamento = dichiarazione allineare in un posto meno ottimale. Se lo spostate prima di ultima estremità se, quella consenta l'evento normale di double-click di accadere se l'utente double-clicks fuori della gamma E18: E328
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:

Worksheet_BeforeDoubleClick secondario riservato (obiettivo di ByVal come gamma, annullamento come booleano)
Se Target.Cells.Count > 1 allora escono il sommergibile
Se non intersecare (obiettivo, gamma (“E18: E328„)) Allora è niente
    Target.Font.Name = “Marlett„
    Se obiettivo = vbNullString allora
        Obiettivo = “r„
    Altrimenti
        Obiettivo = vbNullString
        Se non intersecare (obiettivo, gamma (“E46: E48„)) Allora è niente
            Se Application.CountA (gamma (“E46: E48„)) = 0 allora
                Gamma (“F46„) = “allineare„
            Altrimenti
                Gamma (“F46„) = “falso„
            Concluder se
        Concluder se
    Concluder se
    L'annullamento = allinea
Concluder se
Concludere il sommergibile
Altre soluzioni  
 
programming4us programming4us