اخي العزيز التقني هل نسيتني
اخواني من يعرف المشكلة لازالة في اعدم اظهار البيانات في المده المحدده بشهر والسنه
جزاكم الله عنا الف خير ومحي عنكم الف سيئة
الاستاذ والاخ الكريم /مهند عبادي
انا في غاية الاحراج من كثر الطلبات منك لكنه العشم وكرم اخلاقكم العالية
هي التي طمعتني في الطلب منكم هذا الطلب
اني حاول استدع هذه الدالة ولم ولكنها تظهر لي رسالة مفادها ان هناك معلمة قلية
لوتكرمته بمثل حتي يمكن الاستفاده وجزاكم الله الف خير والف حسنه ومحى عنكم الف سيئة
اخوكم وتلميذكم شاهر
اخي الكريم لاتزال المشكله انه لايظهر البيانات بين تاريخين جرب بين تاريخ1/2003 الي 12/2006
ان في اعتقاد ان جميع البيانات في الجدول تظهر لكن النتيجه غير ذلك
جرب اخي الكريم
اشكرك على هذا التعاون واسف اني اتعبتك معي
كيف ياشباب ان كان لديك ملفات في جهزك وتريد ارشفتها في ملف ورد اى اخذ التسميات مثل الملفات المضغوطه
مثل برنامج اعادة التسمية اريد برنامج يخذ جميع اسماء الملفات الموجوده لدي وكتابتها في ملف مورد حتي استكيع مرجع مالدي من ملفات في حاجة الطلب
مع خالص الشكر
لدي سؤال حوال تقرير عن بيانات بين تاريخين
[between [frst] And [end
الي هنا مافي اى مشكلة المشكله عن تحويل تنسيق التاريخ شهر وسنه فقط
عند الاستعلام بين تاريخين مثل من تاريخ 1/2006م الى تاريخ 6/2006م يظهر هذه الفتره مع شهر 11 وشهر واحد من السنه السابقة 2005م اى انه ليس دقيق وكذالك عن الاستعلام بين تاريخن مثل 1/2006م الى 12/2006م
مع علما باني استخدمة دالة ([Month ([mdate ولذك لناء تقرير حسب الفترة المرغوب بها وتكون دقيقه
لنرجو التكرم بمساعد
اخواني الاكارم ان هذة المشارك قبل حولي اسبوعين كانت في قسم الاكسل
وتم تحويلها الى هنا ارجو الاهتم لنا الكود رائع ومفيد للجميع في البحث عن
المكررات من القيم مع خالص التحيه
اخي واستاذي القدير تعجز اللسان عن الشكر والعبارات عن التجمع ولكني اقول
اسأل الله العلي القدير إن يجزيك الجنة ويبارك فيك
ونفعك بما علمك ونفع بك وشفاك الله من كل سواء ومكروه
وجعل اليد التي عملة هذا أن تصافح رسول الله صلي الله عليه وسلم
اخوكم شاهر
تفضل اخي
هذا هوا الكود
[
Public Function PutWindowOnTop(pFrm As Form)
Dim lngWindowPosition As Long
lngWindowPosition = SetWindowPos(pFrm.hWnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE)
End Function]
استاذي الكريم لقد وجدة كود لجعل النافذة في المقدمة ولم اجد مايثبتها من النزل على شريط
ان احتجت الكود فسوف ارفقه لك لاظافة كود جعل الفورم ثبت حتي يتم الخروج
وخالص احترام وتقدير لشخصكم الكريم
تلميذكم /شاهر
الاستاذ الكريم مهند عبادي
بارك فيك وجزاك الله الف خير
اتمنا ولو فيها ثقل عليك مثال صغير به جدوال ونموذج
يعرض البيانات التشفير وعكس التشفير حتي يتم استيعاب الفكر
مع خالص الامتنان والشكر
مرة كنت اتصفح منتدي الاكسل فاوجدة كود بالاكسل واريد تحويلة الى اكسس
وعمل الكود بختصار التشييك والبحث في السجلات عن الارقام المكرره حتي انه يعمل على البحث عن الاسماءالمكرره فيحذفها
اي المكررة فقط ويبقي على سجل واحد فقط من كل السجلات
.
هذا هو الكود ارجو التعديل مع مثل في الاكسسس مع خالص احترامي وتقدير
Sub Button1_Click()
Worksheets("sheet1").Activate
Range("b3:b2100").Select
Dim Col As Integer
Dim r As Long
Dim C As Range
Dim N As Long
Dim V As Variant
Dim Rng As Range
On Error GoTo EndMacro
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Col = ActiveCell.Column
If Selection.Rows.Count > 1 Then
Set Rng = Worksheets("sheet1").Range("b3:b2100")
End If
N = 0
For r = Rng.Rows.Count To 1 Step -1
V = Rng.Cells(r, 1).Value
If Application.WorksheetFunction.CountIf(Rng.Columns(1), V) > 1 Then
Rng.Rows(r).EntireRow.Delete
N = N + 1
End If
Next r
Range("b3").Select
EndMacro:
End Sub