بحث مخصص من جوجل فى أوفيسنا
![]()
Custom Search
|

عبدالله باقشير
المشرفين السابقين-
Posts
4796 -
تاريخ الانضمام
-
تاريخ اخر زياره
-
Days Won
57
نوع المحتوي
المنتدى
مكتبة الموقع
معرض الصور
المدونات
الوسائط المتعددة
كل منشورات العضو عبدالله باقشير
-
اخي الحبيب/ بن عليه------حفظك ربي جزاك الله خيرا وبارك فيك واثابك بدعائك واعطاك بمثله اضعاف مضاعفة تقبل تحياتي وشكري
-
اخي الحبيب/ عباس ------حفظك ربي جزاك الله خيرا وبارك فيك واثابك بدعائك واعطاك بمثله اضعاف مضاعفة آمين آمين آمين آمين تقبل تحياتي وشكري
-
فورم اختيار لون معين ومزجه واستخراج الاكواد الخاصة به
عبدالله باقشير replied to عبدالله باقشير's topic in منتدى الاكسيل Excel
اخي الحبيب حمادة -----حفظه الله جزاك الله خيرا بالنسبة لااستفسارك يمكنك اولا ضبط مقاس العمود والصفوف للعمود اف حسب المقاس الذي تريده بعد حذف جميع الصفوف الموجوده حاليا وعند اضافة اي لون لاحقا سياخذ التعليق مقاس الخلية في العمود اف انا اخترت النعليق لانه كائن يحذف بحذف الخلية الموضوعه فيه اما عن الاضافة للخلية لا يصلح اي من الاكواد الناتجة لتغيير لون الخلية تقبل تحياتي وشكري -
فورم اختيار لون معين ومزجه واستخراج الاكواد الخاصة به
عبدالله باقشير replied to عبدالله باقشير's topic in منتدى الاكسيل Excel
اخي الفاضل ابو محمد-----حفظه الله جزاك الله خيرا تقبل تحياتي وشكري -
فورم اختيار لون معين ومزجه واستخراج الاكواد الخاصة به
عبدالله باقشير replied to عبدالله باقشير's topic in منتدى الاكسيل Excel
اخي الفاضل مجدي يونس----حفظك الله جزاك الله خيرا وبارك فيك تقبل تحياتي وشكري -
اخي الفاضل مجدي يونس----حفظك الله جزاك الله خيرا وبارك فيك تقبل تحياتي وشكري
-
اخي الحبيب محمد----حفظك الله خبير المعادلات بجد جزاك الله خيرا تقبل تحياتي وشكري
-
السلام عليكم دالة kh_IFERROR دالة بديلة للدالة IFERROR للاستخدام مع اوفيس 2003 Function kh_IFERROR(Value, Value_if_error) If IsError(Value) Then kh_IFERROR = Value_if_error Else kh_IFERROR = Value End If End Function تحياتي
-
اخي الحبيب حمادة----حفظك الله انا لي الشرف بردك جزاك الله خيرا تقبل تحياتي وشكري
-
السلام عليكم فورم اختيار لون معين ومزجه واستخراج الاكواد الخاصة به اذا اردنا لون معين نقوم بالبحث العشوائي عن هذا اللون اوما يقاربه ثم نقوم بالتغيير عليه من الارقام الخاصة RGB حتى نوصل الى ما نريده تماما الناتج: كود RGB كود HEX كود MSA ويمكنك الاحتفاظ بهذه المعلومات في الشيت من زر اضافة معمول بالاكسل وبالفيجول بيسك الاكسل 2003-2010 فورم تكوين الوان مع المعلومات.rar بالفيجوال بيسك: RGB TO HEX.rar في امان الله
-
السلام عليكم لعبة تخمين الارقام قمت بتصميمها على الاكسل وهي لعبة معمولة بالويب لاخي محمد صالح وقد اضفت اليها اختيار الارقام بشكل عشوائي وطبقت عليها معلومة اخفاء نافذة الاكسل ولهذا الغرض تم تامينها كلمة السر : 1 المرفق 2003-2010 لعبة تخمين الارقام.rar
-
ملحوظة : تم تعديل العنوان ليتوافق مع الطلب
-
السلام عليكم اخي الحبيب حمادة احبك الله كما احببتني تقبل تحياتي وشكري
-
السلام عليكم شكرا لك اخي حمادة ------حفظك ربي قد يحتاج للتعليق ولكن يغير في خصائص التعليق كما اوردته اعلاه يحدد التعليق ومن زر الفارة الايمن تنسيق تعليق خصائص يختار الخيار الاول نقل الخلايا وتغيير حجمها شاهد الصورة
-
السلام عليكم السبب التعليقات الموجودة في العمود تي وهي عبارة عن كائنات مثلها مثل الازرار والصور وغيره تستوجب مساحة على الشيت لاظهارها او تغير تنسيقها من خصائص الكائن وتحفز على نقل الخلايا وتغيير حجمها في امان الله
-
استدعاء عدة قيم بشكل عامودي في ListBox
عبدالله باقشير replied to nicola's topic in منتدى الاكسيل Excel
السلام عليكم فقط زيادة في الخير هذا سطر واحد يحقق المطلوب Me.ListBox1.List = Split(Sheet1.Range("A1"), Chr(10)) في امان الله -
النطاق Data انت مسميه الى آخر صف في الورقة 1048576 كم عدد صفوفه الفعلية التي ممكن تستخدمها مستقبلا ؟ غير العدد الى 20000 مثلا حتشتغل الدالة في امان الله
-
السلام عليكم اخي محمود انت طيب واعمالك طيبة جزاك ربي خيرا تقبل تحياتي وشكري
-
تهنئة للأخوة عبد الله المجرب و دغيدي و أحمد فضيلة
عبدالله باقشير replied to محمد طاهر عرفه's topic in منتدى الاكسيل Excel
الاخ الحبيب/ عبدالله المجرب الاخ الحبيب/ دغيدي الاخ الحبيب/ احمد فضيلة -
السلام عليكم استبدل هذه الاكواد للفورم Private Sub CommandButton1_Click() Dim i As Integer '''''''''''''''' CommandButton1.Visible = False '''''''''''''''' With Me.MultiPage1.Pages For i = 0 To .Count - 1 If Val(.Item(i).Controls(0).Caption) Then kh_v i UserForm1.Printform End If Next End With kh_Start End Sub Private Sub kh_v(P As Integer) Dim i As Integer '''''''''''''''' With Me.MultiPage1.Pages For i = 0 To .Count - 1 If .Item(i).Index = P Then .Item(i).Visible = True Else .Item(i).Visible = False End If Next End With End Sub Private Sub kh_Start() Dim i As Integer, t As Integer '''''''''''''''' With Me.MultiPage1.Pages For i = 0 To .Count - 1 t = Val(Cells(i + 1, "A")) .Item(i).Controls(0).Caption = t .Item(i).Visible = t Next End With ''''''''''''''''''''''''''''' CommandButton1.Visible = True End Sub Private Sub UserForm_Activate() kh_Start End Sub المرفق 2003 طباعة في فورم لصفحات MultiPage.rar