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

[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%D 8%B1

[mehrada]

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

[amir_ts]

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

[mehrada]

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

[amir_ts]

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




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


11434

11435

[mehrada]

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




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


11434

11435




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

[mehrada]

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