Hỏi về link ngày tháng (3 người xem)

[sondaubac]

Mình có 1 cột là ngày tháng (kiểu dd/mm/yyyy"), muốn link qua cột khác (cùng sheet và khác sheet) nhưng phải thòa mãn những yêu cầu sau:

1/ Hiển thị là Ngày .... tháng ..... năm .....

2/ Nhưng trong nội dung của ô đó phải y như là mình đánh vào ô đó chữ: "Ngày ..... tháng ..... năm .....

Chú ý: Mình muốn hiển thị kiểu : Ngày dd tháng mm năm yyyy

 

[bebo021999]

Mình có 1 cột là ngày tháng (kiểu dd/mm/yyyy"), muốn link qua cột khác (cùng sheet và khác sheet) nhưng phải thòa mãn những yêu cầu sau:

1/ Hiển thị là Ngày .... tháng ..... năm .....

2/ Nhưng trong nội dung của ô đó phải y như là mình đánh vào ô đó chữ: "Ngày ..... tháng ..... năm .....

Tại C2:

="Ngày "&DAY(A2)&" Tháng "&IF(MONTH(A2)<10,"0"&MONTH(A2),MONTH(A2))&" Năm "& YEAR(A2)

Copy/paste value vào ô A1.

 

[lethuycaylua]

Chào Bạn
Mình không giỏi về excel nhưng cũng biết chút mình bày cho bạn cách này không biết có đúng không bạn xem nhé
Tại ô B2 Bạn Nhập công thức: B2="Ngày "&DAY(A2)&" Tháng "&MONTH(A2)&" Năm "&YEAR(A2)

 

[sondaubac]

Tại C2:

="Ngày "&DAY(A2)&" Tháng "&MONTH(A2)&" Năm "& YEAR(A2)

Copy/paste value vào ô A1.

Chào Bạn
Mình không giỏi về excel nhưng cũng biết chút mình bày cho bạn cách này không biết có đúng không bạn xem nhé
Tại ô B2 Bạn Nhập công thức: B2="Ngày "&DAY(A2)&" Tháng "&MONTH(A2)&" Năm "&YEAR(A2)

không phải thế này, mình không muốn thế này, mình đã sửa lại bài viết cụ thể rồi đó.

 

[bebo021999]

không phải thế này, mình không muốn thế này, mình đã sửa lại bài viết cụ thể rồi đó.

Thì trong công thức đã thể hiện như bạn yêu cầu rồi, nhớ copy / paste value là ra thôi. Mình đã sửa công thức 1 chút rồi đó, thử lại xem.

 

[sondaubac]

chưa được bạn ơi, bạn làm vào file rồi gửi cho mình thử xem đi

 

[lethuycaylua]

chưa được bạn ơi, bạn làm vào file rồi gửi cho mình thử xem đi

Chào bạn
bạn làm như thầy

Tại C2:

="Ngày "&DAY(A2)&" Tháng "&IF(MONTH(A2)<10,"0"&MONTH(A2),MONTH(A2))&" Năm "& YEAR(A2)

Copy/paste value vào ô A1.

là ok
Tại B2 bạn nhập công thức như của thầy sau đó copy tât cả xuống ô còn lại, Bôi đen tất cả các ô có công thức paste value

 

[Luc Van]

chưa được bạn ơi, bạn làm vào file rồi gửi cho mình thử xem đi

Chắc là phải vầy mới đúng ý chủ topic.

="Ngày "&IF(DAY(A2)<10,"0"&DAY(A2),DAY(A2))&" Tháng "&IF(MONTH(A2)<10,"0"&MONTH(A2),MONTH(A2))&" Năm "&YEAR(A2)

 

[sondaubac]

Cảm ơn mọi người đã giúp đỡ

 

[bebo021999]

Nếu muốn dùng code:

Private Sub Worksheet_Activate()
Dim rng As Range
For Each rng In Range("a2:a31")
rng.Offset(0, 1).Value = "Ngày " & Day(rng) & " Tháng " & Month(rng) & " N?m " & Year(rng)
Next
End Sub

 

[sondaubac]

Tiện thể cho em hỏi khi đánh số thứ tự trong biên bản, mình thường đánh là 01 thay vì 1 các bạn cho mình hỏi với. Nêu mình muốn đánh số 1 mà nó hiện lên là 01 được không?
Chú ý: Không dùng (Format Cells/custom/00)

 

[Luc Van]

Tiện thể cho em hỏi khi đánh số thứ tự trong biên bản, mình thường đánh là 01 thay vì 1 các bạn cho mình hỏi với. Nêu mình muốn đánh số 1 mà nó hiện lên là 01 được không?
Chú ý: Không dùng (Format Cells/custom/00)

Thế như vầy được không?

=IF(A2<10,0&A2,A2)

 

[sondaubac]

Không mình muốn đánh số vào ô đó cơ

 

[bebo021999]

Tiện thể cho em hỏi khi đánh số thứ tự trong biên bản, mình thường đánh là 01 thay vì 1 các bạn cho mình hỏi với. Nêu mình muốn đánh số 1 mà nó hiện lên là 01 được không?
Chú ý: Không dùng (Format Cells/custom/00)

Sao cứ tự làm khó mình vậy bạn, anh Bill cho phép thì cứ làm theo cho khỏe, hay là bảng tính của bạn bị lock định dạng?

 

[sondaubac]

Nếu muốn dùng code:

Private Sub Worksheet_Activate()
Dim rng As Range
For Each rng In Range("a2:a31")
rng.Offset(0, 1).Value = "Ngày " & Day(rng) & " Tháng " & Month(rng) & " N?m " & Year(rng)
Next
End Sub

Không Alt+F8 được bạn ơi

Sao cứ tự làm khó mình vậy bạn, anh Bill cho phép thì cứ làm theo cho khỏe, hay là bảng tính của bạn bị lock định dạng?

thực ra là mình link thôi, nhưng ko sao đâu, mình đã làm được rồi, rất cảm ơn các bạn đã giúp đỡ.

 

[Luc Van]

Không Alt+F8 được bạn ơi

Sao lại Alt+F8???
Thử với alt+F11 xem sao?

 

[sondaubac]

Sao lại Alt+F8???
Thử với alt+F11 xem sao?

mình đã Alt+F11 sau đó copy đoạn code của bạn vào rồi mà chằng làm đc j là sao hả bạn? Đã insert Module

 

[bebo021999]

mình đã Alt+F11 sau đó copy đoạn code của bạn vào rồi mà chằng làm đc j là sao hả bạn? Đã insert Module

Copy tại cửa sổ code của sheet chứa dữ liệu nha bạn, vì mình dùng sự kiện worksheet_activate

 

[sondaubac]

Copy tại cửa sổ code của sheet chứa dữ liệu nha bạn, vì mình dùng sự kiện worksheet_activate

Đã copy vào cửa sổ code của sheet chứa dữ liệu nhưng sau khi copy xong mình có thấy gì đâu bạn?

 

[bebo021999]

Đã copy vào cửa sổ code của sheet chứa dữ liệu nhưng sau khi copy xong mình có thấy gì đâu bạn?

Click qua sheet khác, sau đó kích hoạt lại sheet xem