Tự nhập dữ liệu, không cần thao tác bằng tay (1 người xem)

[hungatfc]

Chào các anh chị,

Em có một file đính kèm, trong file này, ô F2, em đang để chế độ (code VBA), cứ bấm phím Enter là tự động nhảy số, làm như vậy có thể mất nhiều thời gian, cứ phải bấm từng lần một, giờ em muốn là ô F2 cứ tự động nhảy tự động 3 giây một lần, tức là không phải bấm Enter nữa mà ô F2 cứ tự nhảy số thứ tự như bình thường, vì giá trị ô F2 ảnh hưởng đến các dữ liệu khác (rất dài), do đó bác nào biết cách làm thì chỉ giúp em với.

Em chân thành cảm ơn

 

[Quang_Hải]

Chào các anh chị,

Em có một file đính kèm, trong file này, ô F2, em đang để chế độ (code VBA), cứ bấm phím Enter là tự động nhảy số, làm như vậy có thể mất nhiều thời gian, cứ phải bấm từng lần một, giờ em muốn là ô F2 cứ tự động nhảy tự động 3 giây một lần, tức là không phải bấm Enter nữa mà ô F2 cứ tự nhảy số thứ tự như bình thường, vì giá trị ô F2 ảnh hưởng đến các dữ liệu khác (rất dài), do đó bác nào biết cách làm thì chỉ giúp em với.

Em chân thành cảm ơn

Cho 2 sub này vào 1 module. Thay số 05 (5s) thành số nào bạn muốn

Sub AutoPressEnter()
SendKeys "{ENTER}"
[F2].Select
CallEnter
End Sub
Sub CallEnter()
On Error Resume Next
Application.OnTime Now + TimeValue("00:00:05"), "AutoPressEnter", , Sheets("ABC").CommandButton1.Caption = "STOP"
End Sub

Trên sheets("ABC") vẽ 1 cái commandbutton1 và cho code này vào. Thay ABC cho đúng tên sheet của bạn là được

Private Sub CommandButton1_Click()
With CommandButton1
    If .Caption <> "STOP" Then
        .Caption = "STOP"
        CallEnter
    Else
        .Caption = "RUN"
    End If
End With
End Sub

 

[hungatfc]

Rất cảm ơn bác, nhưng nói thật là em ko biết gì về VBA, Code PHP gì cả, cái code ở file của em đính kèm là em cũng đi lượm lặt thôi, nên bác Quanghai1969 có thể làm trực tiếp lên file của em rồi gửi lại, hoặc giới thiệu chi tiết cách làm bằng hình ảnh để em áp dụng lên file ứng dụng (khác) của em, em đọc bài của bác và mò lên mạng cách vẽ commandbutton1 mà chẳng hiểu gì.

Có gì bác hướng dẫn em nhé, em cảm ơn bác rất nhiều.

 

[Quang_Hải]

Rất cảm ơn bác, nhưng nói thật là em ko biết gì về VBA, Code PHP gì cả, cái code ở file của em đính kèm là em cũng đi lượm lặt thôi, nên bác Quanghai1969 có thể làm trực tiếp lên file của em rồi gửi lại, hoặc giới thiệu chi tiết cách làm bằng hình ảnh để em áp dụng lên file ứng dụng (khác) của em, em đọc bài của bác và mò lên mạng cách vẽ commandbutton1 mà chẳng hiểu gì.

Có gì bác hướng dẫn em nhé, em cảm ơn bác rất nhiều.

Làm sẵn hết trong file cho bạn, nhưng đừng kêu giải thích nhá. Mình cũng toàn copy trên diễn đàn về thôi.

 

[hungatfc]

Anh Quang Hải ơi, cho em xin mail cá nhân của anh, em gửi file của em cho anh sửa trên file thực luôn nhé, em dốt món này quá, em lò mò cả buổi tối mà ko được.

Cảm ơn anh nhiều nhé

 

[Quang_Hải]

Anh Quang Hải ơi, cho em xin mail cá nhân của anh, em gửi file của em cho anh sửa trên file thực luôn nhé, em dốt món này quá, em lò mò cả buổi tối mà ko được.

Cảm ơn anh nhiều nhé

Mình có mail nhưng không bao giờ check mail cả, quên mất pass rồi.
Có gì cần thì cứ gởi vào GPE sẽ có trăm người giúp

 

[hungatfc]

Chào anh Quanghai1969, em đã làm được theo hướng dẫn của anh rồi, rất ok, chỉ có một điều như thế này, để chạy nhanh hơn, em để thời gian là 0 giây trong phần code ấy, nhưng khi để 0 giây thì file excel nó chạy liên tục, em bấm stop ở commandbutton1 ko được, cuối cùng là phải Alt+ctrol+del để end task file excel, anh có cách nào khắc phục được vấn đề này không anh, giúp em với nhé, em chân thành cảm ơn anh.

 

[Quang_Hải]

Chào anh Quanghai1969, em đã làm được theo hướng dẫn của anh rồi, rất ok, chỉ có một điều như thế này, để chạy nhanh hơn, em để thời gian là 0 giây trong phần code ấy, nhưng khi để 0 giây thì file excel nó chạy liên tục, em bấm stop ở commandbutton1 ko được, cuối cùng là phải Alt+ctrol+del để end task file excel, anh có cách nào khắc phục được vấn đề này không anh, giúp em với nhé, em chân thành cảm ơn anh.

Cái quái gì cũng có cách. Muốn nhanh cho nhanh. Đừng nói nhanh quá nha

Private Sub CommandButton1_Click()
With CommandButton1
    If .Caption <> "STOP" Then
        .Caption = "STOP"
        Do While .Caption = "STOP"
         [F2] = [F2] + 1
         DoEvents
        Loop
    Else
        .Caption = "RUN"
    End If
End With
End Sub

 

[hungatfc]

Cảm ơn anh Quanghai1969 nhé, bác đúng là cao thủ excel, có một vấn đề này nữa, em hỏi một lần này nữa thôi, xong việc, nếu bác ở Hà Nội, em mời bác vài vại bia nhé, em ở Hà Đông, hihi. Em có gửi đính kèm file, bác xem và giúp em với nhé, mục đích là em để file ẽxcel tự động chạy mà mình ko phải "động chân động tay" vào:

Thứ nhất, dữ liệu ở cột F15:F30 là dữ liệu nhập bằng tay, F2 là tự động như bác đã hướng dẫn em rồi, còn J15 là kết quả như công thức, em muốn khi bấm "Run" nó tự động chạy và kết quả em muốn ở Bảng (I4:L9) nó tự động hiện kết quả theo hàm if(and..., như trong bảng em đang làm thì nó chạy không đúng ý, tức là khi f2=1 thì nó hiện kết quả ở I4 là 68, nhưng khi F2 = 2, thì I4 lại về 0, không còn kết quả là 68 nữa....

Mà kết quả em muốn là bảng (I4:L9) nó phải hiện đầy đủ theo thứ tự F2 lần lượt là 1, 2, 3....

Bác giúp em với nhé.
Chúc bác có nhiều comment bổ ích trong nhóm. Em cảm ơn bác.

 

[hungatfc]

Em gửi lại file lên đây nhé, bác QuangHai1969 giúp em với nhé, cảm ơn bác nhiều.

 

[Quang_Hải]

Em gửi lại file lên đây nhé, bác QuangHai1969 giúp em với nhé, cảm ơn bác nhiều.

Mình sẽ không tiếp tục tham gia bài này nữa, bạn vui lòng đợi thành viên khác giúp nha.

 

[hungatfc]

Huhu, bác giúp em lần nữa thôi, em cảm ơn bác nhé

 

[Ba Tê]

Huhu, bác giúp em lần nữa thôi, em cảm ơn bác nhé

Tôi cũng muốn "xía vào giúp" nhưng bạn nhờ:

Mà kết quả em muốn là bảng (I4:L9) nó phải hiện đầy đủ theo thứ tự F2 lần lượt là 1, 2, 3....

Vùng I4:L9 chỉ có 24 ô.
Ví dụ: F2=1, Bấm nút 1 phát nó chạy gần 500, như vậy thì ghi vào vùng I4:L9 những con số nào trong 1 lần bấm?
Ghi theo quy luật nào?
Mỗi lần bấm ghi 1 số?
Số bắt đầu khi chạy hay số khi bấm dừng?
Đầy hàng ngang rồi xuống hàng, hay đầy cột sang cột tiếp....
Nói chung là không hiểu nên khó mà giúp dù là "lần này nữa thôi"
------------------------
Quang Hải ơi chờ tui!

 

[Ngoai Thanh]

Huhu, bác giúp em lần nữa thôi, em cảm ơn bác nhé

Thấy 2 thày chạy, quăng vào một cái thử rồi chạy . Cứ enter hay nút mũi tên là nó chạy vòng vo tam quốc .

 

[hungatfc]

Tôi cũng muốn "xía vào giúp" nhưng bạn nhờ:

Vùng I4:L9 chỉ có 24 ô.
Ví dụ: F2=1, Bấm nút 1 phát nó chạy gần 500, như vậy thì ghi vào vùng I4:L9 những con số nào trong 1 lần bấm?
Ghi theo quy luật nào?
Mỗi lần bấm ghi 1 số?
Số bắt đầu khi chạy hay số khi bấm dừng?
Đầy hàng ngang rồi xuống hàng, hay đầy cột sang cột tiếp....
Nói chung là không hiểu nên khó mà giúp dù là "lần này nữa thôi"
------------------------
Quang Hải ơi chờ tui!

Bác Ba Tê ah,

File em up lên mà khi bấm vào commandbutton1 "Run" nó chạy tít mù ấy thực tế là em giới hạn từ 1- 1000 thôi (ô F2 ấy), vì là bác Quanghai1969 viết code, nên em vẫn để nguyên vậy.

Cái vùng I4:L9 trên đó chỉ có 24 ô, còn file làm việc thực tế của em là 1000 ô cơ.

Ý của em là khi em cho chạy commandbutton "Run" thì các giá trị nó chạy lần lượt từ 1 đến 1000, và tương ứng nó hiện kết quả ở từng ô trong vùng I4:L9 (vùng này em chỉ là thí dụ có 24 ô)., kết quả đó nó phải giữ nguyên chứ không phải là ô F2 thay đổi thì các ô trước đó mất đi.

Để hiểu hơn, bác Ba Tê không bấm vào Run mà bấm thủ công vào số lần lượt từ 1-24 vào trong F2, bác sẽ thấy, ví dụ em điền số 1 vào ô F2, rồi bấm Enter, ô I4 có kết quả là 68. Điền 2 vào F2, I5 cho kết quả là 69, nhưng ở ô I4 lại mất kết quả vừa nãy, Điền 3 vào F2 thì I6 cho kết quả là 70 nhưng I5 lại mất kết quả... Giờ em muốn là điền đến số 24 (tương ứng 24 ô) thì các ô trước đó vẫn còn kết quả chứ không mất đi.

Bác xem có giúp được em ko nhé, em cảm ơn

 

[hungatfc]

Thấy 2 thày chạy, quăng vào một cái thử rồi chạy . Cứ enter hay nút mũi tên là nó chạy vòng vo tam quốc .

Em đã xem file của bác, ý em ko phải là nó chạy tam quốc như thế, mà nó cứ chạy đều, nhưng các số ở vùng I4:L9 phải hiện hết lên chứ ko mất đi như thế.

 

[Ngoai Thanh]

Em đã xem file của bác, ý em ko phải là nó chạy tam quốc như thế, mà nó cứ chạy đều, nhưng các số ở vùng I4:L9 phải hiện hết lên chứ ko mất đi như thế.

Mình đã chuyển nó thành hàng dọc và không cho nó "Tam quốc" nữa . Muốn chạy từ đầu gõ vài ký tự vào A1, sau đó xóa F2 và xóa luôn A1 . sau đó ... chạy . Nếu không trúng ...thì mình cũng chạy .

 

[VetMini]

Sau một thời gian theo dõi các bài trên GPE, tôi đâm ra sợ bất cứ bài nào có các từ "tự động" và "không cần".
Chủ đề bài chỉ có ý tưởng chứ chưa hề biết qua kết quả, cho nên qua bước 1 mới thấy bước 2, xong bước 2 mới nhận ra là mình cũng cần bước 3, có bước 3 rồi thì quay lại thấy 1 như vậy là sai, và vòng vòng mãi.

 

[hungatfc]

Mình đã chuyển nó thành hàng dọc và không cho nó "Tam quốc" nữa . Muốn chạy từ đầu gõ vài ký tự vào A1, sau đó xóa F2 và xóa luôn A1 . sau đó ... chạy . Nếu không trúng ...thì mình cũng chạy .

Cảm ơn bác đã giúp đỡ, e đã gửi tin nhắn riêng vào trong hòm thư giaiphapexcel của bác, bác xem nhé, em chờ thông tin từ bác.

 

[Ngoai Thanh]

Cảm ơn bác đã giúp đỡ, e đã gửi tin nhắn riêng vào trong hòm thư giaiphapexcel của bác, bác xem nhé, em chờ thông tin từ bác.

Bạn là thanh viên mới nên mình nhắc, nếu các bạn và các thày giúp mình thì nên bấm nút cảm ơn , nếu thật cần thiết, viết cảm ơn thì tốt, nhưng bấm cảm ơn là được rồi . Nói lại là mình có thấy file thật của bạn đâu và chưa hiểu yêu cầu cụ thể .

 

[hungatfc]

Em cảm ơn anh chị đã giúp đỡ và hoàn chỉnh file này giúp em, em đã chạy một thời gian rất tốt. Giờ hoàn toàn có thể chạy file excel một cách tự động, đi ra ngoài thoải mái, mà máy tính vẫn làm việc bình thường. Tuy nhiên đúng là lòng tham vô đáy, đã tốt lại muốn tốt hơn. ví dụ trường hợp này, em đang cho chạy tự động F3 từ 1 đến 1000 (khi bấm start và khi dừng thì bấm stop). Giờ em muốn cho chạy thêm từ 1001 đến 4000 tương ứng thêm vùng GT4:ADU8, các bác giúp em với nhé.

 

[hungatfc]

Mình sẽ không tiếp tục tham gia bài này nữa, bạn vui lòng đợi thành viên khác giúp nha.

Gửi anh Quang Hải, sau khi các anh giúp em, em đã chạy một thời gian rất tốt. Giờ hoàn toàn có thể chạy file excel một cách tự động, đi ra ngoài thoải mái, mà máy tính vẫn làm việc bình thường. Tuy nhiên đúng là lòng tham vô đáy, đã tốt lại muốn tốt hơn. ví dụ trường hợp này, em đang cho chạy tự động F3 từ 1 đến 1000 (khi bấm start và khi dừng thì bấm stop). Giờ em muốn cho chạy thêm từ 1001 đến 4000 tương ứng thêm vùng GT4:ADU8, các anh giúp em với nhé.

 

[hungatfc]

Bác QuangHai1969 và bác H=Ngoai Thanh dạo này không lên mạng mấy đúng không ạ, nếu các bác lên, các bác giúp em với nhé!