أكاديمية الصقر للتدريب

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
EM_ACC مجدى يونس-- لا تميز خلال هذه الفترة لا تميز خلال هذه الفترة بحاجة الى كود ترحيل اكسيل اسئله واجابات


أهلا وسهلا بك زائرنا الكريم في أكاديمية الصقر للتدريب، لكي تتمكن من المشاركة ومشاهدة جميع أقسام المنتدى وكافة الميزات ، يجب عليك إنشاء حساب جديد بالتسجيل بالضغط هنا أو تسجيل الدخول اضغط هنا إذا كنت عضواً .





دمج كودين

السلام عليكم اريد دمج الكودين في حدث الورفة الكود الاول : عبارة عن قفل الخلية بعد الكتابة [code]SWYgTWUuW1IxXSBUaGVuIEV ..



subject icon غير مجابة دمج كودين
06-02-2021 11:43 صباحا
محمد الخازمي
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 29-11-2017
رقم العضوية : 1995
المشاركات : 53
الجنس : ذكر
تاريخ الميلاد : 21-9-1975
يتابعهم : 0
يتابعونه : 2
قوة السمعة : 35
 offline 

السلام عليكم اريد دمج الكودين في حدث الورفة
الكود الاول : عبارة عن قفل الخلية بعد الكتابة

If Me.[R1] Then Exit Sub
    If Not Application.Intersect(Target, Range("D4:q39")) Is Nothing Then
        Application.EnableEvents = False
        Application.Undo
        Application.EnableEvents = True
        MsgBox "ÎáíÉ ããÊáÆÉ"
    End If


الكود الثاني تلوين الصف والعمود النشط


    Application.ScreenUpdating = False
       Range("IP1").Value = Target.Address
    Application.ScreenUpdating = True
 
 
  دمج.rar   تحميل rar مرات التحميل :(3)
الحجم :(13.872) KB


06-02-2021 12:04 مساء
مشاهدة مشاركة منفردة [1]
حسين مامون
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 23-08-2017
رقم العضوية : 69
المشاركات : 172
الجنس : ذكر
الدعوات : 1
يتابعهم : 5
يتابعونه : 12
قوة السمعة : 957
عدد الإجابات: 22
 offline 
look/images/icons/i1.gif دمج كودين
هذا مثال عن دمح كودين في حدث Private Sub Worksheet_Activate()
Sub test1()
Dim LR
Dim WS As Worksheet
Set WS = Sheets("data")
LR = WS.Cells(Rows.Count, 1).End(3).Row + 1
WS.Range("a" & LR).Value = 2021

End Sub
'====================


Sub test2()
Dim LR
Dim WS As Worksheet
Set WS = Sheets("data")
LR = WS.Cells(Rows.Count, 2).End(3).Row + 1
WS.Range("b" & LR).Value = Date

End Sub



وهنا  دمجهما
Private Sub Worksheet_Activate()
test1
test2
End Sub





الكلمات الدلالية
كودين ،


 










اخلاء مسئولية: يخلى منتدى أكاديمية الصقر للتدريب مسئوليته عن اى مواضيع او مشاركات تندرج داخل الموقع ويحثكم على التواصل معنا ان كانت هناك اى إنتهاكات تتضمن اى انتهاك لحقوق الملكية الفكرية او الادبية لاى جهة - بالتواصل معنا من خلال نموذج مراسلة الإدارة .وسيتم اتخاذ الاجراءات اللازمة.
سياسة النشر: التعليقات المنشورة لا تعبر عن رأي منتدى أكاديمية الصقر للتدريب ولا نتحمل أي مسؤولية قانونية حيال ذلك ويتحمل كاتبها مسؤولية النشر.

الساعة الآن 07:13 صباحا