هل يوجد خطا في هذا الكود

[رسول]

  With ComboBox1
For Each Data In ورقة3.Range("B2:B" & ورقة3.Cells(Rows.Count, "b").End(xlUp).Row)
i = Data.Row
AA = Application.WorksheetFunction.CountIf(ورقة3.Range(Cells(2, 2), Cells(i, 2)), Data)
If AA = 1 Then
.AddItem Data
.List(.ListCount - 1, 1) = Data.Offset(0, 1).Value
End If
Next
End With

 

تم تعديل أكتوبر 23, 2016 بواسطه رسول

[Guest محمد ابو صهيب]

Option Explicit
Dim Data As Range
Dim I As Integer
Dim AA As Variant
Private Sub UserForm_Initialize()

  With ComboBox1
  
       For Each Data In Worksheets("ورقة3").Range("B2:B" &  Worksheets("ورقة3").Cells(Rows.Count, "b").End(xlUp).Row)
          I = Data.Row
          AA = Application.WorksheetFunction.CountIf(Worksheets("ورقة3").Range(Cells(2, 2), Cells(I, 2)), Data)
          If AA = 1 Then
 .AddItem Data
          .List(.ListCount - 1, 1) = Data.Offset(0, 1).Value
          End If
       Next
 End With
End Sub

 

 

 

 

data.rar

 

تم تعديل أكتوبر 23, 2016 بواسطه محمد ابو صهيب

[رسول]

21 ساعات مضت, محمد ابو صهيب said:

Option Explicit
Dim Data As Range
Dim I As Integer
Dim AA As Variant
Private Sub UserForm_Initialize()

  With ComboBox1
  
       For Each Data In Worksheets("ورقة3").Range("B2:B" &  Worksheets("ورقة3").Cells(Rows.Count, "b").End(xlUp).Row)
          I = Data.Row
          AA = Application.WorksheetFunction.CountIf(Worksheets("ورقة3").Range(Cells(2, 2), Cells(I, 2)), Data)
          If AA = 1 Then
 .AddItem Data
          .List(.ListCount - 1, 1) = Data.Offset(0, 1).Value
          End If
       Next
 End With
End Sub

 

 

 

 

data.rar

 

شكرا اخي العزيز محمد لكن عندما طبقت الكود علة الملف المرفق ادناه لم يعمل الفورم مع الشكر

ارشفة الحسابات.rar

[Guest محمد ابو صهيب]

 

Private Sub UserForm_Initialize()
Dim lngWindow As Long, lFrmHdl As Long
Dim Data As Range
Dim I As Integer
Dim AA As Variant
    lFrmHdl = FindWindow(vbNullString, Me.Caption)
    lngWindow = GetWindowLong(lFrmHdl, GWL_STYLE)
    lngWindow = lngWindow And (Not WS_CAPTION)
    Call SetWindowLong(lFrmHdl, GWL_STYLE, lngWindow)
   Call DrawMenuBar(lFrmHdl)
 
   With ComboBox1
  
       For Each Data In Worksheets("صادر.وارد").Range("B2:B" & Worksheets("صادر.وارد").Cells(Rows.Count, "b").End(xlUp).Row)
          I = Data.Row
          AA = Application.WorksheetFunction.CountIf(Worksheets("صادر.وارد").Range(Cells(2, 2), Cells(I, 2)), Data)
          If AA = 1 Then
          .AddItem Data
          .List(.ListCount - 1, 1) = Data.Offset(0, 1).Value
          End If
       Next
 End With
 
End Sub

ارشفة الحسابات.rar

تم تعديل أكتوبر 24, 2016 بواسطه محمد ابو صهيب

[رسول]

منذ ساعه, محمد ابو صهيب said:

 

Private Sub UserForm_Initialize()
Dim lngWindow As Long, lFrmHdl As Long
Dim Data As Range
Dim I As Integer
Dim AA As Variant
    lFrmHdl = FindWindow(vbNullString, Me.Caption)
    lngWindow = GetWindowLong(lFrmHdl, GWL_STYLE)
    lngWindow = lngWindow And (Not WS_CAPTION)
    Call SetWindowLong(lFrmHdl, GWL_STYLE, lngWindow)
   Call DrawMenuBar(lFrmHdl)
 
   With ComboBox1
  
       For Each Data In Worksheets("صادر.وارد").Range("B2:B" & Worksheets("صادر.وارد").Cells(Rows.Count, "b").End(xlUp).Row)
          I = Data.Row
          AA = Application.WorksheetFunction.CountIf(Worksheets("صادر.وارد").Range(Cells(2, 2), Cells(I, 2)), Data)
          If AA = 1 Then
          .AddItem Data
          .List(.ListCount - 1, 1) = Data.Offset(0, 1).Value
          End If
       Next
 End With
 
End Sub

ارشفة الحسابات.rar

عذرا اخي لكن عند تشغيل الملف بعد التعديل عليه من قبلكم تظهر الرسالة التالية

تم تعديل أكتوبر 24, 2016 بواسطه رسول

[Guest محمد ابو صهيب]

اخي الكريم ....المشروع الذي انت تنجزه ....فيه أكثر من خطأ .......حيث هنالك اضطرابات في اعلان عن المتغيرات......وتكرارها في نفس الوقت .....من مفردة ...والمفروض انها تكون معلنة في موديول بصيغة public حتى تتفدى الأخطاء من runtimes  + الذي انصاحك راجع الأكواد بأن تجعل المتغيرات التي تفارق البرنامج عامة كما أشرت بصيغة public في موديول خاص بالمتغيرات ...ثم انتقل في تصحيح باقي من الأكواد ......بحيث تجعل كلمة تصريح ....في الموديول وغيره من الفورم من generale      الكلمة option explicit    ستفيدك بتحديد الأخطاء المحددة من البرنامج وهكذا تستطيع تصحيح خطوة ...خطوة ........لأني رأيت كثير من الأخطاء فأحببت الاشارة اليها ....لأنه مشروعك...يستدعي الكثير من الوقت في التصحيح......

 

العفو ....وودت ان اساعدك ...لكن والله اني مشغول.....سمحني .....الذي اقول لك  .......ابدأ بالمتغيرات 1       صصحها    فإن فيها أخطاء       

ارشفة الحساب taadil.rar

تم تعديل أكتوبر 24, 2016 بواسطه محمد ابو صهيب

[رسول]

شكرا لك اخي العزيز ولجهودك وارجو منك عندما يتسنى لك وقت النظر وتصحيح الاخطاء مع الشكر