Cho em hỏi đẩy dữ liệu từ một ô ra các ô trong excel thế nào? (1 người xem)

[hoanghoa_dtt91]

Bỏ chữ phút thì công thức =ROUND(C5/60,0)&":"&MOD(C5,60)

Anh cho em hỏi sao em nhập 40 nó lại ra 1:40 ạ?

 

[thanhsangnguyen1982]

Anh cho em hỏi sao em nhập 40 nó lại ra 1:40 ạ?

Sửa lại thành vầy nè bạn =IF(B5/60>=1,ROUND(B5/60,0),0)&":"&MOD(B5,60)

 

[hoanghoa_dtt91]

Thế này vẫn còn các trường hơp khác nữa 90=2:30 ạ.

 

[hoanghoa_dtt91]

em làm đc rồi cảm ơn anh giúp đỡ =ROUNDDOWN(D3/60,0)&":"&MOD(D3,60)

 

[thanhsangnguyen1982]

thế này vẫn còn các trường hơp khác nữa 90=2:30 ạ.

=if(b5/60>=1,int(b5/60),0)&":"&mod(b5,60)

 

[hoanghoa_dtt91]

Private Sub Worksheet_Calculate()
Application.EnableEvents = False
If [A1].Value <> Empty And [B1].Value <> Empty Then
   [A2:B2].Insert shift:=xlDown
   [A2:B2] = [A1:B1].Value
End If
Application.EnableEvents = True
End Sub

Anh cho em hỏi làm sao cho cái cột A1 chỉ chuyển dữ liệu xuống khi có A1 thay đổi. code trên thì bất kỳ ô nào trong Sheet này thay đổi thì cột nó lại dịch xuống 1 dòng. Giúp em với.

 

[thanhsangnguyen1982]

Sửa lịa code tí như vầy
Private Sub Worksheet_Calculate()
Application.EnableEvents = False
If [A1].Value <> Empty Then
[A1].Insert shift:=xlDown
[A2] = [A1].Value
End If
Application.EnableEvents = True
End Sub

 

[hoanghoa_dtt91]

Sửa lịa code tí như vầy
Private Sub Worksheet_Calculate()
Application.EnableEvents = False
If [A1].Value <> Empty Then
[A2].Insert shift:=xlDown
[A2] = [A1].Value
End If
Application.EnableEvents = True
End Sub

Vẫn không được a ợ, ô nào thay đổi giá trị thì nó cũng nhảy.
Vì khi A khác rỗng có giá trị thì lúc ấy bất kỳ ô nào thay đổi nó đều dịch xuống

 

[thanhsangnguyen1982]

Bạn gửi fiel lên đây thử xem. mình test ok mà

 

[hoanghoa_dtt91]

a gửi cho em xem được ko?

 

[buibahoan]

Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, [A1]) Is Nothing Then Target.Offset([A65535].End(3).Row) = Target End IfEnd SubCái code này gần đúng ý em. Các anh chị giúp em với. Em muốn làm ở ô B11. Mỗi khi điền giá trị vào B11 nhấn enter thì lập tức giá trị đó được đẩy xuống dưới nhau ( cột B). Em thử rồi nhưng mà nó cứ cách nhau 11 hàng ấy. Có cách nào để dữ liệu không bị cách nhau giống như code trên thực hiện với ô A1 không ạ Không phải insert dòng đâu các anh chị nhé

 

[Quang_Hải]

Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, [A1]) Is Nothing Then Target.Offset([A65535].End(3).Row) = Target End IfEnd SubCái code này gần đúng ý em. Các anh chị giúp em với. Em muốn làm ở ô B11. Mỗi khi điền giá trị vào B11 nhấn enter thì lập tức giá trị đó được đẩy xuống dưới nhau ( cột B). Em thử rồi nhưng mà nó cứ cách nhau 11 hàng ấy. Có cách nào để dữ liệu không bị cách nhau giống như code trên thực hiện với ô A1 không ạ Không phải insert dòng đâu các anh chị nhé

Bạn xài thử code này

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Not Intersect(Target, [B11]) Is Nothing Then
   Range(Target, [B65536].End(3)).Cut Target(2)
   [B11].Select
End If
Application.EnableEvents = True
End Sub