|
Erik Østergaard - Source code snippets / Kildekode småstykker |
|
|
|
Erik Østergaard - Source code snippets / Kildekode småstykker |
|
|
|
|
|
|
| Bottom of This Page |
|
BASIC (Beginner's All-purpose Symbolic
Instruction Code) source code snippets /
BASIC (Beginner's All-purpose Symbolic
Instruction Code) kildekode småstykkerJoin multiple Microsoft Office Excel Workbook cells with a delimiter. Empty cells are ignored. / Sammenføj flere Microsoft Office Excel Arbejdsbog celler med et skilletegn. Tomme celler ignoreres.
Description: Concatenate multiple Microsoft Office Excel Workbook cells with a delimiter. Empty cells are ignored. For example if you have a column with Given name and one with Surname you can join them into a new column Name with a space between them. Or if you have a column with E-mail addresses you can join them separated with a character for example a semi-colon or a comma depending on your mail program if you want to send the same E-mail to many recipients at one time. / Beskrivelse: Sammenkæd flere Microsoft Office Excel Arbejdsbog celler med et skilletegn. Tomme celler ignoreres. For eksempel hvis du har en kolonne med Fornavn og en med Efternavn, kan du sammenføje dem i en ny kolonne Navn med et mellemrum mellem dem. Eller hvis du har en kolonne med E-mail adresser, kan du sammenføje dem adskilt med en karakter for eksempel et semikolon eller et komma afhængigt af dit mailprogram, hvis du ønsker at sende den samme E-mail til flere modtagere på én gang.
Developed and tested under Microsoft Office Excel 2003 - English version. / Udviklet og testet under Microsoft Office Excel 2003 - engelsk version.
Excel: / Excel:
' All variables must be declared before use.
Option Explicit
Public Function doJoin(rng As Range, delimiter As String) As String
' Join multiple cells with a delimiter. Empty cells are ignored.
Dim cell As Range
For Each cell In rng
If Not cell.Text = "" Then
doJoin = doJoin & cell.Text & delimiter
End If
Next cell
' Remove the last delimiter.
If Len(doJoin) >= (1 + Len(delimiter)) Then
doJoin = Left(doJoin, Len(doJoin) - Len(delimiter))
End If
End Function
Conventions used for: Source code syntax highlighting. / Regler brugt til: Kildekode syntaks fremhævning.
=doJoin(C4:C7;";") ' OS with ; list separator / OS med ; listeseparator.
=doJoin(C4:C7,";") ' OS with , list separator or in a macro code / OS med , listeseparator eller i en makro kode.
Conventions used for: Source code syntax highlighting. / Regler brugt til: Kildekode syntaks fremhævning.
To use the formula, simply type it into a cell like a regular formula. You will have to fill out with your choice of an Excel range and your choice of a delimiter. / For at bruge formlen, skal du blot skrive den i en celle ligesom en almindelig formel. Du bliver nødt til at udfylde med dit valg af et Excel-interval og dit valg af et skilletegn.
In the syntax example above the delimiter
is a ";" semi-colon but if it is
a list of E-mail addresses some mail programs use
"," comma instead as
delimiter. / I syntaks eksemplet ovenfor er
skilletegnet et ";"
semikolon, men hvis det er en liste over E-mail
adresser, bruger nogle mailprogrammer
"," komma i stedet som
skilletegn.
Example: Spreadsheet (worksheet). / Eksempel: Regneark.
|
||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
Rest your mouse pointer in
the spreadsheet (worksheet) on the desired
"formula" and see which range is
selected. /
Hvil musemarkøren i regnearket
på den ønskede
"formel" og se, hvilket
område der er valgt.
In the example above column
"E" shows the function (code) used in column
"D" with ";" semi-colon
as list separator. Depending on your operating system (OS)
you may have to use "," comma
instead. / I eksemplet ovenfor viser kolonne
"E" den anvendte funktion (kode) brugt i
kolonne "D" med ";"
semikolon som listeseparator. Afhængigt af dit
operativsystem (OS) kan du være nødt til at
bruge "," komma i stedet.
In the example above row "15" shows the function (code) used in row "14" and row "17" shows the function (code) used in row "16". / I eksemplet ovenfor viser række "15" den anvendte funktion (kode) brugt i række "14" og række "17" den anvendte funktion (kode) brugt i række "16".
Now you have in the example above in row "14" or in row "16" your E-mail address list separated in a text string and ready to copy and paste into your favorite E-mail program. See below: Advice on how to send Email to many recipients at one time. / Nu har du i eksemplet ovenfor i række "14" eller i række "16" din E-mail adresse liste adskilt i en tekst streng og klar til at kopiere og indsætte i dit foretrukne E-mail program. Se nedenfor: Rådgivning om, hvordan du sender e-mail til mange modtagere på én gang.
Note in the example above that "A6" Smith have no given name and no E-mail address. / Bemærk i eksemplet ovenfor, at "A6" Smith har ikke noget fornavn og ingen E-mail adresse.
Tips: / Tips:
In
Excel 2016, Excel Online, with more you can use the
TEXTJOIN function, one of the text
functions in Microsoft Excel. Description: The
TEXTJOIN function combines the text
from multiple ranges and/or strings, and includes
a delimiter you specify between each text value
that will be combined. If the delimiter is an
empty text string, this function will effectively
concatenate the ranges. Syntax:
TEXTJOIN(delimiter, ignore_empty, text1, [text2], ...)TRUE, ignores empty
cells. Example:
=TEXTJOIN(";";TRUE;C4:C7)=TEXTJOIN(";",TRUE,C4:C7)
=TEXTJOIN(",";TRUE;C4:C7)=TEXTJOIN(",",TRUE,C4:C7)
I
Excel 2016, Excel Online med flere kan du bruge
TEKST.KOMBINER-funktion, en af
tekstfunktionerne i Microsoft Excel. Beskrivelse:
Funktionen TEKST.KOMBINER kombinerer
teksten fra flere områder og/eller strenge
og indeholder en afgrænser, du angiver
mellem hver tekstværdi, der skal kombineres.
Hvis afgrænseren er en tom tekststreng,
sammenføjer denne funktion effektivt
områderne. Syntaks:
TEKST.KOMBINER(afgrænser, ignore_empty, tekst1; [tekst2]; ...)SAND, ignorerer tomme
celler. Eksempel:
=TEKST.KOMBINER(";";SAND;C4:C7)=TEKST.KOMBINER(";",SAND,C4:C7)
=TEKST.KOMBINER(",";SAND;C4:C7)=TEKST.KOMBINER(",",SAND,C4:C7)
Below is a non-working screenshot
(or screen dump, a term used for an accurate transcript
of the current screen) »image« of a part of an E-mail program. /
Nedenfor er et ikke virkende screenshot
(eller screen dump, et udtryk der bruges for en
nøjagtig udskrift af det aktuelle skærmbillede) »billede«
af en del af et E-mail program.
Screenshot
of a part of an E-mail program: E-mail message > New Message.
Screenshot af en del af et E-mail program: E-mail-meddelelse > Ny meddelelse.
In your mail
It is suggested that you fill in the "to"
field with your "from" e-mail
address. / Det foreslås, at du udfylder
"til" feltet med din "fra"
e-mail-adresse.
In the "bcc" field fill in with the e-mail
addresses you just generated in your
spreadsheet (worksheet). /
I "bcc" feltet udfyld med de
e-mail-adresser, du lige genererede i
regnearket.Your mail provider may have a maximum number of how many recipients there can be sent to at the same time. In this case it may be necessary to divide and distribute the recipients over several mails. / Din mail-udbyder kan have et maksimalt antal på, hvor mange modtagere der kan sendes til samtidigt. I dette tilfælde kan det være nødvendigt at opdele og fordele modtagerne over flere mails.
- sorted by relevance to this article. /
- sorteret efter relevans for denne artikel.
cc,
abbreviation: / 
cc,
forkortelse: carbon
copy, used as an indication that a duplicate has
been or should be sent to another person. / carbon
copy (karbonkopi), bruges som en indikation af, at en kopi
er blevet eller skal sendes til en anden person. bcc,
abbreviation: / bcc,
forkortelse: blind
carbon copy, a copy of an e-mail sent to someone whose name
and address isn't visible to other recipients. / blind
carbon copy (blindkopi), en kopi af en e-mail sendt til
en person, hvis navn og adresse ikke er synlig for
andre modtagere.Source code snippets / Kildekode småstykkerThe code might need some minor tweaks to run in your application. / Koden kan behøve nogle mindre ændringer for at kunne afvikles i dit anvendelsesområde.
Licence: Free to use, but please
share improvements.
No warranty - use at own risk. /
Licens: Fri brug, men
del venligst forbedringer.
Ingen garanti - brug på eget ansvar.
Warning: Don't run the script files
without reading them first!
Total absence of any guarantee, warranty, or
responsibility for script files, the script(s), the files they
may produce, or the effects the script(s) or script-produced
files may have. The script(s) is, after all, plain text. The
burden is on the person using the script(s) to examine
the script source code and determine whether or not a script is
usable and safe. Operating systems and browsers are constantly
changing. What works today may not work tomorrow!
Advarsel: Kør ikke script-filerne
uden at læse dem først!
Totalt fravær af nogen form for garanti,
garanti eller ansvar for script-filer, scriptet(scriptene), de
filer, de kan producere eller de virkninger, scriptet(scriptene)
eller scriptproducerede filer kan have. Scriptet(Scriptene) er,
trods alt, almindelig tekst. Byrden er på brugeren af
scriptet(scriptene) til at undersøge script kildekoden og
afgøre, hvorvidt et script er brugbart og sikkert.
Operativsystemer og browsere er under konstant forandring. Hvad
fungerer i dag, fungerer muligvis ikke i morgen!
|
|
|
|
|
|
|
|
|
|
|
|
|