Comment puis-je mettre à jour le texte dans une cellule fusionnée avec VBA?

Supposons que j'ai 2 cellules sont fusionnées, permet de dire Sheet1!$A$1:$B$1.

Et vous permet de dire qu'il ya un morceau de texte qui est centrée sur les deux cellules. Comment puis-je mettre à jour par programme de cette valeur avec VBA? J'ai un utilisateur simple formulaire avec un bouton, cliquez sur le bouton, je veux la cellule de mise à jour.

J'ai essayé de l'accaparement de la Gamme, mais cela ne semble pas fonctionner.

OriginalL'auteur Fred | 2011-11-17

  1. 6

    Si vous avez fusionné les cellules, alors vous ne pouvez modifier que la valeur de la fusion de cellules en référence à la supérieure de la cellule la plus à gauche.

    Donc, si A1 et B1 sont fusionnées, la seule façon de changer la date est:

    Range("A1").value = "data"

    Ou

    Cells(1,1).Value = "data"

    Appel Range("B1").Value = "data" ne va pas changer le texte visible.

    OriginalL'auteur Justin Self

  2. 14

    En plus des autres réponses, il est intéressant de noter que vous pouvez également utiliser MergeArea de mettre à jour via l'un des deux cellules:

    Range("A1").MergeArea.Value="New value"
Range("B1").MergeArea.Value="New value"

    Si la cellule n'est pas fusionnés puis il va simplement ignorer le MergeArea (ie. il la traite comme une zone fusionnée avec une cellule...)

    +1 Appris quelque chose de nouveau
    merci, cela a bien fonctionné pour moi!
    Cela, chers @Tim, m'a empêché de prise de vue le gars qui a utilisé des cellules fusionnées en premier lieu

    OriginalL'auteur Tim Williams

  3. 0

    Vous pouvez définir la valeur de la première cellule et il va mettre à jour le texte.

    Worksheets("Sheet1").Cells(1,1).Value = "New Value"

    OriginalL'auteur Michael Kingsmill

  4. 0

    Utilisez cette fonction si vous avez besoin de faire référence à une cellule qui pourrait ou ne pourrait pas être le cadre d'une fusion de gamme:

    Function Reference_cell_even_if_merged(Cell_Range As Range) As Range
If Cell_Range.MergeCells Then
    Set Reference_cell_even_if_merged = Cell_Range.MergeArea
Else
    Set Reference_cell_even_if_merged = Cell_Range
End If
End Function

    OriginalL'auteur nateAtwork