Code lấy giá trị format của cell (1 người xem)

[bebeen]

Em có bài toán này nhờ các A/C xem và thiết thiết lập code cho em trong file đính kèm. Em đã thu mảrco nhưng không dược.
Cám ơn A/C nhiều!

 

[maytinhvp01]

Em có bài toán này nhờ các A/C xem và thiết thiết lập code cho em trong file đính kèm. Em đã thu mảrco nhưng không dược.
Cám ơn A/C nhiều!

Private Sub CommandButton1_Click()
With Worksheets("Sheet1")
.Range("F7").Copy
.Range("G11").PasteSpecial 3
End With
End Sub

tạo một command button và viết cho nó sự kiện clik

 

[nghiaphuc]

Em có bài toán này nhờ các A/C xem và thiết thiết lập code cho em trong file đính kèm. Em đã thu mảrco nhưng không dược.
Cám ơn A/C nhiều!

Ngộ nhỉ, đọc yêu cầu không hiểu gì cả. Ô C7 đâu có dữ liệu gì đâu mà copy qua ô G11 được kết quả như vậy? Còn ô F7 đóng vai trò gì trong bài toán này?
Có phải điều bạn muốn là ô G11 có giá trị của ô C7 và định dạng của ô F7 không? Nếu đúng như vậy thì có khó gì nhỉ?
Chẳng hạn:

[F7].Copy [G11]
[G11]=[C7]

Hoặc gán giá trị cho ô G11 trước, sau đó copy định dạng ô F7 dán vào ô G11. Hoặc thậm chí bạn có thể định dạng thủ công cho ô G11 trước, sau đó dùng câu lệnh [G11]=[C7] hoặc công thức =C7 để gán giá trị ô C7 vào... v.v...
Tóm lại là phải hiểu được bạn muốn gì đã rồi mới biết được bạn cần làm như thế nào.

 

[bebeen]

Em hỏi sai rùi. Em muốn copy dữ liệu ở ô F7 trả về ô G11 anh ah! Mình có thể copy cả ô đó sang nhưng ô G11 nhận cả giá trị PN09/2 có được không?

 

[nghiaphuc]

Em hỏi sai rùi. Em muốn copy dữ liệu ở ô F7 trả về ô G11 anh ah! Mình có thể copy cả ô đó sang nhưng ô G11 nhận cả giá trị PN09/2 có được không?

Đã hiểu ý đồng chí. Thử "ăn gian" kiểu này xem sao:

Sub Test()
    [A1] = "=TEXT(F7,""""""PN09/""""""&0)"
    [G11] = [A1]
    [A1].ClearContents
End Sub

------------------------------------
Ô la la... Tìm được một kiểu "không ăn gian" rồi:

[G11] = Format([F7], """""""PN09/""""""&")

 

[bebeen]

Em muốn hỏi thêm chút nữa như ô D7 (file đính kèm) có dữ liệu và được định dạng như vậy. Giờ em cũng muốn copy sang E11 ah. Kết quả như file đính kèm!

 

[nghiaphuc]

Em muốn hỏi thêm chút nữa như ô D7 (file đính kèm) có dữ liệu và được định dạng như vậy. Giờ em cũng muốn copy sang E11 ah. Kết quả như file đính kèm!

Chẳng phải là [E1]=Format([D7],"000") à?

 

[bebeen]

Chẳng phải là [E1]=Format([D7],"000") à?

Anh ah, nếu như cách này của anh chỉ copy được số >0 thui. Ví: Nếu ô D7 = 001 thì E1 = 1; hay ô D7 = 012 thì E1 = 12 thui. Nhưng em muốn là: Nếu ô D7 = 001 thì E1 = 001; hay ô D7 = 012 thì E1 = 012, ... đó anh ah! Anh xem lại cho em nhé!

 

[nghiaphuc]

Anh ah, nếu như cách này của anh chỉ copy được số >0 thui. Ví: Nếu ô D7 = 001 thì E1 = 1; hay ô D7 = 012 thì E1 = 12 thui. Nhưng em muốn là: Nếu ô D7 = 001 thì E1 = 001; hay ô D7 = 012 thì E1 = 012, ... đó anh ah! Anh xem lại cho em nhé!

Vậy thế này có được chấp nhận không: [E11] = Format([D7], "'000")

 

[ndu96081631]

Bài này nên giải quyết bằng thuộc tính TEXT nhé. Có nghĩa là sẽ lấy cái giá trị Format mà ta đang nhìn thấy
Ví dụ:

Sub Test()
  With Range("E11")
    .NumberFormat = "@"  '<--- Format text cho cell kết quả trước
    .Value = Range("D7").Text
  End With
End Sub

-----------------

Vậy thế này có được chấp nhận không: [E11] = Format([D7], "'000")

Ta có biết cell nguồn nó đang format sao mà dùng hàm Format
Theo như tôi hiểu thì cái mà tác giả cần là: Lấy giá trị format đang nhìn thấy trên màn hình