قنديل الصياد

بعد اذن استاذى الحبيب ابو حنين اليك هذا الكود ايضا لحذف ورقة عمل Sub kkkkkkkkkkkkk() Worksheets("ورقة4").Delete End Sub

الكود الاول لتحديد مجموعة من الخلايا Private Sub CommandButton1_Click() Range("A1:A5").Select End Sub الكود الثاني مسح بيانات خلايا معينة Private Sub CommandButton2_Click() Range("A1:A5").Clear End Sub الكود الثالث ادراج لون خط ولون خلفية لخلايا محددة Private Sub CommandButton3_Click() Randomize Timer Dim i, j, k As Integer i = Int(255 * Rnd) + 1 j = Int(255 * Rnd) + 1 k = Int(255 * Rnd) + 1 Cells(1, 1).Font.Color = RGB(i, j, k) Cells(5, 1).Interior.Color = RGB(j, k, i) End Sub مرفق ملف به الاكواد Book1.rar

تحياتى اخى واستاذى الحبيب وكل عام وانتم بخير ستكون على الورد كما اردت ولكن فعلا اعشق العمل على الاكسل كل عام وحضرتك بخير وجزاك الله خيرا

الاخوة الاحباء كل عام وحضراتكم بخير ملف اكسل به تكبيرات العيد

استمارة رقم (2) احصاء عام التعليم الابتدائي 2013 / 2014 استمارة 2.rar

استمارة (1) سري لمدارس التعليم الابتدائي استمارة 1 سرى.rar

اليكم ملف مرفق به كل الاكواد واليكم الاكواد المستخدمة كود لتغيير الاسم العام للبرنامج Sub k() Application.Caption = "قنديل الصياد" End Sub كود تصغير حجم البرنامج على الشاشة Sub kkkkkkk() Application.WindowState = xlNormal End Sub كود تكبير حجم البرنامج على الشاشة Sub kkkkkkkk() Application.WindowState = xlMaximized End Sub كود تصغير البرنامج على شريط المهام Sub kkkkkk() Application.WindowState = xlMinimized End Sub كود اخفاء شريط الصيغة Sub kk() Application.DisplayFormulaBar = False End Sub كود اظهار شريط الصيغة Sub kkk() Application.DisplayFormulaBar = True End Sub كود ملء الشاشة Sub kkkk() Application.DisplayFullScreen = True End Sub كود تراجع عن ملء الشاشة Sub kkkkk() Application.DisplayFullScreen = False End Sub كود حذف ورقة عمل Sub kkkkkkkkkkkkk() Worksheets("ورقة4").Delete End Sub كود اضافة ورقة عمل Sub kkkkkkkkkkkk() Worksheets.Add End Sub كود اخفاء ورقة عمل Sub kkkkkkkkk() Worksheets("ورقة2").Visible = False End Sub كود اظهار ورقة عمل Sub kkkkkkkkkk() Worksheets("ورقة2").Visible = True End Sub كود تغيير اسم ورقة عمل Sub kkkkkkkkkkk() Worksheets(1).Name = "منتديات اوفيسنا" End Sub مرفق ملف به التطبيق على الاكواد السابقة أكواد.rar

كل عام واسرة منتديات اوفيسنا بخير بمناسبة عيد الاضحى المبارك اعاده الله علينا وعليكم وعلي الامة الاسلامية جميعها بالخير واليمن وبالبركات

جزاك الله خيرا اخى الشهابى هدية صغيرة لحضرتك وكل عام وانتم بخير

Excel

رابط به مجموعة كبيرة من كتب الاكسل http://www.4shared.com/dir/5779926/488c5a3e/Excel_and_VBA_Books.html#dir=WbO8pP5t

يوضع الكود فى حدث الـ WorkBook الكود المستخدم Option Explicit Private Declare Function GetWindowText Lib "user32.dll" _ Alias "GetWindowTextA" _ (ByVal hwnd As Long, _ ByVal lpString As String, _ ByVal cch As Long) As Long Private Declare Function SetWindowText Lib "user32" _ Alias "SetWindowTextA" _ (ByVal hwnd As Long, ByVal lpString As String) As Long Private Const CAPTION As String = "* منتديات أوفيسنا .. قنديل الصياد *" Private bStopScrolling As Boolean Private Sub Workbook_Open() Application.OnTime _ Now, Me.CodeName & ".ScrollXLCaption" End Sub Private Sub Workbook_BeforeClose(Cancel As Boolean) bStopScrolling = True End Sub Private Sub ScrollXLCaption() Dim i As Long Dim t As Single bStopScrolling = False Do Do SetWindowText Application.hwnd, Space(i) + CAPTION t = Timer Do DoEvents Loop Until Timer - t >= 0.05 i = i + 1 If bStopScrolling Then Exit Sub DoEvents Loop Until Not WindowHasCaption(Application.hwnd) i = 0 Loop End Sub Private Function WindowHasCaption(hwnd As Long) As Boolean Dim sBuffer As String Dim lRet As Long sBuffer = Space(256) lRet = GetWindowText(Application.hwnd, sBuffer, Len(sBuffer)) WindowHasCaption = CBool(Len(Trim(Left(sBuffer, lRet))) > 0) End Function مرفق ملف به التطبيق شريط متحرك مكان اسم البرنامج.rar

وجزاكى الله خيرا اختى العزيزة كل عام وحضرتك بخير بمناسبة عيد الاضحى المبارك اعاده الله علينا وعليكم وعلى المسلمين بالخير واليمن والبركات

اخى العزيز / لا توجد نشرات وانما كشف مرسل من الادارة التعليمية

الصيغ والدالات فى اكسل

برمجة اكسل_تطبيقات متقدمة تحليل البيانات الاحصائية

قمت بحذف اسم ولى الامر وصناعته على حسب الكشف المطلوب لللادارة التعليمية كشف12.rar

استاذتى الافاضل بارك الله فيكم وعليكم واليكم هذا الرابط ايضا به نسخة 1ويس 2010 عربى وتعمل كاملة معى وبرابط واحد http://www.officena.net/ib/index.php?showtopic=49330&hl=

موقع اخر لتعلم جميع برامج الاوفيس اون لاين من هنا

بشكر كل اخوانى واساتذتى على هذا التحفيز الجميل بارك الله فيكم جميعا وبارك عليكم وبارك لكم وبارك فى اولادكم على ما تقدموه لنا ولجميع الاخوة من علم ننتفع به دائما فهو ذخر لكم اساتذتى الاحباء

اسطوانة شرح اكسل excel 2010 حمل من هنا

اسطوانة اخرى لشرح الاكسل بالعربى صوت وصورة حمل من هنا