Hỏi về link ngày tháng (1 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

 

[sondaubac]

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

à, trong ô B2 (đánh vào đó =A2) sau đó copy xuống dưới thì đầu tiên nó giống cột A sau đó click sang sheet 2 rồi click lại sheet 1 thì nó thành rồi, nhưng lỗi font chỗ năm đó bạn. Với lại khi mình muốn link sang sheet khác thì sao?

 

[Luc Van]

à, trong ô B2 (đánh vào đó =A2) sau đó copy xuống dưới thì đầu tiên nó giống cột A sau đó click sang sheet 2 rồi click lại sheet 1 thì nó thành rồi, nhưng lỗi font chỗ năm đó bạn. Với lại khi mình muốn link sang sheet khác thì sao?

1. Lỗi font thì kiểm tra lại code và sửa lại lỗi này
2. Ý bạn muốn link như thế nào?

 

[sondaubac]

1. Lỗi font thì kiểm tra lại code và sửa lại lỗi này
2. Ý bạn muốn link như thế nào?

View attachment 67898

1/ Thì mình muốn link bình thường thôi mà, thay vì copy vào ô B2 rồi kéo hết cột B thì cho nó sang côt D, hay E, F.... gì đó bên sheet khác thôi.

2/ Sao mình dùng font Unicode (mã Telex) thì chữ "năm" sẽ được đánh là "n + a+w +m" mà vẫn chưa sửa lỗi font được?

 

[Luc Van]

1/ Thì mình muốn link bình thường thôi mà, thay vì copy vào ô B2 rồi kéo hết cột B thì cho nó sang côt D, hay E, F.... gì đó bên sheet khác thôi.

Thì bạn sang sheet khác (ở cột bất kỳ) rồi oánh =cột B tương ứng của sheet 1 là được mà

2/ Sao mình dùng font Unicode (mã Telex) thì chữ "năm" sẽ được đánh là "n + a+w +m" mà vẫn chưa sửa lỗi font được?

Mình dùng font này vẫn sửa tốt

 

[sondaubac]

Thì bạn sang sheet khác (ở cột bất kỳ) rồi oánh =cột B tương ứng của sheet 1 là được mà


Mình dùng font này vẫn sửa tốt

View attachment 67901

1/ Vấn đề về Font: Bạn up file được không, mình vẫn lỗi font

2/ Mình không muốn link lung tung thế, trong cái Code đó, chỗ worksheet_activate có thể chọn cái nào cho nó link hết sheet này sheet khác được không bạn?