بحث مخصص من جوجل فى أوفيسنا
Custom Search
|
-
Posts
974 -
تاريخ الانضمام
-
تاريخ اخر زياره
-
Days Won
27
نوع المحتوي
المنتدى
مكتبة الموقع
معرض الصور
المدونات
الوسائط المتعددة
كل منشورات العضو حسونة حسين
-
وعليكم السلام ورحمة الله وبركاته يرجي رفع ملفك الذي به المشكله
- 1 reply
-
- 1
-
رسالة خطأ عند العمل على الملف على اللابتوب
حسونة حسين replied to يوسف عطا's topic in منتدى الاكسيل Excel
سبب المشكله نسخه الاوفيس عندك ٦٤ بت يمكنك الاستفاده من هذا الموقع For code to run in 64-bit versions of Microsoft Office, all Declare statements must include the PtrSafe keyword, and all data types in the Declare statement (parameters and return values) that need to store 64-bit quantities must be updated to use LongLong for 64-bit integrals or LongPtr for pointers and handles. ودى الترجمه لتشغيل التعليمات البرمجية في إصدارات 64 بت من Microsoft Office ، يجب أن تتضمن جميع عبارات Declare الكلمة الأساسية PtrSafe ، ويجب تحديث جميع أنواع البيانات في بيان Declare (المعلمات وقيم الإرجاع) التي تحتاج إلى تخزين كميات 64 بت لاستخدام LongLong لتكاملات 64 بت أو LongPtr للمؤشرات والمقابض. -
السلام عليكم ورحمة الله وبركاته وبها نبدأ مرحبا بك اخى سعيد على @2015 بين اخوانك يرجي رفع ملف ليري الأخوة المشكله
-
تفضل اخي كود بسيط Option Explicit Sub Test() Dim cell As Range For Each cell In Range("C2:C" & Cells(Rows.Count, 1).End(xlUp).Row).SpecialCells(xlCellTypeVisible) cell.Formula = "=" & "B" & cell.Row & "-20" Next cell End Sub
-
السلام عليكم ورحمة الله وبركاته ممكن اخى عن طريق كود يضع لك المعادله التي تحتاجها ويستثني الخلايا المخفيه
-
رسالة خطأ عند العمل على الملف على اللابتوب
حسونة حسين replied to يوسف عطا's topic in منتدى الاكسيل Excel
وعليكم السلام ورحمة الله وبركاته قبل كلمه Function ضع Ptrsafe -
كيف يمكن اضافة نتائج بحث الى Listbox فى UserForm
حسونة حسين replied to Amr Ashraf's topic in منتدى الاكسيل Excel
وعليكم السلام ورحمة الله وبركاته الشكر لله اخى @Amr Ashraf الحمد لله الذي بنعمته تتم الصالحات -
كيف يمكن اضافة نتائج بحث الى Listbox فى UserForm
حسونة حسين replied to Amr Ashraf's topic in منتدى الاكسيل Excel
كيف اضبط Label مع رؤوس الاعمدة فى الليس بوكس -
كيف يمكن اضافة نتائج بحث الى Listbox فى UserForm
حسونة حسين replied to Amr Ashraf's topic in منتدى الاكسيل Excel
رؤوس الاعمده ابسط حاجه ممكن تعملها ب labels فوق الليست بوكس -
كيف يمكن اضافة نتائج بحث الى Listbox فى UserForm
حسونة حسين replied to Amr Ashraf's topic in منتدى الاكسيل Excel
اخي @Amr Ashraf جرب هذا التعديل Private Sub TextBox1_Change() Dim searchData As Range, Sh As Worksheet Dim Cell As Range Dim i As Long, A As Long Set Sh = ThisWorkbook.Worksheets("Data") 'Determine which search data to use based on radio buttons A = 0 Select Case True Case Process.Value = True Set searchData = ThisWorkbook.Worksheets("Data").Range("Data") ListBox1.ColumnWidths = "60,60,60" 'ColumnWidths of the ListBox1 Case Emp.Value = True Set searchData = ThisWorkbook.Worksheets("Data").Range("EmpData") ListBox1.ColumnWidths = "60,60,60,60,60" 'ColumnWidths of the ListBox1 Case Else 'No radio button is selected Exit Sub End Select ListBox1.Clear 'Clear the ListBox1 ListBox1.ColumnCount = searchData.Columns.Count ' ColumnCount of the ListBox1 If TextBox1.Value = "" Then Exit Sub 'Find matching values and add them to ListBox1 For Each Cell In searchData If InStr(1, Cell.Value, TextBox1.Value, vbTextCompare) > 0 Then ListBox1.AddItem For i = 0 To searchData.Columns.Count - 1 ListBox1.List(A, i) = Sh.Cells(Cell.Row, Cell.Column + i - 1).Value Next i A = A + 1 End If Next Cell 'Select the first item in the ListBox1 If ListBox1.ListCount > 0 Then ListBox1.Selected(0) = True End If End Sub هذا بالنسبه للإستفسار الاول -
كيف يمكن اضافة نتائج بحث الى Listbox فى UserForm
حسونة حسين replied to Amr Ashraf's topic in منتدى الاكسيل Excel
وعليكم السلام ورحمة الله وبركاته هنا تمت اضافه الكلمه التي تم البحث عنها فقط لابد من اضافه باقي الاعمده في الليست بوكس -
وعليكم السلام ورحمه الله وبركاته تجميعه من البرامج الجاهزة
-
وجزاكم مثله اخى الحمد لله الذي بنعمته تتم الصالحات
-
وجزاكم مثله اخي جرب هذا التعديل Private Sub TextBox2_Change() If TextBox2 = "" Then AutoFilterMode = False Else Range("H1").AutoFilter , field:=8, Criteria1:=TextBox2.Text 'Right(TextBox2.Text, Len(TextBox2.Text)) & "*" Dim X X = Application.Match(Val(TextBox2), ورقة3.Columns(4), 0) If Not IsError(X) Then With ورقة3.Cells(X, "B") .Value = ورقة1.Cells(1, "I").Value .Interior.ColorIndex = 30 'From 1 to 56 لون الخلفيه .Font.ColorIndex = 20 'From 1 to 56 لون الخط End With End If End If End Sub
-
السلام عليكم ورحمة الله وبركاته وبها نبدأ Add2 عدلها الى Add في كل الكود وسوف يعمل معك على اوفيس ٢٠١٠
-
وعليكم السلام ورحمة الله وبركاته جرب هذا التعديل Private Sub TextBox2_Change() If TextBox2 = "" Then AutoFilterMode = False Else Range("H1").AutoFilter , field:=8, Criteria1:=TextBox2.Text 'Right(TextBox2.Text, Len(TextBox2.Text)) & "*" Dim X X = Application.Match(Val(TextBox2), ورقة3.Columns(4), 0) If Not IsError(X) Then ورقة3.Cells(X, "B").Value = ورقة1.Cells(1, "I").Value End If End Sub
-
ماهي افضل طريقة لتعلم البرمجة على الاكسل
حسونة حسين replied to ابو صقر's topic in منتدى الاكسيل Excel
يوجد ايضا هنا موضوع جميل شرح الماكرو و القوائم بالصور للاستاذ هادى محمد المامون سالم وهذه روابط كتب للاستاذ @nedal_shami باللغه العربية Excel 2019 2ed edition اكسيل 2013- المستوى المتقدم -
يمكنك الاستفادة من هذا الموضوع
-
وعليكم السلام ورحمه الله وبركاته اجعل الكود بهذا الشكل Sub Test() With Range("E5") .Value = Range("D5") / Range("C5") .NumberFormat = "0.0000%" End With End Sub
-
وعليكم السلام ورحمه الله وبركاته جرب هذا التعديل العملاء 2.xlsb
-
ماهي افضل طريقة لتعلم البرمجة على الاكسل
حسونة حسين replied to ابو صقر's topic in منتدى الاكسيل Excel
ويوجد هنا موضوع جميل للأستاذ @إبراهيم ابوليله لعلك تجد فيه ما تبغي -
ماهي افضل طريقة لتعلم البرمجة على الاكسل
حسونة حسين replied to ابو صقر's topic in منتدى الاكسيل Excel
وعليكم السلام ورحمه الله وبركاته تفضل هذا كتاب Excel_2016__Power_Programming_with_VBA وهذا كتاب Excel_2019_Power_Programming_with_VBA الكتب باللغه الانجليزيه -
أحتاج برنامجا/تطبيقا لتدبير مكتبة مدرسية
حسونة حسين replied to hicham2610's topic in منتدى الاكسيل Excel
وعليكم السلام ورحمة الله وبركاته تفضل رابط به مجموعه برامج جاهزه -
السلام عليكم ورحمة الله وبركاته وبها نبدأ اخى طلبك في هذا الموضوع