بحث مخصص من جوجل فى أوفيسنا
Custom Search
|
الاقسام
-
الترحيب
-
- 1
- مشاركه
-
- نرحب بزوار الموقع
- بواسطه محمد طاهر
-
-
تطبيقات الأوفيس Msoffice
-
- 288,042
- مشاركات
-
- 123,745
- مشاركات
-
- بداية كل سنة ترقيم جديد
- بواسطه jjafferr
-
- 13,987
- مشاركات
-
- 5,267
- مشاركات
-
- 1,690
- مشاركات
-
- 317
- مشاركات
-
- 239
- مشاركات
-
- 474
- مشاركات
-
- 999
- مشاركات
-
- شركة تنظيف بالرياض
- بواسطه ريهام م
-
- 89
- مشاركات
-
- تحويل نموذج إلى صفحة ويب
- بواسطه خزاني
-
- 31
- مشاركات
-
- 30
- مشاركات
-
- يومية بالبو بليشر
- بواسطه islamfu4
-
- 6
- مشاركات
-
- 478
- مشاركات
-
- 21
- مشاركات
-
- 19
- مشاركات
-
-
أقسام إدارة المشاريع
-
- 463
- مشاركات
-
- 23
- مشاركات
-
- 114
- مشاركات
-
- مهارات التخطيط
- بواسطه binshehab
-
- 123
- مشاركات
-
-
الويب
-
- 478
- مشاركات
-
.jpg.0d7d07b1588e79276ea5a73790186b11.thumb.jpg.59a293de7afde9db41cf98bfa4788cd5.jpg)
-
احصائيات المنتدى
-
اجمالي الموضوعات62,060
-
اجمالي المشاركات461,600
-
-
احصائيات الاعضاء
-
مشاركات
-
تستطيع ان تستعمل الكود الذي اعطيتك في آخر مشاركة ، مع إضافة حقل Auto_Date في الجدول (كما اشرت له سابقا) ، بحيث تحصل على ارقام تسلسل لكل سنه بصيغة 1 2 3 ... 100 101 جعفر
-
السلام عليكم ورحمه الله وبركاته كيف اعطل زر الت f4 تحياتي لكم -
بواسطه عذاب الزمان · قام بنشر
استاذ جعفر سلام عليكم ورجمة الله وبركاته الي اريده هو : ان لايظهر رقم السنة 17 او 18 في الحقل seq مع رقم السجل ، هو الان يظهر بهذا الشكل 171 او 172 او 17101 لكن اريده ان يظهر لي فقط 1 ، 2 ، وهكذا ، او ان يظهر لي السنة كاملة وليس نصفها فبدلا من 171 يظهر لي 2017/01 وهكذا لكل السجلات . مع الاحتفاظ بكون الترقيم يتجدد مع بداية كل سنة وان لايتكرر الترقيم اي لكل سجل صادر رقم خاص به . -
بواسطه mennad sofiane · قام بنشر
بسم االله الرحمان الرحيم والصلاة على سيدنا محمد أما بعد اليوم أحببت أن أقدم لكم بعض مقتطفات من الصور وهي معمولة با اكسل هذه أحسن اصدراتي التي أعمل عليها و انشاء الله سوف أرفق لكم الملفات بعد انتهائي من برمجتها. وتقبلو مني فائق احترام والتقدير أخوكم في الله مناد سفيان -
بواسطه ياسر خليل أبو البراء · قام بنشر
السلام عليكم أخي صلاح جرب الكود التالي Sub OpenClosedWB() Const strInput As String = "123.xlsx" Dim wbk As Workbook On Error Resume Next Set wbk = Workbooks(strInput) If wbk Is Nothing Then Set wbk = Workbooks.Open(Filename:=ThisWorkbook.Path & "\" & strInput, ReadOnly:=True) If wbk Is Nothing Then MsgBox strInput & " Not Found!", vbCritical Exit Sub End If Else wbk.Activate End If On Error GoTo 0 End Sub
-
-
أحدث الموضوعات
-
-
اعلي المشاركون تقييماً
-
1
-
2
-
3
-
4
-
5
-
6
-
7
-
8
-
9
-
10
-
-
اعلي التحميلات من مكتبة الموقع
-
-
مدونات فرق الموقع
-
-
المتواجدين الان (اضغط هنا للقائمه الكامله)
