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



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







28-06-2020 10:07 صباحاً
معلومات الكاتب ▼
تاريخ الإنضمام : 05-09-2017
رقم العضوية : 371
المشاركات : 177
الجنس :
تاريخ الميلاد : 3-7-1969
الدعوات : 1
قوة السمعة : 292
الاعجاب : 0
attachUserForm1.rar الساده الخبراء

هذا الكود من موقع على النت للتحكم فى اليوزر فور و اضافة ادمات له
ولكن عند التطبيق ظهرت هذه المشكله فى سطر الامر هذا
Dim UFvbc As VBComponent
لو ممكن شرح ما هذا الوظيفة UFvbc As VBComponent
اكون شاكر ليكم
الكود
CODE

Option Explicit

Sub addCtrls()
'-----------------------------
'Thanks for downloading the code.
'Please visit our channel for a quick explainer on this code.
'Feel free to update the code as per your need and also share with your friends.
'Download free codes from http://vbaa2z.blogspot.com
'Subscribe channel: youtube.com/vbaa2z
'Author: L Pamai (vbaa2z.team@gmail.com)
'-----------------------------

't1-54;114;108;78
'T54, 60/42, T54
Dim UFvbc As VBComponent
Dim r As Long

Set UFvbc = ThisWorkbook.VBProject.VBComponents("UserForm1")
Dim cb As Control
Dim t As Long, h&, w&, rowCnt&, ColCnt&, objLeft&, vGap&, objLeft_last&, totalColumns&
Dim objRow_last As Long
Dim TotalRows&

t = 15 'top
h = 10 'hieght
w = 84 'width

rowCnt = 1
ColCnt = 1
objLeft = 40
objLeft_last = 10

vGap = 14
objRow_last = 20

TotalRows = 12
totalColumns = 4

For r = 1 To (TotalRows * totalColumns) '(6 * 7)

Set cb = UFvbc.Designer.Controls.Add("Forms.Label.1", "Label" & r, True)
'Set cb = UFvbc.Designer.Controls.Add("Forms.Textbox.1", "Textbox" & r, True)
    
    't1_r1_c1
    cb.Name = "t1_r" & rowCnt & "_c" & ColCnt
    cb.BackColor = &HC0C0C0   'vbGreen
    cb.Height = h
    cb.Width = w
    cb.Top = objRow_last

    '----------------------
    If ColCnt = 1 Then
      cb.Left = objLeft
      objLeft_last = objLeft
      'vGap = 1
    Else
      cb.Left = objLeft_last + w + vGap
      objLeft_last = objLeft_last + w + vGap
    End If
    
    ColCnt = ColCnt + 1
    '----------------------
    
    If ColCnt = totalColumns + 1 Then
      ColCnt = 1
      rowCnt = rowCnt + 1
      objLeft_last = 10
      objRow_last = objRow_last + h + vGap
        
    End If
    
  Set cb = Nothing
  
Next r

End Sub
 
 
  UserForm1.rar   تحميل rar مرات التحميل :(7)
الحجم :(12.853) KB





look/images/icons/i1.gif كود لليوزر فورم
  29-06-2020 09:14 صباحاً   [1]
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10516
الجنس :
تاريخ الميلاد : 1-10-1978
الدعوات : 24
قوة السمعة : 36718
الاعجاب : 170
أخي العزيز خالد
يرجى مشاهدة الفيديو المأخوذ منه الكود على الرابط التالي
https://www.youtube.com/watch?v=csUhqCN0CBI

ليعمل الكود احذف كل الأدوات الموجودة على الفورم أولاً ..
أضف المكتبة التالية من خلال Tools ثم References ثم Micrsosoft Visual Basic for Applications Extensibilty 5.3
حيث تمكنك هذه المكتبة في التحكم في الكائنات البرمجية في محرر الاكواد نفسه ، وحيث أن الفورم أحد هذه الكائنات البرمجية فيقوم الكود بإضافة Labels أو عناوين بشكل تلقائي للفورم في وضع التصميم ..

أثارت هذه المشاركة إعجاب: ali mohamed ali، خالد الشاعر، ashraf_hertlion،



look/images/icons/i1.gif كود لليوزر فورم
  29-06-2020 02:29 مساءً   [2]
معلومات الكاتب ▼
تاريخ الإنضمام : 05-09-2017
رقم العضوية : 371
المشاركات : 177
الجنس :
تاريخ الميلاد : 3-7-1969
الدعوات : 1
قوة السمعة : 292
الاعجاب : 0
الف الف شكر استاذ ياسر
جزاك الله كل خيراً

أثارت هذه المشاركة إعجاب: YasserKhalil،



look/images/icons/i1.gif كود لليوزر فورم
  29-06-2020 09:58 مساءً   [3]
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10516
الجنس :
تاريخ الميلاد : 1-10-1978
الدعوات : 24
قوة السمعة : 36718
الاعجاب : 170
وجزيت خيراً أخي العزيز خالد والحمد لله الذي بنعمته تتم الصالحات.




اضافة رد جديد اضافة موضوع جديد



المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
كود بحث مطاطي بأي جزء من البيانات علي بطيخ سالم
11 1839 star
اريد كود لطباعه جميع ملفات البى دى اف مره واحده EM_ACC
2 75 EM_ACC
خطأ عند تحويل معادلة MAXIFS الى كود VBA EM_ACC
0 29 EM_ACC
محتاج كودترحيل saad mohamed
0 64 saad mohamed
كود تنسيق الصوت حسين الحمادي
2 129 حسين الحمادي

الكلمات الدلالية
لليوزر ، فورم ،








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

الساعة الآن 03:11 PM.