08. maj 2008 - 17:46Der er
8 kommentarer og 1 løsning
Sammenligning og visning af inputdata fra userform via VB
Jeg har lavet en userform som gemmer indtastningerne i dataarket ”DATA”. Det jeg godt kunne tænke mig er at en indtastet værdi ”Varenummer”, under indtastningen, sammenlignes med værdierne der allerede findes i dataarket ”DATA”. Hvis den indtastede værdi ”Varenummer” findes i dataarket ”DATA” kommer der en alertbox indeholdende værdien ”Bemærkning”. Hvis værdien ”Varenummer” fremkommer flere gange i dataarket ”DATA” skal alle værdierne ”Bemærkning” vises i alertbox. Hvis det ikke er muligt skal ”Bemærkning” fra den første række indeholdende ”Varenummer” fremkomme i alertboksen.
Dataarket DATA har følgende kolonner:
Dato Reg. Tid Klokkeslæt Maskine Varenummer PladeID Pladeordre Ordrenummer Arbejdsnr (Opstart) Arbejdsnr (Afslutning) Emner Kasserede Fejltype Bemærkning Afdeling Lokation
Håber beskrivelsen gav mening ellers send en kommentar, så jeg kan uddybe problemstillingen.
I dette særtema om aspekter af AI ser vi på skiftet fra sprogmodeller til AI-agenter, og hvordan virksomheder kan navigere i spændet mellem teknologisk hastighed og behovet for menneskelig kontrol.
Const startRæk = 8 Rem Indsatte Sub/Function ******************************************* Private Sub txtVarenummer_Exit(ByVal Cancel As MSForms.ReturnBoolean) Dim bemærk As String, ark As Worksheet Set ark = ActiveWorkbook.Sheets("Data") ark.Activate antalræk = ActiveCell.SpecialCells(xlLastCell).Row
If Me.txtVarenummer <> "" Then bemærk = findesVarenr(startRæk, antalræk, Me.txtVarenummer) If bemærk <> "" Then MsgBox ("Varenr. " + Me.txtVarenummer + " findes med følgende bemærkninger" + vbCr + bemærk) End If End If End Sub Private Function findesVarenr(startRæk, slutRæk, vnr) findesVarenr = "" For ræk = startRæk To slutRæk If CStr(Cells(ræk, 5)) = vnr Then findesVarenr = findesVarenr + Cells(ræk, 14) + vbCr End If Next ræk End Function Rem *****************************************************************
Rem Version 2 Const startRæk = 8 Rem Indsatte Sub/Function ******************************************* Private Sub txtVarenummer_Exit(ByVal Cancel As MSForms.ReturnBoolean) Dim bemærk As String, ark As Worksheet Set ark = ActiveWorkbook.Sheets("Data") ark.Activate antalræk = ActiveCell.SpecialCells(xlLastCell).Row
If Me.txtVarenummer <> "" Then bemærk = findesVarenr(startRæk, antalræk, Me.txtVarenummer) If bemærk <> "" Then MsgBox ("Varenr. " + Me.txtVarenummer + " findes med følgende bemærkninger" + vbCr + bemærk) End If End If End Sub Private Function findesVarenr(startRæk, slutRæk, vnr) findesVarenr = "" For ræk = startRæk To slutRæk If CStr(Cells(ræk, 5)) = vnr Then Rem Tilføj kun bemærkning, hvis denne eksisterer If Cells(ræk, 14) <> "" Then findesVarenr = findesVarenr + Cells(ræk, 14) + vbCr End If End If Next ræk End Function Rem *****************************************************************
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.
