Astuces Excel
  1. Astuces Excel
  3. Excel VBA Importation de conditionnements de tableau
Intereting Posts
Comment append de nouveaux contenus aux anciens contenus des cellules en utilisant les modules xlrd / xlwt python Maintenir la précision Excel lors de la réalisation de calculs en Java Comment créer un jeu de données, un cadre de données et exécuter des requêtes sur des données imscopes Excel dans r studio? L'heure de la date de lecture forme un file excel à l'aide de Powershell Reformatting des macros afin qu'ils répètent Excel copy la valeur de la cellule vers une autre cellule si la valeur de la cellule change Impossible d'get la propriété Vlookup de la class FunctionheetFunction (en se référant à différents classurs) Comment extraire des cellules d'une string? Mon programme transforme une feuille de calcul en un file Excel. Mais cela ne fonctionne que pour un user Comment vérifier si le champ de text contient 6 numbers Erreur d'erreur de type – ne semble pas la résoudre VBA pour save le file CSV vers Excel avec des formats de colonnes spécifiques MS Excel: Différence entre 2 colonnes.? Comment append la valeur du countur de boucle en tant que suffixe de nom de tableau CSV ne crée pas de problèmes de format avec une valeur entière lorsqu'il est généré via un package SSIS

Excel VBA Importation de conditionnements de tableau

J'ai deux arrays, avec un tas de conditionnels évaluant datatables. 

And Not Left(CStr(Cells(r, cA)), 1) = "8" And Not Cells(r, cH) = "-190001010000" Or Cells(r, cH) = "190001010000" Then

En ce moment, j'ai toutes les cellules dans la rangée r et la colonne cA qui commencent par «8» dans le tableau 2.

Mais je veux toutes les cellules dans la rangée r et la colonne cA tandis que la cellule r, CH équivaut à «-190001010000» ou égale à «-190001010000» pour passer au tableau 2.

Je ne crois pas que la deuxième moitié de mon énoncé conditionnel évalue?

Voici les conditions complètes: 

  If Not Left(CStr(Cells(r, cC)), 3) = "722" _ And Not CStr(Cells(r, cC)) = "32DP2C" _ And Not CStr(Cells(r, cC)) = "325SFC" _ And Not CStr(Cells(r, cC)) = "78462F103" _ And Not CStr(Cells(r, cM)) = "Fofprice" _ And Not Cells(r, cH) = "-190001010000" _ And Not Cells(r, cH) = "190001010000" Then 'And 'Not (Left(CStr(Cells(r, cA)), 1) = "8") Then

Essayez de mettre () 

 And Not Left(CStr(Cells(r, cA)), 1) = "8" And (Cells(r, cH) = "-190001010000" Or Cells(r, cH) = "190001010000") Then

Et j'ai remarqué "Not" juste avant les cellules (r, cH). Voulez-vous que ce soit égal à -190 … ou 190 …?

Ou l'avez-vous voulu quand il est égal à -190 … ou 190 …?