نویسنده موضوع: اضافه کردن کدی که اگر target خالی بشه target.offset(0,1) نیز خالی بشه  (دفعات بازدید: 146 بار)

d349

  • کاربر فعال
  • ***
  • ارسال: 145
  • جمع امتیازها: +2/-0
با سلام
در بین این کدها می خوام کدی اضافه بشه که اگر  target  دلیت بشه target.offset(0,1)   نیز خالی بشه
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("g4:g94")) Is Nothing Then
On Error Resume Next
Target.NumberFormat = "@"
Dim w As Integer
w = Len(Target)
If w <> 10 Then
MsgBox "no"
Target.Select
Exit Sub
End If

Target.Offset(0, 1) = Evaluate("=J_today(1)") & "_" & Format(Now(), "H:mm")
'در اين قست يا در قسمت هاي بالاتر مي خوام کدي اضافه بشه که اگر تارگت خالي شد سلول مقابل تارگت خالي بشه'
End If
End Sub

باتشکر

lamp

دانلود فهرست + فصل اول کتاب توابع و فرمول نویسی اکسل

خبر: کامل ترین کتاب توابع و فرمول نویسی در اکسل ترجمه تیم فرساران


majid_mx4

  • مدیران انجمن
  • *
  • ارسال: 1827
  • جمع امتیازها: +657/-7
با سلام
میتوانید از دستورات زیر استفاده نمایید

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("g4:g94")) Is Nothing Then
On Error Resume Next
Target.NumberFormat = "@"
Dim w As Integer
If Target.Value = "" Then
Range(Target.Address).Offset(0, 1) = ""
Exit Sub
End If


w = Len(Target)
If w <> 10 Then
MsgBox "no"
Target.Select
Exit Sub
End If

Target.Offset(0, 1) = Evaluate("=J_today(1)") & "_" & Format(Now(), "H:mm")
End If
End Sub

پایدار باشید میر