پرسش و پاسخ

باسلام خدمت آقای سلیمانی عزیز من فایل اکسلی دارم که یک سری اطلاعات توش ذخیره کردم فرمی ساختم که با وارد کردن کد پرسنلی اطلاعات از دیتا فراخوانی و توی فرم نمایش داده میشه مشکل من اینه که با توجه به تغییراتی که توی فرم دیتام ایجاد میشه و گاهی بعضی از سطر ها خالی هستند کد های پرسنلی بعد از سطر های خالی فراخوان نمیشه لطفاً راهنمایی بفرمایید.

2- می‌خوام دکمه ای ایجاد کنم تحت عنوان حذف اطلاعات که با زدن اون کل سطری که اطلاعات درش ذخیره شده حذف گردد و سطرهای بعدی یک خونه بیان بالاتر و جای خالی رو پر کنند

فایل به پیوست می باشد.

بارگزاری فایل

20250213_082654_2071486474.jpg

یوزر فرم

علی ۹۷۶۶ 1 سال قبل سوال کرد
آخرین ویرایش 1 سال قبل

شما باید برای ارسال دیدگاه وارد شوید

پاسخ‌ها (1)

سلام علي عزیز

برای پیدا کردن ردیف مربوط به کد پرسنلی بهتره که از توابع اکسل در vba استفاده كنید برای مثال با فرض اینکه کد پرسنلی در ستون A قرار دارد کد ذیل با کمک تابع MATCH شماره ردیف کد پرسنلی پیدا می کند

Sub Find_Row()
Dim i As Double, id As Integer

id = UserForm1.Textbox1.Text
On Error Resume Next
i = Application.WorksheetFunction.Match(id, Range(“A1:A1000”), 0)

End Sub

برای مورد دوم بعد از پیدا کردن ردیف مربوطه با دستور Delete ان را حذف کنید مثلا کد ذیل

Range(“A8:D8”).Delete xlUp

سلول های ردیف 8 را حذف و تمامی سلول های پایین یک ردیف بالاتر قرار می گیرند