Xin chỉ giáo VBA code để chép IP của máy tính vào ô A1

[leorio.1989]

Kính chào các bác, đã lâu em mới quay lại diễn đàn, hôm nay em có 1 bài toán mà tìm trên google mãi không giải được, kính mong các bác chỉ dẫn giúp.
Đó là em có 1 File Excel, muốn ghi IP của máy tính sử dụng vào ô A1 (hoặc bất kỳ ô nào khác có thể tùy biến) để khi in dữ liệu ra sẽ ghi lại dải IP này (Lúc này em sẽ biết dữ liệu được in ra từ máy tính nào)
Xin chân thành cảm ơn các bác.

Ví dụ IP máy tính của em là 192.168.1.14 thì VBA sẽ tự chạy để ghi lại cái IP này ở ô A1
Khi em chuyển File sang máy tính xách tay để in thì IP của em sẽ là 192.168.1.22, lúc này VBA sẽ tự chạy để ghi lại dải IP đó vẫn ở ô A1.

Các bác giải được cho em xin luôn File Excel để em nghiên cứu ạ.

Đội ơn các bác !
Trân trọng !

 

[HUONGHCKT]

Bác ơi không được bác ạ. Em chuyển File sang máy khác code nó không tự nhận dải IP, vẫn phải vào Ctrl+F11 để ấn run thì code mới chạy ra dải IP của máy tính mới ở ô A1 ạ

Bạn đã thay và để cái Private sub Workbook_ Open trong This Workbook chưa?
Cứ mỗi khi mở file thì cái private nói trên (Sub bắt sự kiện khi mở file) được kích hoạt và cho ra điều bạn muốn.
Nếu không nuốn người khác làm thầy bói và có thể vấn đề được giải quyết (nếu có người làm được) thì đưa file giải lập lên.

 

[leorio.1989]

Bạn đã thay và để cái Private sub Workbook_ Open trong This Workbook chưa?
Cứ mỗi khi mở file thì cái private nói trên (Sub bắt sự kiện khi mở file) được kích hoạt và cho ra điều bạn muốn.
Nếu không nuốn người khác làm thầy bói và có thể vấn đề được giải quyết (nếu có người làm được) thì đưa file giải lập lên.

Em thay rồi bác ạ. Đây là File của em, bác xem giúp xem em sai ở đâu với ạ. Đội ơn bác.

Nếu bác mở lên mà nó nhận IP của máy bác thì mới đúng, nhưng đằng này nó ko chạy bác ạ

 

[bebo021999]

Sub lồng trong sub thế này là không ổn rồi

Private Sub Worksheet_Activate()
Sub GetIPAddress()
...

Tách 2 cái riêng biệt nhé:
1 cái đặt trong worksheet module

Private Sub Worksheet_Activate()
GetIPAddress ' KHi sheet activate thì tự động gọi sub kia
end sub

Và 1 cái đặt trong General module

Sub GetIPAddress()
....
End sub

Bài đã được tự động gộp: 17/10/23

Xem file mẫu mình làm...

 

[leorio.1989]

Sub lồng trong sub thế này là không ổn rồi

Private Sub Worksheet_Activate()
Sub GetIPAddress()
...

Tách 2 cái riêng biệt nhé:
1 cái đặt trong worksheet module

Private Sub Worksheet_Activate()
GetIPAddress ' KHi sheet activate thì tự động gọi sub kia
end sub

Và 1 cái đặt trong General module

Sub GetIPAddress()
....
End sub

Bài đã được tự động gộp: 17/10/23

Xem file mẫu mình làm...

Cảm ơn bác !
Đội ơn bác !
Cảm tạ bác !

 

[bebo021999]

Cảm ơn bác !
Đội ơn bác !
Cảm tạ bác !

Còn thiếu 1 cái làm luôn đi nhé.
Đội tạ bác!

 

[HUONGHCKT]

Em thay rồi bác ạ. Đây là File của em, bác xem giúp xem em sai ở đâu với ạ. Đội ơn bác.

Nếu bác mở lên mà nó nhận IP của máy bác thì mới đúng, nhưng đằng này nó ko chạy bác ạ

Zời ạ. Bảo đặt code sự kiện Private Sub Workbook_open trong Thisworkbook thì lại đặt trong Module sheet1. thế thì kích hoạt sao được.
Xem file tôi đã chuyển gán IP vào ô B1.

 

[VetMini]

Zời ạ. ...

Cái gì cũng muốn tự động, cũng đòi hiệu quả nhất. Chỉ riêng cái "tự động tìm hiểu" và "chịu khó nhất" thì lảng xa.

 

[leorio.1989]

Zời ạ. Bảo đặt code sự kiện Private Sub Workbook_open trong Thisworkbook thì lại đặt trong Module sheet1. thế thì kích hoạt sao được.
Xem file tôi đã chuyển gán IP vào ô B1.

Cảm ơn bác, em đã sửa theo cách của bác rồi ạ. Có người chỉ phát thì khác ngay ^^. Chân thành cảm ơn bác

Bài đã được tự động gộp: 26/10/23

Cái gì cũng muốn tự động, cũng đòi hiệu quả nhất. Chỉ riêng cái "tự động tìm hiểu" và "chịu khó nhất" thì lảng xa.

Bác ơi em mà biết thì em còn lên đây hỏi làm gì, bác không trả lời thì thôi còn vào xỉa xói em. Có câu học và hỏi, nói như bác thì còn ai dám lên hỏi nữa hả bác ? Em có lên hỏi thì cũng là 1 hình thức tự học tự mày mò rồi đó. Bác là tiền bối đi trước, bác biết còn ko trả lời mà vào đay nghiến như này thì em thấy bác hơi bị ác cảm với người mới đấy

 

[VetMini]

... Bác là tiền bối đi trước, bác biết còn ko trả lời mà vào đay nghiến như này thì em thấy bác hơi bị ác cảm với người mới đấy

Trong môi trường kỹ thuật, những từ ngữ lấy từ phim chưởng HK không có chỗ đứng.

Ác cảm: tôi chỉ có cảm tình với dân biết cách ăn nói trong ngành nghề thôi. Dân khong biết phân biệt ngôn ngữ chít chát xã hội mạng thì tôi coi như dân không biết lịch sự.

 

[leorio.1989]

Trong môi trường kỹ thuật, những từ ngữ lấy từ phim chưởng HK không có chỗ đứng.

Ác cảm: tôi chỉ có cảm tình với dân biết cách ăn nói trong ngành nghề thôi. Dân khong biết phân biệt ngôn ngữ chít chát xã hội mạng thì tôi coi như dân không biết lịch sự.

Bác gắt thế, bắt bẻ từng câu chữ, em chỉ muốn truyền tải là những người như bác có thâm niên, không giúp đỡ người đi sau như chúng em muốn học muốn hỏi mà lại còn vào bắt bẻ thì thật là quá đáng !

 

[leorio.1989]

Zời ạ. Bảo đặt code sự kiện Private Sub Workbook_open trong Thisworkbook thì lại đặt trong Module sheet1. thế thì kích hoạt sao được.
Xem file tôi đã chuyển gán IP vào ô B1.

Cảm ơn bác, quá đơn giản và dễ hiểu ạ

 

[leorio.1989]

Zời ạ. Bảo đặt code sự kiện Private Sub Workbook_open trong Thisworkbook thì lại đặt trong Module sheet1. thế thì kích hoạt sao được.
Xem file tôi đã chuyển gán IP vào ô B1.

Bác ơi, cho em hỏi thêm đó là nếu em có 2 sheet cần ghi thì chỉnh mã VBA ở đâu hả bác ? Ví dụ 1 sheet tên là X, 1 sheet tên là Y thì muốn chỉ VBA về cả 2 sheet này phải làm sao ạ

 

[HUONGHCKT]

Bác ơi, cho em hỏi thêm đó là nếu em có 2 sheet cần ghi thì chỉnh mã VBA ở đâu hả bác ? Ví dụ 1 sheet tên là X, 1 sheet tên là Y thì muốn chỉ VBA về cả 2 sheet này phải làm sao ạ

Thì sửa dòng

Range("B1").Value = strIPAddress

thành

sheets("X") .Range("B1").Value = strIPAddress
sheets("Y") .Range("B1").Value = strIPAddress

Save===> colse.
Open file , kiểm tra
Lưu ý: Workbook phải có Sheet X và sheet Y nếu không báo lỗi.

 

[VetMini]

Bác gắt thế, bắt bẻ từng câu chữ, em chỉ muốn truyền tải là những người như bác có thâm niên, không giúp đỡ người đi sau như chúng em muốn học muốn hỏi mà lại còn vào bắt bẻ thì thật là quá đáng !

Muốn học và hỏi thì chịu khó học và hỏi.
Để đầu óc vào việc phân tích lô gic vấn đề. Đi học mà lo cãi lý thì được gì? Phí hơi, thỏa mãn tự ái chứ rốt cuộc kiến thức trở về con số không tổ bố.