بحث مخصص من جوجل فى أوفيسنا
Custom Search
|
نجوم المشاركات
Popular Content
Showing content with the highest reputation on 20 يون, 2019 in all areas
-
3 points
-
بعد اذن أستاذ ابا جودى اذا كنت تريد فتح النموذج مرة واحدة فقط استخدم حذف امر.accdb2 points
-
اتفضل حذف امر.accdb وان كنت تريد استخدام الامر مرة واحدة فقط حتى بعد اغلاق القاعدة اخبرنى2 points
-
انظر الى التنسيق الـ Format New Microsoft Access قاعدة بيانات (3) (1).accdb2 points
-
1 point
-
للأسف لا يمكن حفظ ورقة عمل بنوع PDF وهي مخفية فلابد من التحايل بعمل كود إظهار ورقة العمل قبل الحفظ وكود آخر يقوم بإخفاء ورقة العمل مرة أخرى بعد الحفظ مع خالص تحياتي1 point
-
السلام عليكم 🙂 اخوي @kaser906 كل الدلالات كانت تشير الى انك بالفعل خبير ، وانما هذه التسمية تأكيد لذلك 🙂 جعفر دائما سبّاق للخير اخوي ابا جودي 🙂1 point
-
يأستاذ @مسفر لم يأتى فى دماغى شيىء عند وضع السؤال الا اغلاق مساعد اكسس و ما يشابهه ولم أدرك انها بهذه البساطة1 point
-
QR-Code_Generator_v2.zip كنت على عجلة من امرى ولم انتبه للمرفق اثناء الرفع وقمت برفع مرفق خاطئ من فضلك قم بالتحميل المرفق مرة أخرى تم التعديل جرب يا استاذ @الوسيط واخبرنى بالنتيجة ان واجهت اى مشاكل ولا تنسي ان تحدد هذه المشاكل التى قد تواجهك من فضلك QR-Code_Generator_v2.zip1 point
-
ماشاء الله ولا اجمل ولا احلى ولا اروع من كده استاذنا جزاك الله خيرا وجعله في ميزان حسناتك1 point
-
لا يفهم القول إلا من الكلمات الدالة عليه فإن كان مبهما تخبط العقل في الإدراك فنتج عنه الإنحراف عن الصحيح إلى الخطأ والدقة في إيصال المعنى لما نريد سواء كان سؤال علميا أو شرعيا يؤدي إلى النتيجة الصحيحة ولا تفهم الإجابة من قول مبهم فالعلماء قبل الإجابة يضعون أسئلة لحصر السؤال حتى يستطيعوا حصر الإجابة فلا يؤخذ منهم عكس ما يريدون1 point
-
اصبح يعمل التعديل لكل على حسب الـ ID التعديل باضافة تقرير للكل تم تعديل المرفق QR-Code Generator v2.zip1 point
-
Private Sub Form_Load() Me.KeyPreview = True 'لابد من هذا السطر ليعمل الكود القادم او وضع TRUE علي KeyPreview من الخائص End Sub ' F1 >>---> 112 ' F2 >>---> 113 ' F3 >>---> 114 ' F4 >>---> 115 ' F5 >>---> 116 ' F6 >>---> 117 ' F7 >>---> 118 ' F8 >>---> 119 ' F9 >>---> 120 ' F10 >>---> 121 ' F11 >>---> 122 ' F12 >>---> 123 Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 112 Then ' استبدل هذا الرقم برقم المفتاح بالاعلى كما يحلو لك 'استبدل هذا السطر بالكود الذى تريده KeyCode = 0 Exit Sub End If End Sub1 point
-
استاذ محمد شكرا جدا على المجهود دا وفر على وقت كبير جدا ربنا يجعله فى ميزان حسناتك ان شاء الله ولكن هناك طلب آخر لو تفضلت المعاملة مثلا رقم MB194755584AE تكرر ظهورها فى الشيت يوم 8/6/2019 ويوم 12/6/2019 بنفس المبلغ 3400 وهذا معناه انه تم سحب المبلغ بالخطأ مرتان وهذا سبب عجز فى الرصيد حيث انه تم كتابتها فى الشيت الاخر على انها معاملة واحدة بمبلغ 3400 واحد . كيف يمكن ان اكنشف هل هناك معاملات اخرى بنفس الطريقة بالمبلغ اكثر من 50 وتكون المعاملة الواحدة مدفوع لها اكثر من مرة1 point
-
1 point
-
تفضل اخى الكريم حسن -تم عمل قائمة منسدلة بأسماء العملاء ثم بعد ذلك عمل معادلات مصفوفة بمجرد اختيار اسم العميل سوف يتم جلب كل بياناته ولكن كان لزاما عليك من البداية رفع مشاركة مستقلة بما تريد فقد تم فصل مشاركتك ووضعها بمشاركة جديدة مستقلة Book1.xlsx1 point
-
اهلا بك في منتدانا الكريم تفضل هذا الرابط -كان عليك استخدام خاصية البحث في المنتدى أولا قبل رفع المشاركة https://www.officena.net/ib/topic/91235-طباعة-الشيكات-بالاكسل/?tab=comments#comment-5720101 point
-
1 point
-
السلام عليكم بدلا من حجز مساحة كبيرة لادراج صورة في اكسيل بجانب اسم شخص معين هناك طريقة لادراج صورة في تعليق تظهر وتختفي مجرد وضع الماوس على الاسم ولا تأخذ حيز نهائيا لطفا شاهدوا الفيدو لتعلم الطريقة1 point
-
1 point
-
1 point
-
1 point
-
1 point
-
تم التعديل على المديول رقم 2 ليصبح بهذا الشكل Sub Macro1() Dim Arr With Sheets("Sheet1") Arr = Array(.Range("g2"), .Range("C1"), .Range("E1"), .Range("E3"), .Range("C3"), .Range("H21"), .Range("H22"), .Range("H23")) End With With Sheets("íæãíå ÇáãÈíÚÇÊ") .Range("B" & .Cells(Rows.Count, "B").End(xlUp).Row + 1).Resize(1, UBound(Arr) + 1).Value = Arr End With MsgBox "Done...", 64 Range("C6").Select ActiveWindow.SmallScroll Down:=-3 Range("g2").Select Sheets("Sheet1").Select Sheets("Sheet1").Copy After:=Sheets(1) Sheets("Sheet1 (2)").Select Sheets("Sheet1 (2)").Name = "Sheet1 (2)" Sheets("Sheet1 (2)").Select Sheets("Sheet1 (2)").Name = Range("g2").Value Range("B11").Select ActiveWindow.SmallScroll Down:=-3 Sheets("Sheet1").Select ActiveWindow.SmallScroll Down:=0 Range("c5:f20").Select Selection.ClearContents Range("C3").Select Selection.ClearContents ActiveWindow.SmallScroll Down:=-18 Range("g2").Select Selection.Copy Range("I9").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Range("C3").Select End Sub كما انه تم عمل باقى الطلبات ومن ضمنها -تم انجاز كشف حساب العميل بمعادلات المصفوفة وهذا هو الملف بعد التعديل gedyana.xlsm1 point
-
1 point
-
اعتذر من حضرتك أستاذ محمد لضيق الوقت فقد تم عمل الطلب الأول تفضل gedyana.xlsm1 point
-
وعليكم السلام أستاذ خالد يمكنك ذلك بدون اى برامج من خلال هذه الروابط والشرح https://www.youm7.com/story/2014/11/18/بالخطوات-اغلق-جهاز-الكمبيوتر-فى-الوقت-الذى-ترغب-فيه-دون/1955803 http://www.computer-wd.com/2018/11/auto-shutdown-windows-10.html http://www.doniacomputer.com/2016/10/blog-post_19.html https://www.wikikeef.com/shutdown-pc-automatically/ https://sigma4pc.com/11639/sigma-auto-shutdown https://wingiz.com/c/100024583 وهذا كمان فيديو للشرح https://www.youtube.com/watch?v=IY0xla7b9jE1 point
-
1 point
-
بارك الله فيك وجزاك الله كل خير ولك بمثل ما دعوت لى وزيادة -والحمد لله الذى بنعمته تتم الصالحات1 point
-
1 point
-
وعليكم السلام -اهلا بك في منتدانا الكريم https://www.officena.net/ib/topic/32270-لأول-مرة-في-الأكسل-شجرة-الحسابات-بهذه-الطريقة/page/2/1 point
-
تفضل هذا كان موضوع مطروح من قبل لأستاذنا الكبير مجدى يونس له منا كل المحبة والإحترام فكان عليك من البداية قبل طرح وعرض المشاركة استخدام خاصية البحث فى المنتدى https://www.officena.net/ib/topic/80119-فورم-طباعة-الفورم-بالكامل/?tab=comments#comment-5124781 point
-
1 point
-
وعليكم السلام كان عليك استخدام خاصية البحث في المنتدى-تفضل https://www.officena.net/ib/topic/67320-كيفية-اضافة-التقويم-الى-الاكسل-بدون-اكواد-مع-عماد-غازى-calendar/?tab=comments#comment-4383601 point
-
1 point
-
تفضل بعد اذن استاذى ابراهيم كود استدعاء بيانات من القائمة المنسدلة.rar1 point
-
السلام عليكم ورحمة الله استخدمى هذه الاكواد الثلاثة Sub Get_Data() Dim ws As Worksheet, Sh As Worksheet Dim Arr As Variant, Temp As Variant Dim LR As Long, i As Long, j As Long, p As Long Dim PatName As String Set ws = Sheets("تقرير بحالات الاعاقة") ws.Range("B5:I1000").ClearContents PatName = ws.Range("D2").Value Set Sh = Sheets("اعاقات خاصة") LR = Sh.Range("C" & Rows.Count).End(xlUp).Row Arr = Sh.Range("B3:I" & LR).Value ReDim Temp(1 To UBound(Arr, 1), 1 To UBound(Arr, 2)) For i = 1 To UBound(Arr, 1) If Arr(i, 4) = PatName Then p = p + 1 For j = 1 To UBound(Arr, 2) Temp(p, j) = Arr(i, j) 'Temp(p, 1) = p Next End If Next If p > 0 Then ws.Range("B5").Resize(p, UBound(Temp, 2)).Value = Temp Call Get_Photo End Sub Sub Get_Photo() Application.ScreenUpdating = False Dim StudName As String, E As String, Dpath As String Dim pics As Object Dim Sh As Worksheet Dim C As Range, H Application.ScreenUpdating = False Set Sh = Sheets("تقرير بحالات الاعاقة") For Each pics In Sh.Pictures pics.Delete Next pics On Error Resume Next For Each C In Sh.Range("J5:J1000") StudName = C.Offset(0, -8).Value If C.Offset(0, -8).Value <> "" Then Dpath = ActiveWorkbook.Path myDir = Dpath & "\" & "صور" & "\" E = ".jpg" Sh.Shapes.AddPicture Filename:=myDir & StudName & E, _ linktofile:=msoFalse, savewithdocument:=msoTrue, Left:=C.Left, _ Top:=C.Offset(0, 8).Top, Width:=C.Offset(0, 8).Width, Height:=C.Offset(0, 8).Height End If Next Application.ScreenUpdating = True End Sub Sub Delete2_Photos() Application.ScreenUpdating = False Dim pics As Object Dim ws As Worksheet Set ws = Sheets("تقرير بحالات الاعاقة") For Each pics In ws.Pictures pics.Delete Next pics Application.ScreenUpdating = True End Sub1 point
-
1 point
-
1 point
-
1 point
-
بارك الله فيك وجزاك الله كل خير دائما ومن الأفضل رفع ملف لكى تكتمل الإستفادة لجميع الأعضاء1 point
-
اهلا بك فى المنتدى أحسنت استاذى الكريم عمل رائع جعله الله فى ميزان حسناتك1 point
-
تفضل هذا الرابط هيفيدك https://www.officena.net/ib/topic/88238-طريقة-تحديد-خلايا-معينة-حسب-مجموع-معين/?tab=comments#comment-5569381 point
-
بارك الله فيك استاذ محمد ولك بمثل ما دعوت لى وزيادة والحمد لله الذى بنعمته تتم الصالحات1 point
-
1 point
-
بارك الله فيك والحمد لله الذى بنعمته تتم الصالحات1 point
-
تفضل لك ما طلبت ولكن لابد ان تلاحظ ان اعمدة مهمة العمل والبرنامج الأكاديمى والملتقى ولقاء خبير ليس بهم معادلات لأن هذه الأعمدة لا تحتوى على عمود العنوان بارك الله فيك تجربة2.xlsx1 point
-
1 point
-
جرب على جهاز اخر انا اللاب توب عندى 64 او الاوفيس1 point
-
1 point