بحث مخصص من جوجل فى أوفيسنا
Custom Search
|
-
Posts
6,205 -
تاريخ الانضمام
-
تاريخ اخر زياره
-
Days Won
101
Community Answers
-
حمادة عمر's post in اريد معرفة كيفية حماية الاشكال المدرجه (shapes) فى الاكسيل من التعديل was marked as the answer
السلام عليكم
الاخ الكريم / محمدعشره
بارك الله فيك
علي حسب علمي اخي الكريم انه اذا قمت بعمل حماية للشيت لا يمكنك تحريك الاشكال
او حذفها او التعديل فيها
شاهد المرفق به زر تم ربطة ارتباط تشهبي ( هايبر لينك )
ولا يمكنك تحريكه او حذفه او التعديل عليه
جرب واخبرني بالنتيجة
او قم بارفاق الملف المقصود للوقوف علي الخطأ
تقبل خالص تحياتي
حماية الاشكال.rar
-
حمادة عمر's post in التاريخ الهجري was marked as the answer
السلام عليكم
الاخ الفاضل / wella1405
ابحث عن تقويم ام القري للعلامة القدير ( خبور خير )
او ابحث في المنتدي عن التاريخ الهجري واليك بعض من هذه الروابط علها تفي بالغرض
http://www.officena....showtopic=37455
http://www.officena.net/ib/index.php?showtopic=41954&hl=%2B%D8%A7%D9%84%D8%AA%D8%A7%D8%B1%D9%8A%D8%AE+%2B%D8%A7%D9%84%D9%87%D8%AC%D8%B1%D9%8A
http://www.officena.net/ib/index.php?showtopic=44388&hl=%2B%D8%A7%D9%84%D8%AA%D8%A7%D8%B1%D9%8A%D8%AE+%2B%D8%A7%D9%84%D9%87%D8%AC%D8%B1%D9%8A
http://www.officena.net/ib/index.php?showtopic=43268&hl=%2B%D8%A7%D9%84%D8%AA%D8%A7%D8%B1%D9%8A%D8%AE+%2B%D8%A7%D9%84%D9%87%D8%AC%D8%B1%D9%8A
http://www.officena.net/ib/index.php?showtopic=41954&hl=%2B%D8%A7%D9%84%D8%AA%D8%A7%D8%B1%D9%8A%D8%AE+%2B%D8%A7%D9%84%D9%87%D8%AC%D8%B1%D9%8A
http://www.officena.net/ib/index.php?showtopic=42631&hl=%2B%D8%A7%D9%84%D8%AA%D8%A7%D8%B1%D9%8A%D8%AE+%2B%D8%A7%D9%84%D9%87%D8%AC%D8%B1%D9%8A
-
حمادة عمر's post in اريد نقل ورقة اكسيل من ملف الي ملف اخر بكل الدوال وبنفس الخصائص was marked as the answer
السلام عليكم
الاخ الكريم
اما ان تكون الصفحة التي نسختها بها معادلات مرتبطة مع صفحات في المصنف الآخر او ارتباطات تشعبية
او الأكيد ان هناك كود او ماكروهات موجودة بالملف السابق فيجب عليك نقلها الي الملف الجديد ايضا لتعمل معك دون الحاجة للملف الآخر
عسي الله ان ينفع بإجابتي .... الي أن يأتيك رد احد خبراؤنا العظام
جزاك الله خيرا
-
حمادة عمر's post in ما هو تعديل الخطأ الموجود في هذا الكود was marked as the answer
قم اخي الكريم باستبدال الكود الموجود في هذا المودل بالكامل بالكود التالي
وان شاء الله سيعمل معك الملف .. ولم اتمكن في ضبطه بصورة نهائية لان ملفك به اكواد أخري مرتبطه بشيتات غير موجودة
اظن انك قمت بحذفها قبل رفع الملف وهي بالطبع تسبب لدي مشكلة جرب علي ملفك واشعرنا بالنتيجة
مع اني انصحك بتغيير نظام الويندوز لديك الي 32 حيث ان مايكروسوف نفسها تنصح باستخدام الـ 32 عن استخدام الـ 64
تقبل خالص تحياتي
Public Const ENGLISH As String = "09" Public Const ARABIC As String = "01" #If VBA7 Then Private Declare PtrSafe Function FindWindow Lib "user32" Alias "FindWindowA" ( _ ByVal lpClassName As String, ByVal lpWindowName As String) As LongPtr Private Declare PtrSafe Function GetWindowLong Lib "user32" Alias "GetWindowLongPtrA" ( _ ByVal hWnd As LongPtr, ByVal nIndex As Long) As LongPtr Private Declare PtrSafe Function SetWindowLong Lib "user32" Alias "SetWindowLongPtrA" ( _ ByVal hWnd As LongPtr, ByVal nIndex As Long, ByVal dwNewLong As LongPtr) As LongPtr Private Declare PtrSafe Function DrawMenuBar Lib "user32" (ByVal hWnd As LongPtr) As Long #Else Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long Private Declare Function DrawMenuBar Lib "user32" (ByVal hWnd As Long) As Long #End If Sub SwitchLayout(Lang As String) Dim Layouts() As Long Dim NoOfLayouts As Long Dim i As Long NoOfLayouts = GetKeyboardLayoutList(0, ByVal 0&) ReDim Layouts(NoOfLayouts) GetKeyboardLayoutList NoOfLayouts, Layouts(0) For i = 0 To NoOfLayouts - 1 If UCase(Lang) = UCase(Right(Hex(Layouts(i)), 2)) Then ActivateKeyboardLayout Layouts(i), 0 Exit For End If Next End Sub
555555+.rar
-
حمادة عمر's post in كود ماكرو يقوم بنسخ الصف row بجميع محتوياته ومعادلاته was marked as the answer
السلام عليكم
الاخ الكريم / S0bhy بارك الله فيك
الملف المرفق منك لم اتمكن من فك الضغط الخاص به
ولكن اليك المرفق اظن به ما تريد ... شاهد المرفق واشعرنا بالنتائج
( قم بالوقوق علي الصف الذي تريد نسخه بمعادلاته وتنسيقاته في اي خليه فيه ثم اضغط علي الزر الاحمر الموجود بالملف
ستظهر لك نافذة تتطلب منك عدد الصفوف المراد اضافتها قم بوضع العدد الذي تريد اضافته ثم اضغط موافق ستتم الاضافة )
تقبل خالص تحياتي
نسخ واضافة الصفوف المطلوبه بمعادلاتها وتنسيقاته.xls
-
حمادة عمر's post in كود لقفل ملف الاكسل بعد الخمول was marked as the answer
السلام عليكم
الاخ الكريم / اياد م .. بارك الله فيك
تقبل خالص تحياتي
اليك نفس الملف الخاص بالقدير الصديق العزيز / يحياوي .. جزاه الله خيرا
ولكن بتعديل بسيط ليعمل كما تريد ( اغلاق الملف فقط بعد المدة التي تحددها في بنفسك في الكود من خمول الملف )
واليك الملف التالي قم بتجربته واخبارنا بالنتائج
تقبل خالص تحياتي
غلف الملف بعد مدة من ترك ملف غير نشط.xls
-
حمادة عمر's post in عند الكتابة في textebox الفورم تظهر الكتابة مباشرة في الخلية من دون زر ادخال ؟ was marked as the answer
اخي الكريم
استخدم هذا الامر
Private Sub TextBox1_Change() Range("a1").Value = TextBox1.Value End Sub ليكن مثلا ان قيمة التكست المطلوب مرتبطه بالخلية A1
,G;L HGA;V
-
حمادة عمر's post in تغير التاريخ في خلية بشرط مشكلة بسيطة was marked as the answer
السلام عليكم
اخي الكريم
من الافضل دائما عن تقديم اي سؤال ان يتم اضافة مرفق كمثال لما تريده فهو يجعل لطلب اوضح
ليمكن للكثير مساعدتك
شاهد المرفق علي حسب فهمي لطلبك وفي المرفق
( اختار من القائمة في العمود A واضغط انتر او قم بالخروج من الخلية بالاسهم وشاهد النتيجة في العمود B )
ان شاء الله يفي بطلبك
تقبل خالص تحياتي
HAMADA OMAR-DATE.rar
-
حمادة عمر's post in اداة جديدة في الاكسل was marked as the answer
الاخ الكريم / محمود ربيع
بارك الله فيك
الاخ والاستاذ / شوقي ربيع ... جزاه الله خيراً
له موضوع مستفيض في هذه الآداه واظن انه لم يترك عنها شيئاً واظن انه سيفيدك كما تريد
واليك رابط الموضوع
تقبل خالص تحياتي
-
حمادة عمر's post in المساعدة في تعديل الكود was marked as the answer
لتنفيذ طلبك اخي الكريم
قم باستبدال السطر التالي الموجود في الكود لديك وهو
Set ws = Worksheets("بيانات") بالسطر التالي
Set ws = ActiveSheet جرب واشعرنا بالنتائج
تقبل خالص تحياتي
-
حمادة عمر's post in تقسيم الاسم من 3 تكستات الي 26 تكست بوكس حرف حرف .. التوضيح بالموضوع ؟؟ was marked as the answer
السلام عليكم
الاخ الفاضلة / سما محمد
بارك الله فيكي
استخدمي هذا الكود في حدث UserForm_MouseMove اي النتيجة بالتكستات الصغيرة
ستظهر لكي بعد تحريك الماوس علي الفورم
واليكي الكود والملف المرفق به الحل
Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) TextBox30.Value = TextBox1.Value + TextBox2.Value + TextBox3.Value TextBox4.Value = Mid(TextBox30, 1, 1) TextBox5.Value = Mid(TextBox30, 2, 1) TextBox7.Value = Mid(TextBox30, 3, 1) TextBox6.Value = Mid(TextBox30, 4, 1) TextBox9.Value = Mid(TextBox30, 5, 1) TextBox8.Value = Mid(TextBox30, 6, 1) TextBox11.Value = Mid(TextBox30, 7, 1) TextBox10.Value = Mid(TextBox30, 8, 1) TextBox12.Value = Mid(TextBox30, 9, 1) TextBox13.Value = Mid(TextBox30, 10, 1) TextBox15.Value = Mid(TextBox30, 11, 1) TextBox14.Value = Mid(TextBox30, 12, 1) TextBox17.Value = Mid(TextBox30, 13, 1) TextBox16.Value = Mid(TextBox30, 14, 1) TextBox19.Value = Mid(TextBox30, 15, 1) TextBox18.Value = Mid(TextBox30, 16, 1) TextBox20.Value = Mid(TextBox30, 17, 1) TextBox21.Value = Mid(TextBox30, 18, 1) TextBox23.Value = Mid(TextBox30, 19, 1) TextBox22.Value = Mid(TextBox30, 20, 1) TextBox24.Value = Mid(TextBox30, 21, 1) TextBox25.Value = Mid(TextBox30, 22, 1) TextBox27.Value = Mid(TextBox30, 23, 1) TextBox26.Value = Mid(TextBox30, 24, 1) TextBox29.Value = Mid(TextBox30, 25, 1) TextBox28.Value = Mid(TextBox30, 26, 1) End Sub
فصل حروف الاسم لتكستات بوكس حرف حرف.rar
-
حمادة عمر's post in دورة شرح الفيجوال بيسك لبرنامج الاكسيل VBA .. ( الجزء الأول ) !! خطوة خطوة was marked as the answer
الدروس من الدرس الرابع ... الي ... الدرس السادس
كيفية اظهار محرر الفيجوال بيسك الاكسيل4.rar مكونات محرر الفيجوال بيسك 5.rar كيفية التعامل مع محرر الفيجوال بيسك 6.rar
الدروس من الدرس السابع ... الي ... الدرس التاسع
المـــــــاكـــــــــــرو7.rar تابع المـاكـــــرو8.rar تابع المـاكـــــرو9.rar
الدروس من الدرس العاشر ... الي ... الدرس الحادي عشر
تابع المـاكـــــرو10.rar تابع المـاكـــــرو11.rar
أرجو من الله ان أكون قد وفقت في توصيل ولو معلومة صغيرة لمن يريدها بخصوص هذا الجزء
تقبلوا خالص تحياتي
-
حمادة عمر's post in مطلوب تكرار لاخر الشيت بواسطة الكود was marked as the answer
تفضل اخي الكريم المرفق به الكود المطلوب ويعميل بطريقة سليمه ان شاء الله
وشاهد البيانات في الصف رقم 520 -521 -522 - 523
تقبل خالص تحياتي
نقل اسماء الزبائن والكود -sama.rar
-
حمادة عمر's post in محتاج برنامج او اى حاجة تفتحلى ملف اكسيل مقفول برقم سرى was marked as the answer
السلام عليكم
الاخوة الكرام الاعزاء
هذا الموضوع مخالف اخواني الكرام لقواعد المشاركات
احتراما لحقوق صاحب الملف المغلق
وموضوع فتح ملف اكسيل مغلق برقم سري اعرف انه ليس بالصعب عليكم اعضاء المنتدي الكرام
ولكن هذه بينكم وبين ربكم
والاخ / alaaelyan
بارك الله فيك
من الافضل ان تقوم بتصميم برنامجك بنفسك او البحث هنا في المنتدي عما يناسبك
حيث ان الملف مادام مغلق برقم سري فان صاحبه لا يريد ان يستخدمه احد الا من خلاله
واحتراما لحقوق الملكية والفكرية
سيتم غلق هذا الموضوع عند هذا الحد
==========
الادارة
==========
-
حمادة عمر's post in مساعدة في كتابة كود فورم للبحث والتعديل was marked as the answer
السلام عليكم
الاخ الكريم / A.El Sheikh
بارك الله فيك
وبعد اذن اخي الحبيب / طلعت محمد حسن ... جزاه الله خيرا
شاهد اخي المرفق الكريم
ان شاء الله به طلبك ... علي حسب فهمي لطلبك
تقبل خالص تحياتي
items-SAMA.rar
-
حمادة عمر's post in [استفسار] بخصوص حماية ورقة العمل was marked as the answer
السلام عليكم
الأخ الكريم / مصطفى أبو ملك
بارك الله فيك
كل شخص يري افضل حماية لملفه بالطريقة التي تناسبه
فالبعض ( الذين لديهم خبرة ) لا يوجد لديهم ما يسمي بأن الملف محمي حيث من السهل كسر حمايته
وخصوصا بعد كود الاستاذ / ياسر خليل -- الخاص بكسر الحماية ( مخلاش باقي حاجه )
علي الرابط http://www.officena.net/ib/index.php?showtopic=60289
والبعض ( المبتدئين ) اقل نوع من انواع الحماية يكون مثل السد العالي بالنسبة لهم
والآخرين ( المتوسطين ) يتم خداعهم ببعض الطرق والخدع المتعددة
وافضل طريقة لحماية الملف ( من وجهة نظري الفقيرة ) هو جعل ملف الاكسيل تنفيذي
مع استخدام الكود المشار اليه في الرابط الموجود في المشاركة رقم 2
وبشكل أوضح يكون مثل البرنامج الموجود علي الرابط
http://www.officena.net/ib/index.php?showtopic=56375
للأخوين القديرين ( ضاحي الغريب - شوقي ربيع )
تقبل خالص تحياتي
-
حمادة عمر's post in المساعدة في تفعيل خاصية الطباعة والتعديل في الفورم was marked as the answer
السلام عليكم
الاخ الكريم / عاشق الاسلام
بارك الله فيك
بعد اذن اخي الحبيب / أبوســـارة1973 ... بارك الله فيه
اليك هذا الحل لعله يكون المطلوب ... حيث تم تنفيذ الطلب علي وجه السرعه
فعذرا لوجود اي خطأ في فهمي لطلبك
تقبلوا خالص تحياتي
تعديل وطباعة في الفورم عن طريق البحث في الليست.rar
-
حمادة عمر's post in شرح تحويل لغة الواجه من عربى الى انجليزى was marked as the answer
السلام عليكم
الاخ الكريم / ۩◊۩ أبو حنين ۩◊۩
بارك الله فيك
الموضوع ليس به اي طريقة سوي ان صاحب الموضوع الخاص بكأس العالم
قد قام بكتابة كل المطلوب لبيانات ملفه ب 3 لغات الموجودة فيه وذلك في الورقة رقم 2 ( Feuil2 )
ويتم استدعاء الكلمات والجمل بناءا علي الاختيار من الكومبوبكس الخاص باختيار اللغة ليتم تحويل كل البيانات للغة المطلوبة
وذلك باستخدام الدوال العادية مثلا دالة INDEX
ارجو ان تكون قد اتضحت الفكرة
وان اردت ارسل لك هذا الشيت الموجود في هذا الملف
تقبل خالص تحياتي
-
حمادة عمر's post in اضهار الخلايا بالفورم was marked as the answer
شاهد المرفق التالي ... ان شاء الله به طلبك
تقبل خالص تحياتي
افتح الفورم واكتب القيمة المطلوبة في تكست بوكس 2 و 3 .... ثم اضغط الزر الموجود بالفورم
وشاهد النتيجة
او مزيد من التوضيح
اضهار الخلايا بالفورم11.rar
-
حمادة عمر's post in أريد عمل زر لتشغيل كود was marked as the answer
ع السريع ..
شاهد هذا التعديل البيسط جدا علي الزر في الصفحة الرئيسية
mohammed.rar
-
حمادة عمر's post in الوصول الي الخلايا المرتبطه باوراق عمل في مستندات اخري was marked as the answer
السلام عليكم
الاخ الكريم / احمد ابوزيزو
شاهد الرابط التالي
http://www.officena.net/ib/index.php?showtopic=46419&hl=%D8%A7%D9%84%D8%A7%D8%B1%D8%AA%D8%A8%D8%A7%D8%B7%D8%A7%D8%AA
او
http://www.officena.net/ib/index.php?showtopic=45893&hl=%D8%A7%D9%84%D8%A7%D8%B1%D8%AA%D8%A8%D8%A7%D8%B7%D8%A7%D8%AA
ان شاء الله تجد به طلبك ... علي حسب فهمي للطلب
تقبل خالص تحياتي
-
حمادة عمر's post in طلب كـود لاستـدعــاء فـاتــورة من جدول المشتريـات الى userform was marked as the answer
السلام عليكم
الاخ الكريم / انسان
بارك الله فيك
اليك اخي الكريم ما طلبته ...
كل ما عليك هو اختيار رقم الفاتورة التي تريد الاستعلام عنها من القائمة في الكومبوبكس
واي تعديل او استفسار او طلب ... معك دائما باذن الله
** الكود الموجود بالمرفق به شرح لكل سطر فيه بالتفصيل ( الكود المستخدم ..كود باقشيري كاملا )
ولكن تم التعديل عليه ليتناسب مع ملفك
حيث قمت باستخدام الاكواد الموجودة في موضوعي ( ان اردت الاستزادة وتعلم الطريقة )
طريقة عمل ( فورم ) فاتورة ووضع اكوادها وترحيل بياناتها واستدعائها وطباعتها !! خطوة خطوة
تقبل خالص تحياتي
طلب كود استدعاء بيانات فاتورة.rar
-
حمادة عمر's post in ظهور قيمة خلية في فورم was marked as the answer
بارك الله فيكم
تقبلوا خالص تحياتي
-
حمادة عمر's post in جمع تلقائي في التكست بوكس was marked as the answer
السلام عليكم
الاخ الحبيب / أحمد فؤاد
بارك الله فيك
بالفعل كما ااشار اخونا الحبيب / إبراهيم ابوليله
ارفاق ملف يوضح المطلوب كما تريد
ولحين ارفاق الملف
شاهد الرابط التالي المشاركة رقم 39
http://www.officena.net/ib/index.php?showtopic=46420&page=2
وايضا نفس الموضوع المشاركة رقم 61
http://www.officena.net/ib/index.php?showtopic=46420&page=4
بها بعض الاكواد المتعلقة بهذا الشأن مع شرح الاكواد في المرفقات الموجودة بهما
تقبلوا خالص تحياتي
-
حمادة عمر's post in تنفيذ الكود مع وجود حمايه للشيتات was marked as the answer
السلام عليكم
الاخ الكريم / ۩◊۩ أبو حنين ۩◊۩
بارك الله فيك
بعد اذن اخي الفاضل / وليد فتحي ... جزاه الله خيرا
استخدم التعديل التالي علي الكود الخاص بك لتنفيذ طلبك
Sub delete_datas() Application.ScreenUpdating = False sama = MsgBox("سيتم حذف بيانات الشيتات الأربعة (الاتوبيس-طائرة-مطروح-تعديل)... هل أنت متأكد من إجراء هذه العملية ؟", vbYesNo) If sama = vbYes Then '============================= On Error Resume Next For i = 2 To Sheets.Count Sheets(i).Select ActiveSheet.Unprotect ("1") Next i '============================= For Each Sh In Worksheets If Sh.Name Like "تعديل" Or Sh.Name Like "الاتوبيس" _ Or Sh.Name Like "مطروح" Or Sh.Name Like "طائرة" _ Then Sh.Select: Range("B5:B40" & ",H5:H40" & ",J5:J40" & ",O5:O40").ClearContents Next Else MsgBox "!! لم يتم التفريغ" End If '============================= On Error Resume Next For i = 2 To Sheets.Count Sheets(i).Select Sheets(i).Select ActiveSheet.Protect ("1") Next i '============================= Application.ScreenUpdating = True Sheets("عام").Select End Sub وان شاء الله سينفع معك
او قم بوضع ملف كمثال للعمل عليه
تقبل خالص تحياتي
وجرب علي المرفقات
تنفيذ كود مسح بيانات من شيتات مع حماية هذه الشيتات.rar