13. oktober 2006 - 08:02Der er
10 kommentarer og 1 løsning
Commandbuttons, userforrms etc. En masse spm. Fra tyve point.
1. Kan man få andre farver på commandbuttons og userforms end hvis , grå, sort og blå? Feks lys gul, og i så fald hvorledes. 20 p
2. Har en knap med betegnelsen LUK hvad skriver jeg i koden for at lukke userformen ;O)20 p
3. I Userformen er deret tekstfelt hvor der skal indtastes et kundenr. Kan jeg tjekke i feks et ark om kunden eksistere( eller om en fil for kunden eksisterer h:\kunder\xxxx.xls) og så få en fejlmeddelse hvis ikke den findes og gå tilbage til indtastninsfeltet. 40 p
4. I userformen har jeg to textfelter. Hvad gør jeg for at markøren står i første felt som udgangspunkt? 20 p
5. Kan jeg i mit excelark nulstille(de skal være tomme) alle felter når det hver morgen åbnes - og hvordan? 20 p
6. Har nogle afkrysningsfelter hvor der er muligt at sætte flueben. Når der indtastes et nyt kundenummer vil jeg gerne at disse nulstilles. Er dette muligt? 40 p
Det var vist det vigtigste lige her og nu. Og så lidt ekstar point hvis behovet skulle opstå ;O)
Den moderne arbejdsplads er i stigende grad afhængig af mødelokaler til at fremme samarbejde, men dette skift medfører også stigende sikkerhedsudfordringer.
Herer lidt: 1) I egenskaber (properties) for f.eks. en knap/form m.v. - kan du selv vælge baggrundsfarver (Backcolor) via paletten, der vises. 2) unload UserformX 4) tekstfelt.setfocus 6) chBoks.value = false
6) kan jeg ikke få til at virke. Kun hvis jeg laver 300 linier hvor der stor checkboks1.value = false chechboks2. value = false . . .
4) fik jeg heller ikke til at virke. Selv om jeg skrive at den 1 tekst npx skulle være i fokus. Placerede cursoren sig i den nederste. Løste det ved at flytte rundt på de to tekstboxe. Dårlig løsning men det virkede i hvert fald.
Der kommer en fejlmeddelse: Method or data member not found
Og følgende er markeret Controls("CheckBox" & C) =
Udtrykket er sat ind her
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$D$3" Then Dim Sti As String, RW As Long, Linie As String, i Range("A9:A100").ClearContents ' tømmer fra A7 til A100 inden koden køres Range("C9:C100").ClearContents 'tømmer fra C7 til C100 inden koden køres Range("H9:H100").ClearContents 'tømmer fra H7 til H100 inden koden køres Range("G9:G100").ClearContents 'tømmer fra I7 til I100 inden koden køres 'Range("O9:O100").ClearContents 'tømmer fra P7 til P100 inden koden køres
For C = 1 To 300 'første og sidste checkboks nummer Me.Controls("CheckBox" & C) = False Next
hmm nu har jeg fået det til at virke lidt. Men det er godt nok tungt, så er ikke sikker på det kan bruges.
Det jeg bruger det til er at man i nogle forskellige varelinier kan markere om der er en fejl. Dvs de har mulighed for at sætte flueben, hvis der er en fejl. der kan være mange linier.
Når dette er gjort kan de sende en mail til mig med en kopi af arket vedhæftet. Når brugeren så skal videre til næste pakke nr skal man starte fra scratch, dvs der skal ingen flueben være.
Men det at sende tager meget lang tid. Det er også derfor jeg havde håbet man kunne bruge alm afkrysnings felter og så nulstille disse når man indtatser næste pakkenr.
LN
Synes godt om
Ny brugerNybegynder
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.
