امير عاطف

الأخ حسام :

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


If Target.Value <> "" Then ووضع السطر التالي بدلاً منه .... If IsNull(Target.Value) Then

Private Sub Worksheet_Change(ByVal Target As Range) Dim c As Variant For Each c In Worksheets("Sheet1").Range("a:a")    If c.Value = "" Then       c.Value = "Officena"      Exit For    End If   Next c End Sub          

عندما تقوم بفتح ورقة العمل اضغط على مفتاحي Alt + F11
بعد ذلك يتم فتح نافذة الكود ... ستجد الكائنات يمينك فاختر منها الكائن Sheet1 وقم بعمل نقرة مزدوجة بالماوس علية وبعد ذلك قم بلصق الكود التالي ....

Private Sub Worksheet_Activate() For Each contact_number In Worksheets("Sheet1").Range("a1:iv65536")   If Len(contact_number) > 0 Then   contact_number.Value = "0" & contact_number.Value   End If Next contact_number End Sub
بعد ذلك قم بعمل حفظ وقم بغلق الاكسيل وافتحه مرة اخرى وان شاء الله كل شيء يكون تمام

اما بالنسبة لفكرة الاخ الكريم شرف فيمكنك تطبيقها بكل سهولة اذا اتبعت الخطوات الذي اخبرك بها حيث انها لا تحتاج لفتح نافة الكود ولكن ما تقوم بعمله هو كتابة الصيغة داخل خلية بورقة العمل

الأخ abdulwhab :

قم بفتح محرر ال VBE عن طريق الضغط على مفتاحي ALT + F11 بعد ذلك سوف تجد على يمينك الكائنات المتاحة بدفتر العمل ..ثم قم بعمل نقرة مزدوجة على الكائن Sheet1(ورقة1) بعد ذلك قم بلصق الكود التالي .... وان شاء الله كل شيء بعد ذلك يكون على ما يرام


Private Sub Worksheet_Change(ByVal Target As Range) If IsNull(Me.Range("e10")) Or Me.Range("e10") = 0 Then Exit Sub Else Me.Range("g14").Value = Me.Range("e9") - Me.Range("e10") End If End Sub

بالنسبة لسؤال الأول:

للتحديث دفتر العمل Workbook بكل اوراق العمل الذي يحتويها ضع هذا الكود في الماكرو الذي تريد او كحدث لزر امر (داخل ال VBA)


Workbooks(WorkbokName).RefreshAll

رد للأخ أبو احمد :


Private Sub Worksheet_Change(ByVal Target As Range) If Target.Value <> "" Then   If Target.Column = 1 Then MsgBox "تمت أضافة المبلغ", , "تهانينا" End If If Target.Column = 2 Then MsgBox "تم خصم المبلغ ", , "أحسن الله عزاك"  End If End If End Sub