31. maj 2008 - 12:35Der er
14 kommentarer og 2 løsninger
Tillæg en fast værdi hvis en celleværdi er under 1
Jeg har et regneark hvori der er en kolonne med 20 felter feks.(E4:E24) og som efterhånden vil blive udfyldt med talværdier på enten 0, 1 eller 2.
Mit ønske er, at når jeg i en celle i nævnte kolonne indtaster en værdi som er mindre end 1 skal et andet felt i arket feks. U20 tillægges et tal på 25.
Eksempel: I felt nr. E5 har jeg indtastet værdien 0 og der vil så blive tillagt en værdi på 25 i feltet U20 således at der i feltet nu står 25.
Nu indtaster jeg så i felt nr. E15 yderligere et 0 og så skal der tillægges yderligere 25 til felt U20 således at tallet i U20 nu er 50.
Er her mon een kvik person som kender tricket/formlen?
Den moderne arbejdsplads er i stigende grad afhængig af mødelokaler til at fremme samarbejde, men dette skift medfører også stigende sikkerhedsudfordringer.
Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, Range("E4:E24")) Is Nothing Then Exit Sub If Target < 1 Then [U20] = [U20] + 25 End Sub
Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, Range("E4:E24")) Is Nothing Then Exit Sub [U20] = 0 For Each c In Range("E4:E24").Cells If Not IsEmpty(c) And c.Value < 1 Then [U20] = [U20] + 25 Next End Sub
Så er jeg her også igen. Underligt... den ligger ikke kun 25 til nu, men derimod dobler den tallet i U20 i stedet! Efterhånden som jeg i kollonnen (E4:E24) indskriver et antal 0 værdier forsvinder også den fordobling?
Takker og lukker for denne gang. Skulle nogen af jer have erfaring med at oploade direkte fra Excel til domænenavn hører jeg gerne om det og giver bestemt også point derefter ;-)
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.
