מאנטאג יולי 14, 2014 4:45 pm
מאנטאג יולי 14, 2014 4:50 pm
למעלה משבעים האט געשריבן:די פראבלעם דערמיט איז אז ער טוישט זיך יעדע מאל די עפנסט די פייל
מאנטאג יולי 14, 2014 4:52 pm
למעלה משבעים האט געשריבן:F2
מאנטאג יולי 14, 2014 4:54 pm
מאנטאג יולי 14, 2014 5:04 pm
מאנטאג יולי 14, 2014 5:04 pm
מאנטאג יולי 14, 2014 5:06 pm
מאנטאג יולי 14, 2014 5:12 pm
מאנטאג יולי 14, 2014 5:17 pm
מאנטאג יולי 14, 2014 5:25 pm
דינסטאג יולי 15, 2014 8:15 am
דינסטאג יולי 15, 2014 8:37 am
דינסטאג יולי 15, 2014 9:03 am
דינסטאג יולי 15, 2014 11:19 am
בנימין הלוי האט געשריבן:געזוכט עפעס וואס ארבעט אטומאטיש אבער דאס העלפט אויך, א דאנק אייך
למעשה האב איך געטראפן א מעקרא וואס צייכנט די צייט http://excel.tips.net/T003116_Recording ... _Time.html אבער איך זוך נאר דעם דאטום. קענט איר מאדיפיצירן די קאוד ביטע? א גרויסן שכוח מראש
- קאוד:
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim rCell As Range
Dim rChange As Range
On Error GoTo ErrHandler
Set rChange = Intersect(Target, Range("A:A"))
If Not rChange Is Nothing Then
Application.EnableEvents = False
For Each rCell In rChange
If rCell > "" Then
With rCell.Offset(0, 1)
.Value = Now
.NumberFormat = "hh:mm:ss"
End With
Else
rCell.Offset(0, 1).Clear
End If
Next
End If
ExitHandler:
Set rCell = Nothing
Set rChange = Nothing
Application.EnableEvents = True
Exit Sub
ErrHandler:
MsgBox Err.Description
Resume ExitHandler
End Sub
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim rCell As Range
Dim rChange As Range
On Error GoTo ErrHandler
Set rChange = Intersect(Target, Range("A:A"))
If Not rChange Is Nothing Then
Application.EnableEvents = False
For Each rCell In rChange
If rCell > "" Then
With rCell.Offset(0, 1)
.Value = Date
'.NumberFormat = "hh:mm:ss"
End With
Else
rCell.Offset(0, 1).Clear
End If
Next
End If
ExitHandler:
Set rCell = Nothing
Set rChange = Nothing
Application.EnableEvents = True
Exit Sub
ErrHandler:
MsgBox Err.Description
Resume ExitHandler
End Sub
דינסטאג יולי 15, 2014 11:24 am
.Value = Date
'.NumberFormat = "hh:mm:ss"
דינסטאג יולי 15, 2014 11:49 am
דינסטאג יולי 15, 2014 11:51 am
דינסטאג יולי 15, 2014 11:58 am
דינסטאג יולי 15, 2014 12:17 pm
למעלה משבעים האט געשריבן:פאטאקי מעגסט ענטפערן גראד אויך...
בנימין, די שטרעכל בעפאר די שורה מאכט ער זאל אויסלאזן די ליין.
דינסטאג יולי 15, 2014 12:29 pm
דינסטאג יולי 15, 2014 12:56 pm
מצב כללי האט געשריבן:איך וויל אטז די נייע צוגעלייגטע שורה אזל אויך ווערן ארומגענומען מיט ליינס אזוי ווי די פיערדיגע שורות איך סעלעקט עס און קליק אויף WRAP TEXT אבער עס געשעט נישט גארנישט?
דינסטאג יולי 15, 2014 12:59 pm
דינסטאג יולי 15, 2014 1:00 pm
בנימין הלוי האט געשריבן:פאטאקי איך בין נאכנישט פארטיג, האסט א מינוט? כ'וויל די זעלבע פאר קאלום E
תודה
דינסטאג יולי 15, 2014 1:01 pm
דינסטאג יולי 15, 2014 1:51 pm
מצב כללי האט געשריבן:מצב כללי האט געשריבן:איך וויל אטז די נייע צוגעלייגטע שורה אזל אויך ווערן ארומגענומען מיט ליינס אזוי ווי די פיערדיגע שורות איך סעלעקט עס און קליק אויף WRAP TEXT אבער עס געשעט נישט גארנישט?
עני העלפ?