Pergunta : Vba de Excel - como determinar se 3 pilhas estão vazias?

Eu sou codificação em Worksheet_BeforeDoubleClick () e utilização da letra “r” da pia batismal de Marlett para mostrar um X se uma pilha double-clicked, mas desobstruído o X se as pilhas particulares double-clicked de again.

For 3 (E46: E48) dentro desta escala do double-click, se um X (Marlett “r”) existe e um double-click o removerá (alvo = vbNullString), eu preciso de verific para ver eventualmente das 3 pilhas (E46: E48) ainda contêm-me um X (Marlett “r”), e se são todos espaço em branco, precisam de fazer algo a um cell.

I não podem conseguir meu código trabalhar: é a linha 8 no código abaixo daquele não está trabalhando right.
Hope que alguém pode help. class= > " desobstruído " do
> do " codeSnippet " do class= do
class= " lineNumbers " do
class= do 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
o >If notpretty " do class= " do id= " codeSnippet782781 do 
 1 retira então o submarino
Se não cruzar (alvo, escala (“E18: E328”)) É nada então
	Target.Font.Name = “Marlett”
	Se alvo = vbNullString então
		Alvo = “r”
	Mais
		Alvo = vbNullStrung
		Se não cruzar (alvo, escala (“E46: E48”)) É nada então
			Se IsNull (escala (“E46: E48”)) Então
				… fazer algo a uma pilha diferente
			Mais
				… blá - blá
			Terminar se
	Terminar se
Terminar se
class= do

Resposta : Vba de Excel - como determinar se 3 pilhas estão vazias?

Eu tive o cancelamento = indicação verdadeira em um lugar menos do que óptimo. Se você o move antes da última extremidade se, aquela permitiria o evento normal do double-click ocorrer se o usuário double-clicks fora da escala E18: E328
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:

Worksheet_BeforeDoubleClick secundário confidencial (alvo de ByVal como a escala, o cancelamento como bôoleano)
Se Target.Cells.Count > 1 retiram então o submarino
Se não cruzar (alvo, escala (“E18: E328”)) É nada então
    Target.Font.Name = “Marlett”
    Se alvo = vbNullString então
        Alvo = “r”
    Mais
        Alvo = vbNullString
        Se não cruzar (alvo, escala (“E46: E48”)) É nada então
            Se Application.CountA (escala (“E46: E48”)) = 0 então
                Escala (“F46”) = “verdadeiro”
            Mais
                Escala (“F46”) = “falso”
            Terminar se
        Terminar se
    Terminar se
    O cancelamento = retifica
Terminar se
Terminar o submarino
Outras soluções  
 
programming4us programming4us