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

Liên hệ QC

Người dùng đang xem chủ đề này

hoanghoa_dtt91

Thành viên chính thức
Tham gia
5/11/13
Bài viết
67
Được thích
0
Giờ em muốn nhập vào một ô và sau mỗi lần nhập vào ô ấy thì dữ liệu củ được đẩy xuống ô dưới. Nhập vào ô đầu tiên và dữ liệu đẩy ra thành một cột làm thế nào được? Xin cảm ơn!
 
Về thủ thuật có sẵn không đáp ứng được nha bạn, còn viết code thì bạn có thể tham khảo code này:
[gpecode=vb]
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [A1]) Is Nothing Then
Target.Offset([A65535].End(3).Row) = Target
End If
End Sub
[/gpecode]
 

File đính kèm

Về thủ thuật có sẵn không đáp ứng được nha bạn, còn viết code thì bạn có thể tham khảo code này:
[gpecode=vb]
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [A1]) Is Nothing Then
Target.Offset([A65535].End(3).Row) = Target
End If
End Sub
[/gpecode]
Bạn ơi cho mình hỏi, đây la mình nhập vào ô đấy thì nó đẩy dl xuống, giờ mình không muốn nhập trực tiếp vào ô đấy mà ô đấy xẽ lấy dữ liệu từ một ô khác chẳng hạn, thì nó lại không đẩy xuống được. bạn làm giúp mình với. giờ mới đụng đến nên gà. Thank!
 
Bạn ơi cho mình hỏi, đây la mình nhập vào ô đấy thì nó đẩy dl xuống, giờ mình không muốn nhập trực tiếp vào ô đấy mà ô đấy xẽ lấy dữ liệu từ một ô khác chẳng hạn, thì nó lại không đẩy xuống được. bạn làm giúp mình với. giờ mới đụng đến nên gà. Thank!
Không hiểu bạn nói gì luôn.
Bạn gửi file ví dụ lên, ghi vài ba mẫu ví dụ đính kèm thử xem.
 
Bạn ơi cho mình hỏi, đây la mình nhập vào ô đấy thì nó đẩy dl xuống, giờ mình không muốn nhập trực tiếp vào ô đấy mà ô đấy xẽ lấy dữ liệu từ một ô khác chẳng hạn, thì nó lại không đẩy xuống được. bạn làm giúp mình với. giờ mới đụng đến nên gà. Thank!
Cái quái gì cũng có cách xử. Muốn trò gì thì ném cái file lên
 
Ý mình giống cái file hôm qua bạn gửi cho mình đấy. Nhưng cái hôm qua thì mình nhập trực tiếp từ excel vào ô đó thì dữ liệu nó đẩy dần xuống dưới. Như giờ mình ko nhập trực tiếp nữa mà dữ liệu của ô đó được lấy từ chỗ khác đưa vào.
 
Ý mình giống cái file hôm qua bạn gửi cho mình đấy. Nhưng cái hôm qua thì mình nhập trực tiếp từ excel vào ô đó thì dữ liệu nó đẩy dần xuống dưới. Như giờ mình ko nhập trực tiếp nữa mà dữ liệu của ô đó được lấy từ chỗ khác đưa vào.
Lấy dữ liệu chỗ khác là chỗ nào? Trong cùng sheet đó hay sheet khác, hay là từ 1 file khác, hay là gì gì gì đó.
Đã nói rồi cái thứ quỷ gì GPE cũng chơi được nếu là yêu cầu hợp lý.
 
Giờ mình có một phần mềm đẩy dữ liệu vào Excel. mình muốn đẩy vào 1 ô và sau mỗi lần đẩy dữ liệu mới vào thì dữ liệu củ sẽ được đẩy xuống ô dưới cứ thế thành một cột. Nhờ mọi người ạ.
 
Giờ mình có một phần mềm đẩy dữ liệu vào Excel. mình muốn đẩy vào 1 ô và sau mỗi lần đẩy dữ liệu mới vào thì dữ liệu củ sẽ được đẩy xuống ô dưới cứ thế thành một cột. Nhờ mọi người ạ.
Với kiểu nói lòng vòng này thời bạn chờ đến têt Công Gô nhé
Mình chạy thôi.
 
Với kiểu nói lòng vòng này thời bạn chờ đến têt Công Gô nhé
Mình chạy thôi.
VD Giờ mình đang có phần mền trỏ vào ô A1, cứ 1 giấy mình đẩy 1 giá trị vào ô A1, mình muốn mỗi lần đẩy vào thì giá trị củ được đẩy xuống ô dưới, tức A2=A1, A1= giá trị mới. cứ đẩy dần vậy.
 
VD Giờ mình đang có phần mền trỏ vào ô A1, cứ 1 giấy mình đẩy 1 giá trị vào ô A1, mình muốn mỗi lần đẩy vào thì giá trị củ được đẩy xuống ô dưới, tức A2=A1, A1= giá trị mới. cứ đẩy dần vậy.

PHP:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
    Application.EnableEvents = False
    With Target
        .Insert shift:=xlDown
        .Offset(-1).Select
    End With
    Application.EnableEvents = True
End If
End Sub
 
Cái này thì mình nhập trực tiếp vào ô đấy thì mới đẩy, còn mình chuyển từ chỗ khác thì nó ko đẩy được VD code của bạn mình cho ô A1=C1, khi mình nhập vào ô C1 thì các dữ liệu ở ô A1 không được đẩy xuống. Bạn giải quyết giúp mình với. Thank
 
Cái này thì mình nhập trực tiếp vào ô đấy thì mới đẩy, còn mình chuyển từ chỗ khác thì nó ko đẩy được VD code của bạn mình cho ô A1=C1, khi mình nhập vào ô C1 thì các dữ liệu ở ô A1 không được đẩy xuống. Bạn giải quyết giúp mình với. Thank
PHP:
Private Sub Worksheet_Change(ByVal Target As Range)
With Target
    If .Address = "$C$1" Then
        [A1].Insert shift:=xlDown
        [A2] = .Value
        .Select
    End If
End With
End Sub
 
Ý em không phải nhập từ excel, vì ở đây mình cứ nhập giá trị rồi enter thì nó đẩy được. Nhưng giờ e đang làm một phần mền khác OPC liên kết với excel. phần mền đó đẩy các giá trị vào 1 ô ở đây là A1. Vì vậy ô A1 nó sẽ thay đổi giá trị theo phần giá trị bên OPC và e muốn mỗi khi giá trị A1 thay đổi thì giá trị nó đẩy xuống dưới giống như code ở trên. Mong a giúp với.
 
Ý em không phải nhập từ excel, vì ở đây mình cứ nhập giá trị rồi enter thì nó đẩy được. Nhưng giờ e đang làm một phần mền khác OPC liên kết với excel. phần mền đó đẩy các giá trị vào 1 ô ở đây là A1. Vì vậy ô A1 nó sẽ thay đổi giá trị theo phần giá trị bên OPC và e muốn mỗi khi giá trị A1 thay đổi thì giá trị nó đẩy xuống dưới giống như code ở trên. Mong a giúp với.
Nếu bài 13 không thực hiện được yêu cầu của bạn thì mình chia tay nhé. Hết khả năng rồi. Bạn kiên nhẫn đợi người có thể giúp bạn nhé.
Thân chào và chúc may mắn
 
Nếu bài 13 không thực hiện được yêu cầu của bạn thì mình chia tay nhé. Hết khả năng rồi. Bạn kiên nhẫn đợi người có thể giúp bạn nhé.
Thân chào và chúc may mắn
Cái bài 13 là gần đúng rồi, nhưng khi A1 Thay đổi thì nó đẩy xuống A2 và A2 thay đổi nó không đẩy dữ liệu xuống. Muốn đẩy xuống thì phải nhập các giá trị trực tiếp vào A1
 
Về thủ thuật có sẵn không đáp ứng được nha bạn, còn viết code thì bạn có thể tham khảo code này:
[gpecode=vb]
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [A1]) Is Nothing Then
Target.Offset([A65535].End(3).Row) = Target
End If
End Sub
[/gpecode]
Anh giúp em với. E kết nối phần mên OPC với Excel được rồi, giờ em nhập dữ liệu OPC và giá trị trả về 1 ô bên excel (VD 1) em muốn mỗi khi nhập từ OPC, giá trị ở ô A1 cũng thay đổi theo và mỗi lần ôA thay đổi thì nó đẩy giá trị cũ xuống dưới giống như code ở trên vậy. Thank!
 
Web KT

Bài viết mới nhất

Back
Top Bottom