Dan từ Wauconda đã đặt ra câu hỏi về Excel của tuần này.
Tôi có một trang tính Excel tính toán một giá trị. Nếu giá trị ô> 100, tôi cần phát tệp midi.
Mẹo này sử dụng các trình xử lý sự kiện được thảo luận tại đây vào ngày 23 tháng 12. Nếu bạn không quen với trình xử lý sự kiện, vui lòng xem lại mẹo đó trước.
Bước đầu tiên là dán một bản sao của tệp MIDI vào một vị trí khác trên trang tính của bạn.
- Mở trình phát media WIN95. Chương trình> Phụ kiện> Đa phương tiện
- Mở tệp midi đã chọn trong trình phát media.
- Trong trình phát đa phương tiện, hãy chọn Chỉnh sửa, sau đó chọn Sao chép đối tượng.
- Trong Excel, hãy tìm một vị trí khác. Trong ví dụ này, tôi đang chọn Sheet1 Cell Z99. Nhấp vào đây và sau đó nhấn Chỉnh sửa> Dán
- Nhìn vào hộp tên trong Excel. Trong hộp tên, nó sẽ đặt tên cho tệp midi. Của tôi được gọi là Đối tượng 1.
Macro VBA để phát tệp midi đó là:
Sub Playit() ActiveSheet.Shapes("Object 1").Select Selection.Verb Verb:=xlPrimary End SubTùy thuộc vào việc bạn có Excel 97 hay Excel 95 / 7.0, bạn sẽ sử dụng trình xử lý sự kiện thích hợp để gọi mã trên. Đây là một ví dụ cho Excel 97. Giả sử nếu một giá trị mới được nhập vào ô A1, bạn muốn kiểm tra xem ô được tính toán trong A2 có> 100 hay không. Trình xử lý sự kiện như sau:
Mở Trình soạn thảo Visual Basic. Trong cửa sổ bên trái, nhấp chuột phải vào Sheet1 và chọn Mã Chế độ xem. Ở đầu hộp thoại Book1 - Sheet1 Code, có hai danh sách thả xuống. Từ menu thả xuống bên trái, chọn Trang tính. Từ menu thả xuống bên phải, chọn Thay đổi. Nhập các dòng mã sau:
Private Sub Worksheet_Change(ByVal Target As Excel.Range) If Target.Address = "$A$1" Then If Range("A2")> 100 Then ActiveSheet.Shapes("Object 1").Select Selection.Verb Verb:=xlPrimary End If End If End Sub
