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

عليكم السلام نفس معادلة السيد كريم نظيم لكن بتعديل حسب الملف الأخير =IF(COUNTIFS($F$2:$F$1500,F2,$H$2:$H$1500,H2,$I$2:$I$1500,I2)>1,"تعارض","")

احببت ان افرد موضوعي هذا بعنوان مستقل 1-لان غالب او جميع الدروس هنا تتعامل مع واتساب ويندوز 2-وحتى يكون تطوير هذا العمل مستقلا ولا يحدث خلط بين الامثلة المثال المرفق تم تطبيقه على واتساب ويب واليكم بعض التوجيهات والملاحظات : كانت مشكلتي في محاولات سابقة انه في كل مرة يتم الارسال وفتح الواتساب ويب .. فانه يطلب ربطا جديدا بالجوال وبحمد الله توصلت الى حل هذه المشكلة التي كانت عائقا حقيقيا .. يكتفى بالارتباط مرة واحدة فقط الآن : عند كل ارسال يفتح الواتس ويب بشاشة جديدة .. فان كانت هناك نسخة مفتوحة من قبل فانه يتجاهلها وتصبح غير فعالة وهذه لا مشكلة فيها لأنه يفتح على الحساب نفسه . ارجوا من اخوتي واحبتي الذين يمرون من هنا تجربة المثال وافادتي بنتيجة التجربة ، من اجل الانتقال الى الخطوة التالية وهي ارسال المرفقات ملحوظة : المرفق sendwatsWebAll .. هو النسخة المحدثة والمطورة بعد أخذ آراء وتجارب الإخوة sendwatsWeb.mdb sendwatsWebAll.rar

السلام عليكم : اعضاء المنتدي من خبايا الرقم القومي . صممت هذ البرنامج وبدون اكواد لان في اعضاء كتير يحتاجون هذه المعلومات . الصورة توضح اكثر ... my_data.xlsx

تفضل 🙂 استخدم هذا الكود على زر أمر بحيث تغير رابط الملف النصي وتغير اسم مربع النص اللي بيلصق النص فيه: Private Sub btnGetText_Click() ' Declare variables to hold the text from the online file and the textbox Dim strText As String Dim txtTarget As TextBox ' Set the URL of the online text file Dim strURL As String strURL = "http://www.website.com/text.txt" ' Use the XMLHTTP object to retrieve the text from the online file Dim objXMLHTTP As Object Set objXMLHTTP = CreateObject("MSXML2.XMLHTTP") objXMLHTTP.Open "GET", strURL, False objXMLHTTP.Send ' Check if the request was successful If objXMLHTTP.Status = 200 Then ' Get the text from the response strText = objXMLHTTP.responseText ' Get a reference to the textbox on the form Set txtTarget = Me.txtTextBox ' Put the text from the online file into the textbox txtTarget.Value = strText Else ' Show an error message if the request was not successful MsgBox "There was an error retrieving the text from the online file." & vbCrLf & _ "HTTP Status: " & objXMLHTTP.Status, vbExclamation End If ' Clean up Set objXMLHTTP = Nothing Set txtTarget = Nothing End Sub وهذا مثال : Read Online Txt File.accdb

بالفاصلة العادية: =IIf(Nz([Notes],0)>=5,"ينتقل",IIf(Nz([Notes],0)<4.5,"معيد","الاستدراك")) بالفاصلة المنقوطة: =IIf(Nz([Notes];0)>=5;"ينتقل";IIf(Nz([Notes];0)<4.5;"معيد";"الاستدراك")) لا تحاول تكتبها فقط قم بنسخ المعادلة ولصقها في مصدر الصندوق. ملاحظة: المعادلة تظهر وكأن كتابتها خاطئة ولكنه تأثير الخصائص، ولكن عند لصقها في مصدر الصندوق سوق تظهر بشكلها الطبيعي.

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

لم توضح أين تريد وضع الأرقام انسخ المعادلة ثم عدل عليها، وإذا واجهت مشاكل من غير الأرقام فبدل الفاصلة بالفاصلة المنقوطة. هنا المعادلة مع الفاصلة العادية: =IIf([Notes]>4.99,"Yantaqil",IIf([Notes]<4.5,"Moied","Alistdrak")) وهنا المعادلة مع الفاصلة المنقوطة: =IIf([Notes]>4.99;"Yantaqil";IIf([Notes]<4.5;"Moied";"Alistdrak")) بدلت لك الكلمات من الحروف العربية إلى الحروف الإنجليزية حتى لا تلخبطك، بعد اللصق قم بتبديل الكلمات إلى الحروف العربية.

في هذا البرنامج بالذات أتعبت الأكسل وأتعبني كان التحدي أن يتم العمل بدون أكواد فيجول فقط بالدوال والتنسيق الشرطي والارتباط التشعبي أدعو الله أن أكون فيه موفقا وأن يفيد ولو واحدا من إخواني المسلمين البرنامج فيه خبايا وأسرار خلف الستار للمهتمين بالأكسل . تأجير الشقق.xlsx

تفضل هذا التقرير Graff.zip

اتفضل حل اخر بدون عمود مساعد =IF(COUNTIFS($A$2:$A$18,A2,$I$2:$I$18,I2,$J$2:$J$18,J2)>1,"تعارض","") conflict.xls

وعليكم السلام ورحمه الله وبركاته اتفضل لعله المطلوب تم عمل عمود مساعد =IF(COUNTIF($L$2:$L$18,L2)>1,"تعارض","") conflict.xls

الشكر . كل الشكر لأستاذنا الكبير محمد هشام

ربما تصفية.xlsm

أخي @ehabaf2 هذه مسألة طبيعية خاصة عند وجود بيانات كثيرة على ورقة العمل من الأفضل إستبدال طريقة تنفيذ الكود من حدث الشيت إلى Module Sub Masquer_Columns() StartColumn = 6 ' اول عمود LastColumn = 176 ' اخر عمود iRow = 20 ' رقم الصف Application.ScreenUpdating = False For i = StartColumn To LastColumn If Range("B20").Value = "" Then 'From column 6 to column 170 Columns("F:FS").EntireColumn.Hidden = False Exit Sub End If If Cells(iRow, i).Value > Range("b20").Value Then Cells(iRow, i).EntireColumn.Hidden = True Else Cells(iRow, i).EntireColumn.Hidden = False End If Next i Application.ScreenUpdating = True End Sub كود اخفاء v2.xlsm

بسم الله الرحمن الرحيم الكتير منا بتجيله فكرة وعاوز ينفذها لكن عدم مقدرته علي الامساك بالخيط المناسب فيتراجع ويكبت افكاره مرة تلو الاخري لحد مايصل الي مستخدم غير قادر علي الابداع في مجاله المعذرة اني بكتب بالعامية لكن حبيت اشارككم بما في خاطري من فترة كنت بتصغح موقع هندي عجبتني فكرة الموقع في طرح المواضيع المحاضر يقوم بنشر الفكرةوينفذها مع المتابعين عن طريق درووس مدة كل درس حوالي 40 دقيقة يبدا بتصميم اليوزفورم وشرح الكود سطر سطر بيعمل ايه وليه ويرفق مع الشرح الكود فقط ويترك للمتابع المجال انه ينفذ هو ويحيك اليوز بنفسه ويركب الكود ويخطيء ويسال ويتعلم الاحساس بالتفاعل بين الاطراف بيولد طاقة ورغبة في المواصلة علي العطاء والشرح وكلنا بنتعلم من بعضنا البعض حسيت انه ده هو المهم اننا بنعمله في المنتدي ونتخلص من مشكلة الارشفة عند طرح الموضوع تلاقي نسبة المشاهدة 600 ونسبة تحميل الملف 400 والمشاركات تلاقيها 3 او 4 مشاركات عند طرح الموضوع ليس بقصد التقييم انما بقصد المشاركة نتفاعل ... نتعلم .... لكن للاسف معظمنا بحمل الملف ويحفظه في الارشيف دون التطرأ لما فيه او المحاولة لفهمه وده خلاني اطرح الموضوع الحالي واعتذر عن الاطالة الموضوع هو الفورم التغاعلي UserForm interactive التخلص من الشكل التقليديVisual Basic كلنا متفقين انه الـ Visual Basic موارده الجمالية محدودة لكن غير محدود في الخداع البصري وده يلي هانتعلمه دمج Infographics والبيئة التفاعلية مع الVisual Basic بحيث المستخدم لا يحس بالملل عند استخدامه بالمرفقات الملف يلي هانشتغل عليه خطوة خطوة في حالة قبول التفاعل مع بعضنا البعض لنتعلم ونبدع , الملف لا يحتوي الا علي الوظائف التفاعلية UserForm interactive.xlsm رابط الدرس الاول في الفورم التفاعلي اضافة MultiPage والتحكم في الانتقالات بينها من خلال التبويبات الرئيسة باستخدام Class Module رابط الدرس الثاني في الفورم التفاعلي Advance Data Entry Software مدخل للدرس الثالث How to Generate and Preview PDF File in Userform Create Dynamic Drop-Down Menu In Excel Userform قائمة شقية للاصناف الكثيرة والمتشابهة Pop-up form in Excel Userform شرح تفصيلي لأداة ال ListView وكيفية استخدامها والتعامل معها رابط الدرس الثاني ListView Right to Left الدرس الثاني Create Dynamic Drop-Down Menu In Excel Userform Dark Mood App Officana Business Application Final Template Generate QR Code برنامج ادارة الاشتراكات مع شاشة دخول متعددة المهام ZAD IPTV Subscriptions Create Drill Down Data Entry

السلام عليكم و رحمة الله استخدم المعادلة التالية =INDEX($B$2:$K$8;MATCH($B$15;$A$2:$A$8;0);MATCH($C$15;$B$1:$K$1;0))

ربما تقصد هذا الشيء جديد قديم.xlsx

جرب هذا الملف MY_test (4).xlsx