اجرای کد بعد از زدن کلید اینتر

**master** · 2016/12/17, 11:39

سلام
خودم یه فایل ابتدایی درست کردم ولی ارور میده
من میخوام توی ستون B وقتی اینتر زدم کد اجرا بشه یه سرچی زدم دیدم یه همچین کدی رو باید بنویسم

کد:

Private Sub Worksheet_Change(ByVal Target As Range)
 If Not Intersect(Target, Me.Range("B1:B1000")) Is Nothing Then
  On Error Resume Next
  Application.OnKey "~", "EnterPressKey"
 End If
      
End Sub

بعد اومدم EnterPressKey رو هم جداگانه براش کد نوشتم و توی یه ماژول جدید ذخیره کردم
مشکل اینجاست وارد قسمت EnterPressKey که میشه به متغیر گیر میده چطوری باید حلش کنم؟
فایل رو هم پیوست کردم

ضمنا یه روش توی ادرس زیر نوشته که میشه به اکسل اضافه کرد

کد:

http://stackoverflow.com/questions/11153995/is-there-any-event-that-fires-when-keys-are-pressed-when-editing-a-cell?answertab=oldest#tab-top

وقتی این اضافه بشه میشه از pressKey راحت توی اکسل استفاده کرد اگه این بشه که خیلی عالی و مفید هست

و در اخر توی کد نوسی محیط vb فرق این دو تا چی هست؟
Sheet1(Sheet1)
ThisWorkbook
با تشکر

فایل های پیوست شده