Vraag : Vba van Excel - hoe te om als 3 cellen te bepalen leeg zijn?

Ik codeer in Worksheet_BeforeDoubleClick () en gebruik de brief „r“ van de doopvont Marlett om X te tonen als een cel tweemaal wordt geklikt, maar ontruim X indien tweemaal geklikte again.

For 3 bijzondere cellen (E46: E48) binnen dit tweemaal klikkengamma, als X (er Marlett „r“) bestaat en een tweemaal klikken het (doel = vbNullString) zal verwijderen, moet ik controleren om te zien of om het even welke 3 cellen (E46: E48) bevat nog X (Marlett „r“), en als zij al spatie zijn, moet ik iets aan een verschillende cell.

I doen kan niet mijn code ertoe brengen om te werken: het is lijn 8 in de code onder dat werkt geen right.
Hope iemand help. kan
" codeBody " 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

If Target.Cells.Count > 1 gaat dan Sub weg
Als om te snijden niet (Doel, Waaier („E18: E328“)) Is dan niets
	Target.Font.Name = „Marlett“
	Als Doel = dan vbNullString
		Doel = „r“
	Anders
		Doel = vbNullStrung
		Als om te snijden niet (Doel, Waaier („E46: E48“)) Is dan niets
			Als IsNull (Waaier („E46: E48“)) Dan
				… doe iets aan een verschillende cel
			Anders
				… bazelde
			Beëindig als
	Beëindig als
Beëindig als

Antwoord : Vba van Excel - hoe te om als 3 cellen te bepalen leeg zijn?

Ik had Cancel = Ware verklaring in a minder dan optimale plaats. Als u het vóór het laatste Eind beweegt als, dat de normale tweemaal klikkengebeurtenis om zou toelaten voor te komen als de gebruiker buiten de waaier E18 tweemaal klikt: E328
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:

Privé SubWorksheet_BeforeDoubleClick (het Doel ByVal als Waaier, annuleert Van Boole)
Als Target.Cells.Count > 1 dan Sub weggaat
Als om te snijden niet (Doel, Waaier („E18: E328“)) Is dan niets
    Target.Font.Name = „Marlett“
    Als Doel = dan vbNullString
        Doel = „r“
    Anders
        Doel = vbNullString
        Als om te snijden niet (Doel, Waaier („E46: E48“)) Is dan niets
            Als Application.CountA (Waaier („E46: E48“)) = 0 toen
                Waaier („F46“) = „Waar“
            Anders
                Waaier („F46“) = „Vals“
            Eind als
        Eind als
    Eind als
    Annuleer = Waar
Beëindig als
Beëindig Sub
Andere oplossingen  
 
programming4us programming4us