Kết quả tìm kiếm

Liên hệ QC
  1. anhtuan1066

    Giúp code tìm vị trí hàng của 1 chuỗi trong 1 vùng

    Ngứa nghề ghê! Cách đây 15 năm tôi đã làm được trò này. Quan trọng hơn là tôi tự nghĩ ra bài toán rồi tự giải chứ không "tham khảo" bất kỳ ai. Sau đó thừa thắng xông lên, tôi làm luôn bộ chuyển tốc độ cho cái quạt chỉ bằng 1 nút: nhấn cái quạt chạy số 1; nhấn cái nữa quạt chạy số 2; nhấn tiếp...
  2. anhtuan1066

    Nhờ thiết kế form hiện thông tin và hình ảnh nhân viên sau khi click vào tên trên sheet

    Mấy cái hình ở đâu Tùng ơi? Ý mình muốn thấy cách bố trí của hình ảnh đấy
  3. anhtuan1066

    Bài viết: Tạo ứng dụng form hổ trợ tìm kiếm và nhập liệu

    Trước đây tôi có làm 1 form hổ trợ tìm kiếm và nhập liệu. Việc tìm kiếm thì dùng AutoFilter, còn sort dữ liệu trên ListBox thì đương nhiên dùng chức năng Sort sẳn có của Excel để làm: Sort trên bảng tính, xong gán dữ liệu từ bảng tính vào ListBox Cảm thấy cách làm đó tuy đơn giản nhưng không...
  4. anhtuan1066

    Bài viết: Dùng Macro 4 để lấy dữ liệu từ 1 file đang đóng

    Loại bài toán này đã từng được nói rất nhiều lần trên diễn đàn rồi. Hầu hết người ta dùng 2 cách: Cách 1: Mở file để lấy dữ liệu rồi đóng file lại Cách 2: Dùng ADO (không thấy mở file nhưng vẫn có mở ngầm) Hôm nay xin giới thiệu với bạn 1 cách cực kỳ đơn giản (tự các bạn xây dựng). Bẳng cách...
  5. anhtuan1066

    Đố vui về VBA!

    Có một câu hỏi nhỏ dành cho các bạn mới bắt đầu với VBA thế này: Các bạn hãy mở một workbook mới, chèn code dưới đây vào Thisworkbook Private Sub Workbook_SheetActivate(ByVal Sh As Object) MsgBox "Tên sheet là: '" & Sh.Name & "'" End Sub Đây là sự kiện SheetActivate, mỗi khi chọn vào một...
  6. anhtuan1066

    Đố vui về VBA!

    Comment ẩn trên bảng tính? Có một cái comment ẩn trong file đính kèm dưới đây. Đố các bạn tìm ra được nó
  7. anhtuan1066

    Giải trí với Excel

    Lâu lắm mới quay lại chủ đề này. Hôm nay tôi có một tình huống: - Trên 1 sheet, tôi có 2 bảng: 1 bảng nằm ở A1:D10 và 1 bảng nằm ở H11:K20 - Tôi quét chọn A1:D10 rồi thực hiện AutoFilter - Tôi tiếp tục quét chọn H11:K20 rồi lại thực hiện AutoFilter thì tôi thấy AutoFilter bị hủy ngay lập tức...
  8. anhtuan1066

    Đánh lừa thị giác

    Hiệu ứng 3D Hãy xem đoạn video clip dưới đây: http://www.youtube.com/watch?v=VFgmp7ReJyM&feature=youtu.be Đoán xem người ta tạo ra cái hình khối chuyển động trong đó bằng cách nào Mời xem file và code để biết thêm chi tiết (tuy chỉ là giải trí chơi nhưng nếu các bạn xem code, có thể ứng dụng...
  9. anhtuan1066

    Đánh lừa thị giác

    Tiếp tục chủ đề này, xin mời các bạn tải file đính kèm dưới đây về máy. Mở file và bấm nút Start. Trong lúc cái lưới màu xanh đang quay, các bạn hãy nhìn chăm chú vào điểm màu đỏ nằm ở trung tâm... Một lát sau các bạn sẽ có cảm giác 3 điểm màu vàng dường như biến mất
  10. anhtuan1066

    Đánh lừa thị giác

    Đầu tiên xin mời các bạn xem đoạn video dưới đây: http://www.youtube.com/watch?v=VxZP-sZPvwI&feature=youtu.be Hãy đoán xem nhưng thanh đỏ đỏ đang di chuyển là hình gì? Nếu không đoán được, xin mời tải file đính kèm dưới đây về, mở lên rồi bấm nút Start và đoán tiếp... Nếu vẫn không đoán ra...
  11. anhtuan1066

    Đố vui về VBA!

    Hiển thị tiếng Việt Unicode trên ComboBox (trên sheet) Với ComboBox trên Sheet (hay ActiveX controls nói chung) thì việc hiển thị tiếng Việt Unicode thật sự có vấn đề: - Khi ta bấm mũi tên xổ xuống của ComboBox, ta nhìn thấy tiếng Việt Unicode hiển thị rất tốt: - Nhưng ngay...
  12. anhtuan1066

    Đố vui về VBA!

    Thì mình có thể thử: - Vẽ CheckBox v2 OptionButton (ActiveX Controls) lên Sheet1 - Check sẳn vào CheckBox và OptionButon - Mở cửa sổ Immediate, gõ lệnh: Sheet1.CheckBox1.Value = False rồi Enter và xem kết quả - Tiếp tục gõ: Sheet1.OptionButton1.Value = False rồi Enter và xem kết quả - Bây giờ...
  13. anhtuan1066

    Đố vui về VBA!

    Giá trị FALSE và 0 có sự khác biệt Khi ta mở cửa sổ Immediate, gõ code: ?FALSE = 0 rồi Enter, ta nhận được kết quả là True. Chứng tỏ giá trị FALSE luôn = 0 Tuy nhiên, trong một số trường hợp nào đó đối với biến Object thì FALSE chưa chắc giống với số 0 Đại khái khi ta dùng một property của...
  14. anhtuan1066

    Thêm 1 dạng PicForm

    Lỗi này chỉ có thể có khi: Bạn chạy trực tiếp sub trên bằng cách Alt + F8 để chọn Sub thay vì click vào hình Còn lại, Application.Caller chẳng liên quan gì đến version của office cả (Excel 2003 cũng dùng được)
  15. anhtuan1066

    Thêm 1 dạng PicForm

    Tức là bạn muốn khi bấm nút Select Folder thì ảnh chèn luôn? Vậy sửa SelectFolder thành: Sub SelectFolder() Dim arr, vFolder, pic, Target As Range Dim lR As Long Dim PicPath As String On Error Resume Next vFolder = CreateObject("Shell.Application").BrowseForFolder(0, "", 1).Self.Path...
  16. anhtuan1066

    Thêm 1 dạng PicForm

    Quên dặn bạn: - Đừng bấm Alt + F8, chọn Sub để chạy gì cả - Code được thiết kế tự động hóa hoàn toàn: Click chuột vào hình sẽ phóng to, click lần nữa sẽ thu nhỏ. Hoặc ta click chuột ra khỏi hình (chọn 1 cell nào đó) thì hình cũng sẽ được reset - Khi chon Validation, nếu đường dẫn tại cell F1...
  17. anhtuan1066

    Thêm 1 dạng PicForm

    Yêu cầu của bạn nếu làm thật kỹ cũng không phải dễ dàng gì Bạn xem file đính kèm và test thử nha (code quá trời luôn!)
  18. anhtuan1066

    Thêm 1 dạng PicForm

    Bạn cho toàn bộ code này vào sheet nhé: Private Sub Worksheet_Change(ByVal Target As Range) Dim pic As Picture On Error Resume Next If Not Intersect(Range("B5:B10"), Target) Is Nothing Then If Target.Count = 1 Then With Target.Parent .Pictures(Target.Address).Delete...
  19. anhtuan1066

    Giải trí với Excel

    Lâu quá không viết bài cho topic này. Hôm nay trở lại với 1 câu hỏi nhò: - Mở 1 bảng tính mới - Gõ chữ Q1 vào cell A1 - Kéo fill A1 xuống đến A10 ----------- Nếu các bạn chỉ đọc câu hỏi mà không làm trực tiếp trên Excel thì có thể đoán xem cell A10 có kết quả bằng bao nhiêu không?
  20. anhtuan1066

    Đố vui về VBA!

    File B.xls phải có khả năng chạy độc lập chứ Thắng Tức là: Chạy code từ file A.xls xong, đóng file A.xls lại, mở file B.xls lên thì lập tức sự kiện Change sẽ có tác dụng (tại cell A1) --------------- Mình nói thêm về câu đố trên: Các bạn chèn code theo bất cứ kiểu gì (không nhất thiết là...

Group

DIỄN ĐÀN GIẢI PHÁP EXCEL
Back
Top Bottom