متن روان

[alisabet]

با سلام حضور اساتید محترم دو تا سوال تقریباً مشابه دارم

1- چگونه میتوان در یک سلول متن روان داشت ( مثل تابلوهای روان که متن در آن بصورت افقی حرکت میکند)

2- چگونه میتوان یک متن را بصورت تاپپ به مرور در یک سلول نشان داد( مثا هنگامی که با ماشین تحریر تایپ میکنبم ) منظورم اینست که متن به صورت حروف به حروف و با تاخیر در سلول کامل شود

اخطار: این یک موضوع قدیمی است به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.

[Amir Ghasemiyan]

با سلام حضور اساتید محترم دو تا سوال تقریباً مشابه دارم

1- چگونه میتوان در یک سلول متن روان داشت ( مثل تابلوهای روان که متن در آن بصورت افقی حرکت میکند)

2- چگونه میتوان یک متن را بصورت تاپپ به مرور در یک سلول نشان داد( مثا هنگامی که با ماشین تحریر تایپ میکنبم ) منظورم اینست که متن به صورت حروف به حروف و با تاخیر در سلول کامل شود

سلام دوست عزيز

براي سوال اولتون اين كد فكر كنم كمكتون كنه:
متنتون رو در سلول A1 بنويسيد و تابلو روان رو در سلول A2 تحويل بگيرين

Sub neon()
n = Range("A1").Value
Range("A2").HorizontalAlignment = xlLeft
For i = 0 To Len(n)
    v = Mid(n, 1, i)
    Range("A2").Value = v
    Sleep 100
Next i
Range("A2").HorizontalAlignment = xlCenter
Sleep 100
Range("A2").HorizontalAlignment = xlRight
For i = Len(n) To 0 Step -1
    v = Mid(n, 1, i)
    Range("A2").Value = v
    Sleep 100
Next i
End Sub

اين هم براي تايپ:

Sub typing()
n = Range("A1").Value
Range("A2").HorizontalAlignment = xlRight
For i = 1 To Len(n)
    v = Mid(n, 1, i)
    Range("A2").Value = v
    Sleep 300
Next i
End Sub

البته اين خط رو هم به اول ماژول بايد اضافه كنيد تا كد sleep كار كنه

Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)