Đố vui mừng sinh nhật GPE lần 5

Liên hệ QC

huuthang_bd

Chuyên gia GPE
Tham gia
10/9/08
Bài viết
8,708
Được thích
10,810
Donate (Momo)
Donate
Giới tính
Nam
Nghề nghiệp
Thợ đụng
Trong không khí rộn ràng mừng sinh nhật GPE lần 5 mình xin gửi một câu đố góp vui cho thêm phần sôi động.
Hãy tìm bí mật được giấu trong file đính kèm.
 

File đính kèm

  • GiaiPhapExcel.rar
    97.3 KB · Đọc: 288
Trong không khí rộn ràng mừng sinh nhật GPE lần 5 mình xin gửi một câu đố góp vui cho thêm phần sôi động.
Hãy tìm bí mật được giấu trong file đính kèm.
Cũng phải có 1 gợi ý gì đó chứ (chẳng hạn yêu cầu TÌM CÁI GÌ)
Chứ nhìn 1 đống số thế kia ---> Chẳng biết phương hướng là nơi mô
 
Cũng phải có 1 gợi ý gì đó chứ (chẳng hạn yêu cầu TÌM CÁI GÌ)
Chứ nhìn 1 đống số thế kia ---> Chẳng biết phương hướng là nơi mô
Vậy yêu cầu cụ thể là: Trong file có một cái Logo của GPE, hãy làm cho nó hiện ra.
webUpload
webUpload
LogoGPE.jpg

Gợi ý: Dùng Excel 2007 trở về sau mới tìm được.
 
Lần chỉnh sửa cuối:
Có giải thưởng gì không thắngbd
 
Thấy rồi, làm rất công phu!

TTP.
Nhanh vậy ta. Chắc tại gợi ý lộ quá -0-/.
Gợi ý: Dùng Excel 2007 trở về sau mới tìm được.
Có giải thưởng gì không thắngbd
Giải thưởng là 2 chai sữa bắp.
Lão chết tiệt còn nợ em hai chai sữa bắp giải khuyến khích cuộc thi vẽ biểu đồ. Lấy đắp qua đây --=0
 
Lần chỉnh sửa cuối:

File đính kèm

  • LogoGPE3.jpg
    LogoGPE3.jpg
    89.3 KB · Đọc: 150
Lần chỉnh sửa cuối:
Chỉnh màu lại là giống :)

View attachment 64291

Rinh 2 chai sửa bắp được chưa em :)

Em dùng PM nào mà ra được bộ số liệu đó vậy?
Chính xác. Anh qua gặp Lão Chết Tiệt lấy hai chai sữa bắp nha--=0
[video=youtube;RnM4HdOj0Yw]http://www.youtube.com/watch?v=RnM4HdOj0Yw[/video]
Em dùng PM nào mà ra được bộ số liệu đó vậy?
Em dùng Excel thôi.
PHP:
Private Type POINTAPI
        x As Long
        y As Long
End Type
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Private Declare Function GetPixel Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long) As Long
Private Declare Function GetWindowDC Lib "user32" (ByVal hwnd As Long) As Long
PHP:
Sub Scan()
    Dim Area As POINTAPI
    Dim lColor As String
    Dim winHwnd As Long
    Dim HoanhDo As Long, TungDo As Long
    winHwnd = GetWindowDC(0)
    Call GetCursorPos(Area)
    HoanhDo = Area.x
    TungDo = Area.y
    For i = 95 To TungDo
        For j = 29 To HoanhDo
            lColor = GetPixel(winHwnd, j, i)
            Sheet2.Cells(i - 94, j - 28).Value = lColor
        Next
    Next
End Sub
Lấy một cái hình trắng đen bỏ vào Sheet1, kết quả sẽ có ở Sheet2
Chỉnh các thông số i, j lại cho trùng với điểm ảnh đầu tiên của cái hình của mình.
Code sẽ quét từ điểm ảnh đó đến vị trí con chuột. Vì vậy nên trước khi chạy code anh đặt con chuột tại điểm ảnh cuối cùng của cái hình.
Sau khi có được số liệu thì em cộng trừ nhân chia để che mắt thôi, để nguyên bộ số liệu đó vẫn được.
Thay dòng
PHP:
Sheet2.Cells(i - 94, j - 28).Value = lColor
Bằng dòng
PHP:
Sheet2.Cells(i - 94, j - 28).Interior.Color = lColor
Anh sẽ có một bức ảnh trên Excel với mỗi ô là một điểm ảnh (Làm cái này thì có thể làm ảnh màu được)
 

File đính kèm

  • Scan Picture.rar
    16.8 KB · Đọc: 77
Lần chỉnh sửa cuối:
Bài này vừa gữi lên thì mình đã mường tượng đến Conditional Formating
Cho điều kiện A1>300, đã thấy có kết quả gần chính xác
Định thí nghiệm, vậy mà chậm tay mất rồi
(Hình của Phong đẹp quá đâm ra hết muốn làm... vì làm chưa chắc đã đẹp bằng)
 
Bài này vừa gữi lên thì mình đã mường tượng đến Conditional Formating
Cho điều kiện A1>300, đã thấy có kết quả gần chính xác
Định thí nghiệm, vậy mà chậm tay mất rồi
(Hình của Phong đẹp quá đâm ra hết muốn làm... vì làm chưa chắc đã đẹp bằng)
Có lẽ do cái logo đơn giản quá nên Anh dùng CF là thấy. Nếu hình có nhiều tông màu khác nhau thì khó mà thí nghiệm bằng CF với điều kiện thông thường được.
 
Em dùng Excel thôi.
PHP:
Private Type POINTAPI
        x As Long
        y As Long
End Type
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Private Declare Function GetPixel Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long) As Long
Private Declare Function GetWindowDC Lib "user32" (ByVal hwnd As Long) As Long
Mấy hàm API làm được rất nhiều trò đấy! Chẳng hạn là trò trong file dưới đây
- Mở file, bấm nút Show Form
- Ra chuột vào bất cứ cửa sổ nào, bất cứ vị trí nào (kể cả vị trí ngoài cửa sổ Excel) để lấy màu tại điểm ấy
- Bấm nút Enter trên bàn phím để ấn định
 

File đính kèm

  • ColorPicker_API_2.xls
    45.5 KB · Đọc: 68
Mấy hàm API làm được rất nhiều trò đấy! Chẳng hạn là trò trong file dưới đây
- Mở file, bấm nút Show Form
- Ra chuột vào bất cứ cửa sổ nào, bất cứ vị trí nào (kể cả vị trí ngoài cửa sổ Excel) để lấy màu tại điểm ấy
- Bấm nút Enter trên bàn phím để ấn định
Cái vụ scan hình này có nghe lâu rồi, giờ thấy HuuThang Và NDU làm mới thấy. Quá hay.
Nghe nói ngưới ta dùng hình thức này để viết mật mã. Không biết có đúng không. Còn phân tích màu từng điểm ảnh và chuyển thành mã thì nghe nói lâu rồi.
Cám ơn hai bạn nhiều.
 
Mấy hàm API làm được rất nhiều trò đấy! Chẳng hạn là trò trong file dưới đây
- Mở file, bấm nút Show Form
- Ra chuột vào bất cứ cửa sổ nào, bất cứ vị trí nào (kể cả vị trí ngoài cửa sổ Excel) để lấy màu tại điểm ấy
- Bấm nút Enter trên bàn phím để ấn định
Thì em cũng chế cái vụ scan này từ code lấy màu tại vị trí con trỏ chuột sưu tầm được mà --=0
 
Xin gửi tiếp đến các bạn một câu đố vui nữa.
Làm thế nào để tô được màu như thế này:
ToMau.JPG



Và như thế này:

QuocKy.JPG
 
Web KT
Back
Top Bottom