جداسازی کاراکتر های داخل سلول

ارسال در تاريخ دوشنبه هجدهم بهمن ۱۳۹۵ توسط داود خانی

برای جدا سازی کاراکتر های داده داخل سلول،از طرق مختلفی می توان استفاده کرد که فرمول نویسی اکسل و استفاده از کد نویسی ویژوال بیسیک از روش های متداول می باشد. در این بخش قصد دارم روش استفاده از کد نویسی را برای کاربران اکسل توضیح دهم. در این روش ابتدا از تب Developer بخش Insert کلید CommandButton را انتخاب و در صفحه اکسل ایجاد کتید سپس بر روی آن دابل کلیک کرده تا وارد محیط ویژوال شوید و کد زیر را در Sub کلید CommandButton وارد کرده و برای خروج از محیط ویژوال کلید Alt+Q را فشار دهید و وارد صفحه اکسل شوید. در فایل نمونه، داده مربوط به سلول C3 را در سلول های ستون B به تفکیک کاراکتر (هر کاراکتر در یک سلول) ثبت می شود. با زدن CommandButton (در فایل ارایه شده کلید >اجرا< ) دستورات مربوطه اجرا شده و نتیجه در ستون B نمایش داده می شود.

Application.ScreenUpdating = False
((For i = 1 To Len(Cells(3, 3
(Cells(i, 2) = Mid(Cells(3, 3), i, 1
Next i
Application.ScreenUpdating = True

Characters VBA.xlsm

برچسب‌ها: vba, ecxel, برنامه نویسی با اکسل, کد نویسی

آمارگیر وبلاگ

اسلایدر