08. februar 2009 - 12:43Der er
11 kommentarer og 2 løsninger
Betinget formatering eller vba
Hej
jeg skal gerne have lavet sådan at vis der i A2 skrives 001 op til om med, 300 skal der automatisk skrives 17:00:00 i G2 det skal være i formatet tt:mm:ss skrives der 301 op til 500 skal der stå 17:15:00 i G2 Skrives der 501 op til 800 skal der stå 17:30:00 i G2 Skrives der 801 op til 1000 skal der stå 17:45:00 i G2
Hvordan gør man det
det skal kunne bruges i A cellerne helt op til celle A1000
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.
Private Sub Worksheet_Change(ByVal Target As Range) If Not Application.Intersect(Target, Range("A1:A1000")) Is Nothing Then Target.Offset(0, 6).NumberFormat = "hh:mm:ss;@" Select Case Target Case 0 To 300 Target.Offset(0, 6) = #5:00:00 PM# Case 301 To 500 Target.Offset(0, 6) = #5:15:00 PM# Case 501 To 800 Target.Offset(0, 6) = #5:30:00 PM# Case Is > 800 Target.Offset(0, 6) = #5:45:00 PM# End Select End If
Hej jeg har et lille problem når jeg puter den i det ark hvor det skal bruges der er i forvejen denne. Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("A2: A1000")) Is Nothing Then Target.Offset(0, 1) = Now
End Sub og arket heder tid. hvordan fixer jeg dette.
Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("A2: A1000")) Is Nothing Then Target.Offset(0, 1) = Now Target.Offset(0, 6).NumberFormat = "hh:mm:ss;@" Select Case Target Case 0 To 300 Target.Offset(0, 6) = #5:00:00 PM# Case 301 To 500 Target.Offset(0, 6) = #5:15:00 PM# Case 501 To 800 Target.Offset(0, 6) = #5:30:00 PM# Case Is > 800 Target.Offset(0, 6) = #5:45:00 PM# End Select End Sub
Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("A2: A1000")) Is Nothing Then Target.Offset(0, 1) = Now Target.Offset(0, 6).NumberFormat = "hh:mm:ss;@" Select Case Target Case 0 To 300 Target.Offset(0, 6) = #5:00:00 PM# Case 301 To 500 Target.Offset(0, 6) = #5:15:00 PM# Case 501 To 800 Target.Offset(0, 6) = #5:30:00 PM# Case Is > 800 Target.Offset(0, 6) = #5:45:00 PM# End Select End if 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.
Ny bruger
Nybegynder
Opret
Preview
