Astuces Excel
  1. Astuces Excel
  3. Sortie étrange en fonction simple – Excel VBA
Intereting Posts
Incohérence ouverte du file Renvoie différentes valeurs à partir d'un formulaire d'user vba en fonction du button pressé VB.NET Supprime le nombre spécifique de derniers caractères en string dans excel créer des feuilles de travail de la colonne dans la feuille de calcul et utiliser une autre feuille de calcul en tant que model Convertir des données en données temporelles en utilisant R Comment convertir datatables masortingcielles en colonnes? Comparez, copyz et collez avec VBA Excel Erreur d'exécution 438 sur supprimer le contrôle de la forme d'user ajouté dynamicment Vba Vlookup avec nom de feuille variable Excel – Garder l'information liée après avoir été sortingé. VBA Excel Valeur de return basée sur la list Puis-je empêcher le code vba de fonctionner si l'un des classurs est ouvert? Importation de gammes multiples dans la diapositive powerpoint d'excel Formatage conditionnel Mac Excel VBA avec Intersect Couleur de la cellule si le mois s'est passé 3ème mois

Sortie étrange en fonction simple – Excel VBA

J'ai une fonction simple dans Excel VBA. 

Public Function ubi() As Integer Dim i As Integer For i = 7 To 10 If IsNumeric(Cells(35, i).Value) Then ubi = i End If Next ubi = i End Function

Comme vous le voyez, les valeurs de i sont censées être de 7 ou 8 ou 9 ou 10 . Mais, lorsque je teste la fonction dans la feuille de calcul Excel, je trouve ubi()=11 .

Alors, Quelle pourrait être la source d'erreur dans mon code?

Supprimez l' ubi = i de l'extérieur de la boucle For...Next Le code continue alors que cela est vrai: For i = 7 To 10 Chaque fois que vous appuyez sur Next il est incrémental. Lorsque je passe à 11, la boucle sort, mais je suis déjà configuré à 11.