NAWAS قام بنشر يوليو 4, 2003 مشاركة قام بنشر يوليو 4, 2003 السلام عليكم قرأت عن وضع قيمة افتراضية لخلية بحيث إذا لم نكتب فيها شيء فإن قيمتها تكون officena وكان هذا هو الكود Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) If Range("a1").Value = "" Then Range("a1").Value = "Officena" End If End Sub ولكني عندما غيرت في النطاق من A1 إلى A:A وذلك لكي يشمل الكود العمود كاملاً كانت تظهر رسالة error 13 ,,,,, Type mismatch فما هو الحل برأيكم ودمتم 1 رابط هذا التعليق شارك More sharing options...
أفضل إجابة امير عاطف قام بنشر يوليو 5, 2003 أفضل إجابة مشاركة قام بنشر يوليو 5, 2003 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 1 رابط هذا التعليق شارك More sharing options...
محمد طاهر عرفه قام بنشر يوليو 6, 2003 مشاركة قام بنشر يوليو 6, 2003 كود جميل أخي أمير :yess: تم تعديل موضوع الأرشيف باضافة الكود الجديد و وضع مثال شامل للثلاث حالات خلية عمود مجموعة خلايا الموضوع من هنا رابط هذا التعليق شارك More sharing options...
NAWAS قام بنشر يوليو 8, 2003 الكاتب مشاركة قام بنشر يوليو 8, 2003 جزاكم الله خيراً جميعاً وشكراً جزيلاً لكم رابط هذا التعليق شارك More sharing options...
الردود الموصى بها