Nhờ giúp hướng dẫn tạo chữ chạy trong excel

o0khatvong0o · 19/8/12

Mình Đang cần làm một File có chữ chạy trong Excel.
Mình có Download được một File trong Giaiphapexcel.com nhưng không biết làm sao để làm được nó.
Mình mới tìm hiểu về VBA thôi lên chưa biết gì mong các bạn chỉ Các bạn chỉ giúp mình cụ thể từng bước được không ?.
Vì mình copi nguyên code vào trong Code Visual basic mà không được.
mình có đọc 1 số bài về VBA nhưng trong đó dường như chỉ hướng dẫn cho những người đã làm và hiểu nó còn người chưa động chạm bao giờ như mình thì chẳng thể hiểu nổi.
Mong các bạn cố gắng giúp mình.
Mình sẽ Thank nhiệt tình.
vì File đính kèm bị giới hạn số dòng và số cột các bạn chỉ giúp mình cách bỏ giới hạn đi nhé.
Chân thành cảm ơn mọi người.

Quang_Hải · 19/8/12

o0khatvong0o đã viết:
Mình Đang cần làm một File có chữ chạy trong Excel.
Mình có Download được một File trong Giaiphapexcel.com nhưng không biết làm sao để làm được nó.
Mình mới tìm hiểu về VBA thôi lên chưa biết gì mong các bạn chỉ Các bạn chỉ giúp mình cụ thể từng bước được không ?.
Vì mình copi nguyên code vào trong Code Visual basic mà không được.
mình có đọc 1 số bài về VBA nhưng trong đó dường như chỉ hướng dẫn cho những người đã làm và hiểu nó còn người chưa động chạm bao giờ như mình thì chẳng thể hiểu nổi.
Mong các bạn cố gắng giúp mình.
Mình sẽ Thank nhiệt tình.
vì File đính kèm bị giới hạn số dòng và số cột các bạn chỉ giúp mình cách bỏ giới hạn đi nhé.
Chân thành cảm ơn mọi người.

Đoạn code này tương đối đơn giản mà
Bạn vẽ 1 cái nút Commandbutton1, bấm vào cái nút đó sẽ thấy có sẵn mấy dòng code thì xoá hết đi rồi copy hết code này vào
Dòng chữ muốn chạy của bạn nằm chỗ nào thì sửa lại. trong code là A6
Muốn thay đổi tốc độ chạy thì sửa số 100 thành số khác. Những thông số khác giữ nguyên
Thật ra không phải chữ chạy đâu, mà là biến mất rồi xuất hiện thôi

PHP:

Option Explicit
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
      Sleep 100
      DoEvents
    Loop
  End With
End Sub

ndu96081631 · 19/8/12

quanghai1969 đã viết:
Đoạn code này tương đối đơn giản mà
Bạn vẽ 1 cái nút Commandbutton1, bấm vào cái nút đó sẽ thấy có sẵn mấy dòng code thì xoá hết đi rồi copy hết code này vào
Dòng chữ muốn chạy của bạn nằm chỗ nào thì sửa lại. trong code là A6
Muốn thay đổi tốc độ chạy thì sửa số 100 thành số khác. Những thông số khác giữ nguyên
Thật ra không phải chữ chạy đâu, mà là biến mất rồi xuất hiện thôi

PHP:

Option Explicit 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 Sleep 100 DoEvents Loop End With End Sub

Nói chung mấy cái code chạy chữ này nói dễ không dễ, nói khó không khó... Tùy trình độ mỗi người mà ta có được những đoạn code với độ phức tạp khác nhau. Đương nhiên, viết càng đơn giản thì càng có nhược điểm (chẳng hạn với code trên, nếu chữ đang chạy mà ta gõ gì đó vào 1 cell thì nó sẽ.. tịt)
Vậy nên, nếu mới học VBA thì thôi đừng suy nghĩ đến món "chơi" này chi cho mất công ---> Khi nào "no đủ" rồi hẳn tính
Ẹc... Ẹc...

Thaiduc · 20/8/12

Nếu để chữ "tự chạy" mà không cần nút "Start" không ? (nghĩa là khi mở file Excel thì sheets 1 chữ tự chạy mà không cần phải nhấn nút "Start".

diemdiem · 20/8/12

Thaiduc đã viết:
Nếu để chữ "tự chạy" mà không cần nút "Start" không ? (nghĩa là khi mở file Excel thì sheets 1 chữ tự chạy mà không cần phải nhấn nút "Start".

ý kiến của mình cũng trùng hợp với của bạn đó, nghĩa là chỉ cần ta mở xls lên, thì dòng chữ ấy sẽ tự động chạy trong file xls của mình mà k cần nhấn nút gì cả. Các anh, các bác cao thủ ra tay nghĩa hiệp đi nào.

ndu96081631 · 20/8/12

diemdiem đã viết:
ý kiến của mình cũng trùng hợp với của bạn đó, nghĩa là chỉ cần ta mở xls lên, thì dòng chữ ấy sẽ tự động chạy trong file xls của mình mà k cần nhấn nút gì cả. Các anh, các bác cao thủ ra tay nghĩa hiệp đi nào.

Dùng Sub Aut

pen mà chạy thôi
Có điều tôi sẽ giới thiệu các bạn 1 code khác tối ưu hơn rất nhiều
Tối ưu ở chổ: Lúc chữ chạy, ta làm gì cứ việc làm và nó vẫn chạy mà không ảnh hưởng tí nào công việc của mình ---> Thử lại file ở bài 1, lúc nó chạy, thậm chí ta không thể format cell hay làm quái gì được cả
Code trong module

PHP:

Declare Function SetTimer Lib "user32" (ByVal hWnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long) As Long
Declare Function KillTimer Lib "user32" (ByVal hWnd As Long, ByVal nIDEvent As Long) As Long

PHP:

Sub StartTimer()
  StopTimer
  SetTimer Application.hWnd, 1, 100, AddressOf TimeProc
End Sub

PHP:

Sub StopTimer()
  KillTimer Application.hWnd, 1
End Sub

PHP:

Private Function TimeProc()
  Dim Text As String
  On Error Resume Next
  With Sheet1
    Text = .Range("A6").Value
    Text = Mid(Text, 2, Len(Text)) & Left(Text, 1)
    .Range("A6") = Text
    .Shapes("WordArt1").IncrementRotation 2
    .Range("A3") = Now
  End With
End Function

PHP:

Sub Auto_Open()
  StartTimer
  Sheet1.CommandButton1.Caption = "Stop"
End Sub

PHP:

Sub Auto_Close()
  StopTimer
  Sheet1.CommandButton1.Caption = "Start"
End Sub

o0khatvong0o · 20/8/12

Chân thành cảm ơn mọi người đã giúp đỡ nhiệt tình.
Thành thật mà nói khi bắt đầu với 1 cái mới, bỡ ngỡ, khó hiểu là điều không thể tránh khỏi.
vì mới bắt đầu tìm hiểu và cũng không biết bắt đầu từ đâu lên mình cũng có khó khăn nhất định và cũng hơi lản.
Nhưng vì công việc đang cần dùng tới thành ra phải đi tắt " hỏi mọi người " chứ mình chưa có cái căn bản.
Rất mong mọi người chỉ bảo giúp. Mình phải bắt đầu từ đâu để có thể bắt đầu học.

Thaiduc · 21/8/12

Anh ndu! Anh chỉ cho cách làm hàng chữ mờ chữ "VĂN BẢN" trên Sheet1 và không ảnh hưởng đến các hàng, cột của bảng tính (vẫn nhập số liệu bình thường) và khi in thì không thấy hoặc cho thấy hàng chữ đó.

Rất mong Anh dạy cho các thực hiện (như hình dưới đây)

diemdiem · 21/8/12

ndu96081631 đã viết:
Dùng Sub Autpen mà chạy thôi
Có điều tôi sẽ giới thiệu các bạn 1 code khác tối ưu hơn rất nhiều
Tối ưu ở chổ: Lúc chữ chạy, ta làm gì cứ việc làm và nó vẫn chạy mà không ảnh hưởng tí nào công việc của mình ---> Thử lại file ở bài 1, lúc nó chạy, thậm chí ta không thể format cell hay làm quái gì được cả
Code trong module

PHP:

Declare Function SetTimer Lib "user32" (ByVal hWnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long) As Long Declare Function KillTimer Lib "user32" (ByVal hWnd As Long, ByVal nIDEvent As Long) As Long

PHP:

Sub StartTimer() StopTimer SetTimer Application.hWnd, 1, 100, AddressOf TimeProc End Sub

PHP:

Sub StopTimer() KillTimer Application.hWnd, 1 End Sub

PHP:

Private Function TimeProc() Dim Text As String On Error Resume Next With Sheet1 Text = .Range("A6").Value Text = Mid(Text, 2, Len(Text)) & Left(Text, 1) .Range("A6") = Text .Shapes("WordArt1").IncrementRotation 2 .Range("A3") = Now End With End Function

PHP:

Sub Auto_Open() StartTimer Sheet1.CommandButton1.Caption = "Stop" End Sub

PHP:

Sub Auto_Close() StopTimer Sheet1.CommandButton1.Caption = "Start" End Sub

trước hết em cám ơn anh đã nhiệt tình tạo code giúp đỡ, nhưng ý của tụi em là ở chỗ, làm thế nào mỗi lần mở file xls lên là nó tự chạy, ta vẫn cứ thực hiện các thao tác khác bình thường trên cell.
trân trọng cám ơn anh rất nhiều

quoc nhat · 25/8/12

Tạo chữ chạy trong excel

Anh nud và anh quang hải nhân tiện giúp em cái này với luôn. Em copy trên diễn đàn và xem hướng dẫn của các anh mà nó vẫn không chạy được.

quoc nhat · 28/8/12

trong khi chờ đợi mọi người giúp đỡ mình đã làm được rồi. Cảm ơn nhiều

KHONG_GJ_CA · 26/1/15

ndu96081631 đã viết:
Dùng Sub Autpen mà chạy thôi
Có điều tôi sẽ giới thiệu các bạn 1 code khác tối ưu hơn rất nhiều
Tối ưu ở chổ: Lúc chữ chạy, ta làm gì cứ việc làm và nó vẫn chạy mà không ảnh hưởng tí nào công việc của mình ---> Thử lại file ở bài 1, lúc nó chạy, thậm chí ta không thể format cell hay làm quái gì được cả
Code trong module

PHP:

Declare Function SetTimer Lib "user32" (ByVal hWnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long) As Long Declare Function KillTimer Lib "user32" (ByVal hWnd As Long, ByVal nIDEvent As Long) As Long

PHP:

Sub StartTimer() StopTimer SetTimer Application.hWnd, 1, 100, AddressOf TimeProc End Sub

PHP:

Sub StopTimer() KillTimer Application.hWnd, 1 End Sub

PHP:

Private Function TimeProc() Dim Text As String On Error Resume Next With Sheet1 Text = .Range("A6").Value Text = Mid(Text, 2, Len(Text)) & Left(Text, 1) .Range("A6") = Text .Shapes("WordArt1").IncrementRotation 2 .Range("A3") = Now End With End Function

PHP:

Sub Auto_Open() StartTimer Sheet1.CommandButton1.Caption = "Stop" End Sub

PHP:

Sub Auto_Close() StopTimer Sheet1.CommandButton1.Caption = "Start" End Sub

Bác Nu cho em hỏi File của Bác khi mở cửa sổ VBA thì típ trên thanh tiêu đề nháy dữ vậy. Có thể không cho nó nháy được không???

Gà Công Nghệ · 3/2/17

Thầy cho em hỏi sao chữ start và chữ stop trên 1 commandbutton hay sao ạ. Run của nó là gì để chạy vậy thầy.

khuong81 · 2/3/19

Bác giúp em chỉnh cái form trong file Scroll_txt này chạy lên trên cùng của file trinh chieu giúp em với, có thể cập nhật liên tục thông tin trong form được không. cho phép sữa trang tính lúc đang chạy form được không vì em phải đánh biên bản mở thầu nữa. mình trình chiếu thông tin từ file biên bản lên file trình chiếu. chỉ lấy một số thông tin các thành phần tham dự. vì các thành phần này thay đổi nên khi mình thay đổi thì trên form phải thay đổi theo (form này phải cập nhật liên tục).

vudinhgiao · 31/5/19

ndu96081631 đã viết:
Dùng Sub Autpen mà chạy thôi
Có điều tôi sẽ giới thiệu các bạn 1 code khác tối ưu hơn rất nhiều
Tối ưu ở chổ: Lúc chữ chạy, ta làm gì cứ việc làm và nó vẫn chạy mà không ảnh hưởng tí nào công việc của mình ---> Thử lại file ở bài 1, lúc nó chạy, thậm chí ta không thể format cell hay làm quái gì được cả
Code trong module

Bác ơi cho em hỏi ngu tí ạ. làm kiểu gì cho sheet hiển thị kiểu này nhỉ. Cái vùng mầu xám xung quanh ấy ạ

leonguyenz · 31/5/19

vudinhgiao đã viết:
Bác ơi cho em hỏi ngu tí ạ. làm kiểu gì cho sheet hiển thị kiểu này nhỉ. Cái vùng mầu xám xung quanh ấy ạ

Vùng màu xám xung quanh có phải là Hide cột B sang phải và dòng 10 xuống dưới không?

Nguyễn Việt Sinh · 16/5/22

quoc nhat đã viết:
trong khi chờ đợi mọi người giúp đỡ mình đã làm được rồi. Cảm ơn nhiều

được rồi thì đua lên lại cho ae tham khảo

Maika8008 · 19/5/22

Nguyễn Việt Sinh đã viết:
được rồi thì đua lên lại cho ae tham khảo

. . . . . . . . . . . . . . . . . . .

Leletv · 6/7/22

diemdiem đã viết:
ý kiến của mình cũng trùng hợp với của bạn đó, nghĩa là chỉ cần ta mở xls lên, thì dòng chữ ấy sẽ tự động chạy trong file xls của mình mà k cần nhấn nút gì cả. Các anh, các bác cao thủ ra tay nghĩa hiệp đi nào.

Nó báo lỗi vậy là sau bạn. Ko chay dc

vansontv · 30/1/23

Leletv đã viết:
Nó báo lỗi vậy là sau bạn. Ko chay dc

mình cũng bị giống bạn xin các pro chỉ giáo

Nhờ giúp hướng dẫn tạo chữ chạy trong excel

Thành viên mới

File đính kèm

Thành viên gạo cội

Huyền thoại GPE

Thành viên hoạt động

Thành viên hoạt động

Huyền thoại GPE

File đính kèm

Thành viên mới

Thành viên hoạt động

Thành viên hoạt động

Thành viên tiêu biểu

File đính kèm

Thành viên tiêu biểu

Thành viên mới

Thành viên mới

Thành viên mới

File đính kèm

Thành viên mới

Thành viên gạo cội

Thành viên mới

Thành viên gạo cội

Thành viên mới

File đính kèm

Thành viên chính thức