نوشته اصلی توسط
Skynet
باسلام و احترام استاد عزیز
خیلی ممنونم از توجه شما به پست.
با کدی که ارائه کردید کمبو باکس به لیست موجود در شیت ListBank متصل شده خیلی ممنونم.
حالا دو سوال باقی می مونه :
1- چطور عمل کنیم که با انتخاب نام بانک مربوطه در کمبوباکس، بتونیم نام مربوطه رو ویرایش کرده و ذخیره کنیم و تا لیست مربوطه نام بانک اصلاح گردد ؟
2- چطور از طریق همین کمبو باکس ، بتونیم نام بانک جدید رو بنویسم و با زدن کلید تایید در شیت ListBank، نام مربوطه در زیر آخرین سطر اضافه شود ؟
خیلی ممنونم از شما
ظاهرا" در گذشته یک سوال مشابه مطرح شده بود که به لطف اساتید عزیز در پست مربوطه حل شد:
http://forum.exceliran.com/showthrea...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 تبدیل کنم ، برنامه خطا میده ! برای رفع این مشکل چه تغییری میشه در کد داد ؟
بی نهایت ممنونم
علاقه مندی ها (Bookmarks)