فورم إريد أن تكون الخلايا فيه متغيرة

[بن دبوس]

أيها الخبراء الأفاضل هل يمكنكم مساعدتي

 

لدي فورم إريد أن تكون الخلايا في متغيرة

( بمعنى مجرد ضغطي على ( spinButton) ينتقل للسطر الذي يليه )

مع الاحتفاظ بخاصية التغيير المباشر 

 

كما في هذا المثال

 

 

خلايا متغيرة.rar

[ياسر خليل أبو البراء]

جرب الكود التالي
 

Option Explicit

Dim rng As Range
 
Private Sub SpinButton1_SpinDown()
    If Val(TextBox1.Value) <= 1 Then Exit Sub
    TextBox1.Value = Val(TextBox1.Value) - 1
End Sub

Private Sub SpinButton1_SpinUp()
    If Val(TextBox1.Value) >= Cells(Rows.Count, 1).End(xlUp).Row - 1 Then Exit Sub
    TextBox1.Value = Val(TextBox1.Value) + 1
End Sub

Private Sub TextBox1_Change()
    On Error Resume Next
    Set rng = Range("A2:D" & Cells(Rows.Count, 1).End(xlUp).Row)
    TextBox2.Value = Application.WorksheetFunction.VLookup(Val(TextBox1.Value), rng, 2, 0)
    TextBox3.Value = Application.WorksheetFunction.VLookup(Val(TextBox1.Value), rng, 3, 0)
    TextBox4.Value = Application.WorksheetFunction.VLookup(Val(TextBox1.Value), rng, 4, 0)
End Sub

 

[بن دبوس]

عمل رائع وأشكرك من الأعماق

لكن لو كان من الممكن إتاحة التعديل على البيانات من خلال textbox مباشرة

لكان هذا هو مبتغاي 

[بن دبوس]

عمل رائع وأشكرك من الأعماق

لكن لو كان من الممكن إتاحة التعديل على البيانات من خلال textbox مباشرة

لكان هذا هو مبتغاي 

[بن دبوس]

أيها الأفاضل 

توصلت إلى ما أريد ( بفضل الله ) ، ثم بالاستفادة من كود أخي أبي البراء 

 

لكن بطريقة بدائية ومعوجة

فلو تفضل أحد أخواني بإعادة تنسيق وتقويم هذه الطريقة لتصبح أكثر احترافية  

خلايا متغيرة2.rar