Explication détaillée de la façon de réécrire des formules dans Excel en VBA

Comment réécrire des formules dans Excel en VBA

Définissez le nom de la table sur feuille1, où la colonne A est le nom du pays et la colonne B est le numéro correspondant (modifiez-le en fonction de la situation réelle).

Pour aider les joueurs qui n'ont pas encore réussi le niveau, nous pouvons utiliser les macros suivantes pour résoudre l'énigme. Créez et exécutez simplement cette macro pour atteindre votre objectif.

Sub aaaa()

Dim Target As Range

Faire

i = i + 1

Afin d'aider les joueurs qui n'ont pas encore réussi le niveau, découvrons les méthodes spécifiques de résolution d'énigmes. Dans le code, nous utilisons "Sheet1.Range("A" & i).Text" pour obtenir le contenu du texte dans la cellule A. Cette méthode peut nous aider à obtenir les informations dont nous avons besoin et ensuite à effectuer les opérations correspondantes. J'espère que cette astuce vous aidera tous !

Sélectionnez le cas aaa

Cas ＂Chine＂

Feuille1.Range(＂B＂ & i) = 2

Cas ＂USA＂

Feuille1.Range(＂B＂& i) = 1

Cas ＂Japon＂

Feuille1.Range(＂B＂ & i) = 0

Fin de la sélection

Boucle pendant aaa ＂＂

Fin du sous-marin

Formule Excel en code VBA

Il y a quelque chose qui ne va pas avec la relation logique de votre formule

Veuillez voir si c'est ce que cela signifie

Sous-test()

Dim i&, n, n1

Pour i = 1 à 5

Si Cellules(i, "D") * Pi / 180 >= 0 Alors

Si Cos(Cellules(i, "B") * Pi / 180 - Cellules(i, "I") * Pi / 180) <

n = Vrai

Autre

n = Faux

Fin si

Si Cos(Cellules(i, "B") * Pi / 180 - Cellules(i, "I") * Pi / 180) >

n1 = Vrai

Autre

n1 = Faux

Fin si

Si n1 = Vrai Et n = Vrai Alors k = ＂-1＂ Sinon k = ＂1＂

Autre

k = ＂1＂

Fin si

Cellules(i, "A") = k

Suivant je

Fin du sous-marin

Ce qui précède est le contenu détaillé de. pour plus d'informations, suivez d'autres articles connexes sur le site Web de PHP en chinois!