-
Posts
90 -
تاريخ الانضمام
-
تاريخ اخر زياره
نوع المحتوي
المنتدى
مكتبة الموقع
معرض الصور
المدونات
الوسائط المتعددة
مشاركات المكتوبه بواسطه المسلم العربي
-
-
-
أخي الكريم بقي نفس المشكل الصورة لا تظهر
لأن اسمها بالعربيةلما قمت بتغيير اسم الصورة للغة الفرنسية مثلا ahmed ووضعت نفس الاسم في القائمة ظهرت الصورة لماذااااا؟؟؟؟
-
-
-
-
أتمنى مساعدتي لكل عباقرة البرمجة
-
أرجو ارفاق الملف من فضلك
-
السلام عليكم ورحمة االله تعالى وبركاته.
هذا الكود هو لحساب مفتاح رقم الضمان الاجتماعي (CLE )
وذلك بلغة windev.و أريد تغيير هذه البرمجة إلى لغة VBA
ساعدوني أرجوك يا خبراء البرمجة
( Calculer la Clé de N° de sécurité Sociale (Algérie//
Procédure Windev //
(PROCEDURE CleSS(nSS,nCle
sNuméroSS est une chaîne = nSS
nLongueur est un entier = 0
nIndice est un entier = 0
nCheck est un entier = 0
nNum est un entier = 0
bVerif est un booléen = Vrai
Pour vérifier la taille du numéro SS//
(nLongueur = Taille(sNuméroSS
? La taille est - elle correcte//
SI nLongueur = 0 OU nLongueur <> 10 ALORS
bVerif = Faux
FIN
" Le numéro ne contient que des "0//
SI sNuméroSS = Répète("0",10) ALORS
bVerif = Faux
FIN
(nTaille est un entier = Taille(sNuméroSS
Tester si chaque caractère est bien un chiffre//
POUR nIndice = 1 A nTaille
Le numéro contient un "0" ou un caractère//
SI Val(sNuméroSS[[nIndice]]) = 0 ET sNuméroSS[[nIndice]] <> "0" ALORS
("Info("Veuillez saisir un numéro valide","Seulement les chiffres sont autorisés
bVerif = Faux
FIN
FIN
Déterminer la validité du code selon l'algorithme de la clé de sécurité sociale//
Comptage de la première série de nombres//
XXXXXXXXXX//
Somme de cette série pour obtenir eCheck//
POUR nIndice = nLongueur-1 A 1 PAS -2
([[nNum = Val(sNuméroSS[[nIndice A nIndice
nCheck += nNum*2
FIN
xxxxx//
Comptage de la seconde série de nombres//
Somme de cette série pour obtenir eCheck//
POUR nIndice = nLongueur A 2 PAS -2
([[nNum = Val(sNuméroSS[[nIndice A nIndice
nCheck += nNum
FIN
99 - la somme totale = la clé SS//
SI bVerif = Faux OU nCheck > 99 ALORS
"nCle = "ER
SINON
nCle = 99 - nCheck
FIN
و شكرا لمنتدانا الغالي تعلمنا منكم الكثير -
-
2 ساعات مضت, ياسر خليل أبو البراء said:
جرب التالي لربما يفي بالغرض
TextBox1=Format(TextBox1,"00")
تم حل المشكل شكرا أخي خليل و الله تعلمنا منكم الكثير كيف نشكركم قولو لنا لا نعرف طريقة لشكركم
-
أتمنى مساعدتي لدي برنامج لحساب مفتاح الحساب البريدي و البنكي
المهم المفاتيح دائماً أصغر من 100 يعني من 99 حتى 01
و المشكل أنه من 1 إلى 9 يجب كتابتها على الشكل
01 02 03 04 05 06 07 08 09
و لدي يوزرفورم لحساب ذلك لكن لا تظهر الأعداد كما أريد
و لذلك أريد كود لإظهار الصفر شمال العدد لما يكون المفتاح أصغر من 10 و شكرا -
أريد تحويل المعادلات و العمليات لحساب كل من cle ccp و Rip
إلى يوزفورم منفصل عن ورقة الاكسل و بأكواد Vba
و شكرا لكم تعلمت منكم الكثير -
ارفع ملف العمل حتى يساعدك الأعضاء الخبراء و شكراً
-
-
أرجو المساعدة لشتغيل هذه القناة عبر يوزرفورم مباشرة
دون الدخول إلى المتصفح و التحكم فيها عبر اليوزر فورم و شكرا
-
والله العظيم كيف أشكرك لا استطيع شكرك لكنني ليس بمعنى أريد برنامج تنفيذي و لكن أريد ظهور اليوزفورم مباشرة بعد اقلاع الاكسل
و أردت الأكواد كيف اصمم برنامجي و أتعلم في نفس الوقت و لذلك أشكرك و أتمنى أن تساعدني في تطويره لأنه الحساب البريدي الجزائري له مفتاح كما حسابناه في هذا البرنامج و له مفتاح أخر اسمه RIP له طريقة حسابية أود تطويرها لبرنامج و شكرا أخي ياسر العربي -
أرجوالمساعدةعلى ايجاد أكواد لتصميم البرنامج الموضح اسفله
و أتمنى أن لا تكون الأكواد مرتبطة بخلايا في الاكسل
-
الشكر لك سيدي و الاحترام و التقدير لكل أعضاء و فريق عمل موقع أوفيسنا من المواقع العربية المفيدة جدا
لكن سيدي التحذير يظهر لما تكون واقف على خلية القسم فقط و هذا صعب أنا ما طلبت هو ان يظهر الخطأ دوما ما عدا هناك قسم واحد على الأقل خاطىء و غير مكتوب بالشكل المطلوب مثل الاقسام المعنية أرجو إن أمكن النظر في ذلك و شكرا
-
أردت تطوير صيغة وضعتها داخلها أرجو المساعدة
-
السلام على إخواني في هذا الصرح العلمي الجميل الذي نتعلم منه يومياً
لدي تساؤل حول تعديل صيغة و كل شيء بموضح بالملف المرفق و شكرا لكم
-
-
أخر سؤال و هل يمكن عمل هذا العمل على شكل ماكرو Macro تلقائي مرن للتعديل لأن المعادلات معقدة وصعبة الفهم و شكرا أخوتي الكرام
-
-
أخي سليم و لما الخلايا فارغة يجب أن لا تظهر الرسالة
مشكل Objet Requis
في منتدى الاكسيل Excel
قام بنشر · تم تعديل بواسطه المسلم العربي
سيدي بن علية حاجي
المشكل دوما ارجو ان تتواصل معي في الواتس أو غيره ارجووووك لدي مشروع اصممه لمشتركي مكتبة ارجوك