Astuces Excel
  1. Astuces Excel
  3. Obtenir la valeur d'une cellule dans la gamme, stocker une variable, puis la cellule suivante, la rangée suivante (Excel)
Intereting Posts
Recherche d'un set de données Excel basé sur les dates entre Excel 2010 – Faites glisser la formule vers la droite, mais faites la reference relative vers le bas Sélectionnez un cas avec une string Comment garder le formatting tel qu'il est après l'exécution de la macro vba? Capture du mot de passe entré dans une protection de feuille Excel avec VBA n'a pas pu find l'isam installable Formule courte pour tirer des vacances à venir pour une fusion de titres dans une database énorme Comment save datatables dans les lectures de la database à partir du file EXCEL à l'aide de SqlDataAdapter Windows Form + Excel Worksheet Lecture du file excel à l'aide de jQuery / JavaScript / AJAX L'effacement de Excel Combobox prend trop longtime Erreur d'exécution 1004 sur la formule R1C1 vba Fonctions Excel au code C # Excel-VBA renomme et enregistre dans un directory alternatif sans intervention de l'user Comment puis-je append du text sur la barre de graphique dans la bibliothèque EPPlus .net?

Obtenir la valeur d'une cellule dans la gamme, stocker une variable, puis la cellule suivante, la rangée suivante (Excel)

Je voudrais get la valeur d'une cellule dans une gamme et la stocker en tant que variable. Ensuite, définissez la valeur d'une autre cellule dans une autre plage comme cette variable. Ensuite, passez à la cellule. Après avoir capturé toutes les cellules de la ligne, j'aimerais passer à la ligne suivante et recommencer avec la première cellule et la première variable. Je ne peux pas comprendre comment passer à la cellule suivante, puis définir la valeur dans la nouvelle plage de la variable. Voici ce que j'ai obtenu jusqu'à présent 

Dim rng As Range Dim row As Range Dim cell As Range Dim card1 As Ssortingng Dim card2 As Ssortingng Dim card3 As Ssortingng Dim card4 As Ssortingng Dim card5 As Ssortingng Dim valueRng As Range Set rng = Range("A2:D4") Set valueRng = ("F2:I4") For Each row In rng.Rows For Each cell In row.Cells card1 = cell.Value 'Set first variable 'Code here for setting value of for first cell in valueRng 'Move to second cell 'get value 'set variable card2 'Set value of second cell in valueRng Next cell Next row

Utilisez des counturs de lignes et de colonnes au lieu de For each : 

 Dim rng As Range Dim row As Range Dim cell As Range Dim card1 As Ssortingng Dim card2 As Ssortingng Dim card3 As Ssortingng Dim card4 As Ssortingng Dim card5 As Ssortingng Dim valueRng As Range Dim x as long Dim y as long Set rng = Range("A2:D4") Set valueRng = Range("F2:I4") For x = 1 to rng.Rows.Count for y = 1 to rng.Columns.Count card1 = rng.cells(x, y).Value 'Set first variable 'Code here for setting value of for first cell in valueRng valueRng.Cells(x, y).Value = card1 Next y Next x

Notez qu'il existe des moyens beaucoup plus simples de peupler un tableau à partir d'un autre quand ils ont la même taille et la même forme.