DavidSz
Gebruiker
- Lid geworden
- 26 dec 2019
- Berichten
- 30
Hallo,
In een eerder topic op dit forum vroeg ik hulp om een oplossing te vinden om tekst te genereren.
Topic: https://www.helpmij.nl/forum/showthread.php/957197-Automatisch-text-genereren-op-basis-van-cellen
In dat topic vond ik ook een oplossing, ik ontving volgende codes:
Bovenstaande code genereert het volgende:
Maar nu zou ik deze code lichtjes willen wijzigen, ik kan dit spijtig genoeg niet zelf.
Hieronder visuele uitleg:
VenA:
Norm 1 audit uitgevoerd door Frank boos bij klant op 20-1-2021 volgens offerte 5854585
VenAFR:
Audit Norm 1 effectués par Frank boos chez klant le 20-1-2021 suivant l'offre signée 5854585
VenAEN:
Norm 1 audit performed by Frank boos at klant on 20-1-2021 according to quotation 5854585
Hieronder visuele uitleg met meerdere normen:
VenA:
Norm 1 , Norm 1 audit uitgevoerd door Frank boos bij klant op 20-1-2021 volgens offerte 5854585
VenAFR:
Audit Norm 1 , Norm 1 effectués par Frank boos chez klant le 20-1-2021 suivant l'offre signée 5854585
VenAEN:
Norm 1 , Norm 1 audit performed by Frank boos at klant on 20-1-2021 according to quotation 5854585
Kan iemand mij hier mee helpen? Note ik hoef geen nieuwe code, deze code werkt zeer fijn!
Alvast bedankt, in bijlage een voorbeeld bestand.
Mvg,
David
In een eerder topic op dit forum vroeg ik hulp om een oplossing te vinden om tekst te genereren.
Topic: https://www.helpmij.nl/forum/showthread.php/957197-Automatisch-text-genereren-op-basis-van-cellen
In dat topic vond ik ook een oplossing, ik ontving volgende codes:
PHP:
Function VenA(r1, r2)
ar = r1
For j = 1 To UBound(ar)
If Left(ar(j, 1), 4) = "Cert" Then c00 = c00 & ", " & Replace(Split(ar(j, 1), "- P")(0), "Certificatiekosten", "")
Next j
VenA = Trim(Mid(c00, 3)) & " audit uitgevoerd door " & r2(1, 1) & " op " & IIf(IsDate(r2(2, 1)), Format(r2(2, 1), "d-m-yyyy"), r2(2, 1)) & " volgens offerte " & r2(3, 1)
End Function
PHP:
Function VenAFR(r1, r2)
ar = r1
For j = 1 To UBound(ar)
If Left(ar(j, 1), 5) = "Frais" Then c00 = c00 & ", " & Replace(Split(ar(j, 1), "- P")(0), "Frais de certification", "")
Next j
VenAFR = Trim(Mid(c00, 3)) & " audit effectués par " & r2(1, 1) & " le " & IIf(IsDate(r2(2, 1)), Format(r2(2, 1), "d-m-yyyy"), r2(2, 1)) & " suivant l'offre signée " & r2(3, 1)
End Function
PHP:
Function VenAEN(r1, r2)
ar = r1
For j = 1 To UBound(ar)
If Left(ar(j, 1), 4) = "Cert" Then c00 = c00 & ", " & Replace(Split(ar(j, 1), "- P")(0), "Certification fee", "")
Next j
VenAEN = Trim(Mid(c00, 3)) & " audit performed by " & r2(1, 1) & " on " & IIf(IsDate(r2(2, 1)), Format(r2(2, 1), "d-m-yyyy"), r2(2, 1)) & " according to quotation " & r2(3, 1)
End Function
Bovenstaande code genereert het volgende:
PHP:
VenA:
Norm 1 audit uitgevoerd door Frank boos op 20-1-2021 volgens offerte 5854585
PHP:
VenAFR:
Norm 1 audit effectués par Frank boos le 20-1-2021 suivant l'offre signée 5854585
PHP:
VenAEN:
Norm 1 audit performed by Frank boos on 20-1-2021 according to quotation 5854585
Maar nu zou ik deze code lichtjes willen wijzigen, ik kan dit spijtig genoeg niet zelf.
- Klanten naam toevoegen (bij de 3 talen, klantennaam uit cel A2 halen)
- Bij de Franse versie de volgorde van de tekst veranderen
- Als er meerdere normen zijn dan zet hij een comma + twee spaties dit moet 1 spatie worden
Hieronder visuele uitleg:
VenA:
Norm 1 audit uitgevoerd door Frank boos bij klant op 20-1-2021 volgens offerte 5854585
VenAFR:
Audit Norm 1 effectués par Frank boos chez klant le 20-1-2021 suivant l'offre signée 5854585
VenAEN:
Norm 1 audit performed by Frank boos at klant on 20-1-2021 according to quotation 5854585
Hieronder visuele uitleg met meerdere normen:
VenA:
Norm 1 , Norm 1 audit uitgevoerd door Frank boos bij klant op 20-1-2021 volgens offerte 5854585
VenAFR:
Audit Norm 1 , Norm 1 effectués par Frank boos chez klant le 20-1-2021 suivant l'offre signée 5854585
VenAEN:
Norm 1 , Norm 1 audit performed by Frank boos at klant on 20-1-2021 according to quotation 5854585
Kan iemand mij hier mee helpen? Note ik hoef geen nieuwe code, deze code werkt zeer fijn!
Alvast bedankt, in bijlage een voorbeeld bestand.
Mvg,
David
Bijlagen
Laatst bewerkt: