بحث مخصص من جوجل فى أوفيسنا
![]()
Custom Search
|
نجوم المشاركات
Popular Content
Showing content with the highest reputation on 11/06/20 in all areas
-
جرب هذا الملف لا يتم ترحيل الفاتورة من الشبت Main الى الشيت Fatura أكثر من مرة واحدة اذا كانت مكررة (الاسم الأرقام والتاريخ) Hasan_Fatura.xlsm3 points
-
أظن اته لا حاجة الى اليوزر و مشاكله اذا استعملتي هذا النموذج 1- أضيفي الى الشبت ما تريدين من الأعمدة مع عناويتها 2- تعبئة البيانات في الصفحة Main (يمكن تعبئة صف واحد أو عدة صفوف دفعة واحدة ) ليس كما في اليوزر 3- تحددين الورقة التي سيتم الترحيل اليها من الصفحة Main ( القائمة المنسدلة الحمراء) 4- تضغطين على الزر Run الكود Option Explicit Sub transfere_data() Dim M As Worksheet Dim sh As Worksheet Dim Rg As Range Dim ALL_Rg As Range Dim Max_ro% Set M = Sheets("Main") If M.Range("G2") = vbNullString Then Exit Sub Set sh = Sheets(M.Range("G2") & "") Max_ro = sh.Cells(Rows.Count, 2).End(3).Row + 1 If Max_ro <= 3 Then Max_ro = 4 Set Rg = M.Range("B3").CurrentRegion If Rg.Rows.Count = 1 Then Exit Sub Set Rg = Rg.Offset(1).Resize(Rg.Rows.Count - 1) Rg.Copy sh.Cells(Max_ro, 2).PasteSpecial (12) Set ALL_Rg = sh.Range("B3").CurrentRegion If ALL_Rg.Rows.Count > 1 Then sh.Range("A4").Resize(ALL_Rg.Rows.Count - 1) = _ Evaluate("row(1:" & ALL_Rg.Rows.Count - 1 & ")") End If Application.CutCopyMode = False End Sub الملف مرفق Omhamza.xlsm2 points
-
2 points
-
امين واياك .... جزاك الله خيرا على الدعوات الطيبة منك يا طيب ..... هذا ما نحتاجه2 points
-
2 points
-
تفضل يا صديقي قدر الامكان تجنب الخلايا المدمجة حبث يوجد معادلات اكنب الاسم في الخلية G3 ولو كنت تراه في H3 Hasan.xlsx2 points
-
ممكن كفكرة : تعمل تقريرين فرعيين ( للاستعلام بحث - والاستعلام بحث_وارد ) ثم تضيفهم في التقرير واحد ... بحيث يمكنك تنسيق التقريرين كما تريد ملاحظة البيانات الموجودة في التقرير كثيرة .... لذلك يمكن جعل التقرير غير منضبط أي غير جدولي2 points
-
2 points
-
2 points
-
ممكن تستخدم مثلا هذا الكود ان اردت ..... If Len([mobile1]) < 11 Or Len([mobile1]) > 11 Then Beep MsgBox " عقواً .... تأكد من رقم الموبايل الصحيح ", 64, "تنبيه" Cancel = True Me.mobile1 = "" End If With mobile1 If Not IsNumeric(.Value) And .Value <> vbNullString Then Beep MsgBox "عفوا ... مسموح ادخال الارقام فقط", 16, " تحذير" .Value = vbNullString End If If Mid(mobile1, 1, 3) <> "078" Then MsgBox "عفوا ... تأكد من رقم الشبكة", 16, " تحذير" Me.mobile1 = "" End If End With2 points
-
2 points
-
نرحب بالأخ صالح البريكان (أبو آمنة) فى فريق الموقع🌼 أهلا وسهلا بك أخي الكريم ، و تقبل الله جهودك و جهود باقي الأخوة فى نشر العلم و المعرفة1 point
-
اين الملف للعمل عليه؟؟؟ وهل تريدين ان تمسح البيانات من الشيب Main يعد الترحيل؟؟1 point
-
بارك الله فيك يا أخي الكريم وجزأك الله خير الجزاء وجعل الله ما قمت به في ميزان حسناتك على هذا هو المطلوب1 point
-
ليس عملي ان أبحث عن محمد 1 أو محمد 2 الخ... كي اكتشف في اي عامود موجودين كي اضع رقم هذا العامود في الكود قدمت لك نموذج ابسط بكثير من اليوزر للعمل عليه ولا أعرف لماذا هذا الاصرار على اليوزر مع اني لا أطيقه ولا أحب العمل عليه فكيف كي ان اضع فيه اكثر من 40 كود (20 للتكست بوكسات و 20 للكومبوبوكسات) بالاضاقة الى أكواد الأزرار أعتذر عن المساعدة بهذا الشأن فالمنتدى تعليمي و ليس لوضع البرامج الجاهزة1 point
-
1 point
-
السلام عليكم ورحمة الله وبركاته 🙂 حياك الله اخوي صالح ضمن فريق العمل ، خطوة مباركة ان شاء الله 🙂 جعفر1 point
-
عليكم السلام والرحمة طريقتك غير ممكنة في جدول مستمر لان نطاق بيانات حقل نوع المخالفة يعتمد على حقل وصف المخالفة لذا اي تغير في حقل وصف المخالفة سيؤدي الى تغيير نطاق بيانات نوع المخالفة وبالتالي سيهمل البيانات التي خارج النطاق وكذلك الحال بالنسبة لحقل مقدار الحسم هذه محاولة ارجو ان تفيدك مع بعض التغييرات الممكنة Database2.rar1 point
-
1 point
-
1 point
-
1 point
-
جرب ...... Select Case Me.المجموع1 Case Is < 31 Me.نص45 = 1 Case Is < 61 Me.نص45 = 2 Case Is < 91 Me.نص45 = 3 End Select1 point
-
ماشاء الله تبارك الله شغل معلمين كبار اوي ====================== اسمحولي ان اقترح ان يتم حفظ كامل بيانات الفاتورة بالتفصيل ثم يتم استخراج البيانات المطلوبة1 point
-
اخي الكريم في هذه الحياة ليس كل ما يتمناه المرء يدركه لكن تستطيع ان تدرك ما تتمنى بإسلوب غير مباشر في هذا التعديل لن نقوم بالاستغناء عنصر مصدر السجلات الفرعية فهي أداة لحفظ البيانات الواردة من القاعدة الأخرى لكن في نفس الوقت وضعت لك ازرار لحفظ التعديلات من القاعدة الاساسية الى القاعدة الفرعية Desktop1.zip1 point
-
جرب المحاولة في المرفق لعلها ما تريد 44.xlsm1 point
-
بالخدمة اخي العزيز في نموذج STD يوجد مربعي نص باسم Name ,Date تابعين لحقلي تاريخ الدرجة واسم الموظف1 point
-
1 point
-
اليك هذه الاضافة الى الملف (عسى ان تنال الاعجاب) ايجاد pos_sum و Neg_sum و All_sum بين تاريخين في صفحة واحدة "Test_All" Yara_All_In_One.xlsm1 point
-
جرب هذا الماكرو Sub extractmonth_name() Dim i As Long For i = 4 To 115 Cells(i, 5).Value = Month(Cells(i, 2).Value) Next i End Sub 5.xlsm1 point
-
تفضل طلبك جاهز اضافة خمس درجات.xlsm1 point
-
تفضل اخى الكريم هذه معادلة حساب الأيام =MOD(E4+E6,30) وهذه لحساب الشهور =MOD(F4+F6,12)+QUOTIENT(E4+E6,30) وأخرى لحساب اجمالى السنوات =G4+G6+QUOTIENT(F4+F6,12) وهذا هو ملفك ... بارك الله فيك حساب الترقيات1.xlsx1 point
-
1 point
-
استاذى الجليل واخى الحبيب يعلم الله انى افتقدت كل أساتذتي الافاضل و أحبابي واعتذر عن غيابى وانقاطاعى1 point
-
ليس من الضروري ادراج الكثير من الصفوف يكفي نموذج بسيط (20- 30) صف Ammaro.xlsx1 point
-
أخي الفاضل، بعد ما تنفذ الخطوات اللي تطرق لها الأستاذ أحمد اضف التواريخ في الملف المرفق حددها واضغط على الزر اللي داخل الملف. اللي بيصير وقتها إن الملف تلقائيا بيحرر كل خلية ويضغط إنتر تلقائيا، فبالتالي بتتحدث الخلايا وتتعرف على التاريخ الهجري تحياتي F2 and Enter.rar1 point
-
السلام عليكم ورحمة الله استخدم الكود الآتى Sub RepTxt_Num() Dim C As Range, i As Long, x As String, Z As String For Each C In Range("AI5:AI" & Range("AI" & Rows.Count).End(xlUp).Row) For i = 1 To Len(C) x = Mid(C, i, 1) y = Application.HLookup(x, Range("A1:AF2"), 2, 0) Z = Z & y C.Offset(0, 1) = Z Next Z = "" Next End Sub1 point
-
ماالجديد فى اكسيل 2016 في السنوات السابقة كانت اغلب التحديثات التي تتم في الإصدارات الجديده على مستوى الخلية او ورقة العمل واقصد بذلك انها التحديثات كانت تتم على الدوال او الشكل الجمالى ....الخ . ولكن في الإصدار الجديد 2016 ركزت ميكروسوفت على تثبيت أدوات التحليل الإضافية التي غالبا ماكانت بشكل منفصل عن الاكسيل في صورة تطبيقات وأدوات إضافية مثل POWER PIVOT-POWER VIEW– POWER 3D MAP-POWER QUERY-POWER BI ........ الخ. يحتوى الإصدار الجديد من EXCEL 2016 على العديد من المزايا والامكانيات المفيده والتي لم تكن موجوده في الإصدارات السابقة والان نتعرف على هذه المزايا الجديده . من خلال خلال هذا الملف لاتنسونا بصالح دعاؤكم تحميل الملف http://excelfinancial1.blogspot.com.eg/p/blog-page_16.html1 point
-
السلام عليكم اولا قم بتحويل المعادلة الموجودة في الخلية A1 بهذا الشكل =IFERROR(VLOOKUP(Sel;M4:N8;2;0);"") ثانيا غير الكود السابق بهذا الكود Private Sub Worksheet_Change(ByVal Target As Range) If Range("A1") = 0 Then GoTo 100 If Range("A1") = "" Then GoTo 200 If Target.Address = Range("A2").Address Then _ Range("A3:K21").AutoFilter Field:=1, Criteria1:="=" & Range("A1") Exit Sub 100 Range("A3:K21").AutoFilter Field:=1, Criteria1:="<>" & "" Exit Sub 200 Range("A3:K21").AutoFilter End Sub ============== عندما تريد رؤية كل البيانات بما فيها الصفوف الفارغة إمسح الخلية التي تختارمنها الشركات ( A2 ) التي اسمها Sel1 point
-
السّلام عليكم و رحمة الله و بركاته تفضّل أخى الكريم بعض المحاولات ربما تفي بالغرض .. 1- كود التّرقيم التّلقائي بالتاكست بوكس : Sub Tasselssol() 'tassalssol numerique mm = 5 Do Until Feuil1.Cells(mm, "a").Text = "" mm = mm + 1 Loop TextBox1.Value = mm + 1 - 5 End Sub Private Sub UserForm_Initialize() Tasselssol End Sub على أساس رقم الصف بالشيت هو الصف الخامس (5) و العمود الأوّل (a) ..واسم الشيت Feuil1 ملاحظة : يجب كتابة و إضافة عبارة " Tasselssol " بآخر سطر بالكود الذي سوف تستعمله - تعطيل الكتابة داخل التاكست بوكس .. يمكنك استعمال هذه الخاصّية : 3 - عدم قبول الأرقام بالتاكست بوكس .. بإمكانك استعمال هذا الكود : Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) Select Case KeyAscii Case 32 To 64, 91 To 96, 123 To 126 MsgBox ("إنتبه.. يجب كتابة الحروف فقط") KeyAscii = 0 Exit Sub End Select End Sub خالص تحيّاتي1 point
-
Option Compare Database Dim DBOld As String Dim DBNew As String Private Sub Form_Close() On Error Resume Next Dim OldFile As String, DBwithEXT, DBwithoutEXT, NewFile As String, CopyMyDB OldFile = DBOld DBwithEXT = Dir(OldFile) DBwithoutEXT = left(DBwithEXT, Len(DBwithEXT) - 4) Application.SetOption "Use Hijri Calendar", False NewFile = DBNew & "\" & Format(Now, "yyyymmddhhnnss") & ".mdb" CopyMyDB = "cmd.exe /C copy " & """" & OldFile & """" & " " & """" & NewFile & """" Shell CopyMyDB, 0 Exit Sub End Sub Private Sub Form_Load() DBOld = CurrentProject.Path & "\db2.mdb" DBNew = CurrentProject.Path & "\tst\" Call zerNc End Sub Sub delfiles() Dim strFldr As String Dim strFile As String Dim FileToGet As String strFldr = CurrentProject.Path & "\tst" ' modify folder to your own strFile = Dir(strFldr & "\*.*") ' get list of files in folder Do While Len(strFile) > 0 FileToGet = left(strFile, Len(strFile) - 4) If FileToGet <= CStr(Format(Date - 3, "yyyymmdd")) Then Kill strFldr & "\" & strFile Else End If strFile = Dir Loop End Sub Sub zerNc() On Error Resume Next Dim OldFile As String, DBwithEXT, DBwithoutEXT, NewFile As String, CopyMyDB OldFile = DBOld DBwithEXT = Dir(OldFile) DBwithoutEXT = left(DBwithEXT, Len(DBwithEXT) - 4) Application.SetOption "Use Hijri Calendar", False NewFile = DBNew & "\" & Format(Now, "yyyymmddhhnnss") & ".mdb" CopyMyDB = "cmd.exe /C copy " & """" & OldFile & """" & " " & """" & NewFile & """" Shell CopyMyDB, 0 Exit Sub Me.Requery Call delfiles End Sub db.rar1 point
-
السلام عليكم و رحمة الله و بركاته حبيت اشارك طريقة حفظ نسخة احتياطية للقاعدة بيانات حسب نموذج اعدادات وتم اضافة زر اسفل زر حفظ في شاشة إعدادات للحفظ النسخة مع ضغط و إصلاحها بالتوفيق،،،،، Main2.rar1 point
-
برنامج ادارة معرض او محل شرح البرنامج --------------------1 point
-
السلام عليكم مثال مرفق للتحويل عن طريق الكود . تحياتي . HijriToGreg.rar1 point