پرفروش ترين
برترين
آخرين محصولات فروشگاه
فایل الکترونیکی آموزش اکسل پیشرفته ۲۰۱۰
آموزش ایجاد فایل چندکاربره با سطح دسترسی مشخص
یوزرفرم پیشرفته -Advanced  User Form
داشبورد (مقدماتی) – Dashboards(Elementary)
ابزارهای اعتبار سنجی و اخطار دهنده
بسته آموزشی userform
مدیریت و کنترل خطا در اکسل
توابع متنی
گرافیک در اکسل
جزوه آموزشی جداول و نمودارهای پاشنه ای
فایل آموزشی نحوه تهیه فرمت عددی دلخواه یا custom number format cell
آموزش ایجاد فایل چندکاربره با سطح دسترسی مشخص
نمایش نتایج: از شماره 1 تا 9 , از مجموع 9

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

  1. #1


    آخرین بازدید
    26 _ 06 _ 2013
    تاریخ عضویت
    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


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

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

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

  4. سپاس ها (1)


  5. #3


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

    یوزرفرم پیشرفته
    آخرین بازدید
    یک هفته پیش
    تاریخ عضویت
    February_2011
    محل سکونت
    تهران
    نوشته ها
    311
    امتیاز
    1438
    سپاس
    129
    سپاس شده
    550 در 155 پست

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

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

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

  6. #4


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

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

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

  7. #5


    آخرین بازدید
    08 _ 03 _ 2017
    تاریخ عضویت
    November_2010
    محل سکونت
    کرج
    نوشته ها
    363
    امتیاز
    261
    سپاس
    193
    سپاس شده
    562 در 140 پست

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

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

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

  8. #6


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

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

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

  9. #7


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

    یوزرفرم پیشرفته
    آخرین بازدید
    یک هفته پیش
    تاریخ عضویت
    February_2011
    محل سکونت
    تهران
    نوشته ها
    311
    امتیاز
    1438
    سپاس
    129
    سپاس شده
    550 در 155 پست

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

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

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

  10. #8


    آخرین بازدید
    20 _ 03 _ 2017
    تاریخ عضویت
    January_2013
    محل سکونت
    شیراز
    نوشته ها
    1,176
    امتیاز
    3079
    سپاس
    1,558
    سپاس شده
    3,013 در 757 پست

    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


    آخرین بازدید
    6 روز پیش
    تاریخ عضویت
    October_2011
    محل سکونت
    Sheet1!A1
    نوشته ها
    4,149
    امتیاز
    11584
    سپاس
    4,476
    سپاس شده
    10,966 در 2,948 پست

    ایراد این کار اینه که شما آخرین ردیف پر شده رو باید تشخیص بدی یک تابع باید برای این کار تعریف کنی که آخرین ردیف پر شده رو تشخیص بده ، کد های دوستان صحیح بود ولی یک سری ایراد داشت کد زیر رو به عنوان نمونه استفاده کنید البته باید پارامتر ها بر اساس فایل اصلی تغییر کنه
    کد 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, ويژوال بيسيك

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

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