L'écriture d'une entrée de type entier dans une cellule

Je suis en train d'écrire une application rapide de moi-même - premier projet, cependant je suis en train d'essayer de trouver le code VBA pour écrire le résultat d'une chaîne d'entrée à une cellule dans Excel.

Par exemple, une zone de saisie de la demande à la question "quel numéro de travail aimeriez-vous ajouter à la liste?"... l'utilisateur doit alors entrer un numéro de référence tels que "FX1234356". La macro doit ensuite écrire ces informations dans une cellule, que je peux ensuite utiliser pour terminer la macro (en gros une recherche dans certains de données).

Question titre est trompeur. Votre entrée n'est pas un entier.

OriginalL'auteur David Max | 2008-11-02

excel vba

10

Vous pouvez utiliser l'objet de la Plage en VBA pour définir la valeur d'une cellule nommée, tout comme n'importe quelle autre cellule.
```
Range("C1").Value = Inputbox("Which job number would you like to add to the list?)
```
Où "C1" est le nom de la cellule que vous souhaitez mettre à jour.

Mon Excel VBA est un peu vieux et croustillant, de sorte qu'il peut être une meilleure façon de le faire dans les plus récentes versions d'Excel.

vous venez de me battre pour elle 😉
Merci de vérifier pour moi. Je déteste l'affichage de l'ancien code et, éventuellement, avoir quelqu'un à venir et de dire "Ouais, de retour dans les années 1900, vous pourriez avoir fait de cette façon, mais maintenant...". 🙂

OriginalL'auteur Bill the Lizard
4

Je recommande toujours à l'aide d'une plage nommée (comme vous l'avez suggéré que vous faites) parce que si toutes les colonnes ou les lignes sont ajoutées ou supprimées, le nom de référence sera mise à jour, alors si vous le code de la cellule de référence (par exemple, "H1", comme le suggère l'une des réponses) en VBA, il ne sera pas mise à jour et à la mauvaise cellule.

Donc
```
Range("RefNo") = InputBox("....") 
```
est plus sûr que
```
Range("H1") = InputBox("....") 
```
Vous pouvez définir la valeur de plusieurs cellules, trop.
```
Range("Results").Resize(10,3) = arrResults()
```
où arrResults est un tableau d'au moins 10 lignes & 3 colonnes (et peut être de tout type). Si vous l'utiliser, mettez ce
```
Option Base 1
```
en haut du module VBA, sinon VBA assumera le tableau commence à 0 et de mettre un blanc la première rangée et de colonne dans la feuille. Cette ligne fait tous les tableaux commencent à 1 par défaut (qui peut être anormal dans la plupart des langues, mais fonctionne bien avec les feuilles de calcul).

OriginalL'auteur dbb
1

Lors de la demande d'un utilisateur pour une réponse à le mettre dans une cellule à l'aide de la Méthode InputBox, il y a généralement trois choses qui peuvent happen1.
1. L'utilisateur tape quelque chose dans le et clique sur OK. C'est ce que vous vous attendez et vous recevrez entrée arrière peuvent être retournées directement à une cellule ou à une variable déclarée.
2. L'utilisateur clique sur Annuler, presses Esc ou sur × (Fermer). La valeur de retour est un booléen Faux. Cela devrait être pris en compte.
3. L'utilisateur ne pas taper quoi que ce soit, mais clique sur OK peu importe. La valeur de retour est une chaîne de longueur nulle.
Si vous mettez la valeur de retour dans une cellule, de votre propre logique de flux, vous dicter ce que vous voulez faire sur les deux derniers scénarios. Vous pouvez effacer la cellule ou vous voudrez peut-être laisser le contenu de la cellule seule. Voici comment gérer les différents résultats avec une variante de type de variable et d'un Instruction Select case.
```
    Dim returnVal As Variant

    returnVal = InputBox(Prompt:="Type a value:", Title:="Test Data")

    'if the user clicked Cancel, Close or Esc the False
    'is translated to the variant as a vbNullString
    Select Case True
        Case Len(returnVal) = 0
            'no value but user clicked OK - clear the target cell
            Range("A2").ClearContents
        Case Else
            'returned a value with OK, save it
            Range("A2") = returnVal
    End Select
```
1 _{Il y a un quatrième scénario, lorsqu'un type spécifique de Méthode InputBox est utilisé. Une boîte de dialogue peut retourner une formule, une plage de cellules d'erreur ou d'un tableau. Ceux sont des cas particuliers et nécessite l'utilisation très spécifique de la syntaxe des options. Consultez la fiche lien pour en savoir plus.}

OriginalL'auteur Jeeped
0

J'ai fait ce genre de chose avec un formulaire qui contient une zone de texte.

Donc si vous voulais mettre ce à dire que la cellule H1, puis utilisez:

ActiveSheet.Range("H1").Value = txtBoxName.Text

OriginalL'auteur nzpcmad

Vous devez vous connecter pour publier un commentaire.