Tạo chữ chạy khi mở file Excel (1 người xem)

[saobekhonglac]

Dear all.

AC tạo giúp mình code để khi mở file lên thì Cell A2 và chữ WordArt sẽ tự động chạy từ trái sang phải hoặc chạy qua lại giữa 2 bên.

Thanks.

 

[phucbugis]

code bạn cần đang nằm ở #8
"đề tài vẫn còn rất hot "
http://www.giaiphapexcel.com/forum/...e-chạy-liên-tục-khi-đè-chuột-luôn-vào-nút-bấm

'-----
hoặc thử search Google với từ khoá: rotate shape in excel vba

 

[Quang_Hải]

Dear all.

AC tạo giúp mình code để khi mở file lên thì Cell A2 và chữ WordArt sẽ tự động chạy từ trái sang phải hoặc chạy qua lại giữa 2 bên.

Thanks.

Nếu muốn trang điểm cho cái file thì xài luôn cái ShockWaveFlash cho nó hoành tráng

 

[saobekhonglac]

Mình muốn làm trên file của mình chứ nhìn vào bài bạn gửi cũng không biết làm sao

code bạn cần đang nằm ở #8
"đề tài vẫn còn rất hot "
http://www.giaiphapexcel.com/forum/...e-chạy-liên-tục-khi-đè-chuột-luôn-vào-nút-bấm

 

[saobekhonglac]

Diễn đàn rất nhiều người mà sao không ai chịu giúp vậy tay.

Mình muốn làm trên file của mình chứ nhìn vào bài bạn gửi cũng không biết làm sao

 

[chuot0106]

Diễn đàn rất nhiều người mà sao không ai chịu giúp vậy tay.

Nhiều thì nhiều thật nhưng "người biết thì chưa thấy, người thấy thì chưa biết".
Bạn cố gắng đợi vậy.

 

[ndu96081631]

Mình muốn làm trên file của mình chứ nhìn vào bài bạn gửi cũng không biết làm sao

Ở trên người ta gợi ý:

code bạn cần đang nằm ở #8
"đề tài vẫn còn rất hot "
http://www.giaiphapexcel.com/forum/...e-chạy-liên-tục-khi-đè-chuột-luôn-vào-nút-bấm

'-----
hoặc thử search Google với từ khoá: rotate shape in excel vba

Thì điều đâu tiên bạn nên download file về xem thử. Code ngắn gọn chứ có dài dòng gì đâu.
Trong đó có đoạn thế này:

Private Function TimeProc(ByVal Hwnd As LongPtr, ByVal nMSG As Long, ByVal nID As Long, ByVal nTsys As Long)
 [COLOR=#ff0000] 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[/COLOR]
End Function

Mọi sự chuyển động hay gì đó hãy viết vào chỗ màu đỏ. Thế thôi!

 

[saobekhonglac]

Nếu mình nhìn vào đó mà hiểu thì mọi chuyện sẽ không còn gì để nói, cái mình muốn là mở file lên tự nó chạy chứ không phải nhấn nút như file của bạn phucbugic. Mình cũng có copy code nhưng khi save nó lại báo lỗi như hình đính kèm.

Ở trên người ta gợi ý:

Thì điều đâu tiên bạn nên download file về xem thử. Code ngắn gọn chứ có dài dòng gì đâu.
Trong đó có đoạn thế này:

Private Function TimeProc(ByVal Hwnd As LongPtr, ByVal nMSG As Long, ByVal nID As Long, ByVal nTsys As Long)
 [COLOR=#ff0000] 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[/COLOR]
End Function

Mọi sự chuyển động hay gì đó hãy viết vào chỗ màu đỏ. Thế thôi!

 

[vanle33]

Mình cũng có copy code nhưng khi save nó lại báo lỗi như hình đính kèm.

Đoạn viết trên và hình đính kèm được trả lời bằng
http://www.giaiphapexcel.com/forum/...-mất-tác-dụng-xin-giúp-đỡ&p=594793#post594793
Có thắc mắc thì xem #10 của topic đó.

 

[phucbugis]

Nếu mình nhìn vào đó mà hiểu thì mọi chuyện sẽ không còn gì để nói, cái mình muốn là mở file lên tự nó chạy chứ không phải nhấn nút như file của bạn phucbugic. Mình cũng có copy code nhưng khi save nó lại báo lỗi như hình đính kèm.

- cái đó có phải lỗi gì đâu,
- do ban đầu file chưa có Macro nên nó hỏi lưu ở định dạng nào? Click Yes --> các code sẽ ko dùng được. Click No thì Save As --> bạn chọn đuôi .xlsm hoặc xls thì có thể dùng Macro kể từ bây giờ cho file đó.

 

[saobekhonglac]

Đã làm theo hướng dẫn, chọn no và save thành đuối xlsm nhưng khi mở lại vẫn không thấy gì khác.

- cái đó có phải lỗi gì đâu,
- do ban đầu file chưa có Macro nên nó hỏi lưu ở định dạng nào? Click Yes --> các code sẽ ko dùng được. Click No thì Save As --> bạn chọn đuôi .xlsm hoặc xls thì có thể dùng Macro kể từ bây giờ cho file đó.

 

[VMH0307]

Đã làm theo hướng dẫn, chọn no và save thành đuối xlsm nhưng khi mở lại vẫn không thấy gì khác.

Bạn gửi file xlsm lên diễn đàn mọi người coi xem sao

 

[saobekhonglac]

Daer all.

Vui lòng xem file đính kèm.

Thanks.

Bạn gửi file xlsm lên diễn đàn mọi người coi xem sao

 

[VMH0307]

Daer all.

Vui lòng xem file đính kèm.

Thanks.

Hic, trời đất, quan trọng là hàm Set Timer và Kill Timer mà, bạn xem thử file đính kèm.

 

[saobekhonglac]

Thanks bạn.

Nhưng khi mình move qua file khác thì nó không còn chạy nữa, và trên file đó mình thay đổi chữ trong cell À nó vẫn không chạy (công ty mình có nhiều chi nhánh nên mình muốn dùng công thức chỗ đó nhưng sữa lại nó không còn chạy. Bạn xem lại giúp mình.

Thanks.

Hic, trời đất, quan trọng là hàm Set Timer và Kill Timer mà, bạn xem thử file đính kèm.

 

[VMH0307]

Thanks bạn.

Nhưng khi mình move qua file khác thì nó không còn chạy nữa, và trên file đó mình thay đổi chữ trong cell À nó vẫn không chạy (công ty mình có nhiều chi nhánh nên mình muốn dùng công thức chỗ đó nhưng sữa lại nó không còn chạy. Bạn xem lại giúp mình.

Thanks.

1. Không có công thức nào nhập vào Cell để chữ chạy cả
2. Không hiểu bạn "move qua file khác" có nghĩa là gì, file khác thì cũng cần phải code.
3. Nhìn chung mình không khoái thứ màu mè này mấy vì nặng và chậm file.
4. Mọi người cung cấp cho bạn đủ các từ khóa, công cụ để "vọc" rồi, nghiên cứu thôi!!

 

[saobekhonglac]

Mình copy sheet đó sang file chung của mình thì nó sẽ không chạy. Vì file mình có rất nhiều sheet, mình chỉ gửi lên 1 sheet đó thôi, nếu cell A2 là công thức không chạy được vậy mình gửi bạn file của mình bạn làm giúp mình wordart chạy được không.

Thanks bạn trước.

1. Không có công thức nào nhập vào Cell để chữ chạy cả
2. Không hiểu bạn "move qua file khác" có nghĩa là gì, file khác thì cũng cần phải code.
3. Nhìn chung mình không khoái thứ màu mè này mấy vì nặng và chậm file.
4. Mọi người cung cấp cho bạn đủ các từ khóa, công cụ để "vọc" rồi, nghiên cứu thôi!!

 

[VMH0307]

Mình copy sheet đó sang file chung của mình thì nó sẽ không chạy. Vì file mình có rất nhiều sheet, mình chỉ gửi lên 1 sheet đó thôi, nếu cell A2 là công thức không chạy được vậy mình gửi bạn file của mình bạn làm giúp mình wordart chạy được không.

Thanks bạn trước.

Bạn hiểu rằng chữ hoặc shapes chạy được là do thủ tục trong code thực hiện, như vậy với file mới thì bạn phải có code vba tương ứng.
file đính kèm trên tôi đã làm theo nhu cầu chữ chạy và shape quay rồi, bạn chế biến dựa trên code đó thôi.
Còn thực sự bạn chưa hiểu thì trước tiên tìm hiểu theo từ khóa lập trình VBA trước đã nhé

 

[saobekhonglac]

Mình copy code qua file mới cũng giống như vậy, cũng insert thêm modue nhưng không tài nào làm được (chỉ có chữ chạy chứ wordart không chạy). Mình chưa biết gì về VBA, mình muốn trang trí và học thêm nên nhờ mọi người giúp đỡ.

Bạn hiểu rằng chữ hoặc shapes chạy được là do thủ tục trong code thực hiện, như vậy với file mới thì bạn phải có code vba tương ứng.
file đính kèm trên tôi đã làm theo nhu cầu chữ chạy và shape quay rồi, bạn chế biến dựa trên code đó thôi.
Còn thực sự bạn chưa hiểu thì trước tiên tìm hiểu theo từ khóa lập trình VBA trước đã nhé

 

[saobekhonglac]

Bạn sửa giúp mình file của mình chạy chữ wortart được không.
Thanks bạn nhiều

 

[ndu96081631]

Mình chưa biết gì về VBA, mình muốn trang trí và học thêm nên nhờ mọi người giúp đỡ.

Tôi nghĩ bạn nên học từ căn bản thì tốt hơn. Mấy cái trò màu mè này bạn không theo nỗi đâu. Dù người ta có làm cho bạn hoàn tất rồi bạn cũng sẽ không làm được trên file mới đâu

 

[saobekhonglac]

Dear anh.

Anh có tài liệu học căn bản vba không cho em xin với. Em cũng muốn nguyên cướu nhưng không biết tìm tài liệu ở đâu.

Thanks.

Tôi nghĩ bạn nên học từ căn bản thì tốt hơn. Mấy cái trò màu mè này bạn không theo nỗi đâu. Dù người ta có làm cho bạn hoàn tất rồi bạn cũng sẽ không làm được trên file mới đâu

 

[VMH0307]

Dear anh.

Anh có tài liệu học căn bản vba không cho em xin với. Em cũng muốn nguyên cướu nhưng không biết tìm tài liệu ở đâu.

Thanks.

Thời buổi này, google là ra được 1 đống, hoặc nếu muốn tập trung hơn thì search tại chính GPE (ở góc trên bên phải) đó, chỉ lo đọc không xuể chứ tài liệu, thực hành thì không thiếu