bardisse قام بنشر مارس 2, 2020 قام بنشر مارس 2, 2020 لسلام عليكم عملت كود جميل جدا كل ما يمضي يوم الا و التاريخ يتوقف فلا تستطيع الرجوع الى الوراء اريد ان تساعدوني في اللمسة الاخيرة فقط اريد اذا مضى اليوم الاول يكتب في 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
bardisse قام بنشر مارس 2, 2020 الكاتب قام بنشر مارس 2, 2020 الملف المرفق الرقم السري youyouss youcef.xlsm
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.