Question : Vba d'Excel - comment déterminer si 3 cellules sont vides ?

Je suis codage dans Worksheet_BeforeDoubleClick () et utilisation de la lettre « r » de la police de Marlett pour montrer un X si une cellule double-clicked, mais clair le X si les cellules particulières double-clicked d'again.

For 3 (E46 : E48) dans cette marge de double-click, si un X (Marlett « r ») existe et un double-click l'enlèvera (cible = vbNullString), je dois vérifier pour voir le cas échéant des 3 cellules (E46 : E48) contiennent toujours un X (Marlett « r »), et s'ils sont tous blanc, moi doivent faire quelque chose à un cell.

I ne peuvent pas obtenir mon code pour fonctionner : cela est la ligne 8 dans le code au-dessous de celui ne fonctionne pas right.
Hope que quelqu'un peut help. class= > " clair " de
> de " codeSnippet " de class= de
class= " lineNumbers " de
class= de 
1 :
2 :
3 :
4 :
5 :
6 :
7 :
8 :
9 :
10 :
11 :
12 :
13 :
14 :
15 :
le >If " de l'id= " codeSnippet782781 de 
 1 sortent alors le sous-marin
Sinon intersecter (cible, gamme (« E18 : E328 »)) N'est rien alors
	Target.Font.Name = « Marlett »
	Si cible = vbNullString alors
		Cible = « r »
	Autrement
		Cible = vbNullStrung
		Sinon intersecter (cible, gamme (« E46 : E48 »)) N'est rien alors
			S'IsNull (gamme (« E46 : E48 »)) Puis
				… faire quelque chose à une cellule différente
			Autrement
				… fade - fade
			Finir si
	Finir si
Finir si
class= de

Réponse : Vba d'Excel - comment déterminer si 3 cellules sont vides ?

J'ai eu l'annulation = rapport vrai dans un endroit moins qu'optimal. Si vous le déplacez avant la dernière extrémité si, cela permettrait à l'événement normal de double-click de se produire si l'utilisateur double-clicks en dehors de la gamme E18 : E328
1 :
2 :
3 :
4 :
5 :
6 :
7 :
8 :
9 :
10 :
11 :
12 :
13 :
14 :
15 :
16 :
17 :
18 :
19 :

Worksheet_BeforeDoubleClick secondaire privé (cible de ByVal comme gamme, annulation comme booléenne)
Si Target.Cells.Count > 1 sortent alors le sous-marin
Sinon intersecter (cible, gamme (« E18 : E328 »)) N'est rien alors
    Target.Font.Name = « Marlett »
    Si cible = vbNullString alors
        Cible = « r »
    Autrement
        Cible = vbNullString
        Sinon intersecter (cible, gamme (« E46 : E48 »)) N'est rien alors
            Si Application.CountA (gamme (« E46 : E48 »)) = 0 puis
                Gamme (« F46 ») = « vrai »
            Autrement
                Gamme (« F46 ») = « faux »
            Finir si
        Finir si
    Finir si
    L'annulation = rectifient
Finir si
Finir le sous-marin
Autres solutions  
  •  MS Excel 2007 et pdf - l'exportation vers le pdf prend de longues heures !
    •
  •  Dans le Perl, comment j'ajoute une valeur à la liste, puis le contrôle pour voir si la valeur existent avant d'ajouter une nouvelle valeur
    •
  •  Comment fais j'initialiser de la HP BL460c G6 de san et de la HP XP 240000
    •
  •  Comment fais j'employer une clef de permis de volume sur un ordinateur de HP avec du CD de restauration
    •
  •  Emplacement primaire de deux SCCM dans l'annuaire actif
    •
  •  L'initiateur et la HP D2D de l'iSCSI R2 du serveur 2008 de Windows GERCENT l'issue
    •
  •  Stocker le dossier dans le mysql using connector.net et le champ de goutte
    •
  •  Carte vidéo d'USB - bit 32 sur le matériel travaillant au niveau du bit 64 ?
    •
  •  asp.net que j'essaye de convertir une forme de HTML en forme d'aspx ou ? ce qui jamais. Aide du besoin sur la façon dont à à elle.
    •
  •  Winzip 12 issues de secours du travail ?
    •
     
    programming4us programming4us