ایجاد متن متحرک در تکست باکس

**~M*E*H*D*I~** · 2012/04/13, 18:11

RE: ایجاد متن متحرک در تکست باکس

سلام
در جواب سوالی که پرسیدم لطفا فایل پیوست رو ببینید تو این فایل از جاوا اسکریپت کمک گرفته شده ، حالا من همچین چیزی میخوام تو یک فرم بدون جاوا اسکریپت کسی میتونه کمک کنه

فایل های پیوست شده

MarqueeTicker.xls (15.7 کیلو بایت, مشاهدات 129)

**~M*E*H*D*I~** · 2012/04/14, 17:43

RE: ایجاد متن متحرک در تکست باکس

با سلام خدمت دوستان

خوب مثل اینکه کسی نتونست کمک کنه خوشبختانه خودم به جواب رسیدم برای استفاده فایل رو پیوست کردم می تونید ببینید در صورت امکان ایده ای هم دارید بهش اضافه کنید

فایل های پیوست شده

متن متحرک.xlsm (15.7 کیلو بایت, مشاهدات 172)

**khakzad** · 2012/04/14, 18:26

RE: ایجاد متن متحرک در تکست باکس

سلام
خسته نباشید.خیلی جالب بود.
ببینید اینی که بنده می گم، شدنی هست؟
بجای اینکه اون متن 5 بار اجرا بشه که در واقع شمارندش همون y هست. می تونیم از این استفاده کنیم که هر 10 ثانیه این ماژول اجرا بشه؟
Application.OnTime Now + TimeValue("00:00:10"), "Macro1"
یعنی بجای ماکرو 1 در واقع همون harkat رو بذاریم؟

**khakzad** · 2012/04/14, 19:51

RE: ایجاد متن متحرک در تکست باکس

اقای وطن پرست، زحمت آموزش ما هم اضافه شده به کاراتون، شرمنده و ممنون :blush:لطف می کنید ی توضیحی هم راجع به timer بدین؟
و اون شرط timer<delay
ممنون میشم

[hr]
الان این فایل و ببینید
هر 10 ثانیه ماکرو فیلترینگ رو اجرا می کنه.قبلا درستش کرده بودم
اما الان هرکاری کردم.نتونستم اینجا اجراش کنک.که هر چند ثانیه این harekat رو اجرا کنه

odgy:

فایل های پیوست شده

timeeeee.xlsm (11.1 کیلو بایت, مشاهدات 96)

**~M*E*H*D*I~** · 2012/04/14, 20:09

RE: ایجاد متن متحرک در تکست باکس

سلام
خواهش می کنم اختیار دارید ، راستش اون کدی که دادید من نتونستم استفاده کنم منظورتون اینه که حلقه y رو حذف کنم کلا، در مورد شرط خوب شرط باید داینامیک باشه اون( البته 2 بار به delay مقدار داده شده هر دو بار باید .2 ثانیه بهش اضافه بشه که تاخیر ایجاد کنه بین 2 اجرا برای بهتر اجرا شدن) اما timer باید از یه چیزی کوچکتر باشه که با یک بار برقراری شرط متوقف نشه ، چون به تایمر اضافه میشه delay از جنس تایمر با .2 ثانیه تاخیر هست مثلا بجای delay بذارید 100000 البته این چیز واضحهی هست شاید من منظور شمارو متوجه نشدم درست [hr]

نوشته اصلی توسط khakzad

اقای وطن پرست، زحمت آموزش ما هم اضافه شده به کاراتون، شرمنده و ممنون :blush:لطف می کنید ی توضیحی هم راجع به timer بدین؟
و اون شرط timer<delay
ممنون میشم

[hr]
الان این فایل و ببینید
هر 10 ثانیه ماکرو فیلترینگ رو اجرا می کنه.قبلا درستش کرده بودم
اما الان هرکاری کردم.نتونستم اینجا اجراش کنک.که هر چند ثانیه این harekat رو اجرا کنه

odgy:

ماکروی شمارو اجرا میکنم اتفاقی نمیفته چرا؟؟:huh:

[hr]

نوشته اصلی توسط vatanparast

سلام
خواهش می کنم اختیار دارید ، راستش اون کدی که دادید من نتونستم استفاده کنم منظورتون اینه که حلقه y رو حذف کنم کلا، در مورد شرط خوب شرط باید داینامیک باشه اون( البته 2 بار به delay مقدار داده شده هر دو بار باید .2 ثانیه بهش اضافه بشه که تاخیر ایجاد کنه بین 2 اجرا برای بهتر اجرا شدن) اما timer باید از یه چیزی کوچکتر باشه که با یک بار برقراری شرط متوقف نشه ، چون به تایمر اضافه میشه delay از جنس تایمر با .2 ثانیه تاخیر هست مثلا بجای delay بذارید 100000 البته این چیز واضحهی هست شاید من منظور شمارو متوجه نشدم درست [hr]

نوشته اصلی توسط khakzad

اقای وطن پرست، زحمت آموزش ما هم اضافه شده به کاراتون، شرمنده و ممنون :blush:لطف می کنید ی توضیحی هم راجع به timer بدین؟
و اون شرط timer<delay
ممنون میشم

[hr]
الان این فایل و ببینید
هر 10 ثانیه ماکرو فیلترینگ رو اجرا می کنه.قبلا درستش کرده بودم
اما الان هرکاری کردم.نتونستم اینجا اجراش کنک.که هر چند ثانیه این harekat رو اجرا کنه

odgy:

ماکروی شمارو اجرا میکنم اتفاقی نمیفته چرا؟؟:huh:

آها فهمیدم سورت میکنه خیلی هوشمندانه بود ولی تو فایل من اجرا نمیشه:huh:

**khakzad** · 2012/04/14, 20:25

RE: ایجاد متن متحرک در تکست باکس

ممنون از توضیحات
الن تایمر ساعت کامپیوتر رو میده؟خروجیش چی هس؟
خط به خط که اجراش می کنم عدد خیلی بزرگی رو نشون میده!! نمیشناسم این timer رو

.....................
اره.سورت می کنه.مثلا یکی از a ]ا رو به b تندیل کنید.بعد 10 ثانیه مرتب میشه

برای منم اجذا نمیشه.اما اگه بشه، ی چیزی میشه به عنوان تبلیغ.همیشه داخل تکست فعاله.البته یا ی عدد بزرگ به y هم میشه این کارو کرد.اما خب اون کد بهتره

**~M*E*H*D*I~** · 2012/04/14, 20:34

RE: ایجاد متن متحرک در تکست باکس

الان نمیدونم دلیل اجرا نشدنش چیه یعنی درست درکش نمی کنم باید روش فک کنم حتما راهی هست تایمر به ثانیه هست بزرگ یا کوچیک بودنش برای اجرا اهمیتی نداره مهم هم جنس بودن متغیر های شرط و داینامیک بودنش هست

**safaei.mehdi@mapnablade.com** · 2012/04/15, 11:14

RE: ایجاد متن متحرک در تکست باکس

سلام
آيا ميشه فايل MarqueeTicker.xls كه با جاوا درست شده رو با vba هم درست كرد؟ طوري كه نياز نباشه دگمه اي رو فشار بديم و به محض باز شدن فايل، خود به خود به حركت در بياد؟ ممنون ميشم.

**~M*E*H*D*I~** · 2012/04/15, 17:38

RE: ایجاد متن متحرک در تکست باکس

سلام
فایل رو پیوست کردم ببینید منظور شمارو درست متوجه شدم

فایل های پیوست شده

متن متحرک - Copy.xlsm (15.7 کیلو بایت, مشاهدات 98)

**safaei.mehdi@mapnablade.com** · 2012/04/16, 08:44

RE: ایجاد متن متحرک در تکست باکس

جناب آقاي وطن پرست
مرسي از فايلي كه گذاشتين. ولي منظور من اين بود كه تكست باكس به صورت خودكار اجرا بشه، نه اينكه توي يه سلول متن نوشته بشه و بعد متوقف بشه.
سپاسگذارم

**~M*E*H*D*I~** · 2012/04/16, 12:05

RE: ایجاد متن متحرک در تکست باکس

سلام
بطور کلی شما هر چی رو میخوای با باز شدن فایل اجرا کنی از کد زیر استفاده کن
sub workbook_open()
call نام ماژول
end sub

**safaei.mehdi@mapnablade.com** · 2012/05/02, 22:02

RE: ایجاد متن متحرک در تکست باکس

سلام
با عرض پوزش به علت تاخیر..از راهنمایی شما سپاسگذارم

**~M*E*H*D*I~** · 2012/05/28, 10:44

RE: ایجاد متن متحرک در تکست باکس

سلام خدمت دوستان
تو فایل پیوست روش دیگری برای متحرک سازی متن در اکسل ارائه شده امیدوارم مفید واقع بشه(در داخل سل زرد رنگ مقداری وارد کنید و کلید مربوطه رو بزنید متن اجرا خواهد شد و با پاک کردن مقدار سل زرد رنگ حرکت متن متوقف خواهد شد)

فایل های پیوست شده