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

**Javid Mokhtari** · 2017/03/30, 12:24

با سلام.

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

کد PHP:


Private Sub UserForm_Initialize()

ComboBox1.Clear
    For i = 3 To Sheet1.Range("b100000").End(xlUp).Row
        ComboBox1.AddItem Sheet1.Cells(i, 2)
    Next i
End Sub

**Skynet** · 2017/03/30, 21:45

نوشته اصلی توسط jansiz hayat

با سلام.

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

کد PHP:


Private Sub UserForm_Initialize()

ComboBox1.Clear
    For i = 3 To Sheet1.Range("b100000").End(xlUp).Row
        ComboBox1.AddItem Sheet1.Cells(i, 2)
    Next i
End Sub

باسلام و احترام استاد عزیز
خیلی ممنونم از توجه شما به پست.
با کدی که ارائه کردید کمبو باکس به لیست موجود در شیت ListBank متصل شده خیلی ممنونم.
حالا دو سوال باقی می مونه :
1- چطور عمل کنیم که با انتخاب نام بانک مربوطه در کمبوباکس، بتونیم نام مربوطه رو ویرایش کرده و ذخیره کنیم و تا لیست مربوطه نام بانک اصلاح گردد ؟
2- چطور از طریق همین کمبو باکس ، بتونیم نام بانک جدید رو بنویسم و با زدن کلید تایید در شیت ListBank، نام مربوطه در زیر آخرین سطر اضافه شود ؟
خیلی ممنونم از شما

**Skynet** · 2017/03/31, 02:52

نوشته اصلی توسط Skynet

باسلام و احترام استاد عزیز
خیلی ممنونم از توجه شما به پست.
با کدی که ارائه کردید کمبو باکس به لیست موجود در شیت ListBank متصل شده خیلی ممنونم.
حالا دو سوال باقی می مونه :
1- چطور عمل کنیم که با انتخاب نام بانک مربوطه در کمبوباکس، بتونیم نام مربوطه رو ویرایش کرده و ذخیره کنیم و تا لیست مربوطه نام بانک اصلاح گردد ؟
2- چطور از طریق همین کمبو باکس ، بتونیم نام بانک جدید رو بنویسم و با زدن کلید تایید در شیت ListBank، نام مربوطه در زیر آخرین سطر اضافه شود ؟
خیلی ممنونم از شما

ظاهرا" در گذشته یک سوال مشابه مطرح شده بود که به لطف اساتید عزیز در پست مربوطه حل شد:

فرم ثبت اطلاعات - انجمن اکسل ایران

http://forum.exceliran.com/showthread.php/6545-%D9%81%D8%B1%D9%85-%D8%AB%D8%A8%D8%AA-%D8%A7%D8%B7%D9%84%D8%A7%D8%B9%D8%A7%D8%AA/page3

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

و کد های استفاده شده در اون پست رو ، در فایل خودم جایگزین کردم من تاجاییکه ممکن بود سعی کردم دقت کنم که هیچ چیزی رو جا نندازم و مشکلم نسبتا" حل شده ، فقط دوتا سوال باقی می مونه ؟!
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 تبدیل کنم ، برنامه خطا میده ! برای رفع این مشکل چه تغییری میشه در کد داد ؟

بی نهایت ممنونم

فایل های پیوست شده

**Skynet** · 2017/04/21, 21:38

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

**Skynet** · 2017/04/22, 14:00

Please help me...

Sent from my D5803 using Tapatalk

**Skynet** · 2017/04/24, 01:39

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

اقدامات جهت رفع مشکل :
1- ستون A رو به فرمت Text تبدیل کردم!!!

2- در کد تغییری دادم تا اطلاعات ثبت شده به جای اولین سطر در آخرین سطر جدول ثبت بشن ، و با استفاده از این تغییر، جدول هم براحتی و بدون اشکال به Table تبدیل کردم !!! مکشلی هم پیش نیومد

فایل های پیوست شده