Script VBA lors d'une division par zéro

Je suis en train de faire une formule en VBA, mais je suis à venir à travers des erreurs à cause d'un zéro dans le dénominateur. Si j'ai un zéro dans le dénominateur, j'aimerais que la cellule active pour être mis à zéro. Tout ce que je suis en train de faire est incorrecte, et je ne suis pas un programmeur. Je n'ai aucune idée de ce que je suis en train de faire. Toute aide serait grandement appréciée. Voici ce que j'ai 

Range("H" & Row).Activate
If Range("F" & Row) = 0 Then ActiveCell.Formula = 0
ActiveCell.Formula = Range("G" & Row) / Range("F" & Row)
InformationsquelleAutor Jack Prible | 2013-09-03
  1. 3

    essayez d'utiliser un autre

    quelque chose comme

    Range("H" & Row).Activate
If Range("F" & Row) = 0 Then
    ActiveCell.Formula = 0
Else 
    ActiveCell.Formula = Range("G" & Row) / Range("F" & Row)
End If
    • Merci, mais il me dit "erreur de Compilation: le monde, sans S'"
    • ajouter une nouvelle ligne après "Alors" et "Else" et après la dernière ligne ajouter "End if" (ou plutôt que ces modifications, ajouter des " _" après la fin de la ligne avec Alors sur elle, et un deux-points ":" après le Reste)
    • Merci pour votre aide les gars. J'ai compris où j'allais mal. Je suis prise d'une source et le remplissage d'une nouvelle feuille de calcul. J'ai été en utilisant la Ligne au lieu de InsertPos.
    InformationsquelleAutor Adriaan Stander
  2. 0

    Vous pourriez tout simplement construire la déclaration dans la formule:

    For Row = 1 To 3
    Cells(Row, "H").Formula = "=IF(F" & Row & "=0,0,G" & Row & "/F" & Row & ")"
Next Row

    Et au lieu d'utiliser une boucle...

    With Range("H2:H" & Cells(Rows.Count, "G").End(xlUp).Row)
    .Formula = "=IF(F" & .Row & "=0,0,G" & .Row & "/F" & .Row & ")"
    .Value = .Value
End With
    • Je ne suis pas très bon avec de codage. Dans la première suggestion que vous faites, à quel moment dois-je mettre ma formule?
    • ce tigeravatar de réponse est de dire, c'est pourquoi ne pas simplement utiliser une normale formule Excel (comme généré par VBA si nécessaire).
    InformationsquelleAutor tigeravatar
  3. 0

    Je ne recommande pas Cor_Blimey ou tigeravatar recommander - à la fois de rendre le code moins lisible. Cor_Blimey la suggestion d'utiliser le caractère de continuation de ligne " _" et la fin de l'énoncé de caractère ":" ne pas ajouter à la concision du code et est logiquement le même que le code ci-dessus. Tigeravatar est sortof sur la bonne voie avec ce qui suggère que la cellule de traitement de l'erreur affaire elle-même, mais son code suggestion rend tout plus difficile à lire.

    Mon changement proposé est d'abandonner le VBA et utiliser la formule suivante dans la cellule(s) dans la colonne H qui serait de faire les calculs:

    =IfError(G1/F1,0)

    Ce serait le travail parce que vous n'êtes pas à l'aide de toutes les valeurs dans vos calculs autres que ce qui est déjà sur la feuille de calcul.

    InformationsquelleAutor Constablebrew