وارد کردن اطلاعات تکس باکس فرم به شیت

Collapse
X
 
  • زمان
  • نمایش
حذف همه
new posts
  • Hesam2

    • 2013/04/24
    • 32

    وارد کردن اطلاعات تکس باکس فرم به شیت

    سلام


    میخوام با وارد کردن روز در تکس باکس اولی و بعدش با انتخاب یکی از آیتمهای کمبوباکس و عددی که در تکس باکس مقابلش وارد میکنم
    در نهایت با زدن دکمه ok اطلاعات ثبت شده به شیت و ستونی که به عنوان (روز ماه) و ردیف هایی که از طریق کمبوباکس مشخص کردیم انتقال داده بشه
    البته تا یه جایی از کار ور که بلد بودم انجام دادم


    با تشکر
    فایل های پیوست شده
    Last edited by Hesam2; 2014/02/24, 18:23. دلیل: ویرایش
  • Nima

    • 2011/07/22
    • 385

    #2
    دوست عزیز
    برای اینکار تنها به یک کمبو باکس و دوتکست باکس احتیاج دارید و میتونید از کد زیر استفاده کنید
    کد:
    Private Sub CommandButton1_Click()
    
    
        For Each Item In ThisWorkbook.Sheets(1).Range("R2:R14")
            For i = 1 To 14
                If ComboBox1.Value = Item.Offset(0, 0) Then
                    Item.Offset(0, 14 + Val(TextBox1.Text)).Value = TextBox2.Text
                End If
            Next i
        Next Item
        
    End Sub
    ************************************
    No LION's roar ruins my hut, I afraid of TERMITE's silence
    ************************************

    کامنت

    چند لحظه..