www.arab.mountada.net
أهلاً ومرحباًبكم معنا فى منتدى العلم والمعرفة وتبادل الآراء عزيزى الزائر يرجى التسجيل حتى يمكنك وضع مواضيع بالمنتدى وكذلك تحميل البرامج المحاسبية التى تحتاجها فى الوحدة الحسابية ونشكركم على التواصل معنا مع تحيات مدير عام المنتدى
محاسب / عبدالرءوف نصار ..... المديرية المالية بالشرقية

www.arab.mountada.net

منتدى ممثلى وزارة المالية بجمهورية مصر العربية .................... حماة المال العام
 
الرئيسيةالبوابةس .و .جبحـثالتسجيلدخول
  أهلاً ومرحباً بكم على صفحات منتدى مندوبى وزارة المالية  بمصر الحبيبة .. آراء .. تواصل .. يرجى التسجيل لإمكانية المساهمة وتنزيل الملفات .. بيان الوظيفة وجهة العمل حتى يمكن التواصل الجاد .....
  مجموعة من البرامج المحاسبية التى تسهل العمل بالوحدات الحسابية .. دقة .. سرعة ..
  قسم للحوار لطرح جميع المشاكل التى تواجه مندوب وزارة المالية والعمل على حلها ..
  منشورات .. كتب دورية .. فتاوى قانونية .. أحدث تعليمات وزارة المالية ..
   مقتطفات إسلامية متميزة ..
   منتدى الشعر .. خواطر مندوب مالية .. 
  لوائح وقوانين تهم مندوب وزارة المالية ..
  منوعات مالية .. قيود محاسبية .. قسم الكمبيوتر .. قسم الفيجوال بيسك ..
  يرجى من كافة الأخوة الأعضاء المساهمة بكافة الموضوعات لتكون الفائدة  للجميع مع تحياتى مدير عام المنتدى ............

شاطر | 
 

 البرمجة بلغةvbaالتى تدعم الاكسيل

استعرض الموضوع السابق استعرض الموضوع التالي اذهب الى الأسفل 
كاتب الموضوعرسالة
عبدالرءوف نصار
Admin
avatar

عدد المساهمات : 217
تاريخ التسجيل : 17/05/2011
العمر : 59
الموقع : www.arab.mountada.net

مُساهمةموضوع: البرمجة بلغةvbaالتى تدعم الاكسيل   الإثنين يونيو 13, 2011 7:23 am

على بركة الله نفتتح هذا القسم بهذه المشاركة المتواضعة :


كود:
Sub zezo()
Application.Caption = "raouf nassar"
End Sub
يقوم الكود بتوظيف الخاصية Caption على كائن التطبيق أي أن هذه الخاصية تقوم بتغيير الاسم العام للبرنامج فبدلا من كلمة مايكرسوفت سيظهر raouf nassar ...

كود:
Sub zezo2()
Application.DisplayFormulaBar = False
End Sub
تقوم هذه الخاصية DisplayFormulaBar بإخفاء شريط الصيغ عند استخدام False ،، وبالمقابل إظهاره عند استخدام …TRUE


كود:
Sub zezo3()
Application.DisplayFullScreen = True
End Sub
تقوم هذه الخاصية DisplayFullScreen بجعل التطبيق في وضع ملء الشاشة وللرجوع طبعاً يجب ان نجعل القيمة False ..


كود:
Sub zezo4()
Application.DisplayRecentFiles = False
End Sub
تقوم هذه الخاصية DisplayRecentFiles بعدم عرض المستندات الأخيرة في كائن تطبيق اكسيل وإذا أردنا إستعراضها طبعاً نجعلها تاخد القيمة TRUE .كالتالي :

كود:
Sub zezo5()
Application.DisplayRecentFiles = True
End Sub
===============================================

تجارب أخرى :

تقوم هذه الخاصية WindowState بتحديد حالة كائن التطبيق من حيث التكبير والتصغير والوضع الطبيعي

كود:
Sub zezo6()
Application.WindowState = xlMaximized
End Sub
كود:
Sub zezo7()
Application.WindowState = xlMinimized
End Sub
كود:
Sub zezo8()
Application.WindowState = xlNormal
End Sub
.

الكود النالي يجعل "raouf nassar" متحرك علي الشريط- Excel Caption


ملف للتحمبل هنا


كود:
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 = "* raouf nassar *"

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


كانت تجربتنا الأولى على كائن التطبيق وستكون تجربتنا الثانية على كائن ورقة العمل :


كود:
Sub zezo9()
Worksheets("sheet1").Visible = False
End Sub
يقوم الكود بإخفاء ورقة العمل المسماه sheet1

كود:
Sub ZEZO10()
Worksheets("sheet1").Visible = True
End Sub
يقوم الكود بإظهار ورقة العمل المسماه sheet1

كود:
Sub zezo11()
Worksheets(1).Name = "sheet1"
End Sub
يقوم الكود بإعادة تسمية الورقة 1 في ترتيب اكسيل بـ sheet1

كود:
Sub zezo12()
Worksheets("sheet1").Delete
End Sub
يقوم الكود بحذف الورقة المسماه sheet1

كود:
Sub zezo13()
Worksheets(1).Activate
End Sub
يقوم الكود بتنشيط الورقة المسماه sheet1

كود:
Sub zezo14()
Worksheets.Add
End Sub
يقوم الكود بإضافة ورقة جديدة

كود:
Sub zezo15()
Worksheets(3).Copy
End Sub
منقول الاخ زياد على
الرجوع الى أعلى الصفحة اذهب الى الأسفل
معاينة صفحة البيانات الشخصي للعضو
مصطفى بربرى أحمد



عدد المساهمات : 1
تاريخ التسجيل : 25/06/2011

مُساهمةموضوع: البرمجة بلغة vba التى تدعم الإكسل   السبت يونيو 25, 2011 2:43 am

معلش يا ريس أنا مش فاهم حاجة من اللى مكتوب و نفسى أتعلم و للعلم أن كل خبرتى فى مجال الكمبيوتر ذاتية علمت نفسى بنفسى و لم أتعلم من أى جهة أو دورات أو..........!
الرجوع الى أعلى الصفحة اذهب الى الأسفل
معاينة صفحة البيانات الشخصي للعضو
عبدالرءوف نصار
Admin
avatar

عدد المساهمات : 217
تاريخ التسجيل : 17/05/2011
العمر : 59
الموقع : www.arab.mountada.net

مُساهمةموضوع: البرمجة بلغة vba التى تدعم الاكسيل   السبت يونيو 25, 2011 8:31 am

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



عدد المساهمات : 1
تاريخ التسجيل : 05/12/2011

مُساهمةموضوع: رد: البرمجة بلغةvbaالتى تدعم الاكسيل   الإثنين ديسمبر 05, 2011 5:58 pm

[quote="م[i]jjjjت نفسى بنفسى و لم أتعلم من أى جهة أو دورات أو..........![/quote]
الرجوع الى أعلى الصفحة اذهب الى الأسفل
معاينة صفحة البيانات الشخصي للعضو
 
البرمجة بلغةvbaالتى تدعم الاكسيل
استعرض الموضوع السابق استعرض الموضوع التالي الرجوع الى أعلى الصفحة 
صفحة 1 من اصل 1

صلاحيات هذا المنتدى:لاتستطيع الرد على المواضيع في هذا المنتدى
www.arab.mountada.net :: عالم الكمبيوتر-
انتقل الى: