نمایش نتایج: از شماره 1 تا 7 , از مجموع 7

موضوع: ورود و ویرایش اطلاعات با یک کمبو باکس !

  1. #1


    آخرین بازدید
    2023/12/24
    تاریخ عضویت
    March 2017
    نوشته ها
    142
    امتیاز
    59
    سپاس
    83
    سپاس شده
    47 در 28 پست
    تعیین سطح نشده است

    ورود و ویرایش اطلاعات با یک کمبو باکس !

    با سلام و احترام خدمت عزیزان
    سوال های مختلفی دارم که سالیان سال برام سوال باقی مونده ولی حالا به لطف شما عزیزان ، یکی پس از دیگری حل میشن و در کارها بسیار بسیار کمک کننده هستند، پیشاپیش از لطف تک تک شما عزیزان بسیار ممنونم.
    یک فایلی طراحی کردم که شامل 3 شیت هست،
    HOME = که حاوی یک کلید جهت اجرا نمودن فرم مربوطه بمنظور تعریف نام بانک جدید به فهرست بانک ها در شیت List Bank به کار می رود.
    List Bank = حاوی فهرست نام بانکها هست.
    سوال :
    1- کد نویسی فرم مربوط، برای اضافه نمودن نام بانک به لیست مربوطه چگونه باید باشد ؟
    در این فرم از طریق یک کمبو باکس : هم می توانیم نام بانک جدید را تعریف کنیم ! و هم می توانیم بانک های اضافه شده قبلی را نیز از طریق این کمبوباکس ببینیم و در صورت لزوم با تغییر نام بانک و تایید آن ویرایش نیز انجام دهیم !
    بسیار متشکرم
    برای دیدن سایز بزرگ روی عکس کلیک کنید

نام:  Creat New Bank.jpg
مشاهده: 47
حجم:  217.3 کیلو بایت
    اخطار: این یک موضوع قدیمی است
    به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.
    فايل هاي پيوست شده فايل هاي پيوست شده
    پاسخ مورد نظر براي اين تاپيك ارسال شده است.

  2.  

  3. #2


    آخرین بازدید
    2023/05/03
    تاریخ عضویت
    January 2012
    محل سکونت
    استان اردبیل / شهرستان پارس آباد (مغان)
    نوشته ها
    1,213
    امتیاز
    2633
    سپاس
    1,399
    سپاس شده
    2,089 در 665 پست
    سطح اکسل
    73.00 %

    Javid Mokhtari به Yahoo ارسال پیام
    با سلام.

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

    کد PHP:
    Private Sub UserForm_Initialize()

    ComboBox1.Clear
        
    For 3 To Sheet1.Range("b100000").End(xlUp).Row
            ComboBox1
    .AddItem Sheet1.Cells(i2)
        
    Next i
    End Sub 
    دوره های آموزش رایگان اکسل از صفر تا پیشرفته بصورت تصویری
    بیش از 60 جلسه آموزش ویدئویی رایگان

    شرکت در دوره:

    https://javidsoft.ir/courses/



  4. سپاس ها (3)


  5. #3


    آخرین بازدید
    2023/12/24
    تاریخ عضویت
    March 2017
    نوشته ها
    142
    امتیاز
    59
    سپاس
    83
    سپاس شده
    47 در 28 پست
    تعیین سطح نشده است

    نقل قول نوشته اصلی توسط jansiz hayat نمایش پست ها
    با سلام.

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

    کد PHP:
    Private Sub UserForm_Initialize()

    ComboBox1.Clear
        
    For 3 To Sheet1.Range("b100000").End(xlUp).Row
            ComboBox1
    .AddItem Sheet1.Cells(i2)
        
    Next i
    End Sub 
    باسلام و احترام استاد عزیز
    خیلی ممنونم از توجه شما به پست.
    با کدی که ارائه کردید کمبو باکس به لیست موجود در شیت ListBank متصل شده خیلی ممنونم.
    حالا دو سوال باقی می مونه :
    1- چطور عمل کنیم که با انتخاب نام بانک مربوطه در کمبوباکس، بتونیم نام مربوطه رو ویرایش کرده و ذخیره کنیم و تا لیست مربوطه نام بانک اصلاح گردد ؟
    2- چطور از طریق همین کمبو باکس ، بتونیم نام بانک جدید رو بنویسم و با زدن کلید تایید در شیت ListBank، نام مربوطه در زیر آخرین سطر اضافه شود ؟
    خیلی ممنونم از شما

  6. #4


    آخرین بازدید
    2023/12/24
    تاریخ عضویت
    March 2017
    نوشته ها
    142
    امتیاز
    59
    سپاس
    83
    سپاس شده
    47 در 28 پست
    تعیین سطح نشده است

    نقل قول نوشته اصلی توسط Skynet نمایش پست ها
    باسلام و احترام استاد عزیز
    خیلی ممنونم از توجه شما به پست.
    با کدی که ارائه کردید کمبو باکس به لیست موجود در شیت ListBank متصل شده خیلی ممنونم.
    حالا دو سوال باقی می مونه :
    1- چطور عمل کنیم که با انتخاب نام بانک مربوطه در کمبوباکس، بتونیم نام مربوطه رو ویرایش کرده و ذخیره کنیم و تا لیست مربوطه نام بانک اصلاح گردد ؟
    2- چطور از طریق همین کمبو باکس ، بتونیم نام بانک جدید رو بنویسم و با زدن کلید تایید در شیت ListBank، نام مربوطه در زیر آخرین سطر اضافه شود ؟
    خیلی ممنونم از شما
    ظاهرا" در گذشته یک سوال مشابه مطرح شده بود که به لطف اساتید عزیز در پست مربوطه حل شد:
    http://forum.exceliran.com/showthrea...A7%D8%AA/page3

    من با توجه به نیازم، فایل اولیه رو تغییر دادم و به این صورت تبدیل کردم:

    برای دیدن سایز بزرگ روی عکس کلیک کنید

نام:  1.jpg
مشاهده: 39
حجم:  199.1 کیلو بایت


    و کد های استفاده شده در اون پست رو ، در فایل خودم جایگزین کردم من تاجاییکه ممکن بود سعی کردم دقت کنم که هیچ چیزی رو جا نندازم و مشکلم نسبتا" حل شده ، فقط دوتا سوال باقی می مونه ؟!
    1- چرا با انتخاب کد بانک ، علی رغم کد نویسی مربوطه، نام بانک در محل مربوطه اتوماتیک ظاهر نمیشه ؟!
    برای دیدن سایز بزرگ روی عکس کلیک کنید

نام:  2.jpg
مشاهده: 27
حجم:  283.1 کیلو بایت

    کد مربوطه :
    کد:
    '-------------------------------------------------------// منوي کشويي کد بانکPrivate Sub ComboBox1_Change()
        On Error GoTo line1
        If Creat_new_bank.CommandButton1.Tag = "YES" Then Exit Sub
        CodeBank = Creat_new_bank.ComboBox1.Text
        Dim sh As Worksheet
        Set sh = ActiveSheet
        ActiveWorkbook.ActiveSheet.Names.Add Name:="ActiveUser", _
            RefersToR1C1:="=OFFSET(R2C1,1,0,COUNTA(C1)-2,COUNTA(R2))"
        
        i = 2
        Dim c As MSForms.Control
        For Each c In Creat_new_bank.Frame1.Controls
            If TypeOf c Is MSForms.TextBox Then
                c.Value = Application.WorksheetFunction.VLookup(CodeBank, sh.Range("ActiveUser"), i, False)
                i = i + 1
            End If
        Next
        Exit Sub
    
    
    line1:
        For Each c In Creat_new_bank.Frame1.Controls
            If TypeOf c Is MSForms.TextBox Then
                c.Value = ""
                i = i + 1
            End If
        Next
    End Sub

    2- در این کد نویسی جدول کد و نام بانک بصورت معمولی هست ! من اگر بخوام اون جدول رو به Table تبدیل کنم ، برنامه خطا میده ! برای رفع این مشکل چه تغییری میشه در کد داد ؟

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

  7. #5


    آخرین بازدید
    2023/12/24
    تاریخ عضویت
    March 2017
    نوشته ها
    142
    امتیاز
    59
    سپاس
    83
    سپاس شده
    47 در 28 پست
    تعیین سطح نشده است

    کیست مرا یاری کند ؟

  8. #6


    آخرین بازدید
    2023/12/24
    تاریخ عضویت
    March 2017
    نوشته ها
    142
    امتیاز
    59
    سپاس
    83
    سپاس شده
    47 در 28 پست
    تعیین سطح نشده است

    Please help me...

    Sent from my D5803 using Tapatalk

  9. #7


    آخرین بازدید
    2023/12/24
    تاریخ عضویت
    March 2017
    نوشته ها
    142
    امتیاز
    59
    سپاس
    83
    سپاس شده
    47 در 28 پست
    تعیین سطح نشده است

    با سلام و احترام خدمت عزیزان
    در این لحظه ( 00:40 نیم شب )با خستگی بسیار ، مشکل رو بصورت کاملا شانسی به لطف خدا حل کردم

    اقدامات جهت رفع مشکل :
    1- ستون A رو به فرمت Text تبدیل کردم!!!
    2- در کد تغییری دادم تا اطلاعات ثبت شده به جای اولین سطر در آخرین سطر جدول ثبت بشن ، و با استفاده از این تغییر، جدول هم براحتی و بدون اشکال به Table تبدیل کردم !!! مکشلی هم پیش نیومد
    فايل هاي پيوست شده فايل هاي پيوست شده
    ویرایش توسط Skynet : 2017/04/25 در ساعت 12:44


اطلاعات موضوع

کاربرانی که در حال مشاهده این موضوع هستند

در حال حاضر 1 کاربر در حال مشاهده این موضوع است. (0 کاربران و 1 مهمان ها)

موضوعات مشابه

  1. پاسخ ها: 0
    آخرين نوشته: 2016/06/27, 19:37
  2. ویرایش همزمان سطرهای یک اکسل
    توسط tiktak در انجمن سوالات اكسل - Excel Questions
    پاسخ ها: 1
    آخرين نوشته: 2016/06/13, 09:08
  3. ویرایش و حدف اطلاعات در vba
    توسط zxcvbn در انجمن فرم ها در ويژوال بيسيك - Forms in VBA
    پاسخ ها: 4
    آخرين نوشته: 2015/03/05, 23:41

بازدید کنندگان با جستجو های زیر این صفحه را پیدا کرده اند

ثبت ازطلاعات با کمبوباکس

https:forum.exceliran.comshowthread.php11016-ورود-و-ویرایش-اطلاعات-با-یک-کمبو-باکس-!

علاقه مندی ها (Bookmarks)

مجوز های ارسال و ویرایش

  • شما نمیتوانید موضوع جدیدی ارسال کنید
  • شما امکان ارسال پاسخ را ندارید
  • شما نمیتوانید فایل پیوست کنید.
  • شما نمیتوانید پست های خود را ویرایش کنید
  •  
  • BB code ها فعال هستند
  • شکلک ها فعال هستند
  • کد [IMG] فعال است
  • کد [VIDEO] فعال است
  • کد HTML غیر فعال است
با ما در تماس باشيد