اذهب الي المحتوي
أوفيسنا

الردود الموصى بها

قام بنشر

لسلام عليكم عملت كود جميل جدا كل ما يمضي يوم الا  و التاريخ يتوقف فلا تستطيع الرجوع الى الوراء  اريد ان تساعدوني في اللمسة الاخيرة فقط اريد اذا مضى اليوم الاول يكتب في c1  رقم 1  و اذا مضى اليوم الثاني يكتب في c2 رقم 2     الى غاية مضي اليوم الخامس يكتب في c5 رقم 5   اليكم الملف  رجاءا ان تساعيدوني   

   

                                                 الكود الاول                                              هذا الكود خاص بتجميد الوقت لكن يحتاج الى تعديل انا عاجز و شعري شاب من هذا الكود

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$C$1" Then Exit Sub
[A1].Value = [A1]
If [c1] = "" Then [A1].FormulaR1C1 = "=NOW()"

If Target.Address <> "$C$2" Then Exit Sub
[a2].Value = [a2]
If [c2] = "" Then [a2].FormulaR1C1 = "=NOW()"

If Target.Address <> "$C$3" Then Exit Sub
[A3].Value = [A3]
If [c3] = "" Then [A3].FormulaR1C1 = "=NOW()"

If Target.Address <> "$C$4" Then Exit Sub
[A4].Value = [A4]
If [c4] = "" Then [A4].FormulaR1C1 = "=NOW()"

If Target.Address <> "$C$5" Then Exit Sub
[A5].Value = [A5]
If [c5] = "" Then [A5].FormulaR1C1 = "=NOW()"

End Sub
 

 

الكود الثاني  خاص بلصق الارقام  في الخلية c1 ,c2 c3 c4 c5

لكن ينقل الخلية c1 فقط المشكل مازال قائم في عدم اللصق في الخلية c1,c2,c3,c4,c4

ارجو المساعدة
Const Warning As String = "Warning"
Private Sub Workbook_Open()
If Cells(1, 1) > Cells(1, 2) Then
Cells(1, 3) = 1
ElseIf Cells(2, 1) > Cells(2, 2) Then
Cells(2, 3) = 1
ElseIf Cells(3, 1) > Cells(3, 2) Then
Cells(3, 3) = 2
ElseIf Cells(4, 1) > Cells(4, 2) Then
Cells(4, 3) = 3
ElseIf Cells(5, 1) > Cells(5, 2) Then
 Cells(5, 3) = 4
End If
End Sub

 

 

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information