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

موضوع: مشکل انتقال اطلاعات

  1. #1


    آخرین بازدید
    2013/06/26
    تاریخ عضویت
    January 2013
    نوشته ها
    16
    امتیاز
    0
    سپاس
    0
    سپاس شده
    1 در 1 پست
    تعیین سطح نشده است

    مشکل انتقال اطلاعات

    دوستان سلام
    من یه سوال دارم
    اطلاعات رو میخوام از 2 ردیف یک فرم"فرم فاکتور" به یک شیت انتقال دهم بطوریکه :
    کومبوباکس 1 بره توی سول b1 بشینه
    کومبوباکس 2 بره توی سلول b2بشینه
    و الا آخر
    حالا من این کد رو نوشتم لطفا ببینید ایراد کار کجاست

    d i m I
    d i m n
    n = application.worksheetfunction.count a (sheet 3.range("a1: a100"))
    for i = 0 to2
    sheet3.range("a1").offset(n,i)=userform.combobox1
    sheet3.range("a1").offset(n,i)=userform.combobox2
    next[/align]
    اخطار: این یک موضوع قدیمی است
    به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.

  2.  

  3. #2


    آخرین بازدید
    2013/06/26
    تاریخ عضویت
    January 2013
    نوشته ها
    16
    امتیاز
    0
    سپاس
    0
    سپاس شده
    1 در 1 پست
    تعیین سطح نشده است

    RE: مشکل انتقال اطلاعات

    یعنی واقعا کسی نمیتونه کمک کنه؟

  4. سپاس ها (1)


  5. #3


    محصولات کاربر

    یوزرفرم پیشرفته
    آخرین بازدید
    2018/06/18
    تاریخ عضویت
    February 2011
    محل سکونت
    تهران
    نوشته ها
    311
    امتیاز
    1448
    سپاس
    129
    سپاس شده
    560 در 159 پست
    تعیین سطح نشده است

    s.cheraghi به Yahoo ارسال پیام

    RE: مشکل انتقال اطلاعات

    دوست عزیز نیاز به تعریف متغیر و کارهای مازاد نیست از کد زیر استفاده کنید :
    کد PHP:
    sheet1.Range("B1").Value ComboBox1.Value 
    همین کد رو برای بقیه کمبوباکس ها بنویسید

  6. #4


    آخرین بازدید
    2013/06/26
    تاریخ عضویت
    January 2013
    نوشته ها
    16
    امتیاز
    0
    سپاس
    0
    سپاس شده
    1 در 1 پست
    تعیین سطح نشده است

    RE: مشکل انتقال اطلاعات

    ممنون از جوابتون
    با مثال زیر شاید بهتر منظورمو برسونم
    فرض کنید من میخوام برای 2 نفر فاکتور صادر کنم و کالاهاشون هم با هم فرق میکنه
    خب برای مشتری اولی اطلاعات(کومبوباکس ها ) فاکتور رو کامل میکنم و سپس دکمه ثبت رو میزنم تا اطلاعات ثبت بشه(یعنی همون انتقال به شیت )
    حالا همین روال رو برای مشتری دومی هم انجام میدم ولی بعد از ثبت میبینیم که
    اطلاعات مشتری دومی جایگزین اطلاعات مشتری اولی شده است
    ولی من میخوام هنگام ثبت اطلاعات مشتری دومی
    اطلاعات در همون شیت و در زیر اطلاعات مشتری اولی ثبت بشه
    ممنون از توجه و جوابتون

  7. #5


    آخرین بازدید
    2022/12/26
    تاریخ عضویت
    November 2010
    محل سکونت
    کرج
    نوشته ها
    362
    امتیاز
    295
    سپاس
    193
    سپاس شده
    596 در 151 پست
    تعیین سطح نشده است

    MEYTI به Yahoo ارسال پیام

    RE: مشکل انتقال اطلاعات

    دوست عزیز احتمالا با نمونه که در پست زیر گذاشتم مشکلت حل بشه
    http://forum.exceliran.com/showthread.php?tid=2952

  8. #6


    آخرین بازدید
    2013/06/26
    تاریخ عضویت
    January 2013
    نوشته ها
    16
    امتیاز
    0
    سپاس
    0
    سپاس شده
    1 در 1 پست
    تعیین سطح نشده است

    RE: مشکل انتقال اطلاعات

    دستتون درد نکنه ولی فایده نداشت

  9. #7


    محصولات کاربر

    یوزرفرم پیشرفته
    آخرین بازدید
    2018/06/18
    تاریخ عضویت
    February 2011
    محل سکونت
    تهران
    نوشته ها
    311
    امتیاز
    1448
    سپاس
    129
    سپاس شده
    560 در 159 پست
    تعیین سطح نشده است

    s.cheraghi به Yahoo ارسال پیام

    RE: مشکل انتقال اطلاعات

    طبق صحبت هاتون مشکل شما در پیدا کردن مکان مناسب برای قرار دادن اطلاعات از فرم به شیت هست، دقیقتر بگم مشکل شما پیدا کردن اولین سطر خالی بعد از اطلاعات پر شده است تا اطلاعات فرم رو تو اونجا قرار بدین.
    بهتره که فایلتون رو بذارین تا بررسی کنیم ببینیم واقعا مشکل شما چی هست.
    به هر حال میتونین از تابع End که از توابع مربوط به Range هست استفاده کنین و آخرین سطر حاوی اطلاعات رو پیدا کنین.
    کد PHP:
    Sheet1.range(#).End(xlDown).Offset(1,0) 

  10. #8


    آخرین بازدید
    2022/06/26
    تاریخ عضویت
    January 2013
    محل سکونت
    شیراز
    نوشته ها
    1,198
    امتیاز
    3248
    سپاس
    1,566
    سپاس شده
    3,182 در 795 پست
    سطح اکسل
    84.00 %

    RE: مشکل انتقال اطلاعات

    با درود

    کد زیر رو نگاه کن ببین مشکلت حل میشه . فقط من اینو واسه textbox نوشتم و ستون A شما برای combo های خودت بنویس و هر ستونی که خواستی

    اینو واسه یه کلید در یوزر فرم نوشتم.
    With Sheet3
    LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
    End With
    Sheet3.Range("A" & LastRow + 1).Value = TextBox1.Text
    Sheet3.Range("A" & LastRow + 2).Value = TextBox2.Text[hr]
    و اما مشکل شما
    دوست عزیز . من کد شما رو تصحیح کردم که زیر هم بیان اسامی یا هرچی فقط textbox ها رو تغییر بده به combo چون شما کمبو داشتین. نیاز به I نیست


    n = Application.WorksheetFunction.CountA(Sheet3.Range( "A:A"))

    Sheet3.Range("a1").Offset(n, 0) = TextBox1.Text
    Sheet3.Range("a1").Offset(n + 1, 0) = TextBox2.Text

    نیازی نبود بگی A1:A100 . در ضمن این برای ستون A هست .

  11. #9


    آخرین بازدید
    2022/12/05
    تاریخ عضویت
    October 2011
    محل سکونت
    مشهد
    نوشته ها
    4,374
    امتیاز
    12614
    سپاس
    4,596
    سپاس شده
    11,990 در 3,203 پست
    سطح اکسل
    70.00 %

    ایراد این کار اینه که شما آخرین ردیف پر شده رو باید تشخیص بدی یک تابع باید برای این کار تعریف کنی که آخرین ردیف پر شده رو تشخیص بده ، کد های دوستان صحیح بود ولی یک سری ایراد داشت کد زیر رو به عنوان نمونه استفاده کنید البته باید پارامتر ها بر اساس فایل اصلی تغییر کنه
    کد PHP:
    Public Function lastrow()
    Dim lrow As Longlcol As Longmrow As Longmcol As LongAs Integer
    Application
    .ScreenUpdating True

    lcol 
    Application.Workbooks("leave.xlsm").Sheets("personel").UsedRange.Columns.Count
    mrow 
    0
      
    For 1 To lcol
              lrow 
    Range(Sheet1.Cells(Rows.Counti), Sheet1.Cells(Rows.Counti)).End(xlUp).Row
                        
    If lrow mrow Then
                             mrow 
    lrow
                        
    Else
                        
    End If
                        
    DoEvents
      Next i
    lastrow 
    mrow

    End 
    Function 


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

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

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

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

انجمن اكسل ايران , اكسل , اكسس , سوال و جواب اكسل , سوال اكسس , انجمن اكسل ايران , توابع اكسل, آموزش اكسل, آموزش اكسس, VBA, ويژوال بيسيك

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

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

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