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

بسم الله الرحمن الرحيم Inser Picture From File ادراج - صوره - من ملف ثم تعامل معها كانها مفتاح السلام عليكم

بسم الله الرحمن الرحيم ارفق تصور للمطلوب السلام عليكم

بسم الله الرحمن الرحيم الطلب غير واضح السلام عليكم

بسم الله الرحمن الرحيم اخى الكريم : هذا هو طلبك الموجود بالملف جرب تغيير البيانات و ستجد النتائج قد تغيرت بعد استخدام مفتاح Start أو اشرح ما تريد بوضوح قد يساعدك أحد السلام عليكم

بسم الله الرحمن الرحيم جرب الملف المرفق السلام عليكم Look.rar

بسم الله الرحمن الرحيم اخى ابو اسامة العينبوسي اخى mfawaz اشكركم كثيرا على السؤال فعلا متغيب عقبالكم ان شاء الله اعد العده للسفر الى الارض الطاهره لاداء العمره يوم الخميس المقبل ان شاء الله واحاول انهاء اعمالى السابقه و اللاحقه فى العمل و بصراحه اخى ابو اسامة العينبوسي ( الله يبارك فيه ) لا يترك سؤال بالمنتدى دون جواب و مكانه الطبيعى فى الاشراف معنا السلام عليكم

بسم الله الرحمن الرحيم وصله مفيده و بسيطه على علاقه بالموضوع لأستاذى محمد حجازى http://www.officena.net/ib/index.php?showtopic=7653 السلام عليكم

بسم الله الرحمن الرحيم جرب الملف المرفق السلام عليكم Post.rar

بسم الله الرحمن الرحيم جرب الملف المرفق السلام عليكم Sort.rar

بسم الله الرحمن الرحيم و يمكن الوصول الى نفس النتيجه بأستخدام جمله Select Case و تنتهى ب End Select و اليكم الكود Public Function My_Function(MyCell As Integer) As String Select Case MyCell Case 1 My_Function = "Hady1" Case 2 My_Function = "Hady2" Case 3 My_Function = "Hady3" Case 4 My_Function = "Hady4" Case 5 My_Function = "Hady5" Case 6 My_Function = "Hady6" Case 7 My_Function = "Hady7" Case 8 My_Function = "Hady8" Case 9 My_Function = "Hady9" Case 10 My_Function = "Hady10" End Select End Function السلام عليكم

بسم الله الرحمن الرحيم جرب الملف المرفق السلام عليكم Comb.rar

بسم الله الرحمن الرحيم استخدم الكود التالى Public Function My_Function(x1, x2, x3) If x1 = 30104 And x2 = 310 Then My_Function = x3 * 180 / 1000 ElseIf x1 = 30004 And x2 = 342 Then My_Function = x3 * 1.782 / 1000 ElseIf x1 = 30011 And x2 = 347 Then My_Function = x3 * 1.8 / 1000 End If End Function مرفق ملف السلام عليكم If.rar

بسم الله الرحمن الرحيم جرب الملف المرفق السلام عليكم Sum.rar

بسم الله الرحمن الرحيم الدرس الثالث سنقوم بالربط بين الجمله الشرطيه (If….Then) و الدالات ( Function) سنحاول تنفيذ مثال من اكثر الاسئله تكرارا فى المنتدى و هو نهايه جمله If عند عدد محدد من الشروط 0 فمثلا اذا اردت ان عند كتابتك فى الخليه A2 رقم 1 يظهر ل فى الخليه B2 اسم Hady1 و اذا اردت ان تكتب 2 فى الخليه A2 رقم 2 يظهر لك اسم Hady2 و هكذا حتى تصاب بالملل و دون قيود 0 سنذهب الى صفحه vba و نضيف موديول و اهم شىء هو عنوان Function Public Function My_Function(MyCell As Integer) As String Public Function داله تصتطيع مناداتها من اى مكان بالملف My_Function اسم الداله و سوف نقوم بكتابتها فى الخليه B2 بعد علامه = و قد قمنا بتعريفها انها String لان سوف يظهر بها اسم MyCell الخليه A2 و سوف نقوم بكتابتها بين قوسين لمناداتها قد قمنا بتعريفها انها Integer لاننا سوف نكتب بها رقم صحيح و هنا سنقوم باستخدام If و ElseIf If MyCell = 1 Then My_Function = "Hady1" ElseIf MyCell = 2 Then My_Function = "Hady2" و هنا تظهر فائده القران الكربم و اللغه العربيه المقتبسه منه ماذا نريد ان نقول ؟ اذا كانت الخليه A2 =1 "مع ملاحظه ان الخليه A2 = MyCell " If MyCell = 1 اذا Then الخليه B2=Hady1 "مع ملاحظه ان الخليه B2= My_Function " " My_Function = "Hady1 و هكذا مع ملاحظه استخدام ElseIf للتحقق من الشرط التالى اذا لم يتحقق الشرط الاول و فى النهايه اذا لم تتحقق هذه الشروط تظهر لنا هذه الجمله "الكود خطأ"و ذلك بأستخدام جمله Else و يجب انهاء جمله If ب EndIf و الشىء الخطير انك اذا سحبت الخليه A2 الى اسفل سيتم تطبيق الداله على باقى الصفوف و هذا هو الكود Public Function My_Function(MyCell As Integer) As String If MyCell = 1 Then My_Function = "Hady1" ElseIf MyCell = 2 Then My_Function = "Hady2" ElseIf MyCell = 3 Then My_Function = "Hady3" ElseIf MyCell = 4 Then My_Function = "Hady4" ElseIf MyCell = 5 Then My_Function = "Hady5" ElseIf MyCell = 6 Then My_Function = "Hady6" ElseIf MyCell = 7 Then My_Function = "Hady7" ElseIf MyCell = 8 Then My_Function = "Hady8" ElseIf MyCell = 9 Then My_Function = "Hady9" ElseIf MyCell = 10 Then My_Function = "Hady10" Else My_Function = "الكود خطأ" End If End Function مرفق ملف السلام عليكم vb_03.rar

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

بسم الله الرحمن الرحيم اقترح الفصل بين الناحيه المحاسبيه و التعارف بين الاعضاء لانهما موضوعان منفصلان و للتفاعل بين الاعضاء اقترح ان تقوم باعداد الاسس العامه للموضوع و النقاط الاساسيه ليصبح المجال اكبر للحوار بدلا من اوافق بشده و أضم صوتى الى صوتك و 0000000000 السلام عليكم

بسم الله الرحمن الرحيم اخى خالد : اشكرك كثيرا على متابعه الموضوع و افاده الاخرين بخصوص استكمال السلسلة فالحمد لله خاب ظنك بدليل قيامى بتثبيت الموضوع و ايمانى ان هذا العمل لوجه الله و لا انتظر منه سواء الجزاء منه و هذا اعظم من كلمه شكر و الحمد لله ان ربنا عوض الاعضاء فى هذه الفتره( لانشغالى الشديد ) بمن هو افضل منى هوانت اخى خالد 0 السلام عليكم بسم الله الرحمن الرحيم اخى mfawaz هكذا دائما الاكواد خطأ بسيط جدا من الممكن ان يعطلك عده ايام , عندك خطأن فى الكود و لن تصدق عندما تعرف ان الخطأ الأول ليس عيب فى الكود و لكنك كتبت كلمه Wellcome فى الكود بطريقه صحيحه اما فى ورقه العمل كتبتها خطـــــــــــأ Well come يجب ان تكتبهما بطريقه واحده , اما الخطأ الثانى فى استخدامك لجمله ScorllArea برجاء اضافه السؤال فى المنتدى حيث ان هذا السؤال خارج نطاق الشرح الحالى السلام عليكم

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

بسم الله الرحمن الرحيم اخى WEKA773: جرب الطريقه التاليه 1 - يتم تصدير التقرير بامتداد txt 2 - افتح الاكسبل ثم فتح ملف و اختار من اسفل الشاشه ( Files Of Type ) جميع الملفات ثم افتح الملف السابق تصديره بامتداد txt 3 - من اول شاشه تظهر لك اختار من (File OriGin) (1256 : Arabic windows ) و استمر السلام عليكم

بسم الله الرحمن الرحيم هل تعمل على المتمم للحسابات أم المخازن 00000 و هل البرنامج بأسم شركه مايكرو تك و أى نسخه متمم ( سيكوال ام بارادوكس) السلام عليكم

بسم الله الرحمن الرحيم أضم صوتى لصوتكم جميعا و تعالوا نبدأ بخطوه أيجابيه بوضع الاسس لهذا الموضوع بالتجمع اليوم الساعه الحاديه عشره مساءا بتوقيت القاهره على مسنجر الهوت ميل و ياريت تجهيز المايك و السماعات و من يريد الانضمام برجاء اضافه بريده و هذا هو بريدى hs889@hotmail.com السلام عليكم

بسم الله الرحمن الرحيم حبيب ألبي wael salami أتمنى من الله الشفاء العاجل لك و لجميع مرضى المسلمين و ان تعود الينا ان شاء الله سالما امبن , امبن , امبن , امبن 0 ان كنت بعيد عن المنتدى هذه الفتره فالكثير ( و أنت منهم ) قريب الى قلبى , هذا ليس كلام ( و هذه أول مره منذ اشتراكى فى المنتدى أقول كلمه " أنا " و لكن حان الوقت لقولها ) أنا لا أقول كلام لا أحس به فلقد أستطعت بذوقك و معلوماتك و مشاركاتك و مواضيعك و 0000000ان تنال أعجاب و حب الجميع 0 و أعلم اننا جميعا فى انتظار عودتك ان شاء الله على احر من الجمر و هذا بريدى اتمنى ان استقبل رساله أطمئنان على صحتك hs889@hotmail.com السلام عليكم

بسم الله الرحمن الرحيم لتحويل الاكسس الى exe ستجد الحل على الرابط التالى http://www.officena.net/ib/index.php?showt...7991&hl=exe السلام عليكم

بسم الله الرحمن الرحيم الكود التالى يقوم بأظهار اى عمود مخفى فى ورقه العمل Sub sUnHide() For i = 1 To Sheets.Count For ii = 1 To Columns.Count If Sheets(i).Columns(ii).Hidden = True Then Sheets(i).Columns(ii).Hidden = False End If Next Next End Sub مرفق ملف السلام عليكم Unhide_Clmn.rar

بسم الله الرحمن الرحيم اخى الكريم : الموضوع ليس أختصار كود جرب الملف المرفق السلام عليكم Hide_Unhide_03.rar