Công cụ tự nghe đọc tiếng Anh bằng Excel. (1 người xem)

[be_09]

Nhằm tạo hứng thú trong việc nghe đọc bằng tiếng Anh, tôi đã làm 1 File Excel để tặng các bạn nào yêu thích tiếng Anh thì có cái mà dùng.

Cách thực hiện rất đơn giản, chỉ cần click vào 1 dòng trong ListBox, chữ sẽ hiện to trong TextBox cho dễ nhìn, xong nhấn nút Đọc và chờ cho nó đọc hết câu.

Lưu ý: Riêng Excel 2007 có thể không sử dụng được.

 

[batman1]

Nếu chỉ dùng Excel thì chắc chỉ là Speech.
Vd. đơn giản nhất, text tiếng Anh trong TextBox1

Private Sub CommandButton1_Click()
    Application.Speech.Speak TextBox1.Text
End Sub

Ngoài ra chỉ làm thêm các công việc thường ngày là nhập các câu vào ListBox, lấy từ ListBox vào TextBox, tức công việc hàng ngày vẫn làm. Rồi thêm mắm muối, mầu mè bắt mắt v...v

Code quan trọng chỉ 1 dòng.

Ai thử thì cũng nhập nhử vào TextBox: Anh dùng cơm với em nhé

 

[Đỗ Tú Anh]

Tôi đã làm 1 File Excel để tặng các bạn nào ham thích nghe đọc bằng tiếng Anh trong Excel.
Cách thực hiện rất đơn giản, chỉ cần click vào 1 dòng trong ListBox, chữ sẽ hiện to trong TextBox cho dễ nhìn, xong nhấn nút Đọc và chờ cho nó đọc hết câu.
Đang làm gần xong, tối nay tôi sẽ tải File lên. Mời các bạn tham khảo hình,
View attachment 190562

 

[be_09]

File nghe đọc bằng tiếng Anh trong Excel.

Đã chuyển File lên bài 1.

 

[Đỗ Tú Anh]

File nghe đọc bằng tiếng Anh trong Excel.
Bạn nào thích thì tải về dùng miễn phí.

 

[befaint]

File nghe đọc bằng tiếng Anh trong Excel

Bị lỗi này anh:
Run-time error '13':
Type mismatch

Sao anh không truyền luôn tbxHienChu.Value vào Speech mà phải gán xuống bảng tính? Chỗ này chưa rõ mục đích vì thấy Range("B2").ClearContents.

 

[be_09]

Bị lỗi này anh:
Run-time error '13':
Type mismatch

Sao anh không truyền luôn tbxHienChu.Value vào Speech mà phải gán xuống bảng tính? Chỗ này chưa rõ mục đích vì thấy Range("B2").ClearContents.

Đã xử lý lỗi, bạn kiểm tra lại giùm để các thành viên sử dụng được tốt hơn.
Đã chuyển File lên bài 1.

 

[befaint]

Đã xử lý lỗi, bạn kiểm tra lại giùm để các thành viên sử dụng được tốt hơn.

Vẫn lỗi trên đó anh.

 

[be_09]

Vẫn lỗi trên đó anh.

Tôi kiểm tra lại hết các nút nhưng không thấy phát sinh lỗi.
Vậy, bạn nêu lại các thao tác để tôi thử kiểm tra lại trên máy tôi nó thế nào?

 

[batman1]

Sao anh không truyền luôn tbxHienChu.Value vào Speech mà phải gán xuống bảng tính? Chỗ này chưa rõ mục đích vì thấy Range("B2").ClearContents.

Tôi cũng không hiểu dụng ý.

Private Sub cmdDocTiengAnh_Click()
Sheets("Hoc_Tieng_Anh").Range("B2").Value = tbxHienChu.Value
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
    Application.Calculate
    Application.Speech.Speak (Range("B2").Value)
End Sub

---------
Nếu bạn xóa

Private Sub Worksheet_Change(ByVal Target As Range)
    Application.Calculate
    Application.Speech.Speak (Range("B2").Value)
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range("B2").ClearContents
End Sub

và sửa Workbook_Open thành

Private Sub Workbook_Open()
    Application.Speech.SpeakCellOnEnter = True
End Sub

Thì mỗi khi bạn viết xong câu tiếng Anh trên sheet và nhấn Enter thì sẽ nghe thấy.
Tương tự trong tập tin đã có các câu tiếng Anh trên sheet. Nếu bạn đúp chuột vào ô nào đó ở cột B rồi nhấn Enter thì vd. ở máy tôi "Microsoft Sam" (CP -> Âm thanh, tiếng nói và các thiết bị audio -> Tiếng nói *. Mục chọn giọng của máy tôi chỉ có Microsoft Sam) sẽ đọc.

Nếu máy của bạn có nhiều giọng thì chọn giọng mình thích để mặc định. Vd. giọng nữ dễ thương chẳng hạn

Tức không cần Form gì cả mà đọc và nghe ngay trên sheet.
-----------
* đấy là trên máy XP của tôi

Với Windows 7 -> 10: nhấn nút Start -> trong trường Find nhập narrator -> trong danh sách hiện ra chọn change the narrator settings (đại loại thế - đây là google dịch từ tiếng Ba Lan sang tiếng Anh. Tôi không có Windows 10 tiếng Anh nên không biết chính xác).

Hoặc trong trường Find nhập narrator -> nhấn Enter để khởi động Narrator -> trong cửa sổ Narrator chọn mục voice (đại loại thế)

-> đọc cách dùng narrator trong system.

 

[nmhung49]

Trong Excel có chức năng speak cells nghe đọc tiếng Anh cũng tốt, các bạn có thể vào

 

[moctriet]

Em viết chơi cái play âm thanh, nhưng cũng share góp vui

 

[befaint]

Em viết chơi cái play âm thanh, nhưng cũng share góp vui

Có thêm cho Office 64 bit không?
"Start" rồi là khỏi "Stop" luôn...

 

[moctriet]

Có thêm cho Office 64 bit không?
"Start" rồi là khỏi "Stop" luôn...

^^ Cùng lắm em kill nó khỏi TaskManager luôn Em mới viết sáng nay cho bạn em, nên đang xài trên 32bit ạ.

 

[Quang_Hải]

Nhằm tạo hứng thú trong việc nghe đọc bằng tiếng Anh, tôi đã làm 1 File Excel để tặng các bạn nào yêu thích tiếng Anh thì có cái mà dùng.

Cách thực hiện rất đơn giản, chỉ cần click vào 1 dòng trong ListBox, chữ sẽ hiện to trong TextBox cho dễ nhìn, xong nhấn nút Đọc và chờ cho nó đọc hết câu.

Lưu ý: Riêng Excel 2007 có thể không sử dụng được.

View attachment 190594

Phải công nhận rằng dạo này code của anh Bé thâm hậu thiệt.
Mở rừng code ra xem bị rối loạn "triều đình" luôn

 

[Kiều Mạnh]

Em viết chơi cái play âm thanh, nhưng cũng share góp vui

Thử cái hết đường lùi ....cảm giác tiếng keo như gõ bàn phím cơ ấy

 

[moctriet]

Thử cái hết đường lùi ....cảm giác tiếng keo như gõ bàn phím cơ ấy

Em muốn nó bật nhanh hơn nhưng vì em đang dùng cơ chế bật > tắt > bật > tắt nên dưới 0.6s thì nó không nghe tiếng gõ được. Em tính dùng cách tạo một âm thanh có độ dài bằng thời lượng gõ số ký tự, khi code em chỉ gõ không thôi thì set dưới 0.5s thoải mái, nhưng có cái nó lại không ăn khớp tiếng gõ và hình ảnh text được gõ.

Nếu anh chị có biết API nào dùng được theo cơ chế nhanh hơn thì chia sẻ cho em tham khảo với ạ.

 

[ndu96081631]

Nếu anh chị có biết API nào dùng được theo cơ chế nhanh hơn thì chia sẻ cho em tham khảo với ạ.

Biết thì có biết đó nhưng mà liệu có liên quan gì đến chủ đề của topci này không

 

[batman1]

Em muốn nó bật nhanh hơn nhưng vì em đang dùng cơ chế bật > tắt > bật > tắt nên dưới 0.6s thì nó không nghe tiếng gõ được. Em tính dùng cách tạo một âm thanh có độ dài bằng thời lượng gõ số ký tự, khi code em chỉ gõ không thôi thì set dưới 0.5s thoải mái, nhưng có cái nó lại không ăn khớp tiếng gõ và hình ảnh text được gõ.

Nếu anh chị có biết API nào dùng được theo cơ chế nhanh hơn thì chia sẻ cho em tham khảo với ạ.

Tôi cũng từng viết chơi
http://www.giaiphapexcel.com/diendan/threads/nhờ-code-âm-thanh.76877/#post-472542

Sau đó viết cụ thể hơn nhưng không nhớ link. Tập tin đính kèm.

Bạn nhấn nút trên sheet -> Trên Form nhấn nút Open Media -> chọn 1 trong 2 bản nhạc của bạn.

Nếu bạn muốn phát lặp lại bản nhạc ngắn cũn cỡn của mình thì trước khi mở bản nhạc - nhấn Open Media - thì bạn phải đánh dấu CheckBox "Lặp lại". Như thế media chạy tới cuối thì lại phát từ đầu. Tức tiếng đánh máy liên tục.

Có thể chạy nhạc hoặc phim.

 

[moctriet]

Tôi cũng từng viết chơi
http://www.giaiphapexcel.com/diendan/threads/nhờ-code-âm-thanh.76877/#post-472542

Sau đó viết cụ thể hơn nhưng không nhớ link. Tập tin đính kèm.

Bạn nhấn nút trên sheet -> Trên Form nhấn nút Open Media -> chọn 1 trong 2 bản nhạc của bạn.

Nếu bạn muốn phát lặp lại bản nhạc ngắn cũn cỡi của mình thì trước khi mở bản nhạc - nhấn Open Media - thì bạn phải đánh dấu CheckBox "Lặp lại". Như thế media chạy tới cuối thì lại phát từ đầu. Tức tiếng đánh máy liên tục.

Có thể chạy nhạc hoặc phim.

Cảm ơn anh nhiều ạ. Em có dạy ngoại ngữ cho các bạn nên viết mấy cái này hỗ trợ học cho em và các bạn thôi ạ