اريد كود التنقل بين اربع خلايا متكرر

[محمد الورفلي1]

السلام عليكم

 

اريد كود عند الضغط على مفتاح الاختيار  ينتقل الى  d10 وعند النقر مره اخرى ينتقل الى d11 وعند النقر مره اخرى ينتقل الىd12 وعند النقر مره اخرى ينتقل الى d13 وعند النقر مره اخرى ينتقل من البداية من d10 بمعنى يتنقل فى حركة تكرار

 

 

 

التنقل بين اربع خلايا.rar

تم تعديل مايو 5, 2015 بواسطه محمد الخازمي

[ياسر خليل أبو البراء]

أخي الفاضل محمد الخازمي

بدون أكواد وبدون معادلات وبدون تعب (الكسل حلو وجميل !!)

حدد النطاق D10:D13 بس خلاص (هههههههههه) آه والله زي ما بقولك كدا

حددت النطاق ضع مؤشر الماوس في شريط المعادلات وابدأ عملية إدخال البيانات ولما توصل لآخر خلية اللي هي D13 وتضغط مفتاح إنتر هتلاقي الخلية D10 متحددة يبقا كدا من غير تعب ولا أكواد

تقبل تحياتي

[محمد الورفلي1]

أخي الفاضل محمد الخازمي

بدون أكواد وبدون معادلات وبدون تعب (الكسل حلو وجميل !!)

حدد النطاق D10:D13 بس خلاص (هههههههههه) آه والله زي ما بقولك كدا

حددت النطاق ضع مؤشر الماوس في شريط المعادلات وابدأ عملية إدخال البيانات ولما توصل لآخر خلية اللي هي D13 وتضغط مفتاح إنتر هتلاقي الخلية D10 متحددة يبقا كدا من غير تعب ولا أكواد

تقبل تحياتي

 

 

 

بالعكس استاذ ياسر ......... لقد فعلت ثلاث اشياء قبل طرح الموضوع 1/ البحث في المنتدي ولم اجد طلب مثل ذالك   2/   حاولت صنع كود  وارفقة لكن لم يفلح 3/ ارفقة الموضوع لاأحلى منتدى

Sub ماكرو4()

    Range("D10:D13").Select
    Selection.ClearContents
    Range("D10").Select
End Sub

[ياسر خليل أبو البراء]

أخي الحبيب محمد

الكود يقوم بمسح محتويات النطاق ..!!!!!!!

هو إحنا دخلنا طلب تاني ولا الطلب هو هو ..تصدق إني تهت!!

هو ايه المطلوب ...

ألم تفي المشاركة رقم 2 بالغرض

[سليم حاصبيا]

 جرب الكود التالي:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim myrange As Range
If Target.Count > 1 Then Exit Sub
Set myrange = Sheet1.Range("D10:D13")
If Not Intersect(Target, myrange) Is Nothing Then 
r = Target.Row
If r <> 13 Then
Target.Offset(1, 0).Select
 Else
Target.Offset(-3, 0).Select
End If
End If
End Sub

[ياسر خليل أبو البراء]

بارك الله فيك أخي الحبيب سليم

جرب الكود التالي عله يفي بالغرض

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$D$13" Then
        Application.Goto Reference:="R10C4"
    End If
End Sub

تقبل تحياتي

[محمد الورفلي1]

السلام عليكم

 

اسف على التاخير في الرد السبب انقطاع التيار الكهربائي 

 

لقد جربت ولم الحظ اي تغيير ووضعت الكود في حدث الورقة هل يمكن ان يكون الكود عن طريف مفتاح والحركة بين الخلايا  تكون عند الضغط فقط وشكراً

[ياسر خليل أبو البراء]

لم أفهم كلامك في المشاركة الأخيرة .. من المفترض أنك تقصد حدوث الكود في حالة تغير ورقة العمل وما معنى أن يكون الكود عن طريق مفتاح ..؟؟

وضح بشكل تطبيقي يكون أفضل للفهم

[سليم حاصبيا]

لتنفبذ الكود يجب ان تكتب شيئاَ في الخلية و تضغط انتر

[محمد الورفلي1]

السلام عليكم

 

اسف جداً طلبي لم يكون واضح

 

اختصار الموضوع اريد ان يكون في الكود يعمل عن طريق النقر على  Command

 

.............................وظيفة الكود تنقل التضليل بين اربع خلايا فقط هم d10 الى d13

 

 

 

 

 

التنقل بين اربع خلايا 2.rar

[ياسر خليل أبو البراء]

مزيد من التوضيح لأنك بكدا بترهق الأعضاء

هل تريد زر أمر يقوم بالتنقل عوضاً عن مفتاح Enter ؟؟

أليس هذا الأمر - إذا كان كما فهمت - فيه شيء من الصعوبة ؟؟؟؟؟؟؟؟؟؟

[ياسر خليل أبو البراء]

عموما جرب الكود بهذا الشكل :

Private Sub CommandButton1_Click()
    If ActiveCell.Address <> "$D$10" And ActiveCell.Address <> "$D$11" And ActiveCell.Address <> "$D$12" Then
        Range("D10").Select
    ElseIf ActiveCell.Address = "$D$10" Then
        Range("D11").Select
    ElseIf ActiveCell.Address = "$D$11" Then
        Range("D12").Select
    ElseIf ActiveCell.Address = "$D$12" Then
        Range("D13").Select
    End If
End Sub

عله يكون المطلوب

[محمد الورفلي1]

تمام التنقل ممتاز كما اريد بالضبط لكن كيف ادمج معها تلوين الخلية بالون الرصاصي مع الحركة

[ياسر خليل أبو البراء]

أخي محمد الخازمي

جبر التالي عله يكون المطلوب .......

Private Sub CommandButton1_Click()
    Range("D10:D13").Interior.Color = xlNone
    If ActiveCell.Address <> "$D$10" And ActiveCell.Address <> "$D$11" And ActiveCell.Address <> "$D$12" Then
        With Range("D10")
            .Select: .Interior.Color = RGB(128, 128, 128)
        End With
    ElseIf ActiveCell.Address = "$D$10" Then
        With Range("D11")
            .Select: .Interior.Color = RGB(128, 128, 128)
        End With
    ElseIf ActiveCell.Address = "$D$11" Then
        With Range("D12")
            .Select: .Interior.Color = RGB(128, 128, 128)
        End With
    ElseIf ActiveCell.Address = "$D$12" Then
        With Range("D13")
            .Select: .Interior.Color = RGB(128, 128, 128)
        End With
    End If
End Sub

تقبل تحياتي

[محمد الورفلي1]

شكراً استاذ ياسر الحمد لله تمام

[ياسر خليل أبو البراء]

أخي الفاضل محمد الخازمي

الحمد لله أن تم المطلوب على خير (قطعت نفسي معاك :eek2: ) بس ولا يهمك المهم إنك وصلت للمطلوب بفضل الله

 

أعتقد أن ربط الماكرو بزر أمر في هذه الحالة أمر غير مستحب ..سأترك للأخ سليم التعديل على الكود ليكون في حدث ورقة العمل .هذا أفضل وأيسر على حسب رأيي وأنت لك مطلق الحرية في طلبك

تقبل تحياتي

[محمد الورفلي1]

السلام عليكم

 

سامحنى استاذ ياسر على تعبك معاي

 

 

 

هذا ماريدة من الكود انظر الى الملف

 

 

 

التنقل بين اربع خلايا 3.rar

[ياسر خليل أبو البراء]

تمام كدا وضحت المسألة

كان ممكن تسهل على إخوانك لو وضحت النقطة دي من البداية .. التفاصيل هاااااااااامة جداً وتختصر الطرق الطويلة

لربما لو كنت وضحت أنك تريد عمل مفتاح اختصار للتنقل في وجود الكود لكان الأمر أيسر وأوضح

المهم حصل خير .. وخيرها في غيرها

[محمد الورفلي1]

السلام عليكم

 

انا كنت اعتقدة ان الموضوع بهذه الفكرة يكون متشعب ولا استطيغ توصيل الفكر فقط

 

شكراً مره اخرى

[سليم حاصبيا]

  هذا الماكرو يعمل مع حدث الصفحة اذا كنت تريد ذلك

 

khazimi 1.rar

[محمد الورفلي1]

السلام عليكم

 

شكراً استاذ سليم على محاولاتك وتعبك معي  وهي كذالك فكرة جميلة وسوف اجعلها في مكتبتى الخاصة

 

ما نستغنو عنك ابداً بارك الله فيك