Kan man få en TextBox til løbende under indtastning at foreslå tekst ved opslag i en kolonne på et ark? Altså taster jeg "K" og den får en dropdown felt der står Karl,Kim og Kurt under hindanden som jeg kan vælge eller taste videre "Ku" nu står det kun Kurt.
I lang tid har samarbejdsbranchen fokuseret på at forbedre enhedsfunktioner – bedre kameraer, klarere lyd og smartere software. Men den virkelige forvandling handler ikke om funktioner.
Måske kan dette inspirere. Det er en makro, jeg bruger til at rette i 3 forskellige tekstboxe, når der skrives i celle E1. Den henter hele teksten fra bestemte celler. Så fidusen må være at få disse celler til at indeholde det du ønsker at vise.
Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("E1")) Is Nothing Then Dim x As String Dim y As String Dim z As String x = Cells(1, 6) y = Cells(2, 6) z = Cells(3, 6) ActiveSheet.Shapes.Range(Array("Text Box 19")).Select Application.CutCopyMode = False Selection.ShapeRange(1).TextFrame2.TextRange.Characters.Text = x ActiveSheet.Shapes.Range(Array("Text Box 21")).Select Application.CutCopyMode = False Selection.ShapeRange(1).TextFrame2.TextRange.Characters.Text = y ActiveSheet.Shapes.Range(Array("Text Box 23")).Select Application.CutCopyMode = False Selection.ShapeRange(1).TextFrame2.TextRange.Characters.Text = z Range("E1").Select End If End Sub
#4 det kan jeg fint finde ud af, lurede bare på om man kan lave en form for ListBox der forandre sig men man skriver så den giver foreslag til text undervejs, Måske er man tvunget over i en ComboBox for at få det jeg ønsker, vil bare gerne undgå den.
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.