Copy lấy phần nguyên? (1 người xem)

[ditimdl]

Không biết mình đặt tiêu đề có đúng không? Nếu không đúng mong các bác bỏ qua nha.
Ví dụ tại ô A1 chứa giá trị 1000.06 ( chứa 2 số thập phân), mình làm tròn số thập phân về 0 thì nó sẽ thành 1000 (nhìn thấy) chứ chọn ô A1 thì giá trị của nó vẫn là 1000.06 .
Mình muốn copy và gián nơi khác sẽ thành số 1000 chứ không muốn có .06 đi theo số 1000 đó. Không dùng hàm để làm tròn và copy xong paste sang nơi khác theo kiểu value nha. (Nhiều cột và nhiều số quá làm theo cách này phiền quá )
Mong các bác giúp đỡ!

 

[leonguyenz]

Nếu không dùng công thức hoặc VBA thì không thể có trường hợp "tự mất đi" một phần của giá trị. Bạn hiểu từ Coppy rồi chứ, có nghĩa là nó "sao y bản chính".

 

[Lê Duy Thương]

không biết mình đặt tiêu đề có đúng không? Nếu không đúng mong các bác bỏ qua nha.
Ví dụ tại ô a1 chứa giá trị 1000.06 ( chứa 2 số thập phân), mình làm tròn số thập phân về 0 thì nó sẽ thành 1000 (nhìn thấy) chứ chọn ô a1 thì giá trị của nó vẫn là 1000.06 .
Mình muốn copy và gián nơi khác sẽ thành số 1000 chứ không muốn có .06 đi theo số 1000 đó. Không dùng hàm để làm tròn và copy xong paste sang nơi khác theo kiểu value nha. (nhiều cột và nhiều số quá làm theo cách này phiền quá )
mong các bác giúp đỡ!

Bấm ctrl+h là làm theo hình

 

[ditimdl]

Bấm ctrl+h là làm theo hình

Chấp nhận được nhưng chưa được như ý lắm. Ví dụ tại ô A1 chứa giá trị 1000.68, khi làm tròn thì nó sẽ là 1001 nhưng khi chọn ô A1 nó vẫn hiển thị 1000.68. Mình muốn copy lấy cái số hiển thị (nhìn thấy) và paste đi nơi khác nó sẽ là 1001.
Có cách nào không các bác?
To leonguyenz: VBA thì ok quá đi chứ nhưng mình không đủ khả năng để làm điều đó.

 

[SA_DQ]

[thongbao]To leonguyenz: VBA thì ok quá đi chứ nhưng mình không đủ khả năng để làm điều đó. [/thongbao]

Đâu cần bạn làm, cần bạn xài thôi mà!

Đưa file của bạn lên đi, . . . .

 

[thanhtrg]

Không biết mình đặt tiêu đề có đúng không? Nếu không đúng mong các bác bỏ qua nha.
Ví dụ tại ô A1 chứa giá trị 1000.06 ( chứa 2 số thập phân), mình làm tròn số thập phân về 0 thì nó sẽ thành 1000 (nhìn thấy) chứ chọn ô A1 thì giá trị của nó vẫn là 1000.06 .
Mình muốn copy và gián nơi khác sẽ thành số 1000 chứ không muốn có .06 đi theo số 1000 đó. Không dùng hàm để làm tròn và copy xong paste sang nơi khác theo kiểu value nha. (Nhiều cột và nhiều số quá làm theo cách này phiền quá )
Mong các bác giúp đỡ!

Chép đoạnmã sau vào 1 module

Sub Copint()
Set a = Selection
For i = 1 To a.Rows.Count
For j = 1 To a.Columns.Count
a(i, j) = WorksheetFunction.Round(a(i, j), 0)
Next
Next
End Sub

Thao tác :
- Chọn vùng số liệu gốc (1) . Copy
- Chọn ô cần dán . Paste special-value (2)
- Chọn vùng (2) . Run macro Copint()