Lấy dữ liệu Sheet khác không cần nhảy Sheet (1 người xem)

[xuanquy1188]

Chào các bạn,

Vấn đề của mình ở đây là Sheet hiện tại được gán biến bằng hàm: A = ActiveSheet.Name sau khi nhấn button thì chuyển qua Sheet khác (ví dụ Sheet B).

Bây h mình ở Sheet B mình muốn lấy dữ liệu ở ô A1 của Sheet A (A được gán bằng hàm phía trên) và không cần nhảy qua Sheet A, vì mỗi lần nó nhảy bị chớp màn hình 1 lần, mình dễ bị đơ máy.

Mình thử làm và gõ lệnh: B = Sheets("A").Range("A1").Value thì bị báo lỗi.

Giải quyết vấn đề này thì làm như thế nào ạ?

Cám ơn các bạn!

 

[Ba Tê]

Chào các bạn,

Vấn đề của mình ở đây là Sheet hiện tại được gán biến bằng hàm: A = ActiveSheet.Name sau khi nhấn button thì chuyển qua Sheet khác (ví dụ Sheet B).

Bây h mình ở Sheet B mình muốn lấy dữ liệu ở ô A1 của Sheet A (A được gán bằng hàm phía trên) và không cần nhảy qua Sheet A, vì mỗi lần nó nhảy bị chớp màn hình 1 lần, mình dễ bị đơ máy.

Mình thử làm và gõ lệnh: B = Sheets("A").Range("A1").Value thì bị báo lỗi.

Giải quyết vấn đề này thì làm như thế nào ạ?

Thanks các bạn!

http://www.giaiphapexcel.com/forum/...-lặp-dữ-liệu-trong-excel!&p=773440#post773440

 

[xuanquy1188]

Đã sửa, cám ơn bạn Ba Tê.

Nhân tiện các bạn cho mình hỏi có hàm nào kiểm tra dữ liệu nhập vào từ InputBox không ạ?

Nếu dữ liệu nhập vào là số thập phân thì trả về a = 1. Ngược lại trả lại a = 0.

Cám ơn.

 

[Ba Tê]

Đã sửa, cám ơn bạn Ba Tê.

Nhân tiện các bạn cho mình hỏi có hàm nào kiểm tra dữ liệu nhập vào từ InputBox không ạ?

Nếu dữ liệu nhập vào là số thập phân thì trả về a = 1. Ngược lại trả lại a = 0.

Cám ơn.

Nếu Inputbox>(InPutbox\1),1,0. "Hết thuốc".

 

[xuanquy1188]

Nhấn button nhập dữ liệu vào và kiểm tra rồi xuất ra msgbox thì làm như thế nào hả bạn?

 

[Ba Tê]

Nhấn button nhập dữ liệu vào và kiểm tra rồi xuất ra msgbox thì làm như thế nào hả bạn?

Dim a as Double
a = InputBox("Nhap 1 so", "GPE")
Abc = IIf(a > (a \ 1), 1, 0)
MsgBox Abc
------------------
Người mù lúc sờ chân, lúc sờ tai Voi cho nên khi nó là vầy, khi là khác.

 

[xuanquy1188]

Hàm của bạn mình kiểm tra thấy, nếu nhập số thì đúng. Còn ví dụ nhập vào bất kỳ là "fsafasfsaf" thì lỗi code ngay.

Giải quyết sao ạ?

 

[Ba Tê]

Hàm của bạn mình kiểm tra thấy, nếu nhập số thì đúng. Còn ví dụ nhập vào bất kỳ là "fsafasfsaf" thì lỗi code ngay.

Giải quyết sao ạ?

Là số? Là số thập phân? Là Text?
Người mù lúc sờ chân, lúc sờ tai Voi cho nên khi nó là vầy, khi là khác. Vậy đó.
Nếu yêu cầu Number là 1, Text là 0 thì là "chân Voi" rồi.

 

[xuanquy1188]

Vấn đề của mình ở đây là Sheet hiện tại được gán biến bằng hàm: A = ActiveSheet.Name sau khi nhấn button thì chuyển qua Sheet khác (ví dụ Sheet B).

Bây h mình ở Sheet B mình muốn lấy dữ liệu ở ô A1 của Sheet A (A được gán bằng hàm phía trên) và không cần nhảy qua Sheet A, vì mỗi lần nó nhảy bị chớp màn hình 1 lần, mình dễ bị đơ máy.

Mình thử làm và gõ lệnh: B = Sheets("A").Range("A1").Value thì bị báo lỗi.

Giải quyết vấn đề này thì làm như thế nào ạ?

 

[Gió Đông]

Vấn đề của mình ở đây là Sheet hiện tại được gán biến bằng hàm: A = ActiveSheet.Name sau khi nhấn button thì chuyển qua Sheet khác (ví dụ Sheet B).

Bây h mình ở Sheet B mình muốn lấy dữ liệu ở ô A1 của Sheet A (A được gán bằng hàm phía trên) và không cần nhảy qua Sheet A, vì mỗi lần nó nhảy bị chớp màn hình 1 lần, mình dễ bị đơ máy.

Mình thử làm và gõ lệnh: B = Sheets("A").Range("A1").Value thì bị báo lỗi.

Giải quyết vấn đề này thì làm như thế nào ạ?

1) bạn đang câu hỏi này xoay sang câu hỏi khác, chóng mặt, tự làm chủ đề của mình loãng đi và sai hướng (hỏi cái khác thì mở chủ đề khác, nếu nhân tiện hỏi ai đó, thì nhắn tin riêng cho họ)

2) bạn nên phân biệt biến A và ký tự "A" (cho vào ngoặc VBA hiểu là chuỗi ký tự) nên phải viết là

B = Sheets(A).Range("A1").Value

may ra được.
(ngay từ đặt tên biến A B đã thấy thể hiện là đặt đại, đặt cho xong)

 

[Ba Tê]

Vấn đề của mình ở đây là Sheet hiện tại được gán biến bằng hàm: A = ActiveSheet.Name sau khi nhấn button thì chuyển qua Sheet khác (ví dụ Sheet B).

Bây h mình ở Sheet B mình muốn lấy dữ liệu ở ô A1 của Sheet A (A được gán bằng hàm phía trên) và không cần nhảy qua Sheet A, vì mỗi lần nó nhảy bị chớp màn hình 1 lần, mình dễ bị đơ máy.

Mình thử làm và gõ lệnh: B = Sheets("A").Range("A1").Value thì bị báo lỗi.

Giải quyết vấn đề này thì làm như thế nào ạ?

Rốt cuộc là bạn muốn hỏi chuyện gì, File nó ra sao? Trong file bạn muốn như thế nào. Code của bạn đã viết thế nào trong file.

-Nếu dữ liệu nhập vào là số thập phân thì trả về a = 1. Ngược lại trả lại a = 0.
-Nhấn button nhập dữ liệu vào và kiểm tra rồi xuất ra msgbox thì làm như thế nào hả bạn?
-Hàm của bạn mình kiểm tra thấy, nếu nhập số thì đúng. Còn ví dụ nhập vào bất kỳ là "fsafasfsaf" thì lỗi code ngay.
Giải quyết sao ạ?

Bạn hỏi bài mà không có file cụ thể thì ... đoán mò tới tết......
http://www.giaiphapexcel.com/forum/showthread.php?123614-Kiểu-biến-trong-EXCEL&p=773592#post773592
Chắc tôi phải tạm biệt chủ đề này tại đây.

 

[xuanquy1188]

Cám ơn các bạn, mình tự mò được rồi

mình sẽ ghi nhận lời đóng góp của các bạn.