Đưa kết quả ra màn hình Desktop

[mangat060083]

Xin chào các bác trên diễn đàn
Mình có thắc mắc này rất mong được các bác chỉ bảo.
Giả sử các ô:

A1 = 1;
B1 = 2
C1 = TỔNG
D1 = A1 + B1 = 3
Mình muốn kết quả ở ô D1 hoặc cả 2 ô là C1 và D1 ra ngoài màn hình Desktop thì làm thế nào vậy ak?
Khi mình thay đổi giá trị ô A1; B1 thì ngoài Desktop, giá trị ô D1 sẽ tự động thay đổi theo.
Hoặc các bác biết phần mềm nào giúp đưa kết quả ra ngoài màn hình desktop thì chỉ giúp mình với.
Chân thành cảm ơn

 

[LamNA]

Xin chào các bác trên diễn đàn
Mình có thắc mắc này rất mong được các bác chỉ bảo.
Giả sử các ô:

A1 = 1;
B1 = 2
C1 = TỔNG
D1 = A1 + B1 = 3
Mình muốn kết quả ở ô D1 hoặc cả 2 ô là C1 và D1 ra ngoài màn hình Desktop thì làm thế nào vậy ak?
Khi mình thay đổi giá trị ô A1; B1 thì ngoài Desktop, giá trị ô D1 sẽ tự động thay đổi theo.
Hoặc các bác biết phần mềm nào giúp đưa kết quả ra ngoài màn hình desktop thì chỉ giúp mình với.
Chân thành cảm ơn

Thì bạn mở file excel lên nhập liệu thì ô D1 tự động trên màn hình desktop nó tự động thay đổi kết quả thôi nó có biến mất đâu : ))

 

[HeSanbi]

Có ứng dụng Rainmeter và Ngôn ngữ lập trình Luajit (yêu cầu cài đặt Lua)
Có Userform và VBA
Có Rainmeter mở Text File và VBA save kết quả thành Text File

 

[mangat060083]

Có ứng dụng Rainmeter và Ngôn ngữ lập trình Luajit (yêu cầu cài đặt Lua)
Có Userform và VBA
Có Rainmeter mở Text File và VBA save kết quả thành Text File

Cảm ơn bác HeSanbi.
Nghe có ngôn ngữ lập trình thì mình đuối rồi.
Hy vọng có bác nào đó biết cách khác đơn giản hơn.

 

[huyyeu99]

Cảm ơn bác HeSanbi.
Nghe có ngôn ngữ lập trình thì mình đuối rồi.
Hy vọng có bác nào đó biết cách khác đơn giản hơn.

ý của bạn in ra màn hình Desktop là sao không hiểu

 

[mangat060083]

Thì bạn mở file excel lên nhập liệu thì ô D1 tự động trên màn hình desktop nó tự động thay đổi kết quả thôi nó có biến mất đâu : ))

Chơi vậy ai chơi bác heee

Bài đã được tự động gộp: 13/3/20

ý của bạn in ra màn hình Desktop là sao không hiểu

Ý mình là, kết quả ô C1 và D1 (Tổng 3) sẽ hiện lên trên màn hình Desktop, giống như biểu tượng icon hoặc 1 file ảnh vậy thôi.

 

[huyyeu99]

Chơi vậy ai chơi bác heee

Bài đã được tự động gộp: 13/3/20

Ý mình là, kết quả ô C1 và D1 (Tổng 3) sẽ hiện lên trên màn hình Desktop, giống như biểu tượng icon hoặc 1 file ảnh vậy thôi.

ban ví dụ chụp hình gời lên mình xem thử

 

[mangat060083]

ban ví dụ chụp hình gời lên mình xem thử

Bác xem 2 hình đính kèm nhé

 

[huyyeu99]

Rồi đợi các anh rành API hướng dẫn nhé

 

[mangat060083]

Rồi đợi các anh rành API hướng dẫn nhé

phần mềm API hay gì vậy bác
Mình có tìm hiểu phần mềm chạy chữ quảng cáo, nhưng mới thấy phải nạp kết quả vào (bằng usb hoặc wifi) thì nó mới ra kết quả, chứ mình nó ko tự cập nhật kết quả khi mình thay đổi phép tính.

Bài đã được tự động gộp: 13/3/20

ban ví dụ chụp hình gời lên mình xem thửView attachment 233241

Hi, bác Huyyeu99
những cái tiện ích trong excel sao bác có hay thế?
Có thể giới thiệu hoặc cho mình xin file cài đặt với được ko

 

[huyyeu99]

phần mềm API hay gì vậy bác
Mình có tìm hiểu phần mềm chạy chữ quảng cáo, nhưng mới thấy phải nạp kết quả vào (bằng usb hoặc wifi) thì nó mới ra kết quả, chứ mình nó ko tự cập nhật kết quả khi mình thay đổi phép tính.

Bài đã được tự động gộp: 13/3/20

Hi, bác Huyyeu99
những cái tiện ích trong excel sao bác có hay thế?
Có thể giới thiệu hoặc cho mình xin file cài đặt với được ko

Hàng chưa hoàn thiện còn lỗi nhiều nên không dám chia sẻ

 

[batman1]

Bác xem 2 hình đính kèm nhé

Bạn xem thử nhé. Mở tập tin và thay đổi A1 hoặc B1. Mỗi lần thay đổi A1 hoặc B1 thì ngoài Desktop cũng thay đổi.
-------
Thực ra chỉ cần tạo STATIC 1 lần thôi.

Sub CreateStatic(ByVal msg As String)
    If hStatic = 0 Then
        hStatic = CreateWindowExW(0, StrConv("Static", vbUnicode), "", WS_CHILD Or WS_VISIBLE, _
                             800, 50, 100, 40, FindWindowEx(0, 0, "Progman", vbNullString), 101, 0, ByVal 0)
    End If
    SendMessageW hStatic, WM_SETTEXT, 0, StrPtr(msg)
End Sub

 

[VetMini]

Cái nàyn chắc dùng để khi đang xem hình xxx, sếp đi ngang qua, click một cái, sếp tưởng là đang tính toán gì trọng đại lắm!

 

[batman1]

Cái nàyn chắc dùng để khi đang xem hình xxx, sếp đi ngang qua, click một cái, sếp tưởng là đang tính toán gì trọng đại lắm!

Bác nói tôi lại nhớ chuyện của thằng bạn.
Hôm đó tôi đến chơi, nó mở phim người trưởng thành ra 2 đứa xem. Vợ nó cùng cô bạn (tôi, vợ chồng nó và cô bạn đều là người Việt) ngồi ở phòng bên. Trỏ chuột đã đặt sẵn ở nút X của cửa sổ xem phim, chỉ click là đóng cửa sổ. Nó đã chực sẵn, nếu vợ hay cô bạn vào là click để đóng. Khổ nỗi là tới 1 đoạn tôi bảo nó dừng, nó đưa trỏ chuột xuống dưới để nhấn nút Pause. Đúng lúc ấy thì vợ nó cùng cô bạn vào đột ngột. Thằng bạn vội đưa chuột lên X nhưng do luống cuống , tay run nên không đưa đúng được vào nút X. Thực ra toàn những người đã ở rất lâu ở nước ngoài, chuyện ấy cũng thoáng. Chỉ là không muốn cho vợ biết. Cũng phải 24 năm rồi.

 

[VetMini]

Bác có biết ngày xưa, khi cái macintosh mới ra, gọi là Fat Mac thì có một phần mềm tên là Mac Playmate.
Chỉ là hoạt hình xxx thôi, nhưng nó rất vui, và có một cái nút gọi là "Panic", nhấn nút này thì cả màn hình hiện ra một cái bảng tính spreadsheet.
Bên PC (*) có một phần mềm tương tự, gọi là PC Playmate.

(*) lúc đó, IBM đưa ra cái máy gọi là PC (thường dùng intel 8088 hoặc 8086), và chạy hệ điều hành MS-DOS. Mãi về sau này mới có 286, 386 chạy Windows (cũng trên nền DOS) và sau đó mới Pentium và Windows thực sự.

 

[batman1]

Bác có biết ngày xưa, khi cái macintosh mới ra, gọi là Fat Mac thì có một phần mềm tên là Mac Playmate.
Chỉ là hoạt hình xxx thôi, nhưng nó rất vui, và có một cái nút gọi là "Panic", nhấn nút này thì cả màn hình hiện ra một cái bảng tính spreadsheet.
Bên PC (*) có một phần mềm tương tự, gọi là PC Playmate.

Cái này thì tôi không biết. Nhất là về macintosh thì không biết một tí gì.

 

[mangat060083]

Bạn xem thử nhé. Mở tập tin và thay đổi A1 hoặc B1. Mỗi lần thay đổi A1 hoặc B1 thì ngoài Desktop cũng thay đổi.
-------
Thực ra chỉ cần tạo STATIC 1 lần thôi.

Sub CreateStatic(ByVal msg As String)
    If hStatic = 0 Then
        hStatic = CreateWindowExW(0, StrConv("Static", vbUnicode), "", WS_CHILD Or WS_VISIBLE, _
                             800, 50, 100, 40, FindWindowEx(0, 0, "Progman", vbNullString), 101, 0, ByVal 0)
    End If
    SendMessageW hStatic, WM_SETTEXT, 0, StrPtr(msg)
End Sub

Cảm ơn bác Batman1 đã giúp đỡ.
Mình đã thấy kết quả hiện ra ngoài Desktop rồi.
Nhưng bác có thể chỉ giúp mình thêm tí nữa được không.
Mình muốn khi tắt file excel đi mà "Tổng 3" vẫn xuất hiện trên Desktop thì phải làm sao ak.
Và mình có thể trang trí (bôi đậm, đổi màu, thay đổi cỡ chữ) của "Tổng 3" được không ak.
Rất mong được bác chỉ giáo.
Chân thành cảm ơn.

 

[batman1]

Cảm ơn bác Batman1 đã giúp đỡ.
Mình đã thấy kết quả hiện ra ngoài Desktop rồi.
Nhưng bác có thể chỉ giúp mình thêm tí nữa được không.
Mình muốn khi tắt file excel đi mà "Tổng 3" vẫn xuất hiện trên Desktop thì phải làm sao ak.
Và mình có thể trang trí (bôi đậm, đổi màu, thay đổi cỡ chữ) của "Tổng 3" được không ak.
Rất mong được bác chỉ giáo.
Chân thành cảm ơn.

Tốt nhất bạn nên viết EXE trong VB6. chạy EXE thì hiển thị cửa sổ trên desktop. Cửa sổ phục vụ nhận thông điệp. Khi ô kết quả thay đổi giá trị thì code trong Excel sẽ gửi thông điệp riêng (WM_USER + xyz) + chuỗi cần hiển thị tới cửa sổ của EXE. Cửa sổ EXE có 1 Label, và khi cửa sổ nhận được thông điệp thì hiển thị chuỗi cung cấp bởi Excel khi gửi thông điệp trong Label.

Vì vấn đề của bạn không giúp ích gì cho nhiều người khác nên tôi không bỏ công ra làm cho bạn. Vì thực ra tôi làm chút chơi thôi.

Riêng về phông chữ, cỡ, đậm thì như code ở dưới. Riêng mầu thì không. Có thể tạo phông chữ nhưng mầu không là "thuộc tính" của phông chữ. Khi control cần vẽ (in chữ) thì nó sẽ chọn mầu tùy theo thiết lập vào device context thông qua việc gọi hàm SetTextColor. Code của tôi không qua tâm đến chuyện khi nào, thế nào control cần phải vẽ (PAINT). Code chỉ cung cấp chuỗi cho control của Windows. Còn khi nào, thế nào control được vẽ thì không quan tâm. Nếu bạn cần "rất nhiều" thì hãy viết code EXE. Lúc đó bạn có thể tự làm rất nhiều. Kể cả tự vẽ bằng Window API.

Chiều rộng được tính cho Tổng có max 9 chữ số.

 

[mangat060083]

Tốt nhất bạn nên viết EXE trong VB6. chạy EXE thì hiển thị cửa sổ trên desktop. Cửa sổ phục vụ nhận thông điệp. Khi ô kết quả thay đổi giá trị thì code trong Excel sẽ gửi thông điệp riêng (WM_USER + xyz) + chuỗi cần hiển thị tới cửa sổ của EXE. Cửa sổ EXE có 1 Label, và khi cửa sổ nhận được thông điệp thì hiển thị chuỗi cung cấp bởi Excel khi gửi thông điệp trong Label.

Vì vấn đề của bạn không giúp ích gì cho nhiều người khác nên tôi không bỏ công ra làm cho bạn. Vì thực ra tôi làm chút chơi thôi.

Riêng về phông chữ, cỡ, đậm thì như code ở dưới. Riêng mầu thì không. Có thể tạo phông chữ nhưng mầu không là "thuộc tính" của phông chữ. Khi control cần vẽ (in chữ) thì nó sẽ chọn mầu tùy theo thiết lập vào device context thông qua việc gọi hàm SetTextColor. Code của tôi không qua tâm đến chuyện khi nào, thế nào control cần phải vẽ (PAINT). Code chỉ cung cấp chuỗi cho control của Windows. Còn khi nào, thế nào control được vẽ thì không quan tâm. Nếu bạn cần "rất nhiều" thì hãy viết code EXE. Lúc đó bạn có thể tự làm rất nhiều. Kể cả tự vẽ bằng Window API.

Chiều rộng được tính cho Tổng có max 9 chữ số.

Dạ vâng.
Cái này đúng là em làm chỉ với ý tưởng cá nhân nên không có nhiều người sử dụng.
Cảm ơn bác Batman1 đã bỏ thời gian ra giúp đỡ em.
Chân thành cảm ơn ak.