Tạo dòng chữ chạy trong cell (1 người xem)

[chibi]

Tạo một dòng chữ chạy trong ô (hoặc đại loại như thế). Tôi đã đọc được chủ đề này trên GPE nhưng lâu rồi không nhớ nữa. Nay tìm lại mà không thấy. Có ai biết nó nằm chỗ nào chỉ giúp tôi với.

 

[pxthanhcda]

Links cua Hai2hai:http://www.giaiphapexcel.com/forum/attachment.php?attachmentid=189&d=1159408673

 

[tlt]

Chạy dưới thanh trạng thái (ở dưới đáy) màn hình được không?

 

[tnfsmith]

Tui nghĩ là không được!

 

[visao2007]

Em nhớ cái chuyện này em đã reply rồi mà :http://www.giaiphapexcel.com/forum/a...9&d=1159408673

 

[yeudoi]

Tui nghĩ là không được!

Sao lại không được chứ chỉ có mình chưa biết thôi chứ không có gì là không được.

 

[tlt]

Dùng <Ctrl>+<F11> chèn Sheet Macro 4 xong paste đoạn chương trình này (tôi trích từ bảng tính dự toán của tôi) vào ô R1C1 hay A1:

Xin chân thành cám ơn các cơ quan, đơn vị đã ủng hộ cho Chương trình Dư Toán: Sở Giao Thông VT Quảng Ngãi; Ban QLDA ngành GTVT Quảng Ngãi; Cty Quản lý sửa chữa Đường Bộ 509; Cty XDCTGT Quảng Nam - Hội An; Xí Nghiệp XDCT 515; Cty Tư vấn XD công trình; Cty Tư vấn XDCTGTVT Quảng Ngãi; Cty CP 19/8; Cty TNHH Giao Thủy; Xí Nghiệp 420 - Cty XDCTGT 504; Các bạn: Trần Văn Tạo , Phan Văn Hồng, Lê Tấn Sĩ, Phạm Văn Sương cùng các Đồng nghiệp khác

=ON.TIME(NOW()+"00:02:00","R6C1")
=RETURN()

=CANCEL.KEY(TRUE,R[18]C)
=OPTIONS.VIEW(,TRUE,,,,,,TRUE)
Dai_dai=LEN(R[-7]C)
=FOR("Doc_chu",1,Dai_dai,1)
=MESSAGE(TRUE,MID(MID(R1C1,Doc_chu,Dai_dai+1)&"*****"&MID(R1C1,1,Dai_dai-LEN(MID(R1C1,Doc_chu,Dai_dai+1))),1,67))
=WAIT(NOW()+"00:00:00.06")
=IF(OR(Doc_chu=100,Doc_chu=200,Doc_chu=300,Doc_chu=400))
=FOR("Tlt_009",1,5,1)
=MESSAGE(TRUE,"---------- Bấm Esc để tắt dòng chữ này, Xin cám ơn! ----------")
=WAIT(NOW()+"00:00:00.5")
=MESSAGE(TRUE,"")
=WAIT(NOW()+"00:00:00.3")
=NEXT()
=END.IF()
=NEXT()
=GOTO(R[-12]C)
=RETURN()

=MESSAGE(FALSE)
=CANCEL.KEY(TRUE)
=RETURN()

Chọn ô A1 hay R1C1
Bấm <Alt>+<F8>, chọn run, đợi một tí xem có chữ chạy dưới thanh trạng thái?

 

[Mr Okebab]

Dùng <Ctrl>+<F11> chèn Sheet Macro 4 xong paste đoạn chương trình này (tôi trích từ bảng tính dự toán của tôi) vào ô R1C1 hay A1:

Xin chân thành cám ơn các cơ quan, đơn vị đã ủng hộ cho Chương trình Dư Toán: Sở Giao Thông VT Quảng Ngãi; Ban QLDA ngành GTVT Quảng Ngãi; Cty Quản lý sửa chữa Đường Bộ 509; Cty XDCTGT Quảng Nam - Hội An; Xí Nghiệp XDCT 515; Cty Tư vấn XD công trình; Cty Tư vấn XDCTGTVT Quảng Ngãi; Cty CP 19/8; Cty TNHH Giao Thủy; Xí Nghiệp 420 - Cty XDCTGT 504; Các bạn: Trần Văn Tạo , Phan Văn Hồng, Lê Tấn Sĩ, Phạm Văn Sương cùng các Đồng nghiệp khác

=ON.TIME(NOW()+"00:02:00","R6C1")
=RETURN()

=CANCEL.KEY(TRUE,R[18]C)
=OPTIONS.VIEW(,TRUE,,,,,,TRUE)
Dai_dai=LEN(R[-7]C)
=FOR("Doc_chu",1,Dai_dai,1)
=MESSAGE(TRUE,MID(MID(R1C1,Doc_chu,Dai_dai+1)&"*****"&MID(R1C1,1,Dai_dai-LEN(MID(R1C1,Doc_chu,Dai_dai+1))),1,67))
=WAIT(NOW()+"00:00:00.06")
=IF(OR(Doc_chu=100,Doc_chu=200,Doc_chu=300,Doc_chu=400))
=FOR("Tlt_009",1,5,1)
=MESSAGE(TRUE,"---------- Bấm Esc để tắt dòng chữ này, Xin cám ơn! ----------")
=WAIT(NOW()+"00:00:00.5")
=MESSAGE(TRUE,"")
=WAIT(NOW()+"00:00:00.3")
=NEXT()
=END.IF()
=NEXT()
=GOTO(R[-12]C)
=RETURN()

=MESSAGE(FALSE)
=CANCEL.KEY(TRUE)
=RETURN()

Chọn ô A1 hay R1C1
Bấm <Alt>+<F8>, chọn run, đợi một tí xem có chữ chạy dưới thanh trạng thái?

Cảm ơn bác nhiều. bác có vẻ rất rành về Macro Sheet. Cái này trên GPE lại rất thiếu vắng. Vì vậy bác có thể dành chút thời gian để chia sẻ kinh nghiệm của mình cho GPE được không ạ ??
Nếu có thể, thì bác theo link này nhé.
http://www.giaiphapexcel.com/forum/forumdisplay.php?f=33

Cảm ơn bác.
Thân!

 

[tlt]

Bạn Bình thân mến!
Chắc chắn được đấy bạn ạ. Tôi đã thử lại 1 lần rồi. Bạn kiểm tra thử dấu chấm phẩy xem có phải là kiểu mặc định trong eXCEL KHÔNG.?
Tôi không biết post hình lên trang này, xin giải thích thêm đoạn trích chương trình trên:
Khi kích hoạt máy tính sẽ đợi 2 giây sau cho chạy lệnh ở ô R6C1;
Đợi khi bấm ESC thực hiện lệnh ở ô R24C1, tắt dòng trạng thái;
Các phần khác tạo chữ chớp nháy thôi.
Bạn thử lại từng bước như tôi trình bày thử xem sao nhá!
TLT

 

[Mr Okebab]

Bạn Bình thân mến!
Chắc chắn được đấy bạn ạ. Tôi đã thử lại 1 lần rồi. Bạn kiểm tra thử dấu chấm phẩy xem có phải là kiểu mặc định trong eXCEL KHÔNG.?
Tôi không biết post hình lên trang này, xin giải thích thêm đoạn trích chương trình trên:
Khi kích hoạt máy tính sẽ đợi 2 giây sau cho chạy lệnh ở ô R6C1;
Đợi khi bấm ESC thực hiện lệnh ở ô R24C1, tắt dòng trạng thái;
Các phần khác tạo chữ chớp nháy thôi.
Bạn thử lại từng bước như tôi trình bày thử xem sao nhá!
TLT

Nếu có thể bác Post File VD lên được không ạ ???

Thân!

 

[tlt]

Minh họa Sheet Macro và Thanh trạng thái bên dưới!

 

[yeudoi]

Ý của Mr Bắp là bạn có thể gửi một file ví dụ về chạy chữ đó được không ah. Cảm ơn bạn

 

[uocmoketoantruong]

Đây đúng là cái mình đang cần rồi. Nhưng sao đoạn chương trình mình dựng lên lại báo lõi?
=CANCEL.KEY(TRUE,R[18]C) (Đoạn mã "R[18]C) máy không hiểu. và hình như báo lõi tất cả. Các bạn biết vui lòng giải thích giúp mình với. Còn nếu được có thể cho mình một bản mẫu. Cám ơn các bạn rất nhiều.
Địa chỉ mail của mình: tanthanhloi_cpc@yahoo.com.vn - Yahoo.chat: tanthanhloi_cpc.
Mình có trên mạng mỗi ngày. Cám ơn các bạn rất nhiều.

 

[ongtrungducmx25]

cái này có công hiệu gì minh thấy đâu có gì đâu nhi các pác

 

[nguyentuhp]

Chữ chạy trong Cells

Chữ chạy trên Form, đối tượng xoay, di chuyển đều tương tự như nhau ...
cảm giác chữ chạy trên cells: cắt chữ đầu của dòng Text nối vào phía cuối dòng, vòng lặp = chiều dài đoạn Text.

 

[romantic_1501]

Tôi thử làm theo cách của bạn mà không được

 

[thtanhoab]

Tạo chữ chạy trong excel

Mình rất thích cái nay, nhưng sao không làm được. Bạn có thể gưi cho minh một cái excel đã làm sẵn có được không. địa chỉ của mình: thtanhoab@yahoo.com.vn
Chân thành cảm ơn nhiều

 

[Ếch Xanh]

Tôi thử làm theo cách của bạn mà không được

Mình rất thích cái nay, nhưng sao không làm được. Bạn có thể gưi cho minh một cái excel đã làm sẵn có được không. địa chỉ của mình: thtanhoab@yahoo.com.vn
Chân thành cảm ơn nhiều

Các bạn ơi, muốn làm cho chữ chạy trong Cells, các bạn phải biết một chút về Macro. Các bạn thử bấm Alt+F11 các bạn sẽ thấy những câu lệnh Macro như thế này:

Option Explicit
Public RunText As Boolean
Public Sub StartRunText()
Dim t As Single, i As Byte, j As Byte
Dim x As String, y As String, Text As String
    RunText = True
    With Sheet1.Range("NameText")
        .Value = "WELCOME TO (GPE): WWW.GIAIPHAPEXCEL.COM "
        i = 1
        Do
                Text = .Value
                If i > Len(Text) Then i = 1
                x = Left(Text, 1):        y = Right(Text, Len(Text) - 1)
                Text = y + x:            .Value = Text
                .Characters(Start:=1, Length:="" & Len(Text) - i & "").Font.ColorIndex = 5
                .Characters(Start:="" & Len(Text) - i & "", Length:="" & i & "").Font.ColorIndex = 3
                Shapes("WordArt1").IncrementRotation (5)
                t = Timer
            Do
                    DoEvents
            Loop Until Timer - t > 0.2
        i = i + 1
        Loop Until Not RunText
    End With
End Sub
Private Sub Worksheet_Activate()
    Call StartRunText
End Sub
Private Sub Worksheet_Deactivate()
    RunText = False
End Sub

Vậy đó, không phải tạo được là dễ dàng tí nào phải không?

 

[ndu96081631]

Các bạn ơi, muốn làm cho chữ chạy trong Cells, các bạn phải biết một chút về Macro. Các bạn thử bấm Alt+F11 các bạn sẽ thấy những câu lệnh Macro như thế này:

Option Explicit
Public RunText As Boolean
Public Sub StartRunText()
Dim t As Single, i As Byte, j As Byte
Dim x As String, y As String, Text As String
    RunText = True
    With Sheet1.Range("NameText")
        .Value = "WELCOME TO (GPE): WWW.GIAIPHAPEXCEL.COM "
        i = 1
        Do
                Text = .Value
                If i > Len(Text) Then i = 1
                x = Left(Text, 1):        y = Right(Text, Len(Text) - 1)
                Text = y + x:            .Value = Text
                .Characters(Start:=1, Length:="" & Len(Text) - i & "").Font.ColorIndex = 5
                .Characters(Start:="" & Len(Text) - i & "", Length:="" & i & "").Font.ColorIndex = 3
                Shapes("WordArt1").IncrementRotation (5)
                t = Timer
            Do
                    DoEvents
            Loop Until Timer - t > 0.2
        i = i + 1
        Loop Until Not RunText
    End With
End Sub
Private Sub Worksheet_Activate()
    Call StartRunText
End Sub
Private Sub Worksheet_Deactivate()
    RunText = False
End Sub

Vậy đó, không phải tạo được là dễ dàng tí nào phải không?

Gì mà nhiều thế
Tôi chỉ cần vầy:
- Gõ gì đó vào cell A6 (có vài chục khoảng trắng sau chuổi)
- Vẽ 1 WordArt (tên là WordArt1)
- Vẽ 1 CommandButton ===> Double click vào nó và chèn code này vào:

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

Private Sub CommandButton1_Click()
  Dim Text As String
  Text = Range("A6").Value
  With CommandButton1
    .Caption = IIf(.Caption = "Start", "Stop", "Start")
    Do While .Caption = "Stop"
      Text = Mid(Text, 2, Len(Text)) & Left(Text, 1)
      Range("A6") = Text
      Sheet1.Shapes("WordArt1").IncrementRotation (3)
      Sleep 100
      DoEvents
    Loop
  End With
End Sub

Nhấn nút và... thưởng thức

 

[Ếch Xanh]

Gì mà nhiều thế
Tôi chỉ cần vầy:
- Gõ gì đó vào cell A6 (có vài chục khoảng trắng sau chuổi)
- Vẽ 1 WordArt (tên là WordArt1)
- Vẽ 1 CommandButton ===> Double click vào nó và chèn code này vào:

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

Private Sub CommandButton1_Click()
Dim Text As String
Text = Range("A6").Value
With CommandButton1
.Caption = IIf(.Caption = "Start", "Stop", "Start")
Do While .Caption = "Stop"
Text = Mid(Text, 2, Len(Text)) & Left(Text, 1)
Range("A6") = Text
Sheet1.Shapes("WordArt1").IncrementRotation (3)
Sleep 100
DoEvents
Loop
End With
End Sub

Nhấn nút và... thưởng thức

Hình như là code đó dài là do nó tô thêm màu chữ đang chạy đó Thầy (xanh chuyển đỏ). Nguồn Code đó của bạn nguyentuhp.