دبر خانه یا اندیکاتور

[mehrada]

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

[amir_ts]

با سلام
لینک زیر رو ملاحظه کنید.

http://forum.exceliran.com/showthread.php/1313-%D8%AF%D9%81%D8%AA%D8%B1-%D8%A7%D9%86%D8%AF%DB%8C%DA%A9%D8%A7%D8%AA%D9%88%D8%B1

[mehrada]

برادر عزیزم با عرض تشکر از شما. ولی فایل باز نممشه و میگه قدیمی است.

[amir_ts]

پست شماره 12 صفحه 2

[mehrada]

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

[amir_ts]

فایل رو عزیزان دیگه ای تهیه کردن من فقط قرار دادم . شما میتونید با زدن کلید Alt+F11 و ورود به قسمت کدنویسی و انتخاب userform1 و دابل کلیک بر روی دکمه ایجاد کد های مربوطه رو مشاهده کنید.

[LEFT]

Private Sub CommandButton1_Click()
Dim A As Range
If TextBox1.Text <> "" Then
For Each A In Range("A1:A10000")


If A = "" Then
A = TextBox1.Text


A.Offset(0, 1) = A.Offset(-1, 1).Value + "1"
A.Offset(0, 2) = Label2.Caption
A.Offset(0, 3) = Label1.Caption
TextBox1.Text = ""


Exit Sub
End If
Next


Else
MsgBox ("اطلاعات را وارد کنيد")
End If
End Sub[/LEFT]

[mehrada]

فایل رو عزیزان دیگه ای تهیه کردن من فقط قرار دادم . شما میتونید با زدن کلید Alt+F11 و ورود به قسمت کدنویسی و انتخاب userform1 و دابل کلیک بر روی دکمه ایجاد کد های مربوطه رو مشاهده کنید.

[LEFT]

Private Sub CommandButton1_Click()
Dim A As Range
If TextBox1.Text <> "" Then
For Each A In Range("A1:A10000")


If A = "" Then
A = TextBox1.Text


A.Offset(0, 1) = A.Offset(-1, 1).Value + "1"
A.Offset(0, 2) = Label2.Caption
A.Offset(0, 3) = Label1.Caption
TextBox1.Text = ""


Exit Sub
End If
Next


Else
MsgBox ("اطلاعات را وارد کنيد")
End If
End Sub[/LEFT]

[ATTACH=CONFIG]11434[/ATTACH]

[ATTACH=CONFIG]11435[/ATTACH]

دوست عزیز مکنمیخوام یه تکست بار اضافه کنم.
یعنی میخوام اینارو داشته باشم
ردیف
شماره نامه 17/52/ش این فرمت شماره نامه است.
موضوع نامه
شرح نامه
تاریخ نامه
فرستنده

[mehrada]

کسی هست که بتونه کمک م کنه؟