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.
Cái quái gì cũng có cách xử. Muốn trò gì thì ném cái file lên
Bạn "ngâm cứu" lại bài #4 và #5 xem sao.2 pro giúp em với
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ì đó.
Với kiểu nói lòng vòng này thời bạn chờ đến têt Công Gô nhé
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.
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 SubPrivate 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 SubNế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é.
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
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!
Mình thấy bạn hỏi vấn đề này mấy lần rồi, cũng có nhiều người viết code và hướng dẫn giúp bạn rồi. Nhưng hình như có hiểu nhầm về cách bạn diễn đạt.
Khả năng là code không có tác dụng trên Excel khi phần mềm OPC của bạn export dữ liệu xuống. Nếu có thể, bạn gửi Teamview vào hộp tin để mình xem thử, không được thì mình cũng chịu thua thôi vì phần mềm OPC bạn nói mình chẳng biết gì về nó.Bác đâu rồi vào giúp em với, đang cần gấp.
Bạn cần gấp thì thuê gấp 1 chuyên gia về công ty coi vấn đề nằm chổ nào. GPE có ai thấy cái máy tính của bạn đâuBác đâu rồi vào giúp em với, đang cần gấp.
Sub Chen_Cell()
Dim Sarr()
If [A2] = Empty Then Exit Sub
Sarr = Range([A1], [A65536].End(3)).Value
[A2].Resize(UBound(Sarr)) = Sarr
[A1].ClearContents
End Sub
Vần đề đây không phải là phần mền OPC. OPC e cho đẩy dữ liệu vào như kiểu ô C1 đẩy vào ô A1 (vd A1=C1) thằng C1 thay cho OPC, thằng C1 thay đổi thì A1 thay đổi và giá trị trước đó của thằng A1 được đẩy xuống. Nói chung là không nhập trực tiếp trên excel, giờ làm sao mà excel biết ô đấy có giá trị thay đổi thì chuyển dần dữ liệu xuống, hoặc là cứ tần suất bao nhiêu thì ô tự chuyển dữ liệu xuống thành 1 cột dữ liệu.
Kiểu như Khổng Tử đẩy xe bò đấyđẩy mà cũng hổng biết nữa thì mần ăn gì
Giờ bác cứ thay OPC bằng một ô bất kỳ trên excel để thay đổi giá trị là được VD: A1=C1, C1 để nhập giá trị còn A1 đẩy dữ liệu dần xuống. nhưng khi viết code thì thằng C1 không liên quan xem như nó ở phần mền khác.
Ý e không phải vậy. Cái ô C1 không đưa vào code vì nó là thay cho phần mền OPC để nhập dữ liệu. Giờ phải xem thay đổi của ô A1 để đẩy ra mà.
Bạn diễn giải hết khả năng chưa chắc người khác hiểu hết 50% ý của bạn. Nếu bạn quay lại được quá trình hoạt động của OPC và Excel trên máy bạn và up lên đây thì may ra có người hiểu. Mình có hỏi bạn có thể gửi Teamview (gửi ID và pass phần mềm Teamview trên máy bạn để cho người khác xem hoặc tác động lên máy bạn), không được thì cũng chịu thua thôi.
Nếu bạn "chịu" để trống ô A1, khi nào ô A1 có dữ liệu mới bị "đẩy xuống", thì thử code này.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
If Target <> "" Then
[A1].EntireRow.Insert
[A1].Select
End If
End If
End SubThế này chỉ là mình nhập trực tiếp từ ô A1, còn e đẩy từ phần mền khác sang thì không được. Anh xem video trên đấy, giúp em với.
Tôi không xem được Video, cũng không biết cách "đẩy' của "phần mền" khác ra sao.
Tôi đã đính kèm file ở bài trên. khi nào bạn muốn "đẩy" thì "đẩy".
Video như thế này nè bác: một bên là phần mềm chạy (không biết có phải chạy hay không vì thấy giống như gõ số vào 1 ô trên phần mềm), bên kia là file Excel, tại A1 nhảy theo số thay đổi theo ô của phần mềm. Cái quan trọng ở đây là thanh trạng thái của Excel cho thấy luôn là Ready và không có gì thay đổi. Em vẫn chưa hiểu lắm, nếu phần mềm tác động lên Excel thì thanh trạng thái sẽ có thay đổi.
Ô C1 thay đổi theo Á mà
Giúp em với anh ơi, em đang cần gấp.
Hy vọng cái code này đúng ý của bạn
Private Sub Worksheet_Calculate()
Application.EnableEvents = False
[A2].Insert shift:=xlDown
[A2] = [A1].Value
Application.EnableEvents = True
End SubCái này là chuẩn rồi này, Em diễn tả mãi mà các bác không hiều. Thank các bác đã nhiệt tình giúp đỡ.
Lỗi này là của bạn đấy. Cách hỏi và cách diễn tả làm mọi người đơ ra hết. Kinh nghiệm cho các bài hỏi sau này nhé.
Cũng không phải đâu anh, người ta không biết về code, em nhìn video mới nghĩ ra là dùng thử Calculate Event.
Cho mình hỏi có thể dùng câu lệnh IF nếu đúng thì trả về 1 giá trị, còn không đúng thì giữ nguyên giá trị của ô đó trước đấy không? VD: IF ở ô A1 nếu đúng thì A1=B1, nếu sai thì giá trị A1 giữ nguyên. Thank
Chủ đề cũ đã xong, muốn hỏi cái khác thì vào đúng chủ đề rồi hỏi nha
Có thể đặt công thức:
=IF(INDIRECT("'Sheet2'!A"&ROW(A2))="","",INDIRECT("'Sheet2'!A"&ROW(A2)))Được rồi ạ, Thank a.
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 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)
=if(b5/60>=1,int(b5/60),0)&":"&mod(b5,60)
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.
Vẫn không được a ợ, ô nào thay đổi giá trị thì nó cũng nhảy.
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
