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

موضوع: خواندن یک محتویات یک سلول با inputobx

  1. #1

    آخرین بازدید
    2012/12/17
    تاریخ عضویت
    December 2012
    نوشته ها
    2
    امتیاز
    0
    سپاس
    0
    سپاس شده
    0 در 0 پست
    تعیین سطح نشده است

    خواندن یک محتویات یک سلول با inputobx

    با سلام خدمت دوستان عزیزم
    من سابروتینی نوشتم که در ابتدا دوتا inputbox گذاشتم که به ترتیب مقادیر شماره سطر و ستون رو می گیره و بعد داخل کد(ActiveSheet.Cells(20, 20) = ActiveSheet.Cells(k, l قرار می دم اما از من خطا می گیره البته من این کار رو چندین بار انجام داده بودم ولی به مشکلی برخورد نکرده بود اما در اینجا خطا می ده تازه یک چیز جالب هم دیدم که نتونستم توضیحی براش بدم اون هم اینه که اگر شما دستور بنویسید که اعمال ضرب، تقسیم و یا تفریق بین دو عدد ورودی از طریق inputbox انجام بدید جواب صحیح دریافت می کنید اما وقتی از عمل جمع استفاده کنید می بینید به جای انجام این عمل دو عدد رو کنار هم می نویسه به عنوان مثال اگر k=3 و l=2 باشه به جای 5 به شما عدد 32 رو می ده.
    حالا من کد برنامه ام رو در انتها برای شما قرار می دم تا اگه تونستید لطفی به من کنید و مشکل من رو برطرف کنید.
    برای تست برنامه هم عددی مثلا در ردیف 3 و ستون 2 قرار بدید و با این کد بخواهید که در سطر و ستون 20 و 20 بنویسه.
    البته لازم به ذکر هست که این برنامه رو در 3 سیستم مختلف تست کردم و همگی همین مشکل رو داره.


    Sub read()
    Message1 = "input the row number"
    Message2 = "input the column number"
    Title = "InputBox Demo"
    k = InputBox(Message1, Title)
    l = InputBox(Message2, Title)
    a = k + l
    ActiveSheet.Cells(5, 5) = a
    ActiveSheet.Cells(10, 10) = ActiveSheet.Cells(k, l)
    End Sub
    اخطار: این یک موضوع قدیمی است
    به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.

  2.  

  3. #2


    آخرین بازدید
    2021/10/16
    تاریخ عضویت
    November 2012
    نوشته ها
    57
    امتیاز
    13
    سپاس
    3
    سپاس شده
    8 در 8 پست
    سطح اکسل
    42.00 %

    RE: خواندن یک محتویات یک سلول با inputobx

    این کارو بکن درست میشه:


    Sub read()
    Message1 = "input the row number"
    Message2 = "input the column number"
    Title = "InputBox Demo"
    k = InputBox(Message1, Title) + 0
    l = InputBox(Message2, Title) + 0
    a = k + l
    ActiveSheet.Cells(5, 5) = a
    ActiveSheet.Cells(10, 10) = ActiveSheet.Cells(k, l)

    End Sub

  4. #3

    آخرین بازدید
    2012/12/17
    تاریخ عضویت
    December 2012
    نوشته ها
    2
    امتیاز
    0
    سپاس
    0
    سپاس شده
    0 در 0 پست
    تعیین سطح نشده است

    RE: خواندن یک محتویات یک سلول با inputobx

    داوود جان از شما متشکرم روشی که ارائه کردی جواب داد.
    اما من هم به گونه ای دیگه این مشکل رو حل کردم و آن تنها اضافه کردن فرمان زیر بود تنها برای دو متغییر x وy باید نوشته بشود.
    dim x,y as double
    وقتی که این رو اضافه کردم برنامه درست شد.

  5. #4


    آخرین بازدید
    2021/12/05
    تاریخ عضویت
    February 2010
    محل سکونت
    بوشهر
    نوشته ها
    940
    امتیاز
    718
    سپاس
    29
    سپاس شده
    863 در 365 پست
    تعیین سطح نشده است

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

    RE: خواندن یک محتویات یک سلول با inputobx

    با درود فراوان

    راه های که مشکل را حل کرد ه اید درست است و اما دلیل این مشکل این است که وقتی عددی را داخل اینپود باکس می نویسید برنامه آن را به عنوان متن می شناسه در نتیجه وقتی می دو عدد را به این ترتیب با هم جمع می کنید مثل این است که دو حرف ب و ت جمع کرده باشید که اگر این اعداد قبل از عمل جمع در یک ضرب شود و یا با صفر جمع شو د ویا متغییر را از نوع عدد تعیرف کنید و آن را در آن ذخیره کنید و یا از تابع اینت استفاده کنید مشکل حل می شود
    کد:
    int(i)+int(k)


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

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

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

موضوعات مشابه

  1. ادغام محتویات دو سلول در یک سلول
    توسط Javid Mokhtari در انجمن تالار آموزش اکسل
    پاسخ ها: 20
    آخرين نوشته: 2021/03/10, 15:26
  2. افزودن سطر با توجه به محتویات
    توسط shahabsoltani در انجمن سوالات پیرامون ويژوال بيسيك - VBA Questions
    پاسخ ها: 7
    آخرين نوشته: 2013/09/16, 06:42
  3. انتخاب محتویات لیست باکس
    توسط mahdiking در انجمن سوالات پیرامون ويژوال بيسيك - VBA Questions
    پاسخ ها: 6
    آخرين نوشته: 2012/11/23, 19:18

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

دستور inputboxدر اکسل

خواندن تیتر یه سلول در اکسل

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

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

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