Thiết lập Timer trong Forrm (1 người xem)

Liên hệ QC

Người dùng đang xem chủ đề này

daqauto

Thành viên mới
Tham gia
12/10/07
Bài viết
1
Được thích
0
Em muốn hỏi là muốn tạo 1 form mà cứ hiện form đấy ra thì có 1 dòng chữ chạy thì làm thế nào. Trong VB thì có điều khiển Timer (em làm được chữ chạy trong VB rồi), không biết trong VBA có không ạ

Các bác giúp em nhé, em là lính mới mà. Em cám ơn
 
daqauto đã viết:
Em muốn hỏi là muốn tạo 1 form mà cứ hiện form đấy ra thì có 1 dòng chữ chạy thì làm thế nào. Trong VB thì có điều khiển Timer (em làm được chữ chạy trong VB rồi), không biết trong VBA có không ạ

Các bác giúp em nhé, em là lính mới mà. Em cám ơn
File này tôi cũng tải từ GPE về , bạn xem có phải cái bạn cần không?
 

File đính kèm

Upvote 0
các bạn có thể thêm chữ chạy tuỳ ý vào D$2="......." hoặc vào text bot1 gõ vào đó để xem chữ chạy! cũng hây


còn file này thì sau nhỉ
 

File đính kèm

Lần chỉnh sửa cuối:
Upvote 0
còn cái này mình làm sau nó không chạy zậy ai biết chỉ dùng mình với
 

File đính kèm

Upvote 0
cám ơn bác thong_xanh2003 nhé. Em thử rồi, đúng là cái em cần.

Tiện thể các bác cho em hỏi muốn gán giá trị (text, number...) của 1 cell vào textbox hoặc label trong 1 form thì dùng lệnh như thế nào

Em cám ơn trước
 
Upvote 0
đâu có gì khó bạn chỉ cần gõ vào thế là xong thôi! ở trên mình đã hướng dẫn thêm mà bạn coi lại nhé!

có ai giúp gìum mình file"GPE.xls" không mình làm hoài mà không thể nào cho chữ chạy được nhé
 
Chỉnh sửa lần cuối bởi điều hành viên:
Upvote 0
Chữ chạy

Mã:
Private Sub Workbook_Open()
Application.Run "GPE.XLS!Sheet1.StartRoda"
End Sub

Mã:
Private Sub StartRoda()
Dim t As Single
Dim RODA As Single
Dim i As Integer
i = 1
t = Timer
RODA = 1000000000
Do While Timer < t + RODA
If Shapes[B][COLOR="Red"]("ART").[/COLOR][/B]Top > 400 Then i = -0.55
If Shapes[COLOR="#ff0000"][B]("ART")[/B][/COLOR].Top < 20 Then i = 0.55
    With Shapes("ART")
        .IncrementTop (0.375 * i)
    End With
 DoEvents
Loop
End Sub
Các đoạn Code trên của bạn đều đúng cả, tuy nhiên chắc do bạn không để ý nên tên của đối tượng Shapes trong đoạn Code ("ART") không được đặt đúng với đối tượng Shapes trong Sheet1.

Do đó bạn cần phải sửa lại tên của đối tượng Shapes trong Sheet1 bằng cách chọn đối tượng rồi đặt lại tên cho đúng: Insert -> Name ->Define
 
Upvote 0
chọn đối tượng là sau bạn nói rõ hơn một tí (định nghĩa là chọn cái nào zậy)
mình làm hoài cũng không được bạn hướng dẫn kỉ nhé
 
Lần chỉnh sửa cuối:
Upvote 0
Bạn xem File gửi kèm
 

File đính kèm

Upvote 0
sau mình đặt hoài mà không được mệt thật đó!
 
Upvote 0
Bạn xem File gửi kèm sẽ rõ (ở trang trên)
 
Upvote 0
vào đặt tên xong rồi thì nó trở lại như trước không giống như đặt tên trong commbox đâu phải không
 
Upvote 0
Trước khi đổi tên, bạn phải chọn WordArt ( hiển thị các nút xung quanh) sau đó gỏ tên mới thì được ngay.

Gởi bác ongtrungducmx25 file WordArt chạy xem thử.
 

File đính kèm

Chỉnh sửa lần cuối bởi điều hành viên:
Upvote 0
bạn ơi mình không biết đặt tên rồi bạn hướng dẫn mình bằng hình ảnh cụ thể nhé cái này coi ra dễ mà khó thật đấy! cái này sau mà nó kì như cục kẹo quá ta
 
Upvote 0
Tôi chưa biết cách tải hình lên. Hướng dẫn dưới rất dễ.
Thay đổi tên của WordArt trong Name box :
1/ Chọn wordArt
2/Quét chọn tên WordArt trong hộp name box.
3/ Thay đổi tên và enter.
Thay đổi tên CELL ( ô ) trong Name box :
1/Chon hộp Name box
2/Chọn tên CELL
3/Chọn menu Edit > Delete > chọn Shift cell lèt ( đạ mặc định ) OK.
4/Tiếp tục đổi tên mới.
 
Upvote 0
bạn có thể chụp hình màng hình bằng nút "prinscreen" sau đó chú thích vào trong word rôi post lên cho mình nhé mình bị rối lắm nhé!thank

bạn vào trang này nhé
Mã:
[URL="http://www.giaiphapexcel.com/forum/showpost.php?p=22166&postcount=9"]http://www.giaiphapexcel.com/forum/showpost.php?p=22166&postcount=9[/URL]
hay: vào trang này post trược tiếp sau đó bạn copy dáng vào phần nội dung bài mình đang viết sinh động thêm
 
[COLOR=red][FONT=Times New Roman][URL="http://uploadaz.com/index.php?forex?forex"][COLOR=red][B]http://uploadaz.com/index.php?forex?forex[/B][/COLOR][/URL][/FONT][/COLOR]

À mình biết đặt tên rồi bạn à thank nhiều nhé
 

File đính kèm

Chỉnh sửa lần cuối bởi điều hành viên:
Upvote 0
Tôi dở món nầy quá. Bạn cho mail tôi gởi cho (250 KB)
 
Upvote 0
bạn xem địa chỉ của mình nhé

Mã:
   ongtrungduc.mx25@gmail

có cách nào làm cho file của mình chạy tròn đều không zây "file=GPE01"
thay thêm đoạn code nào vào đây như cái chuyển động của bạn mymichau nhé mình không cần phải tạo ra UF1 của bạn mà chỉ khi mở ra thì nó chuyển động tròn như cái đồng hồ thôi nhé! ai biết giúp giùm mình nhé
 
Chỉnh sửa lần cuối bởi điều hành viên:
Upvote 0
có cách nào đặt password cho toàn sheet1 không mà nó vẫn chạy bình thường nhé! không cho ai sửa nó khi nó đã được bảo vệ có được không các bạn
 

File đính kèm

Upvote 0
em chào các anh chị

Em chào các anh chị ạ, anh chị có thể cho em hỏi làm cách nào khi sử dụng function Command1_Click
Và Command2_Click kết hợp với timer trong VB 6.0 ạ
Mà có thể điều khiển được 2 trường hợp ạ
Ví dụ như: nút thứ nhất cho trường hợp nháy đèn 1 kiểu, còn nút thứ 2 nháy 1 kiểu
Em cảm ơn anh ạ
 
Upvote 0
Web KT

Bài viết mới nhất

Back
Top Bottom