أحمد بكر

الواجهة الرئيسية رمز الحماية : 0 (صفر) ملف اكسيل لادارة الخزينة DownLoad

هذة Keyboard باللغتين العربية والانجليزية مصممة على الاكسيل ومحولة الى امتداد Exe اهداء الى منتدى أوفيسنا التحميل من المرفقات باسورد فتح البيانات 99 KeyBoard.rar

وهذا عن طريق فورم بمحرك بحث بجزء من أسم الصفحة الإنتقال الى ورقة مختارة.rar

هذة مشاركة حماية المعدلات فقط دون حماية ورقة العمل وهذة اخرى حماية معادلات (بزر تفعيل / إبطال) حماية الملفات من العبث بها.rar

اذا كنت تعتمد على الفورم جرب المرفق عسى يفيدك رمز الحماية 123 حماية الملفات من العبث بها.rar

ممتاز يا ابو حنين

من اين يعرف الاكسيل ان الكود انتهى علشان ينتقل الى خلية اخرى او الضغط على الانتر بدل منك ممكن فى حالة لو الكود يحتوى على نفس عدد الارقام داخل الخلية مثال 435345 , 453454 هذا نفس عدد الارقام اى 6 ارقام داخل الخلية فيقوم بالانتقال بمجرد كتابة 6 ارقام لكن الاكواد مختلفة ! متمنى لك الوصول الى حل

جرب ما فى المرفق عسى يفيدك ادخال الكود من زر ادخال الكود مبيعات 07-5-2012.rar

تحياتى وتقديرى لك وهذا شرح الكود --- أى تغير يقوم بكتابتة فى ورقة 3 فى الخلية BQ1 --- ------------------------------------------------------------------------------------- فى حالة اختيار CheckBox1 تكون الخانة التى يتم ادراج بها تاريخ الميلاد غير ظاهرة textbox2 وكذلك Label3 غيرظاهرة اللى هى أسم تاريخ الميلاد وكذلك Checkbox2 غيرمفعلة اللى هى رقم البطاقة --------------------------------------------------------------------------------------- فى حالة اختيار CheckBox2 يكون فيه الخانة التى يتم ادراج بها تاريخ الميلاد ظاهرةtextbox2 وكذلك Label3 ظاهرة اللى هى أسم تاريخ الميلاد وكذلك Checkbox2 غيرمفعلة اللى هى رقم البطاقة ------------------------------------------------------------------------------------------- اى تغير يقوم بكتابتة فى ورقة3 فى الخلية br2 ----------------------------------------------------------------------------- اى تغير يقوم بكتابتة فى ورقة3 فى الخلية bs2 ------------------------------------------------------------------- لتصبح على هذا الشكل ------------------------------------------------------------------------------------------ زر الادخال الجزء الاول الذهاب الى ورقة 3 فى الخلية br1 استخدام if & VLookup للبحث عن كود الصيدلية المختارة والتى كتبت فى الخلية BQ1 المعادلة هى ------------------------------------------------------------------------------------------------------------------ الجزء الثانى - الذهاب الى ورقة 3 - اذا ComboBox1.Value أو TextBox1.Value لا تساوى , قيمة = "" اعطاء رسالة برجاء اكمال البيانات - ورقة 1هى التى يتم نقل البيانات الية بالخلية التى تلى اخرخلية بها بيانات بالعمود الاول a50000").End(xlUp).Row + 1 نقل محتوى الخلية br1 الى ورقة 3 اللى هى كود الصيدلية ورقة 1 فى العمود الاول azsh, 1 حيث واحد هى تريب العمود اذا تريد b مثلا يبقى تغيرها الى 2 --------------------------------------------------------------------------------------------------------------- الجزء الثالث من كود زر الادخال والاخير يقوم بنقل الخليتين br2 اللى هى رقم الجواز أو البطاقة على حسب الاختيار bs2 اللى هى تاريخ الميلاد Range("BQ1:BS3").Select Selection.ClearContents تعنى مسح المجال من bq1:bs3 وفى النهاية اعطاء رسالة تم بنجاح MsgBox " " ------------------------------------------------------------------------------------------------------- وفى النهاية اتمنى لك دوام الصحة والتوفيق

من عرض التعليمات البرمجية view code الادوات tools المراجع references شيل علامات الصح من اى حاجة تبدأ missing

جرب ما فى المرفق عسى ان يكون هو المطلوب test.rar

حمل من المرفقات عسى ان يكون هو المطلوب وفقك الله يا أخى الفاضل New ورقة عمل Microsoft Excel.rar

حمل من المرفق عند الضغط على لا يخرج من الملف Copy of مجموعه اكواد على الاكسل.rar

صلاحيات الدخول كما ذكر الأخ / ابو ردينة فى ملف help وهى ======================== اسم المستخدم : almaistro كلمة المرور : all الصلاحية : General ======================== اسم المستخدم : arafa كلمة المرور : arafa الصلاحية : Limited ========================= اسم المستخدم : user كلمة المرور : user الصلاحية : Review Only ========================= ولو عاوز الملف بدون كلمة سر والدخول الية مباشرة حملة من هنا ولمعاينة مابدخلة لـ عرض التعليمات البرمجية - او View Code تقبل تحياتى

الموضوع : كود ترحيل البيانات بشكل مميز سأتناول أولا : شرح الكود حتى يسهل على الجميع أستخدامة داعيا الله ان يوفقنى الى ما يحبة ويرضة أ - سأقوم بدرب مثال يفضل ان تنفذة معى لكى تصل لكيفية عمل الكود وتطويعه لما تريد عملة أبدأ بفنح ملف أكسيل جديد : قم بتسمية ورقة العمل الاولى بأسم ادخال بيانات والورقة الثانية فواتير ثم فى صفحة العمل الاولى والتى تسمى بـ ادخال البيانات قوم بتصميم جدول كما هو موضح فى الصورة ثم تصميم زر فى نفس الصفحة حتى يصبح بنفس الشكل هذا لم لا يعرف كيفية تصميم زر يمكنة ذلك من خلال : ----------------------------------------------------- اصدار 2003 من مربع أدوات التحكم > ادارج زر ------------------------------------------------------ اصدار 2007 من المطور > ادراج زر ------------------------------------------------------- وفى الصفحة الثانية التى تم تسميتها باسم فواتير نصممها على هذا الشكل بعد تصميم تسمية الصفحتين والزر فى الصفحة الاولى يمكنك اضافة الكود من خلال اختيار وضع التصميم والضغط على الزر الذى سبق تصميمة دبل كليك ايسر على الماوس ثم نضع الكود التالى وسأقوم بشرحة تفصيليا كما بالصورة (الكود مرفق ) الجزء الاولى من الكود الجزء الثانى من الكود الجزء الثالث من الكود الجزء الرابع من الكود الجزء الخامس من الكود الجزء السادس والأخير ملاحظة : الكود يرحل بترتيب الادخال . لتحميل الشرح مصور + ملف المثال + الكود من هنا فى النهاية أسالكم الدعاء اذا افادكم ذلك