oosta Excel اوستا اکسل

فاز یک --> فلوچارت

oosta Excel اوستا اکسل

فاز یک --> فلوچارت

oosta Excel اوستا اکسل

در این سایت ما سعی داریم همه چیز درباره برنامه سازی و کار با محیط های مختلف اکسل داشته باشیم
ما از آموزش فلوچارت شروع کردیم که مبنا و مبانی اولیه است.

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

از شهریور ماه 1400 یکسری پروژه های کاربردی در قالب برنامه بفروش میرسد

۱ مطلب با موضوع «رفع خطا» ثبت شده است


    Dim str1 As String

    str1 = ""
    str1 = TextBox.Text
    str1 = Replace(str1, vbCr, "")
    str1 = Replace(str1, vbCrLf, Chr(10))
    Sheet1.Cells(2, 8).Value = str1

بدین طریق توانستم مشکل ایجاد خط اضافه در سلول اکسل بهمراه مشکل رفتن کلمه آخر خط (قبل از اینتر) را حل نمایم

بهتر است به vbLf کاری نداشته باشیم.

نکته: بهتر است قبل از هر کاری مقدار آبجکت را که در اینجا TextBox است در یک متغیر قرار دهیم. چون آبجکت ها اعمالی را انجام می دهند که ناخواسته و بدون اطلاع ماست.

نتیجه: کنترل مقدارها در متغیرها بسیار بهتر و ساده تر صورت می گیرد و از خطاهای ناخواسته پرهیز می شود. آبجکت ها محلی برای رویدادهای ناخواسته هستند.


اکسل خطا در خط جدید

تصویر 1: قبل از تصحیح خطا


اکسل بعد از رفع خطا در خط جدید

تصویر 2: بعد از تصحیح خطا

نتیجه:

Chr(13) = Chr$(13) = vbCr

Chr(10) = Chr$(10) = vbLf

vbNewLine = vbCrLf = Chr(13)Chr(10) = Chr$(13)Chr$(10)

جلیل عباسی سیوکی
۲۰ آذر ۹۴ ، ۱۲:۴۰ ۰ نظر