oosta Excel اوستا اکسل

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

oosta Excel اوستا اکسل

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

oosta Excel اوستا اکسل

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

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

لینک گروه پرسش و پاسخ در تلگرام:
https://t.me/joinchat/CCrOQRL0g-iG3tIeTxPmPQ

کپی یک TextBox در یک شیت

Sub copy_textboxInSheet(row1 As Integer, col1 As Integer)
    Sheet2.Shapes("TextBox 1").Copy
    Application.Goto Reference:=Worksheets("Sheet2").Cells(row1, col1), Scroll:=True
    Sheet2.Paste
End Sub

سطر و ستون را بصورت عددی به این تابع بدهید تا در مکان مورد نظر textBox 1 را کپی نماید.

نکته: بین کلمه TextBox و عدد 1 که هر دو مربوط به نام TextBox می باشد یک فاصله قرار دارد و اگر آن را بچرخانید نقطه موس و بالا را در نظر می گیرد.

حذف همه TextBox ها از یک شیت بجز TextBox 1

Sub del_textboxInSheet()
Dim tb As Object
    For Each tb In ActiveSheet.TextBoxes
        If tb.Name <> "TextBox 1" Then
            tb.Delete
        End If
    Next
End Sub

نکته: این تابع غیر از TextBox 1 بقیه را حذف می نماید.


حذف همه TextBox ها از یک شیت

Sub del_textboxInSheet()
Dim tb As Object
    For Each tb In ActiveSheet.TextBoxes
            tb.Delete
    Next
End Sub


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

    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)

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

تمرین های فلوچارت پیشرفته بهمراه جواب
شما هم می توانید جواب تمرین های بی پاسخ را بفرستید تا با نام خودتان در این پست قرار گیرد.


1- فلوچارتی رسم کنید که برای اعداد اولی که بین عدد 0 تا 999 قرار دارند، نمایش دهد در کدام دسته 100 تایی عدد اول بیشتری قرار دارد. (دسته ها 0 تا 99، 100 تا 199، 200 تا 299، ...، 900 تا 999)


جلیل عباسی سیوکی
۱۹ تیر ۹۴ ، ۱۰:۱۷ ۰ نظر

تمرین های فلوچارت مقدماتی بهمراه جواب
شما هم می توانید جواب تمرین های بی پاسخ را بفرستید تا با نام خودتان در این پست قرار گیرد.



1- فلوچارتی رسم کنید که پنج عدد از ورودی دریافت کرده و میانگین آن ها را نمایش دهد. (دریافت pdf فلوچارت مدل 1 حجم: 158 کیلوبایت-  دریافت pdf فلوچارت مدل 2 حجم: 222 کیلوبایت)

2- فلوچارتی رسم کنید که مقسوم های یک عدد ورودی را نمایش دهد. (دریافت فایل PDF فلوچارت حجم: 229 کیلوبایت- دریافت pdf فلوچارت حجم: 214 کیلوبایت)

جلیل عباسی سیوکی
۱۹ تیر ۹۴ ، ۱۰:۰۳ ۰ نظر

برای دانلود فلوچارت، بر روی لینک زیر کلیک نمائید.

دریافت فلوچارت اعداد اول بین 1 تا 100
حجم: 257 کیلوبایت

جعفری
۱۸ تیر ۹۴ ، ۰۸:۱۹ ۰ نظر
تمرین های فلوچارت بهمراه جواب
شما هم می توانید جواب تمرین های بی پاسخ را بفرستید تا با نام خودتان در این پست قرار گیرد.

1- فلوچارتی رسم کنید که یک جدول ضرب را نمایش دهد.
2- فلوچارتی رسم کنید که از بین 4 عدد ورودی عدد بزرگتر و عدد کوچکتر را نمایش دهد.
(دریافت فایل PDF فلوچارت مدل 1 حجم: 338 کیلوبایت- دریافت فلوچارت مدل 2 حجم: 163 کیلوبایت)
جعفری
۱۶ تیر ۹۴ ، ۱۳:۱۲ ۰ نظر