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

محمود الحربي

02 الأعضاء
  • Posts

    99
  • تاريخ الانضمام

  • تاريخ اخر زياره

السمعه بالموقع

2 Neutral

عن العضو محمود الحربي

البيانات الشخصية

  • Gender (Ar)
    ذكر
  • Job Title
    مهندس

اخر الزوار

1,036 زياره للملف الشخصي
  1. بارك الله فيكم جميعاً الطريقة الاولي للمهندس علي مشيت معاي تمام الف شكر استاذ محمد صالح
  2. السلام عليكم ورحمة الله وبركاته لدي مشكلة اني اطبق عملية VLOOKUP على خليه فيها صيغة ولا تقبل معاي =VLOOKUP(C2;$Q$5:$R$16;2;0) C2 عبارة عن A2&B2 .. ماهو الحل ؟ .. مرفق مثال رحم الله والديكم TEST.xlsx
  3. احتاج دالة مثل VLOOKUP بس هنا الكود لدي ياخذ رقم متسلسل يعني ما يعطيني اسم الادارة بالتفصيل : احتاج اذا الكود يحتوي على EAS يعطيني في الخلية B2 ( الادارة المالية ) مثلاً codeid.xlsx
  4. السلام عليكم ورحمة الله وبركاته لدي دالة تعمل على فتح الملف من جهاز الكمبيوتر لاكن عند استخدام قوقل شيت لاتعمل هل لها بديل بحيث اسم الملف تاخذه من الخلية المحددة المجلد موجود على نفس الكمبيوتر وليس على الدرايف اسم الملف موجود هنا في الخلية F10 =HYPERLINK("C:\Users\MAHMOUD\Desktop\1441\"&F10&".pdf";"فتح المعاملة") تقبلو تحياتي
  5. اسعدك الله اخي ( لاكن هذا الجمل متغيرة وليس ثابته ) و الدالة الي وضعتها ثابته بحث عن هذه الجملة ونسخها في الخلية الذي اريدة اي جملة تاتي في " " تاخذ في الخلية
  6. السلام عليكم ورحمة الله وبركاته اسعد الله اوقاتكم بكل خير لدي بيانات استخرجها من sql واحتاج نقله مفصل في عاموديين منفصله واحتاج دالة تقوم بذلك كل ما احتاجة مفصل في الملف وهو نقل ( لا يوجد ترخيص ) في عامود و المبلغ 3000 في عامود {"ViolationDescription":"لا يوجد ترخيص","SubjectNumber":"مادة (5-5)","ReferenceSystemPaper":"التراخيص .","ViolationPunishment":"3000","ViolationRepitetion":1,"$$hashKey":"object:6995"} رحم الله والدينكم وجزاكم الله حير بياناتي.xlsx
  7. شاكر على حسن اهتمامك لاكن هذا غير المطلوب اريد طريقة اتصال فعاله عند التسجيل على قوقل شيت في خلية يتم نقلها في الاكسل
  8. السلام عليكم ورحمة الله وبركاته لدي شيت في قوقل واريد ربطه في شيت في الاكسل بنقل كامل البيانات التي في الصفحة هل الطريقة ممكن وهل احد جربها يفيدنا في ذلك رحم الله والدينا والدينكم جميعاً
  9. السلام عليكم ورحمة الله وبركاته اريد استرجاع بيانات في ملف اكسل تالف هل احد يقدر يساعدني الملف مرفق رحم الله والدينا والديكم 123.rar
  10. الف شكر م. مجدي يونس لاكن اذا وضعت Textbox اضيف فيه اسم الملف وزر فتح كيف يكون الكود
  11. لدى مشكلة في خطا مرفق لكم الخطأ اتمني من الله ثم من اساتذتنا المساعدة Private Sub ButtonSerach_Click() Dim tb1 As Boolean, ib As Boolean Dim R As Long, RR As Long Dim C As Integer Dim MyFind, MySrch, MyVelue '''''''''''''''''''''' Me.ListFind.Clear If Len(Trim(Me.TextFind)) = 0 Then Exit Sub ''''''''''''''''''''' C = Me.BoxFind.ListIndex + 1 tb1 = CBool(Me.CheckFindDate.Value = True) If tb1 Then If Not IsDate(Me.TextFind) Then kh_SetDate Me.TextFind MyFind = CDbl(CDate(Me.TextFind)) Else MyFind = Me.TextFind.Value End If ''''''''''''''''''''''' With MyRngdate.Cells(2, Ar(C)) For R = 1 To ContRow If Len(Trim(.Cells(R, 1))) Then If tb1 Then MySrch = .Cells(R, 1).Value2 Else MySrch = .Cells(R, 1).Value ib = IIf(Me.CheckFind.Value, InStr(1, MySrch, MyFind, vbTextCompare) = 1, InStr(1, MySrch, MyFind, vbTextCompare)) If ib Then MyVelue = .Cells(R, 1).Value If IsDate(MyVelue) Then MyVelue = Format(MyVelue, DtF) Me.ListFind.AddItem MyVelue Me.ListFind.List(RR, 1) = R RR = RR + 1 End If End If Next End With Me.LblFindCount = Me.ListFind.ListCount If RR = 0 Then MsgBox " لا توجد نتائج لبحثك هذا ", mBox, "تنبيه" ''''''''''''''''''''''''' End Sub
  12. هنالك مشكلة تواجههني انه اذا كانت احد الخلايا مسحوبة بمعادلة من جدول اخر لا تتم عملية البحث فيها هل هناك حل في الكود لعملية البحث في ناتج المعادلة
×
×
  • اضف...

Important Information