هادى محمد المامون سالم

السلام عليكم اخى العزيز : اذهب الى Tools Share Workbook علم على المربع فى Editing لاحظ ان كلمه Shared ظهرات فى اعلى الشاشه بجوار اسم الملف و بذلك يستطيع اكثر من مستخدم فى التعامل مع الملف فى نفس الوقت السلام عليكم

السلام عليكم : و هذا استخدام صغير للماكرو فى الملف المرفق hs889.rar

السلام عليكم اخى و استاذى فلسطينى تعديل بسيط على الرد إذا لم تكن فارغة فاقسم c5 على 2 * e5 إذا لم تكن فارغة سالب اولا c5 ثم اقسم c5 على 2 * e5 السلام عليكم

السلام عليكم لا اضافات بعد ا / محمد طاهر السلام عليكم

السلام عليكم اخى العزيز : اذهب الى Tools Share Workbook علم على المربع فى Editing لاحظ ان كلمه Shared ظهرات فى اعلى الشاشه بجوار اسم الملف و بذلك يستطيع اكثر من مستخدم فى التعامل مع الملف فى نفس الوقت السلام عليكم

السلام عليكم اخى العزيز : هذه الحاله كانت مشكله عندى و اخذت فتره طويله لحلها اتمنى ان اوفر عليك هذا الوقت الطويل ارفقت لك مثال ارجو ان يكون هو المطلوب السلام عليكم _________.rar

السلام عليكم اخى العزيز اذهب الى Format Cells Number Custom اكتب فى مربع Type yyyy/mm/dd و ارفقت لك صوره توضح الخطوات السلام عليكم

السلام عليكم تستطيع اضافه ملف الاكسيل على الرابط التالى http://www.officena.net/ib/index.php?showforum=58 و هو قسم الملفات المؤقته بالمنتدى او ا/ فلسطينى يرد عليك مع تحياتى للاستاذ فلسطينى السلام عليكم

الملف الاول هو الذى تضع فيه الموديول السابق و تستطيع ات تسميه اى اسم , اما الملف الثانى اسمه فعلا Test .

كانت عندى نفس المشكله جرب الكود التالى مع تغيير الاسماء التى تريدها Example If the Database sheet is in another workbook This Example will do the same as the first example on this webpage Only the database sheet is in another workbook. The macro will open the database workbook if it is not open (It use the function to check if the workbook is already open) The data will be paste as values in the first worksheet of the file "c:\test.xls" Sub copy_to_another_workbook() Dim sourceRange As Range Dim destrange As Range Dim destWB As Workbook Dim Lr As Long Application.ScreenUpdating = False If bIsBookOpen("test.xls") Then Set destWB = Workbooks("test.xls") Else Set destWB = Workbooks.Open("c:\test.xls") End If Lr = LastRow(destWB.Worksheets("Sheet1")) + 1 Set sourceRange = ThisWorkbook.Worksheets("Sheet1").Range("A1:C10") Set destrange = destWB.Worksheets("Sheet1").Range("A" & Lr) sourceRange.Copy destrange.PasteSpecial xlPasteValues, , False, False Application.CutCopyMode = False destWB.Close True Application.ScreenUpdating = True End Sub Copy this function together with the LastRow function in the module Function bIsBookOpen(ByRef szBookName As String) As Boolean ' Rob Bovey On Error Resume Next bIsBookOpen = Not (Application.Workbooks(szBookName) Is Nothing) End Function

السلام عليكم : اخى العزيز : مشكور يا اخى على الرد الجميل الذى يدل على شخصيه محترمه 0 و مشكور على الملف بعد فك الحمايه مع انى عندى العديد من برامج فك الحمايه و قد قمت فعلا بفكه من قبل و او ضح لك انى لم اكن اقصد نفسى لفك الملف و لكن كنت اقصد ذلك لغيرى من الاخوان الذين ليس لديهم برامج فك الحمايه 0 مشكور مره اخرى

اخى العزيز طالما انك تعلمت من منتدى اوفسينا فلماذا لا تحاول انت تعلم غيرك و قمت بحمايه الملف؟؟؟؟؟؟

اعمل على Access 2003 و عندما اكون فى Design Mode لاى تقرير عند النقر على Field List حتى تظهر لى اسماء الحقول داخل الجداول فاذا كان عنوان الحقل باللغه الانجليزيه يظهر بصوره جيده لكن المشكله اذا كان عنوان الحقل باللغه العربيه تظهر عناوين الحقول باشكال غريبه كان عنوان الحقل مكتوب باللغه الهيلوغرافيه برجاء المساعده مع خالص شكرى

اكتب فى C2 (IF(AND(B2>=90;B2<=100);1;2)= اسحب C2 حتى C10 اكتب فى B11 ("COUNTIF(C2:C10;"=1)= ان شاء الله النتيجه 100 %

بعد تفكير وجدت حل او نصف حل على حسب تقييمى و قررت ان ارسله يمكن اى واحد يستفيد منه و هو ممكن الكتابه فى الخليهA3 فى Sheet2 (IF(Sheet1!A3>0;Sheet1!A3*2 هكذا مع الخلايا A4:A50 مع شكرى للمنتدى

طبعا لايمكن تغيير القيمه فى Sheet2 دون سحب الخليه الى السطر التالى و هذا هو ما اقصده كيف يتم السحب عن طريق موديول و ليس يدوى

هذه هى اول مره اطرح سؤال فى المنتدى و لكن بدايه اود ان اشكر الساده المشرفين على المنتدى و الساده الاعضاء على المجهود الكبير و نقل خبراتهم الى الاخرين و انا اول واحد استفدت حقيقا من هذا المنتدى و السؤال هو : اذا كانت الخليه فى Sheet 2 مثلا مرتبطه بمعادله بخليه فى Sheet 1 كالتالى : معادله الخليه A2 فى Sheet 2 بها A2 Sheet 1 ! *2 و معادله الخليه B2 فى Sheet 2 بها B2 Sheet 1 ! *2 هل هناك طريقه أو Module تجعلنا عند ادخال اى قيمه فى الخليه A3 و B3 فى Sheet1يتم تحديث الخليه A3 و B3 فى Sheet2 دون الحاجه الى عمليه( دراج ) الخليه 0 و مع خالص شكرى و احترامى 0

1- انقر تحت الصف المراد تثبيته ( اذا اردت تثبيت الصف الاول انقر على B2) 2 - اذهب الى القائمه Window ثم اختار Freez Panes 3 - مبروك تم تثبيت الصف الاول

هل هناك قائمه منسدله (مثلا فىجدول الحصص ) عند الضغط على حصه التعبير يظهر حصص التعبير يوم الاحد و الاثنين و ذلك فى حاله تكرار حصص التعبير 0 وذلك عن طريق داله و ليس فلتر

مشكوور الاخ المالكى لقد فهمت الطريقه ربنا دايما يفتح عليك ممكن ابقى اسالك اسئله اخرى بدون مضايقه

مشكوووور جدا و جزاك الله خير ولقد استفدت كثيرا من هذا الموضوع حيث انى فهمته جيدا و لكن لى سؤال واحد فى شيت (البحث العمودي والأفقي) عند اختيار يوم السبت و الحصه الرابعه مثلا يظهر highlight باللون البرتقالى على النحو مثلا لو سمحت كيف يظهر highlight بالخليه المختاره ؟ و مشكوور مره اخرى على المعلومات القيمه