محصول به سبد خرید شما اضافه شد.
پنل کاربری
0
0

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

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

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

بارگزاری فایل
20250213_082654_2071486474.jpg
یوزر فرم
به اشتراک گذاشتن
  • شما باید برای ارسال دیدگاه شوید
فیلتر
مرتب‌سازی بر اساس: بیشترین رأی
ارسال پاسخ
0
0

سلام علي عزیز

برای پیدا کردن ردیف مربوط به کد پرسنلی بهتره که از توابع اکسل در 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 را حذف و تمامی سلول های پایین یک ردیف بالاتر قرار می گیرند

  • شما باید برای ارسال دیدگاه شوید
نمایش 1 نتیجه
پاسخ شما
نویسنده مهمان
اگر حساب کاربری دارید . در هر صورت می توانید به عنوان کاربر مهمان سوال یا پاسخ خود را ارسال نمایید
نام*
ایمیل*
بارگزاری فایل
نام فایل اندازه
در حال حاضر هیچ فایلی بارگذاری نشده است.
حداکثر تعداد فایل ها 4، حداکثر اندازه فایل 2MB.
فرمت های فایل پشتیبانی شده: txt pdf zip jpg png jpeg xlsx xlsm

سوال‌های بدون پاسخ

محصولات

مطالب پربازدید

keyboard_arrow_up