Question : Modifier Excel VBA pour inclure une gamme des cellules

Je dois modifier ce code légèrement clair une gamme des cellules au lieu de dégager juste une cellule spécifique.  Des suggestions ?

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 :
16 :
17 :
18 :
19 :
20 :
>Sub " de l'id= " codeSnippet847420 de
class= de

Réponse : Modifier Excel VBA pour inclure une gamme des cellules

J'ai vu votre question plus tôt mais ne l'ai pas signalé car le cyberkiwi l'a eue couverte

C'était mon effort

La gamme peut être changée ici

   Placer rng1 = intersectent (ActiveSheet.UsedRange, colonnes (« A »))

pour l'usage entier de feuille

   Placer rng1 = ActiveSheet.UsedRange

pour les colonnes A : D

Placer rng1 = intersectent (ActiveSheet.UsedRange, colonnes (« A : D »))

etc.

À la votre

Dave
1 :
2 :
3 :
4 :
5 :
6 :
7 :
8 :
9 :
10 :
11 :
12 :
13 :
14 :
15 :
16 :
17 :
18 :
19 :
20 :
21 :
22 :
23 :
24 :
25 :
26 :
27 :
28 :
29 :
30 :
31 :
32 :
33 :
34 :
35 :
36 :
37 :
38 :
39 :
40 :
41 :
42 :
43 :
44 :
45 :
46 :
47 :
48 :

'Presser alt + F11 pour ouvrir le rédacteur de Visual Basic (VBE)
'Du menu, choisir l'Insérer-Module.
'Coller le code dans la fenêtre droite de code.
'Presser alt + F11 pour clôturer le VBE
'Aller au macro d'outils……. Macros et double-click DelRow_OnColumn

DelRow_OnColumn secondaire ()
    Faible rng1 comme gamme, rng2 comme gamme, cel comme gamme
    Faible FirstAddress comme corde
    Faible AppCalc en tant que longtemps
    Faible MyArr
    Faible varr

    MyArr = rangée (« Widget1 », « Product1 »)

    Placer rng1 = intersectent (ActiveSheet.UsedRange, colonnes (« A »))
    Si rng1 n'est rien puis sortir le sous-marin

    Avec l'application
        AppCalc =. Calcul
        .ScreenUpdating = faux
        . Calcul = xlCalculationManual
    Extrémité avec

    Pour chaque varr dans MyArr
        Placer cel = rng1.Find (varr, xlValues, xlPart, xlByRows)
        Sinon le cel n'est rien alors
            FirstAddress = cel. Adresse
            Faire
                Placer cel = rng1.FindNext (le cel)
                'examiner pour éviter de finir vers le haut avec des choix de mutliple dans une rangée pour supprimer
                Si cel. Adresse <> FirstAddress alors
                    Sinon rng2 n'est rien alors
                        Placer rng2 = union (rng2, cel)
                    Autrement
                        Placer rng2 = cel
                    Finir si
                Finir si
            Faire une boucle tandis que FirstAddress <> cel. Adresse
        Finir si
    Prochain varr

    Sinon rng2 n'est rien puis rng2.Clear

    Avec l'application
        .ScreenUpdating = rectifient
        . Calcul = AppCalc
    Extrémité avec
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