Pytanie : Przodować vba - dlaczego jeżeli 3 komórka być pusty?

I być cyfrowanie w Worksheet_BeforeDoubleClick () i Marlett chrzcielnica list "r" X jeżeli komórka double-clicked, ale jasny the X jeżeli jasny again.

For 3 szczególny komórka (E46: E48) wśród ten double-click pasmo, jeżeli X (Marlett "r") istnieć i double-click usuwać ono (cel = vbNullString), I potrzebować jeśli wogóle the 3 komórka (E46: E48) wciąż zawierać X (Marlett "r"), i jeżeli być wszystkie puste miejsce, I potrzebować ) różny cell.

I móc mój kod: ono być linia 8 w the kod pod ten pracować right.
Hope ten móc help. 
(1):
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

If Target.Cells.Count > (1) wtedy Wychodzić Okręt podwodny
Jeśli nie Przecinać (Cel, Pasmo ("E18: E328")) Być Nic Wtedy
	Target.Font.Name = "Marlett"
	Jeżeli Cel = vbNullString Wtedy
		Cel = "r"
	Inny
		Cel = vbNullStrung
		Jeśli nie Przecinać (Cel, Pasmo ("E46: E48")) Być Nic Wtedy
			Jeżeli IsNull (Pasmo ("E46: E48")) Wtedy
				… robić komórka różny komórka
			Inny
				… bla bla bla
			Kończyć Jeżeli
	Kończyć Jeżeli
Kończyć Jeżeli

Odpowiedź : Przodować vba - dlaczego jeżeli 3 komórka być pusty?

I miewać the Odwoływać = Prawdziwy oświadczenie w mniej niż optymalny miejsce. Jeżeli ty ruszać się ono przed the ostatni Końcówka Jeżeli, ruszać się pozwalać the normalny double-click wydarzenie jeżeli the użytkownik double-clicks na zewnątrz the pasmo E18: E328
(1):
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:

Intymny Okręt podwodny Worksheet_BeforeDoubleClick (ByVal Cel Jako Pasmo, Odwoływać Boolowski)
Jeżeli Target.Cells.Count > (1) Wtedy Wychodzić Okręt podwodny
Jeśli nie Przecinać (Cel, Pasmo ("E18: E328")) Być Nic Wtedy
    Target.Font.Name = "Marlett"
    Jeżeli Cel = vbNullString Wtedy
        Cel = "r"
    Inny
        Cel = vbNullString
        Jeśli nie Przecinać (Cel, Pasmo ("E46: E48")) Być Nic Wtedy
            Jeżeli Application.CountA (Pasmo ("E46: E48")) = (0) Wtedy
                Pasmo ("F46") = "Prawdziwy"
            Inny
                Pasmo ("F46") = "Fałszywy"
            Kończyć Jeżeli
        Kończyć Jeżeli
    Kończyć Jeżeli
    Odwoływać = Prawdziwy
Kończyć Jeżeli
Kończyć Okręt podwodny
Inne rozwiązania  
 
programming4us programming4us