Giải trí với Excel (1 người xem)

[anhtuan1066]

đèn giao thông bằng excel

Hôm nay vừa dạy các "đệ tử" về mạch điện đèn giao thông, bổng nhiên nghĩ ko biết Excel có làm được điều này ko?
Thế là bắt tay vào thử nghiệm, cuối cùng cũng tạm xong!... Quan trọng là dùng công thức (ko có tí code nào)
Các bạn mở file này, bấm F9 để thấy sự thay đổi của đèn (4 giây chuyển từ đèn này sang đèn khác)
He... he...
(Các bạn hãy cải tiến thêm nếu có khiếu thẩm mỹ)

 

[thanhxt2009]

Hôm nay vừa dạy các "đệ tử" về mạch điện đèn giao thông, bổng nhiên nghĩ ko biết Excel có làm được điều này ko?
Thế là bắt tay vào thử nghiệm, cuối cùng cũng tạm xong!... Quan trọng là dùng công thức (ko có tí code nào)
Các bạn mở file này, bấm F9 để thấy sự thay đổi của đèn (4 giây chuyển từ đèn này sang đèn khác)
He... he...
(Các bạn hãy cải tiến thêm nếu có khiếu thẩm mỹ)

Quả đây là một siêu cao thủ không thua kém gì cao thủ NDU đâu.
Bạn làm thế nào vậy? Có thể hướng dẫn cho mình mở rộng tầm hiểu biết không?
Cám ơn nhiều!!!

 

[anhtuan1066]

Quả đây là một siêu cao thủ không thua kém gì cao thủ NDU đâu.
Bạn làm thế nào vậy? Có thể hướng dẫn cho mình mở rộng tầm hiểu biết không?
Cám ơn nhiều!!!

Toàn bộ thuật toán nằm trong Define name và sheet ẩn... Vào đó xem sẽ hiểu liền
He... he...

 

[TrungChinhs]

Toàn bộ thuật toán nằm trong Define name và sheet ẩn... Vào đó xem sẽ hiểu liền
He... he...

Trong Define name có thấy gì đâu hay là Name ẩn. Nếu Name ẩn thì xem thế nào ?

 

[anhtuan1066]

Công thức ở đâu mà tôi tìm không thấy ?

Anh xem bài #43... Anh dùng bất cứ cách nào (VBA cũng được), miển sao có thể hiện được name và sheet ẩn là xong!
Đúng ra định hiện name, nhưng ẩn vậy thì các bạn lại có thêm 1 bài học về virus, xóa hết name rồi chưa chắc đã hết
Ha... ha...

 

[thanhxt2009]

Toàn bộ thuật toán nằm trong Define name và sheet ẩn... Vào đó xem sẽ hiểu liền
He... he...

Như mà làm sao để xem được Define name và sheet ẩn?
Mình tìm hoài không thấy?

 

[anhtuan1066]

Như mà làm sao để xem được Define name và sheet ẩn?
Mình tìm hoài không thấy?

1> Mở sheet ẩn
Bạn bấm Alt + F11 để vào cửa sổ VBE sẽ thấy sheet ẩn tên PicStore, chọn vào nó và làm giống như hình:

2> Để hiện các name ẩn, bạn chạy code này:

Sub Test()
  Dim N As Name
  On Error Resume Next
  For Each N In ThisWorkbook.Names
    N.Visible = True
  Next
End Sub

 

[anhtuan1066]

Tôi cải tiến thêm 1 bước: File trước có 7 name, giờ rút gọn thành 2 name
Hãy xem file mới này (tôi đã cho hiện name và sheet ẩn)
(Công nhận lập trình PLC và VBA có rất nhiều điểm tương đồng)

 

[anhtuan1066]

Đèn chạy đuổi nhau trên Excel

Và đây là mạch đèn chạy đuổi nhau trên bảng tính Excel.
File này dựa vào 1 tính năng rất hay của Excel (circular, tham chiếu vòng), Mời tham khảo

Lưu ý quan trọng: hãy đóng hết tất cả các file Excel đang mở trước khi mở file này!

 

[anhtuan1066]

Chức năng "Create List" bị ẩn

Có khi nào bạn nhìn thấy chức năng Create List lại bị "mờ" như thế này không?

(đương nhiên trong file ta không dùng VBA để điều khiển ẩn chức năng này)

 

[anhtuan1066]

Mũi tên xổ xuống của validation bị biến mất

Có ai từng gặp tình trạng này không: File có 2 sheet, Validation list trên 1 sheet hoạt động bình thường, còn sheet kia thì dù có chỉnh sửa thế nào, mũi tên của Validation list cũng không xuất hiện
Các bạn hãy xem file đính kèm và cho biết:
- Cách phục hồi mũi tên của Validation list
- Liệu các bạn có thể "tái hiện" lại lổi trên trong 1 file mới hay không?

 

[anhtuan1066]

Hình như chưa ai bị sự cố này nên không thấy quan tâm nhỉ? (Tôi nhớ không lầm thì đã lâu lắm rồi có 1 bạn hỏi vấn đề này trên GPE mà chưa ai giải quyết được!)
Không biết 1 ngày nào đó các bạn gặp 1 file như thế, các bạn sẽ xử lý ra sao? Gõ lại toàn bộ chăng?
Các bạn hãy thử xem, cố gắng bằng mọi cách (kể cả dùng google hổ trợ), sẽ có lợi cho các bạn, ít nhất là về mặt nâng cao kiến thức!
ANH TUẤN

 

[chucuoi92]

Hình như chưa ai bị sự cố này nên không thấy quan tâm nhỉ? (Tôi nhớ không lầm thì đã lâu lắm rồi có 1 bạn hỏi vấn đề này trên GPE mà chưa ai giải quyết được!)
Không biết 1 ngày nào đó các bạn gặp 1 file như thế, các bạn sẽ xử lý ra sao? Gõ lại toàn bộ chăng?
Các bạn hãy thử xem, cố gắng bằng mọi cách (kể cả dùng google hổ trợ), sẽ có lợi cho các bạn, ít nhất là về mặt nâng cao kiến thức!
ANH TUẤN

Em tao một sheet mới từ sheet1 thì thấy trở lại bình thường- đó có là cách khắc phục không?

 

[anhtuan1066]

Em tao một sheet mới từ sheet1 thì thấy trở lại bình thường- đó có là cách khắc phục không?

Tạo sheet mới từ sheet1 nghĩa là sao hả bạn? Bạn gõ lại mọi thứ à?

 

[rollover79]

Có ai từng gặp tình trạng này không: File có 2 sheet, Validation list trên 1 sheet hoạt động bình thường, còn sheet kia thì dù có chỉnh sửa thế nào, mũi tên của Validation list cũng không xuất hiện
Các bạn hãy xem file đính kèm và cho biết:
- Cách phục hồi mũi tên của Validation list
- Liệu các bạn có thể "tái hiện" lại lổi trên trong 1 file mới hay không?

- Cách khắc phục có thể dùng cách sau: Từ excel, dùng chức năng Open để mở file này, trong hộp thoại Open click vào mũi tên ở cạnh nút Open và chọn Open and repair....
- Tái hiện có thể dùng cách sau: Tạo validation cho 1 ô bất kỳ ở Sheet1, sau đó chạy đoạn code này:

    For Each obj In Sheet1.Shapes
        obj.Delete
    Next

Không biết có đúng ý tác giả hay không???

 

[chucuoi92]

Tạo sheet mới từ sheet1 nghĩa là sao hả bạn? Bạn gõ lại mọi thứ à?

Không phải thế mà chỉ cần nhấn giữ phim Ctrl và dùng chuột kéo thả sheet1 sang bên thì được một sheet mới "sheet1(2)" có dữ liệu của sheet1. Chắc anh không lạ gì cách này.(em có phải con bò đâu mà gõ lại hết dữ liệu)

 

[Hoàng Trọng Nghĩa]

- Cách khắc phục có thể dùng cách sau: Từ excel, dùng chức năng Open để mở file này, trong hộp thoại Open click vào mũi tên ở cạnh nút Open và chọn Open and repair....
- Tái hiện có thể dùng cách sau: Tạo validation cho 1 ô bất kỳ ở Sheet1, sau đó chạy đoạn code này:

    For Each obj In Sheet1.Shapes
        obj.Delete
    Next

Không biết có đúng ý tác giả hay không???

Tôi đã thử cách của bạn, nhưng hình như cái List nó vẫn cứ trơ trơ, không thể nào tạo cại dropdown bạn ạ! Thử cách khác xem! Còn nếu Repair hoàn toàn thì xem như nó tạo workbook mới rồi, chỉ chép lại value mà thôi ----> Không phải cái cần khắc phục trong sheet1.

Không phải thế mà chỉ cần nhấn giữ phim Ctrl và dùng chuột kéo thả sheet1 sang bên thì được một sheet mới "sheet1(2)" có dữ liệu của sheet1. Chắc anh không lạ gì cách này.(em có phải con bò đâu mà gõ lại hết dữ liệu)

Bạn cần phải coi kỹ lại đề tài của tác giả! Đây là câu hỏi đố để cùng nhau giải phần lỗi, nếu bỏ sheet1 thì nói làm gì nữa hả bạn, bởi vì sheet2 cũng bình thường, vấn đề là làm sao khắc phục được lỗi!
Thầy Anh Tuấn mà hỏi đố thì hơi bị khó giải đấy, nhưng rất chất lượng!

 

[rollover79]

Tôi đã thử cách của bạn, nhưng hình như cái List nó vẫn cứ trơ trơ, không thể nào tạo cại dropdown bạn ạ! Thử cách khác xem! Còn nếu Repair hoàn toàn thì xem như nó tạo workbook mới rồi, chỉ chép lại value mà thôi ----> Không phải cái cần khắc phục trong sheet1.

Vấn đề này chỉ cần select all sheet1, copy sang sheet khác là ok rồi. Nhưng làm cách này thì chỉ có thể copy được value và format, còn trường hợp các công thức từ các sheet khác có tham chiếu đến sheet1 sẽ bị hỏng, nên repair khác với chép value là vậy bạn ạ, và tôi nghĩ cái quan trọng hơn ở đây là nguyên nhân gây ra lỗi, bạn xem cách tôi tạo ra lỗi thì sẽ biết rõ nguyên nhân, ở đây là khi ta tạo validation thì excel sẽ tạo ra 1 control tương ứng để quản lý ẩn hiện khi cần thiết(comment cũng tương tự), sau khi tạo ra mà ta xóa nó đi thì nó sẽ không có đâu nữa để hiện. Vậy bạn hãy tìm cách nào đó để khôi phục lại control đó là ok thôi, và cách đơn giản nhất theo tôi là Repair.
To Chu.cuoi92: Nhấn Ctrl rồi click kéo để copy sheet đâu có được bạn.

 

[Ếch Xanh]

Vấn đề này chỉ cần select all sheet1, copy sang sheet khác là ok rồi. Nhưng làm cách này thì chỉ có thể copy được value và format, còn trường hợp các công thức từ các sheet khác có tham chiếu đến sheet1 sẽ bị hỏng, nên repair khác với chép value là vậy bạn ạ, và tôi nghĩ cái quan trọng hơn ở đây là nguyên nhân gây ra lỗi, bạn xem cách tôi tạo ra lỗi thì sẽ biết rõ nguyên nhân, ở đây là khi ta tạo validation thì excel sẽ tạo ra 1 control tương ứng để quản lý ẩn hiện khi cần thiết(comment cũng tương tự), sau khi tạo ra mà ta xóa nó đi thì nó sẽ không có đâu nữa để hiện. Vậy bạn hãy tìm cách nào đó để khôi phục lại control đó là ok thôi, và cách đơn giản nhất theo tôi là Repair.
To Chu.cuoi92: Nhấn Ctrl rồi click kéo để copy sheet đâu có được bạn.

Được chứ bạn! Nắm chuột vào tab Sheet1, giữ Ctrl rồi kéo sang bên phải là có ngay một sheet mới tên là Sheet 1(2)

 

[rollover79]

Được chứ bạn! Nắm chuột vào tab Sheet1, giữ Ctrl rồi kéo sang bên phải là có ngay một sheet mới tên là Sheet 1(2)

Nhưng Sheet 1(2) này khi tạo Validation có mũi tên hiển thị không bạn? Tôi làm thì thấy nó vấn giống Sheet 1 chứ có khác gì đâu, trừ khi select all rồi copy sang 1 Sheet mới hoàn toàn.