اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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

Popular Content

Showing content with the highest reputation on 29 مار, 2024 in all areas

  1. اخي الحبيب بناء على المحادثة الخاصة التي وعدتك فيها بمساعدتك على تحقيق طلبك اقدم اعتذاري لك استعلام التوحيد طويل ومتشعب ويحتاج الى اعادة ترتيب .. وهذا متعب خاصة في هذه الايام الفاضلة واذكر سبق ان اشرت عليك بتغيير طريقتك في بناء التصميم اعتقد يقينا انه يمكن تنفيذ فكرتك والتي هي ( المخرجات النهائية ) بكل يسر وسهولة ... واكثر مرونة بحيث يكون قابل للتعديل والزيادة والنقص الغريب في تصميمك .. هو اعتماد الوقت بدلا من رقم الحصة المتعارف عليها دوليا ، لأن الوقت معلوم بالضرورة ... ومع ذلك يمكن الحاق الوقت بالحصة ( للاستئناس) ولكن الاساس هو رقم الحصة الشيء الآخر التكرار في ايام الاسبوع والاختيار من 74 بندا بدلا من 7 ان اردت اعادة ترتيب اوراقك انا حاضر .. بشرط ان نبدأ من الصفر اكرر اعتذاري .. اعانك الله ووفقك
    1 point
  2. وما المانع من عمل نسخة Accde قبل ذلك قم بتقسيم القاعدة باك اند وفرنت اند وعدل براحتك على نسختك الاصلية ويعدها استبدل الفرنت اند ولن تتاثر بياناتك
    1 point
  3. يعتمد على الارتساء للحقول وبالتالي الارتساء يعتمد على ضبط دقة الشاشة عادة ما يكون الضبط للحقول اقصى اليسار في الوضع التلقائي ولا علاقة للويندوز في هذا الذي حدث
    1 point
  4. عليكم السلام اخي الكريم من البداية تصميمك للجداول بحاجة الى اعادة نظر متى نعرف اننا لم نعمل التصميم كما ينبغي .. يظهر ذلك في النهايات عند الحاجة الى استخراج تقارير خاصة ودقيقة ................ التصميم الصحيح لفكرة الاستئذان والعودة كالتالي : العمل على جدول واحد فقط ثلاث حقول رئيسية هي المهمة والتي عليها المدار 1- حقل يحدد زمن الخروج المصرح به ويعمل كقائمة يتم الاختيار منها ( ساعة / نصف ساعة ..... الخ ) 2- حقل وقت الخروج ( جنرال ) Now 3- حقل وقت العودة ( جنرال ) Now من خلال هذين التاريخين نستطيع حساب الوقت الذي استغرقه الخروج بالساعة والدقيقة والثانية ويمكن المقارنة بسهولة بين الخروج والعودة وحساب الفرق بين الممنوح وما تم استغراقه بالفعل لو عاد وخرج مرة اخرى يتم رصده في سجل جديد
    1 point
  5. جرب هذا Private Sub Worksheet_Change(ByVal Target As Range) Dim Patch As String, Img As Boolean, Strfile As String, Imgfile As String If Not Intersect(Target, Range("k3")) Is Nothing Then Dim rng As Range, Clé As String, Cpt As Long Set WS = Feuil1: Set dest = Feuil2: Clé = dest.[k3] Set rng = WS.Columns("A:A").Find(What:=Clé, _ LookIn:=xlFormulas, LookAt:=xlWhole, SearchOrder:=xlByRows, _ SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False) Cpt = rng.Row dest.[F7] = WS.Cells(Cpt, 2).Value dest.[G7] = WS.Cells(Cpt, 3).Value dest.[H7] = WS.Cells(Cpt, 4).Value dest.[I7] = WS.Cells(Cpt, 5).Value dest.[J7] = WS.Cells(Cpt, 6).Value dest.[K7] = WS.Cells(Cpt, 7).Value dest.[L3] = WS.Cells(Cpt, 8).Value Patch = ThisWorkbook.Path Img = False On Error Resume Next Strfile = Dir(Patch & "\" & [L3].Value & ".*") Do While Len(Strfile) > 0 If Len(Strfile) <> 0 Then Img = True Imgfile = Strfile Exit Do Else End If Loop If Img = True Then Me.Image1.Picture = LoadPicture(Patch & "\" & Imgfile) Me.Image1.PictureSizeMode = fmPictureSizeModeZoom Me.Image1.Left = [L6].Left: Me.Image1.Top = [L6].Top On Error GoTo 0 Else MsgBox ("الصورة غير متوفرة") Me.Image1.Picture = Nothing End If End If End Sub test.rar
    1 point
×
×
  • اضف...

Important Information