[Tasos]

Καλημέρα!

Σε καμία περίπτωση δεν μπορεί να υπολογιστεί μια συνάρτηση σε πλαίσιο κειμένου είτε αυτό είναι πλαίσιο κειμένου της εφαρμογής είτε ActiveX.

Μπορούμε όμως να περάσουμε τις συναρτήσεις σε μια στήλη και να συνδέσουμε τα πλαίσια κειμένου με τα κελιά της στήλης αυτής.

Πως; Επιλέγουμε το πλαίσιο κειμένου, κάνουμε κλικ στη γραμμή τύπων και επιλέγουμε το κελί που θέλουμε να συνδέσουμε.

Για όποιον ενδιαφέρεται, παραθέτω παρακάτω έναν κώδικα VBA ο οποίος:

• Δημιουργεί και συνδέει τα πλαίσια κειμένου με τα κελιά της περιοχής A2:A100 (που θα μπορούσαν να περιέχουν τις συναρτήσεις)
• Μετονομάζει το κάθε πλαίσιο κειμένου σε "Textbox For " & τη διεύθυνση του κελιού με το οποίο συνδέεται.
• Τοποθετεί τα πλαίσια κειμένου στα διπλανά κελιά της περιοχής A2:A100

Sub CreateTextBoxes()
    Dim shp As Shape, rng As Range, c As Range
    Set rng = Range("A2:A100")
    For Each c In rng
        Set shp = ActiveSheet.Shapes.AddLabel(msoTextOrientationHorizontal, 0, 0, 5, 5)
        shp.Name = "TextBox For " & c.Address(False, False)
        shp.Top = c.Top
        shp.Left = c.Offset(, 1).Left
        shp.Width = c.Offset(, 1).Width
        shp.Height = c.Height
        shp.OLEFormat.Object.Formula = "=" & c.Address
    Next
End Sub

Τάσος