Question : Comment est-ce que je peux copier une gamme des cellules dans une feuille de travail à un autre secteur dans la même feuille de travail basée au loin de la valeur d'une cellule dans Excel 2007 ?

Bonjour, le besoin du

I de pouvoir copier programatically une gamme des cellules dans un cahier de travail d'exceler à un autre secteur dans le même cahier de travail a basé au loin des valeurs du début et des dates de fin dans la feuille de travail.  La feuille de travail que j'ai attachée montre des données d'échantillon.  Ainsi, si je devais changer la date de début de sélection d'un article, je dois exceler pour prendre toutes les valeurs dans les colonnes de mois et pour les décaler selon la nouvelle date de début de sélection.  En outre, si la date de fin d'expiration change, j'ai besoin de elle pour s'ajuster en conséquence.  Est-ce que ce vba est de utilisation possible ? nom de fichier " " de >

le " le " de >
class= de

Réponse : Comment est-ce que je peux copier une gamme des cellules dans une feuille de travail à un autre secteur dans la même feuille de travail basée au loin de la valeur d'une cellule dans Excel 2007 ?

daintysally,

Le code ci-dessous est dans le dossier joint.

Espoir il fait ce que vous voulez.

Patrick
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 :
Specialmacro secondaire ()
Le faible WS comme feuille de travail
Faible rng1 comme gamme
Faible celle1 comme gamme
Faible rng2 comme gamme
Faible celle2 comme gamme
Faible pickstart comme date
Faible expiration comme date
Faible pickweek en tant que longtemps
Faible rng_step en tant que longtemps
Faible step_counter en tant que longtemps

Placer le WS = les feuilles (« Exemple-avant »)

Placer rng1 = le WS. Gamme (WS. Cellules (2, « A »), WS. Cellules (WS. Rows.Count, « A »). Extrémité (xlUp))
pickweek = 3

step_counter = 0
Pour le rng_step = 0 26 à l'étape 13
    Pour chaque celle1 dans rng1
        pickstart = celle1.Offset (0, 3)
        expiration = celle1.Offset (0, 4)
        Placer rng2 = gamme (WS. Cellules (celle1.Row, « F »), WS. Cellules (celle1.Row, « Q »)). Excentrage (0, rng_step)
        rng2 (1, 12). Excentrage (0, 1).FormulaR1C1 = « =SUM (RC [- 12] : RC [- 1]) »
        rng2.ClearContents
        Pour chaque celle2 dans rng2
            Si le WS. _ De pickstart de >= des cellules (1, celle2.Column)
                Et le WS. Cellules (1, celle2.Column)  <>
           
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