قصي قام بنشر فبراير 21, 2011 مشاركة قام بنشر فبراير 21, 2011 عندي ملف اكسيل يحتوي على صغحات مختلفه اريد من الصفحة الرئيسيه ان احدد صف او عدة صفوف لمسحها بشرط ان يتم مسح الصفوف المحددة مع ارقام هذه الصفوف في صفحات معينه يالملف ولك شكري وتقديري الدائمين رابط هذا التعليق شارك More sharing options...
عبدالله باقشير قام بنشر فبراير 21, 2011 مشاركة قام بنشر فبراير 21, 2011 السلام عليكم عندي ملف اكسيل يحتوي على صغحات مختلفه اريد من الصفحة الرئيسيه ان احدد صف او عدة صفوف لمسحها بشرط ان يتم مسح الصفوف المحددة مع ارقام هذه الصفوف في صفحات معينه يالملف الكود التالي يقوم بمسح الخلايا المحددة للاوراق المحددة في الكود: Sub kh_MySh_Range_ClearContents() Dim MySh, Sh MySh = Array("الرئيسية", "بيانات1", "بيانات2") If Not TypeName(Selection) = "Range" Then GoTo 1 For Each Sh In MySh Sheets(Sh).Range(Selection.Address).ClearContents Next Sh 1: End Sub ويمكن استخدام الكود في اي ورقة من هذه الاوراق المحددة في الكود رابط هذا التعليق شارك More sharing options...
قصي قام بنشر فبراير 21, 2011 الكاتب مشاركة قام بنشر فبراير 21, 2011 (معدل) الله يحفظك اريد ارتباطه بكلمة سر لايعمل الا بها تم تعديل فبراير 21, 2011 بواسطه قصي رابط هذا التعليق شارك More sharing options...
قصي قام بنشر فبراير 21, 2011 الكاتب مشاركة قام بنشر فبراير 21, 2011 حفظك الله حاولت ان اعدل في الكود لاجعله ينسخ صف معين ويلصقه تحت الصف بعدد يتم تعريفه ولكن باءت محاولاتي بغير ما اريد فارجوك امدنا به لكي نتمرن على تعديل الاكواد المفيده رابط هذا التعليق شارك More sharing options...
عبدالله باقشير قام بنشر فبراير 21, 2011 مشاركة قام بنشر فبراير 21, 2011 السلام عليكم اريد ارتباطه بكلمة سر كلمة السر هي:123 ويتم تغييرها في الكود في السطر If Not MyPas = "123" Then GoTo 1 الكود المستخدم هو: Option Explicit ' ' Sub kh_MySh_Range_ClearContents() On Error Resume Next Dim MySh, Sh, MyPas Dim MyName As String ' اسماء الاوراق MySh = Array("الرئيسية", "بيانات1", "بيانات2") If IsError(Application.Match(ActiveSheet.Name, MySh, 0)) Then MsgBox "اسم الورقة غير مسجلة في الكود في المتغير " & "MySh", vbMsgBoxRtlReading + vbMsgBoxRight: GoTo 2 If Not TypeName(Selection) = "Range" Then MsgBox "The selection object type is " & TypeName(Selection): GoTo 2 1: MyPas = InputBox("هل تريد مسح الخلايا " & Chr(10) & Chr(10) & Selection.Address) If MyPas = "" Then GoTo 2 If Not MyPas = "123" Then GoTo 1 For Each Sh In MySh Sheets(Sh).Range(Selection.Address).ClearContents MyName = MyName & Chr(10) & Sheets(Sh).Name Next Sh Call MsgBox("تم مسح الخلايا " & Selection.Address & Chr(10) & Chr(10) & "في الاوراق التالية : " & MyName, vbMsgBoxRtlReading + vbMsgBoxRight, "الحمد لله") 2: End Sub شاهد المرفق اكسل2003 مسح الخلايا المحددة في اوراق معينة.rar رابط هذا التعليق شارك More sharing options...
قصي قام بنشر فبراير 21, 2011 الكاتب مشاركة قام بنشر فبراير 21, 2011 عودة النسر الجسور جزاك الله كل خير رابط هذا التعليق شارك More sharing options...
ashraff101 قام بنشر فبراير 22, 2011 مشاركة قام بنشر فبراير 22, 2011 جزاكم الله كل الخير رابط هذا التعليق شارك More sharing options...
ashraff101 قام بنشر فبراير 22, 2011 مشاركة قام بنشر فبراير 22, 2011 عند تسمية الاوراق بارقام وتغيير ذلك فى الموديول لا يقوم بالمسح الا من الرئيسية فقط ارجوا ان تعلمونا رابط هذا التعليق شارك More sharing options...
محمدي عبد السميع قام بنشر فبراير 22, 2011 مشاركة قام بنشر فبراير 22, 2011 ماشاء الله حفظك ربنا ورعاك رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.