بحث مخصص من جوجل فى أوفيسنا
Custom Search
|
كل الانشطه
- Yesterday
-
صراحة لم أستوعب هذا لأنه كما سبق الذكر ورقة الأنشطة خاصة بالفلترة وبياناتها يتم جلبها بشرط التواريخ المحددة !!!! ليس لي فكرة عن ما تحاول فعله . هذا يتطلب إعادة تعديل جميع الأكواد السابقة شخصيا ليس لي الوقت الكافي لفعل هذا خاصة عند الإشتغال على نفس الملف أكثر من مرة اخي الفاضل لقد تم الرد على طلبك بخصوص تعديل خطأ الكود ربما انت في حاجة لفتح موضوع جديد بطلباتك الجديدة ربما يستطيع أحد الإخوة مساعدتك بالتوفيق
-
رجاء تعديل خطأ في جدول أنشطة
Alaa Ammar New replied to Alaa Ammar New's topic in منتدى الاكسيل Excel
السلام عليكم أخي محمد هشام @محمد هشام. كل سنة وحضرتك طيب وبخير يارب حضرتك في شيت الأنشطة لما احتاج اعمل فلترة انا بحتاج ايضا نفس الجدول اللي في sheet1 فانا برضه بزود في الجدول في sheet1 مش بزيد في جدول الاشطة - انا محتاج ده يبقى مراية لده أزود في ده يزيد في الآخر وامسح في ده يمسح في الآخر ... وفي فكرة تانية هل ممكن بدل ده كله أدمج وظيفة الشيتين sheet1 وأنشطة في شيت واحد يكون فيه الفلترة بين تاريخين والبحث بالمفتاح التصدير الى pdf وورد ,excel ومعلش يكون التصدير بدون الصفوف الفارغة اللي تحت. ومعلش لما بصدر الجدول الى وورد بيظهر التاريخ معكوس فهل من طريقة لعدله؟ والله انا مزهقك أنا عارف بس والله ربنا يجعله في ميزان حسناتك ويجعل الخير بين إيديك يا رب -
عايزه كود يمنع الطباعه لو كل حقول result فاضيه
safaa salem5 replied to safaa salem5's topic in قسم الأكسيس Access
كدا حضرتك بردو هيكون فى اختيارين لو [completed] = -1 او [completed] = 0 مش هيكون فى اختيار تالت -
عايزه كود يمنع الطباعه لو كل حقول result فاضيه
UserUser2 replied to safaa salem5's topic in قسم الأكسيس Access
الحل في الكود هنا ⬆️ -
عايزه كود يمنع الطباعه لو كل حقول result فاضيه
safaa salem5 replied to safaa salem5's topic in قسم الأكسيس Access
جربت كل الحلول للاسف محدش قادر يوصل للى انا محتاجاه الحلول كلها مبنيه ان جميع حقول result لو فاضىه مفيهاش قيمه (is null) او كلها مش فاضيه (isnot null) ---------------------------------------------------------------- فى مرحله وسط اللى هى بعض الحقول فيها قيمها وبعضها لا ----------------------------------------------- وللاسف محدش اخد باله من النقطه دى--------------------------------------------------------- -
الملف يتحول إلى للقراءة فقط (Read only) تلقائياً كل فترة
alibadawy56 replied to طارق_طلعت's topic in منتدى الاكسيل Excel
كانت عندي نفس المشكلة لكن كل ملفات الاكسيل علي الجهاز بتجيب read only وواكتشفت السبب اني كنت ضايف دوال اضافية مش موجوده في نسخة الاكسيل عندي من خلال Add ins حذفتهم واشتغل طبيعي مفهوش اي مشاكل -
شكرا لكم 🌹
-
Abdullah_hadi14 joined the community
-
Zooro1 started following استخدام شاشتين رئيستين للبرنامج
-
السلام عليكم، لدي قاعدة بيانات وفيها شاشتين رئيستين A,B مختلفين لكن نفس الازرار ونفس النماذج، في الشاشة الافتتاحية اذا اختار المستخدم شاشة A بيكمل عادي بس مثلا في النماذج لو في زر رجوع Main للشاشة اللي دخل بيها A وهكذا العكس ولو اختار شاشة B وكمل شغل وفي زر رجوع Main للشاشة اللي دخل بها B .... اتمني تفيدوني واتمني اكون وصلت المعلومة صح.
-
استاذنا خليفة، في خطأ بيظهر لي compil error, method or data not found هصورها لحضرتك وابعتهالك. ابعت لحضرتك جدولي
-
شكرا لك اخي العزيز
-
yaser2 joined the community
-
رابط الموقع الذى يتم فيه تحويل جمل sql access الى sql server SQL Converter - AccessUserGroups.org
-
خالد المصـــــــــــرى changed their profile photo
-
تسلم ايديك بجد حل عبقرى
-
السلام عليكم اخوتي الكرام الى السادة الخبراء طلب: أريد اظهار سالة (لا توجد صورة مطابقة لرقم الجلوس) عندما لاتوجد صورة مطابقة لرقم الجلوس عند تنفيذ الكود التالي: Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer) Dim s1 As String s1 = Str(Me![رقم الجلوس]) s1 = Right(s1, Len(s1) - 1) Me![Image_Std].Picture = "D:\صور\" + s1 + ".jpg" End Sub ولكم جزيل الشكر
-
Naomi Ramos joined the community
-
-
في حالة الرغبة باستخدام الكود الخاص بك يكفي تعديله فقط على الشكل التالي Sub PDF() Dim Path As String Path = Label2.Caption 'Code......................... ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:= _ Path & "ملف رواتب الموظفين\" & fName, Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False End Sub
-
متشكر جدا لحضراتكم ورفع الله قدركم وزادكم من فضله علما وخلقا تحياتي للمهنس صالح وللمهندس محمد هشام ملف الاستاذ محمد هشام قام بالمطلوب بالظبط الف شكر لحضراتكم
-
وعليكم السلام ورحمة الله تعالى وبركاته تفضل اخي جرب هدا Private Sub CommandButton1_Click() Dim WS As Worksheet: Set WS = Sheet3 Dim FileName As String, strDirname As String, Patch As String, strDefpath As String strDirname = Me.TextBox1.Text FileName = WS.[B8] strDefpath = Label2.Caption lr = WS.Range("B" & WS.Rows.Count).End(xlUp).Row WS.PageSetup.PrintArea = "A1:D" & lr + 5 On Error Resume Next If FileName = "" Then MsgBox "يرجى اظافة اسم الملف": Exit Sub If Not Right(strDefpath, 1) = "\" Then strDefpath = strDefpath & "\" If Not Right(FileName, 4) = ".Pdf" Then FileName = FileName & ".Pdf" If Dir(strDefpath & strDirname, vbDirectory) = "" Then MkDir strDefpath & strDirname Patch = strDefpath & strDirname & "\" & FileName WS.ExportAsFixedFormat Type:=xlTypePDF, FileName:=Patch End Sub ملف V2.xlsm
-
ملف3.xls ملف2.xlsm
-
للاسف لم يقم الكود بعمل المطلوب حيث تم تغيير الكود لكن تظهر شاشة ادخال اسم الملف والمطلوب انه يحفظ تلقائي الملف باسم الموظف كما بالخلية B8 داخل الفولدر
-
تأكد ان يكون لكل مستخدم اسمه محفوظ في الـ cell B8 ، فهذا الاسم سيتم حفظه مع الملف الـ PDF ككود. يجب تغيير السطر التالي: FileName = Dir(FilePath) إلى: FileName = Range("B8").Value هذا الكود سيجعل اسم الملف الـ PDF يأخذ قيمة الـ cell B8 مباشرة كاسم للموظف.
-
ماش شاء الله بارك الله في عمرك مجهود جبار تعديل اخير هل بالامكان تعديل بالكود بحيث اسم الملف يكون باسم الموظف مباشرة كما بالخلية B8 بدل من ظهور شاشة وكتابة اسم الملف