أبو عاصم المصري قام بنشر يناير 30 مشاركة قام بنشر يناير 30 تحتاج أحيانا للبحث عن الخلايا الفارغة في الجدول لكتابة رمز معين، أو نص معين للبحث عنه، أو استكمال شيء ناقص، أو غير ذلك. وهذا الماكرو يتيح لك ذلك: ' ' إضافة رمز معين، أو نص معين للخلايا الفارغة ' ' Dim tTable As Table Dim cCell As Cell Dim sTemp As String ss = InputBox("أدخل الرمز أو النص الذي تريد أن تجعله في الخلايا الفارغة") sTemp = ss For Each tTable In ActiveDocument.Range.Tables For Each cCell In tTable.Range.Cells If Len(cCell.Range.Text) < 3 Then cCell.Range = sTemp End If Next Next Set oCell = Nothing Set tTable = Nothing End Sub رابط هذا التعليق شارك More sharing options...
تومي محمد قام بنشر فبراير 11 مشاركة قام بنشر فبراير 11 شكرا 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.