Søg
Avatar billede allanfrisk Novice
18. maj 2006 - 19:19 Der er 11 kommentarer og
3 løsninger

konverterer en værdi til tekst

Hej Jeg har oprettet et excelark hvor jeg får oplysningerne fra Access. Problemet er at når jeg opdaterer felter i excel som er afkrydsningsfelter i access, så returnerer den værdien i 0 og 1 taller.
Findes der en funktion som automatisk kan ændre 1 tallerne til X og slette 0érne, så man får en form for afkrydset regneark.

Allan
Avatar billede excelent Ekspert
18. maj 2006 - 20:25 #1
Sub konverter()

Dim r, k

For r = 1 To 100
For k = 1 To 50
If Cells(r, k) = 0 Then Cells(r, k) = ""
If Cells(r, k) = 1 Then Cells(r, k) = "X"
Next
Next

End Sub
Avatar billede allanfrisk Novice
19. maj 2006 - 07:06 #2
perfekt. Lige et tillægsspørgsmål... Kan man få et excelark til at afspille denne makro ved åbning af dokumentet.
Smid et svar så kommer der point.
Avatar billede excelent Ekspert
19. maj 2006 - 08:25 #3
ja, læg subben ind i This workbook
Avatar billede allanfrisk Novice
19. maj 2006 - 14:35 #4
det virker ikke. Jeg skal kun opdaterer nogle enkelte celler da andre celler indeholder mobilnumre der ikke skal laves om til tekst.
Dit forslag vil knoverterer hele arkets 1 og 0ér til tekst.
Avatar billede excelent Ekspert
19. maj 2006 - 15:46 #5
det er kun de celler hvor der står enten et 1 tal eller 0 som påvirkes

et telefon nr. som fx. i en celle 10101020 ændres ikke
Avatar billede excelent Ekspert
19. maj 2006 - 15:55 #6
og så skal første linie ændres sådan :

Private Sub workbook_open()

Dim r, k

For r = 1 To 100
For k = 1 To 50
If Cells(r, k) = 0 Then Cells(r, k) = ""
If Cells(r, k) = 1 Then Cells(r, k) = "X"
Next
Next

End Sub
Avatar billede excelent Ekspert
19. maj 2006 - 15:57 #7
subben retter i række 1-100 og kolonne A til AX - ret efter behov
Avatar billede allanfrisk Novice
20. maj 2006 - 08:50 #8
jeg har lagt koden ind i this workbook, men der sker ikke noget.

koden ser sådan ud:
Private Sub workbook_open()

Dim r, k

For r = 2 To 100
For k = 4 To 50
If Cells(r, k) = 0 Then Cells(r, k) = ""
If Cells(r, k) = 1 Then Cells(r, k) = "X"
Next
Next

End Sub
Avatar billede excelent Ekspert
20. maj 2006 - 10:18 #9
koden bliver afviklet, når du åbner projektmappen
Avatar billede excelent Ekspert
20. maj 2006 - 10:22 #10
hvis den også skal kunne køres efter projektmappen er åbnet, skal du have koden i et alm. modul også, men husk her skal første linie hedde 'Sub konverter()' el. lign.
Avatar billede excelent Ekspert
20. maj 2006 - 12:04 #11
jeg går ud fra vi taler om en og samme projektmappe, og der ikke er andre involveret
Avatar billede allanfrisk Novice
20. maj 2006 - 14:12 #12
ja det er en mappe. Har ikke lige fået pøvet det endnu. vender tilbage senere.
Avatar billede excelent Ekspert
04. juni 2006 - 16:08 #13
Hvor langt er du nået ?
Avatar billede excelent Ekspert
16. juni 2006 - 19:57 #14
*
Avatar billede Ny bruger Nybegynder

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.

Loading billede Opret Preview
Kategori
Excel kurser
Excel kurser for alle niveauer og behov – find det kursus, der passer til dig
Se alle Excel kurser

Flere spørgsmål fra Excel kategorien

Titel Indlæg Oprettet Seneste aktivitet
Kan Excel selv beregne alder? Af leahcim i Excel 4 31/08/202610:24 31/08/202612:26
problem med mailbesked Af Pestilensen i Excel 3 24/08/202611:16 28/08/202612:55
Sætte billeder ind i google sheets ark ud fra elev nummer Af lurup i Excel 16 17/08/202615:14 27/08/202601:20
Gemme største værdi Af Lemming@privat.dk i Excel 2 07/08/202622:13 08/08/202609:03
Forskel mellem klokkeslet start aften slut næste morgen Af krasmussen i Excel 13 24/07/202611:08 03/08/202618:42
Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
31/0810:26 Synkronisering af kalender mellem computer, android telefon og iPhone Af Strawberry i Andre onlineløsninger
31/0810:24 Kan Excel selv beregne alder? Af leahcim i Excel
30/0815:02 Gemme besked fra Facebook / Messenger Af lurup i Sociale medier
29/0820:17 Kan man kopiere en DVD og afspille den på * Linux Mint - Cinnamon - 22.1 - "Xia" * ? Af Ikke-ekspert i Linux
27/0821:03 Kan man få Word viewer gratis Af Strawberry i Word
White papers
Flere white papers »