tự động chuyển dữ liệu công thức sang dữ liệu dạng text hoặc số (1 người xem)

[vitinhvnbmt]

như đã nêu ra ở tiêu đề bài viết, tôi muốn chuyển dữ liệu công thức ở cột E sang dữ liệu dạng text hoặc số ở cột F một cách tự động nhưng không biết làm thế nào mong ace trong gpe giúp đỡ.
(không dùng copy --> paste value nhá )

 

[leoheocon]

như đã nêu ra ở tiêu đề bài viết, tôi muốn chuyển dữ liệu công thức ở cột E sang dữ liệu dạng text hoặc số ở cột F một cách tự động nhưng không biết làm thế nào mong ace trong gpe giúp đỡ.
(không dùng copy --> paste value nhá )

Cái này chắc nhờ mấy anh viết VBA cho bạn rồi, CT làm không được!!!

 

[befaint]

như đã nêu ra ở tiêu đề bài viết, tôi muốn chuyển dữ liệu công thức ở cột E sang dữ liệu dạng text hoặc số ở cột F một cách tự động nhưng không biết làm thế nào mong ace trong gpe giúp đỡ.
(không dùng copy --> paste value nhá )

Không rõ kết quả ở cột E và F dựa trên điều kiện như nào?
E4 =SUM(B44)
E5=TODAY()
Cột F thì trống trơn.
Vậy giờ làm gì?

 

[vitinhvnbmt]

Không rõ kết quả ở cột E và F dựa trên điều kiện như nào?
E4 =SUM(B44)
E5=TODAY()
Cột F thì trống trơn.
Vậy giờ làm gì?

đơn giản là mình muốn có dữ liệu text, number đơn thuần ở cột F thôi
ở cột E nó đang là công thức (đặt chuột vào ô E3, E4, E5 thì sẽ thấy rõ ở trên formula bar)

 

[befaint]

đơn giản là mình muốn có dữ liệu text, number đơn thuần ở cột F thôi
ở cột E nó đang là công thức (đặt chuột vào ô E3, E4, E5 thì sẽ thấy rõ ở trên formula bar)

Bạn có thể diễn đạt ban đầu ở cột E và F là gì/ nhập vào như nào? sau khi tác động (click chạy sub hay sự kiện tác động vào cell nào đó) thì cho kết quả là value ở cột E và F.
p/s: Bạn đọc lại các bài mình viết xem có rõ ràng yêu cầu gì hông?

 

[HieuCD]

đơn giản là mình muốn có dữ liệu text, number đơn thuần ở cột F thôi
ở cột E nó đang là công thức (đặt chuột vào ô E3, E4, E5 thì sẽ thấy rõ ở trên formula bar)

nếu bạn không muốn copy và past value thì bạn có thể dùng cách cực nhọc hơn
ô F4 nhập công thức =E4 không bấm Enter mà bấm phím F9 tương tự cho các ô khác

 

[ndu96081631]

như đã nêu ra ở tiêu đề bài viết, tôi muốn chuyển dữ liệu công thức ở cột E sang dữ liệu dạng text hoặc số ở cột F một cách tự động nhưng không biết làm thế nào mong ace trong gpe giúp đỡ.
(không dùng copy --> paste value nhá )

Dùng sự kiện Worksheet_Calculate để giải quyết
1> Chèn 1 Module với code:

Public arr

2> Chèn code sự kiện cho Sheet1

Private Sub Worksheet_Calculate()
  Dim n As Long
  Application.EnableEvents = False
  If Not IsArray(arr) Then arr = Range("E3:E1000").Value
  For n = 1 To UBound(arr, 1)
    If Cells(n, "E").Value <> arr(n, 1) Then
      Cells(n, "F").Value = Cells(n, "E").Value
      Cells(n, "F").NumberFormat = Cells(n, "E").NumberFormat
      arr(n, 1) = Cells(n, "E").Value
    End If
  Next
  Application.EnableEvents = True
End Sub

thí nghiêm xem sao! Hên thì trúng

 

[vitinhvnbmt]

Bạn có thể diễn đạt ban đầu ở cột E và F là gì/ nhập vào như nào? sau khi tác động (click chạy sub hay sự kiện tác động vào cell nào đó) thì cho kết quả là value ở cột E và F.
p/s: Bạn đọc lại các bài mình viết xem có rõ ràng yêu cầu gì hông?

ở cột E của mình là dữ liệu dạng công thức(bạn cứ coi như ở cột E là công thức bất kỳ thôi), mình muốn có dữ liệu dạng value ở cột F bằng cách nào đó một cách tự động chứ không phải là copy rồi paste value. phải tác động vào đâu đó nó mới ra kết quả ở cột F cũng được nhưng tốt nhất là nó tự động tạo ra kết quả ở cột F thì vẫn tiện hơn.

mình diễn đạt như vậy có dễ hiểu không bạn?

 

[AutoReply]

Để mình chèn code vào file giúp bạn . Hi

 

[vitinhvnbmt]

nếu bạn không muốn copy và past value thì bạn có thể dùng cách cực nhọc hơn
ô F4 nhập công thức =E4 không bấm Enter mà bấm phím F9 tương tự cho các ô khác

cũng là một cách hay nhưng nó không tự động

 

[vitinhvnbmt]

Dùng sự kiện Worksheet_Calculate để giải quyết
1> Chèn 1 Module với code:

Public arr

2> Chèn code sự kiện cho Sheet1

Private Sub Worksheet_Calculate()
  Dim n As Long
  Application.EnableEvents = False
  If Not IsArray(arr) Then arr = Range("E3:E1000").Value
  For n = 1 To UBound(arr, 1)
    If Cells(n, "E").Value <> arr(n, 1) Then
      Cells(n, "F").Value = Cells(n, "E").Value
      Cells(n, "F").NumberFormat = Cells(n, "E").NumberFormat
      arr(n, 1) = Cells(n, "E").Value
    End If
  Next
  Application.EnableEvents = True
End Sub

thí nghiêm xem sao! Hên thì trúng

trúng trăm phần trăm luôn bác