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

[leonguyenz]

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.
Bạn hoanghoa thử gõ tại ô C1 =A1 và chạy thử xem, nếu C1 có thay đổi theo A1 thì có thể dùng sự kiện Worksheet_Calculate thay vì Change.

 

[hoanghoa_dtt91]

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.
Bạn hoanghoa thử gõ tại ô C1 =A1 và chạy thử xem, nếu C1 có thay đổi theo A1 thì có thể dùng sự kiện Worksheet_Calculate thay vì Change.

Ô C1 thay đổi theo Á mà
Thay vào nó báo lỗi anh có thể thay cho e đc không, e ko biết lập trinh VBS

 

[hoanghoa_dtt91]

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.
Bạn hoanghoa thử gõ tại ô C1 =A1 và chạy thử xem, nếu C1 có thay đổi theo A1 thì có thể dùng sự kiện Worksheet_Calculate thay vì Change.

Giúp em với anh ơi, em đang cần gấp.

 

[hoanghoa_dtt91]

Anh Chị nào giúp em với. e liên kết 1 phần mền với excel, giờ nhập giá trị bên phần bên kia giá trị sẽ được đưa sang 1 ô A1 bên excel, em muốn mỗi lần giá trị mới đưa sang ô A1 thì giá trị trước đó được đẩy dần xuống hành dưới. Cứ vậy đẩy thành một cột dữ liệu. giờ em đang nhập như thế này: http://www.mediafire.com/?004rs6oh1ixzw6k
Ai giúp e với, Thank!

 

[Quang_Hải]

Anh Chị nào giúp em với. e liên kết 1 phần mền với excel, giờ nhập giá trị bên phần bên kia giá trị sẽ được đưa sang 1 ô A1 bên excel, em muốn mỗi lần giá trị mới đưa sang ô A1 thì giá trị trước đó được đẩy dần xuống hành dưới. Cứ vậy đẩy thành một cột dữ liệu. giờ em đang nhập như thế này: http://www.mediafire.com/?004rs6oh1ixzw6k
Ai giúp e với, Thank!

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 Sub

 

[hoanghoa_dtt91]

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 Sub

Cá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 đỡ.

 

[Quang_Hải]

Cá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é.

 

[leonguyenz]

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.

 

[hoanghoa_dtt91]

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

 

[Quang_Hải]

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

 

[hoanghoa_dtt91]

Cho em hỏi tiếp chủ đề củ, hôm trước đã chuyển ra thành một cột dữ liệu rồi, giờ em tạo bảng ở Sheet khác và muốn chuyển dữ liệu cột kia về, em dùng lệnh ở ô A2 =Sheet2!A2 (Sheet2 chứa cột dữ liệu) thì không được. Khi e xem lại thì khi nào có co giá trị mới đẩy xuống thì cái =Sheet!A2 cúng tăng lên Sheet!A3....nó cứ bằng cái giá trị được gán trước đó. a giúp em chuyển giá trị từ Sheet này qua Sheet khác bằng VBS với

 

[leonguyenz]

Cho em hỏi tiếp chủ đề củ, hôm trước đã chuyển ra thành một cột dữ liệu rồi, giờ em tạo bảng ở Sheet khác và muốn chuyển dữ liệu cột kia về, em dùng lệnh ở ô A2 =Sheet2!A2 (Sheet2 chứa cột dữ liệu) thì không được. Khi e xem lại thì khi nào có co giá trị mới đẩy xuống thì cái =Sheet!A2 cúng tăng lên Sheet!A3....nó cứ bằng cái giá trị được gán trước đó. a giúp em chuyển giá trị từ Sheet này qua Sheet khác bằng VBS với

Có thể đặt công thức:

=IF(INDIRECT("'Sheet2'!A"&ROW(A2))="","",INDIRECT("'Sheet2'!A"&ROW(A2)))

 

[hoanghoa_dtt91]

Có thể đặt công thức:

=IF(INDIRECT("'Sheet2'!A"&ROW(A2))="","",INDIRECT("'Sheet2'!A"&ROW(A2)))

Được rồi ạ, Thank a.

 

[hoanghoa_dtt91]

Cho em hỏi tiếp code nay:
Private Sub Worksheet_Calculate()
Application.EnableEvents = False
[A2].Insert shift:=xlDown
[A2] = [A1].Value
[B2].Insert shift:=xlDown (cai nay em them)
[B2] = [B1].Value (cai nay em them)
Application.EnableEvents = True
End Sub
Giờ em muốn thêm cả cột B nữa, em vừa thêm thì 1 thằng thay đổi cả 2 thằng cùng đẩy dữ liệu xuống. giờ làm sao được a?

 

[Quang_Hải]

Cho em hỏi tiếp code nay:
Private Sub Worksheet_Calculate()
Application.EnableEvents = False
[A2].Insert shift:=xlDown
[A2] = [A1].Value
[B2].Insert shift:=xlDown (cai nay em them)
[B2] = [B1].Value (cai nay em them)
Application.EnableEvents = True
End Sub
Giờ em muốn thêm cả cột B nữa, em vừa thêm thì 1 thằng thay đổi cả 2 thằng cùng đẩy dữ liệu xuống. giờ làm sao được 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

 

[hoanghoa_dtt91]

Anh cho em hỏi luôn Excel có hàm chuyển định dạng từ phút sang time ko a? VD: 121phút = 02:01:00(h)

 

[thanhsangnguyen1982]

Giải pháp excel gom gom

Xem thử file đính kèm

 

[hoanghoa_dtt91]

Anh ơi bỏ hộ em cái chữ phút, để mình số thôi.

 

[thanhsangnguyen1982]

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

 

[Lê Duy Thương]

bỏ chữ phút thì công thức =round(c5/60,0)&":"&mod(c5,60)

vẫn còn quá dài đó bạn
như vầy nè

=(a1/60)/24

FORMATCEL
hh:mm:ss