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

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

  1. #1

    آخرین بازدید
    17 _ 12 _ 2012
    تاریخ عضویت
    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


    آخرین بازدید
    28 _ 03 _ 2016
    تاریخ عضویت
    November_2012
    نوشته ها
    58
    امتیاز
    10
    سپاس
    3
    سپاس شده
    5 در 5 پست

    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

    آخرین بازدید
    17 _ 12 _ 2012
    تاریخ عضویت
    December_2012
    نوشته ها
    2
    امتیاز
    0
    سپاس
    0
    سپاس شده
    0 در 0 پست

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

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

  5. #4


    آخرین بازدید
    03 _ 04 _ 2017
    تاریخ عضویت
    February_2010
    محل سکونت
    بوشهر
    نوشته ها
    922
    امتیاز
    653
    سپاس
    29
    سپاس شده
    799 در 342 پست

    shamsololama به Yahoo ارسال پیام فرستادن پیام با Skype به shamsololama

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

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

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


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

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

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

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

  1. ادغام محتویات دو سلول در یک سلول
    توسط jansiz hayat در انجمن تالار آموزش اکسل
    پاسخ ها: 2
    آخرين نوشته: 14 _ 09 _ 2015, 21:58
  2. افزودن سطر با توجه به محتویات
    توسط shahabsoltani در انجمن سوالات پیرامون ويژوال بيسيك - VBA Questions
    پاسخ ها: 7
    آخرين نوشته: 16 _ 09 _ 2013, 05:42
  3. انتخاب محتویات لیست باکس
    توسط mahdiking در انجمن سوالات پیرامون ويژوال بيسيك - VBA Questions
    پاسخ ها: 6
    آخرين نوشته: 23 _ 11 _ 2012, 18:18

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

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

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

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