وارد کردن داده ها بدون اینتر

[hamed2100]

تازه به جمع خانه اکسل پیوسته ام.هرکس بتونه به این سوال من جواب بده ممنون میشم.
چطور میشه با استفاده از ماکرو نویسی یا هر روش دیگه ای در اکسل با وارد کردن فقط یک کاراکتر در هر سلول ، بدون زدن اینتر ، به سلول بعد رفت

[Amir Ghasemiyan]

تازه به جمع خانه اکسل پیوسته ام.هرکس بتونه به این سوال من جواب بده ممنون میشم.
چطور میشه با استفاده از ماکرو نویسی یا هر روش دیگه ای در اکسل با وارد کردن فقط یک کاراکتر در هر سلول ، بدون زدن اینتر ، به سلول بعد رفت

سلام دوست عزيز.
تا جايي كه ميدونم امكان پذير نيست ولي شايد اساتيد راهي بلد باشن

[~M*E*H*D*I~]

درود

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

[~M*E*H*D*I~]

کدی که در بالا اشاره کردم به صورت زیر هست

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Sheet1.Range("A65536").End(xlUp).Offset(1, 0).Value = Chr(KeyAscii)
TextBox1.Value = ""
End Sub 

[hamed2100]

ممنون دوست عزیزوبسیار خوب بود.
فقط یک تغییر کوچک چجور ایجاد کنم اگه محدوده انتخابی من سلولهای a1:g10اگه باشه

[Amir Ghasemiyan]

ممنون دوست عزیزوبسیار خوب بود.
فقط یک تغییر کوچک چجور ایجاد کنم اگه محدوده انتخابی من سلولهای a1:g10اگه باشه

خط دوم داخل پرانتز range وارد كنيد. يعني خط دوم اينطوري ميشه:

Sheet1.Range("a1:g10").End(xlUp).Offset(1, 0).Value = Chr(KeyAscii)