10. august 2006 - 23:03Der er
5 kommentarer og 1 løsning
Formattering af felt før save
Hej,
Jeg har fået hjælp til at lave en makro knap, der gemmer mit regneark og foreslår et filnavn baseret på en række felter i regnearket. Mit problem er at et af disse felter er et firmanavn og dette kan indeholde tegn som ikke er tilladt i et filnavn.
Er det muligt at formatere dette felt når der gemmes, f.eks. ved at fjerne evt. /\ osv.
Min makro ser således ud:
Public Sub GemSom() Dim wshNetwork Set wshNetwork = CreateObject("WScript.Network") fileTosave = "H:\kunder\" & Range("B5") & "_" & Range("I2") & "_" & Format(Range("AI5"), "ddmmyyyy") & "_" & Range("AI11") Flt = "Excel mappe(*.xls),*.xls," Flt = Flt & "Print-filer (*.prn),*.prn," Flt = Flt & "Tekst-filer(*.txt),*.txt" Titel = "Gem Bilag Som!" Filnavn = Application.GetSaveAsFilename(fileTosave, Flt, 1, Titel) If Filnavn = False Then GoTo Afbryd If fileTosave <> False Then ActiveWorkbook.SaveAs Filnavn End If Afbryd: End Sub
I dette særtema ser vi på, hvordan cloud og AI bliver fundamentet for virksomhedernes digitale forretning, og hvordan de nye muligheder for automatisering og forretningsværdi kan udnyttes uden at miste overblik, sikkerhed og menneskelig kontrol.
Sub test() Dim x, y, navn, xnavn navn = Cells(5, 2) For y = 1 To Len(navn) x = Mid(navn, y, 1) If Asc(x) >= 48 And Asc(x) <= 57 Then xnavn = xnavn + x: GoTo om If Asc(x) >= 65 And Asc(x) <= 90 Then xnavn = xnavn + x: GoTo om If Asc(x) >= 97 And Asc(x) <= 122 Then xnavn = xnavn + x om: Next Cells(5, 2) = xnavn End Sub
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.
