Xin giúp viết code tạo Vần ngẫu nhiên! (1 người xem)

Liên hệ QC

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

thienthanbe

Thành viên mới
Tham gia
27/10/08
Bài viết
43
Được thích
2
Chuyện là thế này, mình có cu con học lớp 3 rồi mà khả năng nhận biết vần khi đọc còn rất chậm, còn nhầm lẫn, minh muốn nhờ các bác viết hộ một form có nút bấm, khi bấm nút sẽ hiện lên 1 vần ngẫu nhiên có trong danh sách có sẵn để cháu đọc thành phản xạ. Rất cảm ơn các bác!!!Gấp lắm vì học kỳ 1 cháu đọc rất kém.
 
. . . Mình có cu lớp 3 rồi mà khả năng nhận biết vần khi đọc còn rất chậm, còn nhầm lẫn;
Minh nhờ các bác viết hộ một form có nút bấm, khi bấm nút sẽ hiện lên 1 vần ngẫu nhiên có trong danh sách có sẵn để cháu đọc thành phản xạ. Rất cảm ơn các bác!!!
Không nói chuyện gấp được vì bạn chưa đưa file - là danh sách các vần lên!
 
Upvote 0

File đính kèm

Upvote 0
SORRY, MÌNH CŨNG LÂU KHÔNG ĐỤNG ĐẾN VBA NÊN QUÊN SẠCH, CÁC BẠN GIÚP HỘ NHÉ
Làm ngắn gọn thế này:
- Vẽ 1 UserForm có 1 Label và 1 CommandButton
- Code như vầy thôi:
Mã:
Dim rngSource As Range
Private Sub CommandButton1_Click()
  Dim lR As Long, lCount As Long
  lCount = rngSource.Rows.Count
  lR = Int(lCount * Rnd) + 1
  Me.Label1.Caption = rngSource(lR)
End Sub
Private Sub UserForm_Initialize()
  Set rngSource = Sheet1.Range("A1", Sheet1.Range("A1000").End(xlUp))
  Randomize
  CommandButton1_Click
End Sub
 

File đính kèm

Upvote 0
SORRY, MÌNH CŨNG LÂU KHÔNG ĐỤNG ĐẾN VBA NÊN QUÊN SẠCH, CÁC BẠN GIÚP HỘ NHÉ
Ý MÌNH MUỐN LÀM TRONG VBA CHO SINH ĐỘNG TẠO HỨNG THÚ CHO CHÁU, VÀ CHO CHÁU TỰ BẤM CHUỘT TỰ HỌC BẠN Ạ
Bạn không nên viết bài với toàn bộ chữ viết là chữ in hoa nhé, vì điều này vi phạm nội quy của diễn đàn. Bạn nên điều chỉnh bài viết của bạn lại chữ in thường nhé.
 
Upvote 0
Random như code anh Du vẫn bị trùng
 
Upvote 0
Làm ngắn gọn thế này:
- Vẽ 1 UserForm có 1 Label và 1 CommandButton
- Code như vầy thôi:
Mã:
Dim rngSource As Range
Private Sub CommandButton1_Click()
  Dim lR As Long, lCount As Long
  lCount = rngSource.Rows.Count
  lR = Int(lCount * Rnd) + 1
  Me.Label1.Caption = rngSource(lR)
End Sub
Private Sub UserForm_Initialize()
  Set rngSource = Sheet1.Range("A1", Sheet1.Range("A1000").End(xlUp))
  Randomize
  CommandButton1_Click
End Sub
Bấm coi thấy cứ mắc cười chạy tới lui có mấy từ đó ................. ko biết họ làm cái chi ta ?
 
Upvote 0
Bấm coi thấy cứ mắc cười chạy tới lui có mấy từ đó ................. ko biết họ làm cái chi ta ?

Người ta dạy kèm con học mà. Cái danh sách nó sẽ được thay đổi, ví dụ hôm nay vần ac, ach, mai vần ốc, ếch. Tuy nhiên còn tuỳ theo chính tác giả có nhớ hết vần tiếng Việt.

Gọi là kích động để khích lệ trẻ ham học thì cũng là ý kiến hay. Nhưng học vần theo cách ngẫu nhiên như thế này tôi mới thấy lần đầu. Đứa trẻ nó thấy cái nào khó thì nó lướt qua thôi. Cái vần đâu có liên hệ đến cái gì hào hứng cho nó phải làm tới đâu?
Hầu hết các cách dạy đọc liên quan đến hình ảnh, động tác, hoặc câu chuyện.
 
Upvote 0
Chuyện là thế này, mình có cu con học lớp 3 rồi mà khả năng nhận biết vần khi đọc còn rất chậm, còn nhầm lẫn, minh muốn nhờ các bác viết hộ một form có nút bấm, khi bấm nút sẽ hiện lên 1 vần ngẫu nhiên có trong danh sách có sẵn để cháu đọc thành phản xạ. Rất cảm ơn các bác!!!Gấp lắm vì học kỳ 1 cháu đọc rất kém.
Bạn tham khảo thử File này, ở Link sau:

http://www.giaiphapexcel.com/diendan/threads/học-mà-chơi-với-hình-ảnh.132918/

Mở Excel và nhấn vào cái hình nó hiện ra cái Form, nhấn vào nút Xem hình để hiện hình và chữ ngẫu nhiên.
 
Lần chỉnh sửa cuối:
Upvote 0
Chuyện là thế này, mình có cu con học lớp 3 rồi mà khả năng nhận biết vần khi đọc còn rất chậm, còn nhầm lẫn, minh muốn nhờ các bác viết hộ một form có nút bấm, khi bấm nút sẽ hiện lên 1 vần ngẫu nhiên có trong danh sách có sẵn để cháu đọc thành phản xạ. Rất cảm ơn các bác!!!Gấp lắm vì học kỳ 1 cháu đọc rất kém.
Con của mình học lớp 1. nhưng nếu để bé học vần theo trong sách thì bé cứ thuộc lòng chứ không nhớ vần. Thấy cách học như thế không ổn nên mình cũng suy nghĩ là sẽ cho bé học vần bằng cách thay đổi vần, chữ.
Mình tìm trên internet thấy có cái này :
áp dụng cho con của mình thì thấy có kết quả tốt.
Còn về từ hoặc vần thì chịu khó tìm những từ, những chữ có liên quan rồi nhập vào . Mỗi ngày cho bé tự học khoảng 15-20 phút là bé tiến bộ ngay.
Bạn áp dụng thử xem sao
 
Upvote 0
Góp vui cái tool nhỏ đầu tiên em vọc :)
 

File đính kèm

  • 2018-01-19_075156.png
    2018-01-19_075156.png
    117.3 KB · Đọc: 12
Lần chỉnh sửa cuối:
Upvote 0
Con của mình học lớp 1. nhưng nếu để bé học vần theo trong sách thì bé cứ thuộc lòng chứ không nhớ vần. Thấy cách học như thế không ổn nên mình cũng suy nghĩ là sẽ cho bé học vần bằng cách thay đổi vần, chữ.

Lý do tại sao không ổn?
Những trẻ học và thuộc lòng dễ dàng là do có đầu óc chuyên về ngôn ngữ và/hoặc nghệ thuật.
Theo đúng thì bậc cha mẹ có nhiệm vụ dẫn dắt trẻ phát triển theo khả năng bản thân chứ sao lại dẫn dắt theo xu hướng xã hội.
 
Upvote 0
Web KT

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

Back
Top Bottom