VBA Excel - Word Wrap

Je suis de la création d'un petit morceau de code VBA avec une formule spécifique, cependant il a un couple de if états, dont l'un provient d'une double ligne de chaîne (avec vbNewLine)
Le problème est que je ne peux pas voir le texte.

Donc je voulais word wrap, mais chaque fois que je le ActiveCell.WrapText = True, rien ne se passe.

J'ai vérifié avec une boîte de message. J'ai mis le WrapText de Vrai, j'y retourne la valeur de la propriété avec la MessageBox pour confirmer, et c'est encore Faux.

J'ai été dit d'utiliser ActiveCell.Rows.AutoFit, mais AutoFit ne fait rien si le texte n'est pas emballé.

Une idée de ce que je fais de mal?

S'il vous plaît: moins d'argot et de remplissage de mots, plus de bien-formaté exemples de code. Cette question est assez difficile à lire et à comprendre, en gros, comme. Whassup wit dat?

InformationsquelleAutor Kuroh | 2011-05-03

16

essayer:
```
Sub WrapandFit()

    ActiveCell.WrapText = True
    ActiveCell.EntireRow.AutoFit

End Sub
```
Il a travaillé pour moi. Assurez-vous que votre screenupdating est également définie sur true.
- +1 pour la compréhension de la question.
- Je m'excuse, essayait seulement d'être poli puisque l'anglais n'est pas ma langue. De toute façon le problème persiste tho, si je place ce code dans une macro, il travaille, dans la fonction qu'il ne l'est pas. (Aussi désolé, mais je ne suis pas très familier avec Débordement de Pile encore... Pense que j'ai placé le truc d'anglais, commentaire au mauvais endroit.)
- Si la feuille de calcul n'est pas que beaucoup de données, vous pouvez ajouter un cellulaire, de changement dans votre classeur. Chaque fois qu'une cellule est modifié, il peut appeler le code de la macro de mise à jour de la activecell hauteur. Notez cependant que si cette feuille de calcul en quelque sorte est grande, il va être très lent!
InformationsquelleAutor GrimR7529
4

Pour moi, le code ci-dessous travaillé. (seulement défini pour modifier la ligne d'en-tête (changement de gamme))
```
ActiveSheet.Range("A1:R1").Select
With Selection
    .WrapText = True
End With
```
InformationsquelleAutor user7775323
3

Udf (procédures d'utilisation de la Fonction de mot-clé) seules les valeurs de retour. Ils ne peuvent pas modifier d'autres parties du modèle objet d'Excel, comme la mise en forme de cellule. Seuls les sous-programmes (procédures qui utilisent le mot clé Sub) peut le faire.

Vous devez avoir vos cellules de mise en forme correctement avant de vous entrer dans votre système de fichiers. Ou vous pouvez utiliser une feuille de calcul événement de changement de sous pour les mettre en forme après le fait.

InformationsquelleAutor Dick Kusleika
1

Activer/désactiver le retour à la ligne pour l'ensemble de la feuille de ligne peut être fait en VB code indiqué ci-dessous:
Si la première ligne est définie sur true, excel hérite de cette propriété pour l'ensemble de la feuille, sauf si vous éteint à l'aide d'un autre code.
```
MyWorkSheet.Rows.WrapText = True
```
Pour désactiver l'emballage des biens d'une ligne spécifique:
```
MyWorkSheet.Rows(8).WrapText = False
```
InformationsquelleAutor rchacko

Je soupçonne que vous essayez de placer du texte dans les cellules fusionnées. Si oui, vous ne pouvez pas simplement appeler:

MyWorkSheet.Rows.WrapText = True

Au lieu de cela, vous avez pour simuler l'emballage des opérations. J'ai trouvé le code de http://blog.contextures.com/archives/2012/06/07/autofit-merged-cell-row-height/ m'a aidé à l'année dernière.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim MergeWidth As Single
Dim cM As Range
Dim AutoFitRng As Range
Dim CWidth As Double
Dim NewRowHt As Double
Dim str01 As String
str01 = "OrderNote"

  If Not Intersect(Target, Range(str01)) Is Nothing Then
    Application.ScreenUpdating = False
    On Error Resume Next
    Set AutoFitRng = Range(Range(str01).MergeArea.Address)

    With AutoFitRng
      .MergeCells = False
      CWidth = .Cells(1).ColumnWidth
      MergeWidth = 0
      For Each cM In AutoFitRng
          cM.WrapText = True
          MergeWidth = cM.ColumnWidth + MergeWidth
      Next
      'small adjustment to temporary width
      MergeWidth = MergeWidth + AutoFitRng.Cells.Count * 0.66
      .Cells(1).ColumnWidth = MergeWidth
      .EntireRow.AutoFit
      NewRowHt = .RowHeight
      .Cells(1).ColumnWidth = CWidth
      .MergeCells = True
      .RowHeight = NewRowHt
    End With
    Application.ScreenUpdating = True
  End If

End Sub

J'ai eu ce problème avec la hauteur de la ligne et ne savais pas que c'était dû à la fusion des cellules. Cela a résolu mon problème!

InformationsquelleAutor Hu Qiang

-1

Cela peut ne pas être exactement ce que l'OP avait dans l'esprit, mais j'ai pensé que je vous ferais partager mon VBA retour fonction puisque je ne pouvais pas trouver quoi que ce soit sur le web pour faire ce que je voulais.

Cette fonction insérer CR+LF's dans la chaîne afin de l'envelopper, de sorte que le retour automatique à la ligne est maintenue si le texte est copié dans une autre application, à base de texte ou autre.
```
Function wrapText(strIn As String, Optional maxLen As Long = 110) As String
    Dim p As Long: wrapText = strIn
    Do
        p = InStrRev(wrapText, " ", p + maxLen) - 1
        wrapText = Left(wrapText,p) & vbCrLf & Right(wrapText, Len(wrapText)-p-1)
        Debug.Print Mid(Replace(wrapText, vbCrLf, "||"), p - 20)
        'Stop
    Loop While p + maxLen < Len(wrapText)
End Function
```
La valeur par défaut largeur maximale de 115 caractères, mais peut éventuellement être modifié pour quoi que ce soit. Seulement sauts sur des espaces (la dernière en date qui s'affiche sur/avant de la position n ° 115), et il n'insère CR + LF's (avec la constante vbCrLf), mais ils peuvent être adaptés selon les besoins.

Comme exemple d'application, j'ai été la construction complexe des requêtes SQL dans Excel et je voulais copier le SQL sur le serveur d'application soignée & bien rangé, au lieu d'un géant de la ligne.

InformationsquelleAutor ashleedawg

Vous devez vous connecter pour publier un commentaire.