نجوم المشاركات

بسم الله الرحمن الرحيم بلاش الشتيمة والسلام عليكم move.rar

بسم الله الرحمن الرحيم ميزه وخاصية ممتازه وهى Flash Fill Excel 2013 (تعبئة سريعة) تغنيك عن استخدام صيغ ومعادلات ..الخ . اتمنى ان تفيدكم . ولاتنسونا بصالح دعاؤكم https://www.youtube.com/watch?v=OZyrmcInZLU flash fill.rar

السلام عليكم ورحمة الله نقدم لكم كلمة مرور عن طريق توليد رقم عشوائي شرح الطريقة فتح ملف جديد وإضافة التالي 1 - فورم ونسميه Form1 2 - مربع نص ونسميه Txt1 3 - زر امر ونسميه Cmd_LogoIn وقبل ان نتطرق للفورم والكود نذهب اولا إلي الصفحة (الشيت) ونختار الخلية [IV1] تستطيع تغييرها حسب رغبتك ونضع بداخلها المعادلة التالية : =RANDBETWEEN(999999;9999999) وهي تقوم بتوليد رقم عشوائي بتكوًن بين 9,999,999 وبين 9,999,999 وتستطيع التغيير إلي الأكثر او الأقل حسب ماتراة مناسب . ثم نذهب للخلية [IV3] ونضع بها المعادلة التالية : =LEFT(IV2;3)+RIGHT(IV2;2) وهي تأخذ اول ثلاثة ارقام من يسار الرقم بالخلية [IV2] وأول رقمين من يمين الخلية المذكورة. وقيمة الخلية [IV2] يتكون عن طريق الكود في حدث تنشيط الفورم وهو يساوي قيمة الخلية التي يتم توليد الأرقام العشوائية فيها وهو [IV2] = [IV1.Value Private Sub UserForm_Activate() ' لاحظ الخلية [IV2] تساوي الخلية [IV1] وهي التي تقوم بتوليد الرقم العشوائي [IV2] = [IV1].Value 'لاحظ هنا عنوان الفورم هو الرقم العشوائي Form1.Caption = [IV2] End Sub ولاحظ ان الرقم العشوائي يظهر بعنوان الفورم وبتغيًر كل مرة يظهر فيها الفورم ولإستخراج كلمة المرور منه مثال ان الرقم العشوائي 760340 فاول ثلاثة ارقام من اليسار هي 760 وأول رقمين من اليمين 40 نجمعها (760 + 40 = 800 ) إذا كلمة المرور هي 800 . تستطيع ان تأخذ رقمين او ثلاثة ..إلخ من يسار الرقم العشوائي او رقمين او ثلاثة اواكثر من يمينه وبعد ذلك تجمع او تطرح والنتيجة في الخلية [IV3] كل ذلك يتم في في المعادلة ادناه : =LEFT(IV2;3)+RIGHT(IV2;2) وهذا الكود البسيط مع الشرح : Private Sub Cmd_LogoIn_Click() 'إذا كان مربع النص التكست ون يساوي فراغ If Txt1.Text = vbNullString Then 'إذا اخرج من الإجراء الفرعي Exit Sub 'غير ذلك إذا كان مربع النص لايساوي قيمة الخلية[IV3] ElseIf Txt1.Text <> [IV3].Value Then 'إذا رسالة توضح ان كلمة المرور غير صحيحة MsgBox "ßáãÉ ÇáãÑæÑ ÛíÑ ÕÍíÍÉ", vbCritical, "ÇáÊÃßÏ ãä ßáãÉ ÇáãÑæÑ" 'غير ذلك إذا كان مربع النص بيساوي [IV3] ElseIf Txt1.Text = [IV3].Value Then 'إذا رسالة توضيحية احسنت MsgBox "ÇÍÓäÊ" 'اجعل تطبيقات الاكسل مرئية Application.Visible = True 'إخفاء الفورم Unload Me ' End If End Sub اخيكم في الله أبو الحسن والحسين مرفق مثال شاشة دخول - تغيير الباسورد عشوائي.rar

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

هههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههه حرام عليك والله هموت من الضحك

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

السلام عليكم ورحمة الله اخواني الأعزاء وائل الاسيوطي ومحمد حسن المحمدي أبو يوسف اسرني واسعدني مروركم العطر بارك الله فيكم وجزاكم الله خير الأخ الفاضل الأستاذ / مختار حسين الأخ وائل الاسيوطي في المرفق تم إضافة عداد لمحاولة إدخال كلمة المرور حسب نصيحة استاذنا /مختار حسين تستطيع إضافة حروف ,كلمات, ارقام، علامات وهي التي بين علامتي التنصيص قبل وبعد كلمة المرور المستخرجة من الرقم العشوائي الخلية [IV3].Text هي ناتج توليد الرقم العشوائي بالخلية [IV1].Text عن طريق [IV2].Text والتي تأخذ 3 ارقام من آخر الرقم العشوائي ورقمين من اوله للعلم والاحاطة فقط If Txt1.Text = "هنا تقدر تضع كلمة او حروف او ارقام او علامات" & [IV3].Text & "هنا تقدر تضع كلمة او حروف او ارقام او علامات" Then في الكود ادناة تضع الحروف قيل وبعد. مثال / الرقم العشوائي 760340 فاول ثلاثة ارقام من اليسار هي 760 وأول رقمين من اليمين 40 نجمعها (760 + 40 = 800 ) إذا كلمة المرور هي kh800mb . لما تكون الحروف إنجليزية تنتـــه لإدخالات الحروف كبيرة او صغيرة ادخلها حسب برمجتك لها. If Txt1.Text = "kh" & [IV3].Text & "mb" Then او تجعل الحروف قبــــــــــــــل فقط وستكون كلمة المرور كالتالي khmb800 وتنتبــــــــــــــه ان تكون KHMB800 مع دقة الملاحظة في أي فراغ في علامتي التنصيص قبل او بعد الكلمة او الحرف او غيره (" khmb" ) او ("khmb "). If Txt1.Text = "khMB" & [IV3].Text Then او تجعل الحروف بعـــــــــــــــد فقط وستكون كلمة المرور كالتالي 800khmb وتنتبــــــــــــــه ان تكون 800KHMB مع دقة الملاحظة في أي فراغ في علامتي التنصيص قبل او بعد الكلمة او الحرف او غيره (" khmb" ) او ("khmb "). مع ملاحظة الكلمة هنا هي بالحروف الكبيرة. If Txt1.Text = [IV3].Text & "KHMB" Then مرفق الملف وكلمة المرور هي بين كلمتي KH.....MB If Txt1.Text = "kh" & [IV3].Text & "mb" Then شاشة دخول - تغيير الباسورد عشوائي.rar

رووووووووووووووووووووووح يا شيخ منك لـ اللى كلت دراع جوزها

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

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

السلام عليكم الاخ الكريم المنتدى مليء بمثل هذه المواضيع فقط عليك البحث كما بين اخونا الاستاذ عبدالله هذا واحد وهذا آخر

السلام عليكم ورحمة الله وبركاته ****************** نويت بإذن الله تعالى - والله الموفق - أن أقوم بالبدء في هذا المشروع الكبير الذي أطلقت عليه اسم (مكتبة الصرح .. زاخرة بالشرح) بحثت عن ملف الأستاذ الكبير عبد الله باقشير (محفظة الأكواد) للعمل عليه .. ** رجاء من الأخ عبد الله .. إضافة للفورم في هذا الملف أن تكون عملية البحث غير مقتصرة على عناوين الأكواد فقط ، بل تشمل عمليه البحث الـ ListBox الذي يحوي الأكواد نفسها ، وكذلك صفحة التعليمات ، حتى يسهل فيما بعد على الباحث أن يصل لمراده بسهولة .. الأمر مختلف قليلاً عما قدم من قبل ، إذ أن الأكواد ستكون مصحوبة بالشرح (على قدر استطاعتي ) ولمن أراد أن يزيد على الشرح فليفعل ولا يتردد.. من هنا بإذن الله ستكون الإنطلاقة الكبرى نحو المشروع الكبير .. وسأحاول جاهداً أن أبدأ عملية بناء المكتبة بشكل منظم يسهل على الباحث فيما بعد الوصول للكود الذي يرغبه ، ويعرف كيف يقوم بتطبيق الكود بنفسه دون الحاجة لغيره .. يعني مبدأ الاعتماد على النفس في تطبيق الأكواد.. وإليكم الملف المرفق به 5 أكواد فقط مدعومة بالشرح منها 3 اكواد بسيطة ، وكود صعب قليلا ، ودالة معرفة UDF كنقطة بداية .. ملحوظة الأكواد مدعومة بالشرح في صفحة التعليمات . أرجو أن ينال رضاكم ... ولا تنسوا التصحيح والتنقيح إخواني أولاً بأول ، حتى يخرج العمل في النهاية بشكل لائق يليق بمنتدانا .. يليق بالصرح العملاق ولذا أسميت المشروع (مكتبة الصرح والصرح المقصود به منتدانا الغالي .. وإن شاء الله تكون المكتبة زاخرة وممتلئة بالشرح بعون الله وتوفيقه ثم بجهودكم ومساندتكم للمشروع) Codes Library.rar

يا أبا الحسن الحسين أحسنت و بارك الله فيك يمكن أيضا جعل الباسورد من حروف و أرقام متغيرة شاشة دخول الباسورد متغير حرفى رقمى عشوائي.rar شاشة دخول الباسورد متغير حرفى رقمى عشوائي بالمحاولات.rar

الكود الاول يعمل بشكل صحيح الخاص بحذف الخلايا بناء على قيمة خلية بالنسبة للطلب الاول ارجو اذا كان قيمة خليه ف الصف رقم 17 يتم اخفاء كامل العمود تم الوصول الى الكود الحمد لله للافادة Sub HideShowColumn() Dim rRange As Range, rCell As Range Set rRange = Range("A17", Range("IV17").End(xlToLeft)) For Each rCell In rRange: rCell.EntireColumn.Hidden = (rCell = 0) Next rCell End Sub

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

شرين شدت شعر شاهندا شدة شديدة شالت شوية شعر شايب (_شايف شوية شخبطتي)

ههههههههههههه والله محتاجين فعلا نخرج من وجع الدماغ شاويش شعبان شد شنب شاويش شعلان شدة شديدة شرمت شفته

شفت شاب شيك شايل شنطه شيك شبه شنطه شارلي شابلن بس خلاص

ههههههههههههههههههههههههههههههه يعني لازم لازم نعم

1.rar السلام عليكم ورحمة الله باستعمال عمود إضافي ومعادلات بسيطة (تجنبا لمعادلات الصفيف)... بن علية 1.rar

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

تفضل ابو يوسف المثال حسب فهمي اختر اسم المكتب من القائمة للفتح تقرير اجمالي مدارس حسب مكتب المختار SchoolR.rar

تقدر تحدد لا من خلال اسهم الاتجاهات عرفتها بعد مالبستها اول مره يالا أعيش واخد غيرها

السّلام عليكم و رحمة الله و بركاته إبداع و تميّز آخر يُضاف إلى قائمة إبداعاتك غير المنتهيّة بإذن الله بارك الله فيك أخي الغالي " حسام عيسى " على روعة الملف و تميّز الموضوع جزاك الله خيرًا و زادك من علمه و فضله فائق إعجاباتي و احتراماتي

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

نعم طبعا

هديه خاصه للبراء ياسر خليل حبيب قلبى دى لعبه من احدى المواقع الاجنبيه ووعد منى لما انزل لك هدية حلوه منى تمنى على بس اوعى تكون طماع زى ابوك خلى ابوك يلعب عليها JawBreak.zip

بعد اذن اخي العيدروس تفضل اخي أبو زيد عند الضغد على كلوس يدخل الى البرنامج بدون كتابة رمز الدخول_111.rar

الاخ الحبيب / خالد الشاعر الاروع هو مروركم الطيب جزاكم الله خيرا تقبل تحياتى استاذى الحبيب ابويوسف عند رؤيتى لمشاركة ابوالبراء لم اتمالك نفسى من الضحك والله فضغط على حرف ه بشكل هستيرى شاكر لك مرورك الطيب وبخصوص التحكم عن طريق الماوس هذه الفكره تم طرحها من قبل بس لم اتذكر الرابط للاسف لكن انا محتفظ بالملفات فى مكتبتى الخاصه لان احب احتفظ بالكنوز المرفقات بها ما تريد ولكن الملف بتاعى انا بعيد كل البعد عن الماوس هى مجرد كود بسيطه وفكره تنيفذها بسيطه وانا بحاول البحث دائما عن ابتكار شئ جديد سواء بالفكره او تنفيذها شاهد المرفقات بصراحه انا حاولت اتذكر مين اللى قدمها بالمنتدى للاسف الذاكره بقت صفر عندى لذالك اطلب من الاخوة اللى بيقدموا شئ جديد يذكرو اسمهم على العمل حتى لا يضيع حقهم تقبلوا تحياتى التحكم بحجم الفورم عن طريق الماوس.zip التحكم بالفورم بالماوس 2.zip التحكم بالفورم بالماوس 3.zip

استاذ حسام ابداع جدير يتفجر فى موقع الخبراء جزاك الله كل خيراً

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

أخي الحبيب محمد الريفي بارك الله فيك وجزاك الله كل خير على الموضوع الرائع والمتميز خاصية جميلة يجهلها الكثيرون

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

السّلام عليكم و رحمة الله و بركاته بارك الله فيك أستاذي القدير " مختار حسين محمود " على الكود الأكثر من الرّائع جزاك الله خيرًا و زادها بميزان حسناتك فائق إحتراماتي

أسعد الله أوقاتكم بكل خير فيما يلي الدرس العشرون من دورة "إكسيل 2013 المستوى المتقدم" بعنوان الرسومات البيانية المتقدمة -الجزء الرابع التعامل مع البيانات المفقودة ملاحظة/ ينصح بشدة متابعة الدرس الخاص بالرسومات البيانية من دورة (مهارات اكسيل 2013) على الرابط التالي قبل متابعة هذا الدرس حيث أننا نفترض بالمشاهد الكريم معرفة مسبقة بأساسيات الرسم البياني في اكسيل أساسيات الرسومات البيانية في إكسيل 2013 أتمنى لكم مشاهدة ممتعة ومفيدة يمكنكم تحميل ملفات التمارين الخاصة بهذه الدورة من خلال الرابط التالي: http://www.4shared.com/rar/QvwJQLddce/_-__.html لمتابعة الموضوع الرئيسي للدورة يمكنكم فتح الرابط التالي حيث جميع الدروس موجودة: دورة اكسيل 2013 المستوى المتقدم دمتم بخير

هههههههههههههههههههههه والله ولا هي عداوه ولا عمليات تفجيريه خالص (احسن يكون المنتدي متراقب ولا حاجه ) كل الحكايه انا بعمل ملف ليا وللفريق العمل بتاعي فلما عملته اكسيل وعملت حمايه للمعادلات لقيت في ملفات بتوصلني المعادلات ممسوحه وبتعطي خطأ والملفات باظت تماما فهمت بعد كدا انه ممكن يكون شغله علي تليفون او اصدار اوفيس تاني فبالتي اثر علي المعادلات فقلت هاحوله لملف تنفيذي علشان يشتغل علي الجهاز فقط وعلي اصدار معين من الاوفيس علشان اضمن انه مايحصلش فيه حاجه بس المشكله ان الملف بيرسل بشكل يومي بالايميل فكنت بدور علي طريقه اسهل من الضغط بحيث ان الموظف لايتدخل بها وكمان علشان اضمن انها تتعمل بطريقه سليمه فقلت لازم ألجأ اليكم لمساعدتي لقدرتكم الكبيره علي التحايل علي صعاب الأمور بس وهي دي قصه حياتي

Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Intersect(Target, Range("I4:N11")) Is Nothing Then Target = Format(Now) End Sub ضع الكود السابق فى حدث الورقة ثم احفظ الملف بصيغة XLS أو XLSM

اتمنى ان يكون المطلوب في الملف المرفق تنسيق شرطي للصف.rar

ربما يكون هذا ما تريد تنسيق شرطي للصف salim.zip

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

السلام عليكم ربما فهمت طلبك شوف الكود بيشيك على العمود "F" وبموجب الدمج الذي في العمود "F" بيعمل مثله في العمود "J" مع الاحتفاظ بقيم الخلايا المدموجه + جمعها بمعنى اذا العمود "F" ليس به خلايا مدموجه لم ينفذ شيء الكود جرب الكود Sub Ali_Merg() Dim Rng As Range Dim Rm As Range Dim My_r As Range Dim X_r As Double 'xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx For Each Rng In Range("F6:F20") If Rng.MergeCells Then If Not Rng Is Nothing Then If Rm Is Nothing Then Set Rm = Rng.Offset(0, 4) Else Set Rm = Union(Rm, Rng.Offset(0, 4)) End If End If Next 'xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx If Not Rm Is Nothing Then For Each My_r In Rm.Areas X_r = Alr_Cn(My_r) With My_r .ClearContents .Merge .Value = X_r End With Debug.Print X_r Next End If Set Rng = Nothing: Set Rm = Nothing Set My_r = Nothing 'xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx End Sub Private Function Alr_Cn(R As Range) As Currency Dim i Dim Sm As Double With R For i = 1 To .Rows.Count Sm = Sm + .Cells(i, 1) Next i If Sm Then Alr_Cn = Sm End With End Function تحياتي او هكذا حسب التحديد الحالي يعني تضلل مثلا 5 سطور وتظغط كنترول وتضلل 5 سطور اخر في العمود "J" وهكذا وبعد التضليل شغل الكود Sub Ali_Merg() Dim My_r As Range Dim X_r As Double 'xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx For Each My_r In Selection.Areas X_r = Alr_Cn(My_r) With My_r .ClearContents .Merge .Value = X_r End With Next Set My_r = Nothing 'xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx End Sub Private Function Alr_Cn(R As Range) As Currency Dim i Dim Sm As Double On Error Resume Next With R For i = 1 To .Rows.Count Sm = Sm + .Cells(i, 1) Next i If Sm Then Alr_Cn = Sm End With On Error GoTo 0 End Function

السلام عليكم و رحمة الله وبركاته اخي ابو يوسف من وجهة نظر شخصية (في رأيي) ممكن نعمل المطلوب ب الأكواد في ورقة واحدة فقط على 3 خطوات خطوة 1 استخراج اسماء الأورات و وضها في قائمة منسدلة خطوة 2 استخراج اسماء المناطق التعليمية و وضعها في قائمة منسدلة خطوة 3 استخراج اسماء المدارس بدون تكرار الى الجدول و امامها عدد مرات التكرار هذه الفكره من وجهة نظري الممكنة وبكون التطبيق العملي تختار اسم الورقة ثم تختار المنطقة التعليمية ثم يظهر الجدول هذه فكرة لم اطبقها بعد

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

اخي الكريم ياسر خليل الفائده من استخدام الكود بالطريقه التي سردتها بالمشاركه السابقه ان لاتحمل كاهل الملف بالهيبرلينك حتى يصبح بطيئ جدا عند الفتح وان ولايوقف عند الخليه 650000 كحد اعلى للهيبرلينك فقط بل ينفذ الكود حتى يصل عند التوليف "ZZZZ" كأنه كتب عنوان على الخلايا فقط ونستخدم العنوان كهيبر لينك عند النقر عليه وبالامكان استخدام الكود لايحذف الهيبرلينك الا حين يصل الى الحد الاعلى بإضافة بسيطه هذه اضافه لااحبذها الافضل التعامل مع كل خليه كي لا يكبر حجم الملف ويصبح بطيئ هذا المرفق وبه الكود لحدث الصفحه وكود انشاء العناوين If ActiveSheet.Hyperlinks.Count >= 65530 Then For Each R In ActiveSheet.Hyperlinks If R.TextToDisplay > "" Then R.Delete: Exit For Next End If شرح كود الهايبر لنك_111.rar

الله يشفيه ويعافيه ويقومه بالسلامه .. آمين .. ويشفي مرضانا ومرضى المسلمين اجمعين.

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

اللهم رب الناس أذهب البأس اشفه أنت الشافي لا شفاء إلا شفاؤك اللهم اشفه وعافه .. شفاء لا يغادر سقما

السلام عليكم ورحمة الله وبركاته اخواني الاكارم تحية طيبة وبعد : الدالة Split هي المسؤلة عن تقسيم السلسلة النصية ويمكننا من خلالها ارجاع أو حذف الجزء الذي نحدده ويتم توظيفها في النماذج والتقارير داخل محرر الفيجوال على النحو التالي : name1 = Split(FullName, " ")(0) name2 = Split(FullName, " ")(1) name3 = Split(FullName, " ")(2) name4 = Split(FullName, " ")(4) - باعتبار FullName هو حقل الاسم الكامل علما انه يمكن كتابة الاسم داخل الكود بين علامتي تنصيص مزدوجتين وستقوم الدالة بارجاع الجزء المحدد - وما بين علامتي التنصيص " " الفاصلة التي على اساسها يتم تجزئة النص وهي هنا مسافة فارغة - اما الارقام (0) ، (1) ، (2) ... فهي ترمز الى مكان الجزء داخل النص الى هنا كل شيء يسير على ما يرام ولكن حين نريد استخدامها داخل الاستعلام نفاجأ بأنها لا تعمل وتظهر رسالة من الاستعلام بأن هذه الدالة غير معروفة والحل : ان نعقد بين الدالة والاستعلام صفقة عمل و تعارف ولن يتم لنا ذلك حتى نوجد للدالة مكان اقامة دائم في قاعدة البيانات الحالية وللدرس بقية : تعريف الدالة + التطبيق ان شاء الله

استاذ ابو حنين وجدت هذا الكود على النت ارجو يكون المقصود Sub ShowAllLinksInfo() 'Author: JLLatham 'Purpose: Identify which cells in which worksheets are using Linked Data 'Requirements: requires a worksheet to be added to the workbook and named LinksList 'Modified From: http://answers.microsoft.com/en-us/office/forum/office_2007-excel/workbook-links-cannot-be-updated/b8242469-ec57-e011-8dfc-68b599b31bf5?page=1&tm=1301177444768 Dim aLinks As Variant Dim i As Integer Dim Ws As Worksheet Dim anyWS As Worksheet Dim anyCell As Range Dim reportWS As Worksheet Dim nextReportRow As Long Dim shtName As String shtName = "LinksList" 'Create the result sheet if one does not already exist For Each Ws In Application.Worksheets If Ws.Name = shtName Then bWsExists = True Next Ws If bWsExists = False Then Application.DisplayAlerts = False Set Ws = ActiveWorkbook.Worksheets.Add(Type:=xlWorksheet) Ws.Name = shtName Ws.Select Ws.Move After:=ActiveWorkbook.Worksheets(ActiveWorkbook.Worksheets.Count) Application.DisplayAlerts = True End If 'Now start looking of linked data cells Set reportWS = ThisWorkbook.Worksheets(shtName) reportWS.Cells.Clear reportWS.Range("A1") = "Worksheet" reportWS.Range("B1") = "Cell" reportWS.Range("C1") = "Formula" aLinks = ActiveWorkbook.LinkSources(xlExcelLinks) If Not IsEmpty(aLinks) Then 'there are links somewhere in the workbook For Each anyWS In ThisWorkbook.Worksheets If anyWS.Name <> reportWS.Name Then For Each anyCell In anyWS.UsedRange If anyCell.HasFormula Then If InStr(anyCell.formula, "[") > 0 Then nextReportRow = reportWS.Range("A" & Rows.Count).End(xlUp).Row + 1 reportWS.Range("A" & nextReportRow) = anyWS.Name reportWS.Range("B" & nextReportRow) = anyCell.Address reportWS.Range("C" & nextReportRow) = "'" & anyCell.formula End If End If Next ' end anyCell loop End If Next ' end anyWS loop Else MsgBox "No links to Excel worksheets detected." End If 'housekeeping Set reportWS = Nothing Set Ws = Nothing End Sub

اخواني الكرام السلام عيكم ورحمة الله وبركاته هذا ملف اكسل هدية لاعضاء و زوار منتدانا الحبيب اكتب رقما لتحصل على ابتسامة