Coppy comment, find &place

[miumiu]

Mình phụ trách phần nguyên vật liệu theo mã (code) cho từng sản phẩm, có khoảng mấy trăm danh mục cho nên việc vào mỗi danh mục mình thường tính tổng cho mỗi phiếu nhập. Để theo dõi kiểm tra lại việc vào số liệu có đúng ko mình thường làm comment trên bảng Excel số của phiếu nhập đó, có 2 vấn đề:


· Làm thế nào để copy nội dung comment từ ô này sang ô khác trong excel
· Sau khi “find all” tất cả các dữ liệu cần tìm, làm thế nào để thao tác được số liệu trên http:///ô find & place, ví dụ như tính tổng của những dữ liệu trong ô tìm kiếm này
Mọi người giúp mình với mình đang làm mảng công cụ dụng cụ mà theo dõi theo code nên nhiều quá.

 

[SoiBien]

bạn

• chọn ô có comments,
• copy,
• chọn ô cần paste comments
• click chuột phải
• chọn paste specials
• stick vào ô comments
• OK

Câu sau khó hiểu quá, làm sao mà find all??? mỗi lần bạn replace all, thì nó cũng chỉ chọn tới ô cuối cùng thỏa mãn đk find, rồi ra ngoài làm việc chứ nhỉ ???

 

[duongsatdn]

[/quote]

· Làm thế nào để copy nội dung comment từ ô này sang ô khác trong excel
· Sau khi “find all” tất cả các dữ liệu cần tìm, làm thế nào để thao tác được số liệu trên ô find & place, ví dụ như tính tổng của những dữ liệu trong ô tìm kiếm này

- Copy comment: sau khi copy vào edit/paste special chọn comment.
- Lênh Find... chỉ tìm ra vị trí của giá trị cần tìm trên bảng tính.
- Find All sẽ mở rộng hộp thoại Find... và chỉ rõ tên book; sheet nào; địa chỉ ô chứa giá trị cần tìm...

 

[anhtuan1066]

Có lẽ tôi hơi hiểu hiểu ý bạn... Có thể đầu tiên ban Find tất cả giá trị nào đó, chẳng hạn là MAHANG, tiếp theo bạn muốn tính tổng theo mả hàng này chăng?... E rằng chức năng Find and Replace chỉ làm dc đến thế, ko thể đáp ứng yêu cầu của bạn dc...
Tốt nhất bạn post file lên thì mọi người sẽ dễ dàng tìm dc giãi pháp đấy!
ANH TUẤN

 

[duyhoa83]

Vấn đề này cũng khó đấy. Vì từ trước tới giờ mọi người chỉ thao tác tìm vị trí của Cell đó chứ chưa thực hiện các lệnh khác như: sum, avarage....
Mình nghĩ cái này chắc lại xử lý bằng VBA đây (hehe.. nhưng không biết làm thế nào). Có cao thủ nào giúp 1 tay nhỉ.

 

[winterqueen]

hyperlink

Các bạn ơi mình đang nghiên cứu về siêu liên kết trong Excel. Nhưng đang "mù tịt" các bạn chỉ cho mình với cảm ơn nha.

 

[SoiBien]

Chắc đại khái là một cái thủ tục Selection(value) không biết phải ý này không bạn nhỉ? Sau khi select các ô thỏa điều kiện xong thì ở dưới thanh Status cho ta biết Sum(average,min, max,..) của các ô Select ? (nhưng nếu trên nhiêu Sheet thì nó sẽ không hiện đâu ? đau đầu

 

[miumiu]

Ý của mình là mình sẽ find all tất cả các ô có cùng comment, trong kết quả hiển thị tại "find &replace" sẽ có các ô thể hiện giá trị có cùng comment đó, mình muốn tính tổng của các giá trị đó trên excel, bi jờ toàn làm phương pháp thủ công là cộng = máy tính thôi, nếu mà ít thì còn được chứ mấy chục thì hơi mệt.
Nội dung comment là số của 1 phiếu nhập, mỗi phiếu có nhiều loại hàng, mỗi loại là một loại code và có giá trị khác nhau.
Thường mỗi hàng hoá mình phải nhập là số lượng, đơn giá, số tiền. Comment được đánh dấu ở cột số tiền. Khi mình find all tìm theo điều kiện là comment thì kết quả chỉ thể hiện cột số tiền, còn số lượng, đơn giá, và code mình không xem được. Thực ra đây là việc mình làm để kiểm tra lại xem mình nhập liệu có đúng ko.

 

[miumiu]

To Soibien: cám ơn bạn vì phần comment, bạn có biết phím tăt của thao tác này ko, chỉ mình với. thanks!!

 

[SoiBien]

:d bạn cám ơn bằng nút Thanks nhé.
không có phím tắt, bạn dùng lần lượt các phím sau
alt E S C
rồi enter

Nếu cần thiết thì mình làm một cái Macro cho bạn

 

[SoiBien]

Nội dung comment là số của 1 phiếu nhập

Có thể bạn chưa sử dụng hàm Sumif, theo ý tôi, bạn nên thêm một cột là "Phiếu Nhập Số" rồi thay vi comments, bạn nhập thẳng số phiếu vào cột này, mỗi khi cần kiểm tra thì rất đơn giản, dùng sumif để kiểm tra tổng số tiền, dùng Autofilter để kiểm tra tòan bộ phiếu.
Nếu bạn có thể attach file lên đây (dữ liệu ví dụ vài chục dòng thôi) thì chắc mọi người sẽ giúp bạn tăng cường được sự kiểm soát của bạn với công việc.
Thân.

 

[anhtuan1066]

Bạn nên post file lên đi, bảo đảm sẽ có cách khác hay hơn... Ai lại đi làm như thế cho khổ thân! Có thể sẽ giống như cách mà bạn Soibien vừa nói đấy!
ANH TUẤN

 

[miumiu]

Có lẽ mình sẽ post file lên, nhưng mà ko biết bằng cách nào để đính kèm file excel nhỉ?, vấn đề là mình làm báo cáo tháng nên ko thể nhập số phiếu nhập vào trong bảng được soibien à chỉ viết comment thôi để in ra coi như ko thấy gì cả.

 

[anhtuan1066]

Nếu bạn ko biết cách post file thì... ái chà... trên diển đàn có hướng dẩn đấy bạn à... Hay là nhanh nhất bạn hảy gữi mail cho tôi... Tôi post lên giùm bạn
D/c của tôi: yeulachet1066@yahoo.com
ANH TUẤN

 

[duongsatdn]

Có lẽ mình sẽ post file lên, nhưng mà ko biết bằng cách nào để đính kèm file excel nhỉ?, vấn đề là mình làm báo cáo tháng nên ko thể nhập số phiếu nhập vào trong bảng được soibien à chỉ viết comment thôi để in ra coi như ko thấy gì cả.

Tạo thêm cột như hướng dẫn của Soibien rất thuận tiện cho việc tính toán, tìm kiếm... Nếu không cần in cột này thì ẩn đi thôi mà.

 

[anhtuan1066]

Thật ra tôi chỉ hơi mường tượng yêu cầu chứ chưa thật sự hiểu chi tiết nó như thế nào... Nhưng tôi tin rằng nếu xem dc file của bạn thì có lẽ mọi người sẽ có cách giãi quyết đấy!
ANH TUẤN

 

[duongsatdn]

Gửi Miumiu:
Nếu file của bạn đã thực hiện có nhiều comment, bây giờ muốn chuyển nội dung comment sang một cột phụ thì có thể dùng macro này
Sub ShowCommentsNextCell()
'Copy comment sang ô liền kề
Application.ScreenUpdating = False

Dim commrange As Range
Dim mycell As Range
Dim curwks As Worksheet

Set curwks = ActiveSheet

On Error Resume Next
Set commrange = curwks.Cells _
.SpecialCells(xlCellTypeComments)
On Error GoTo 0

If commrange Is Nothing Then
MsgBox "no comments found"
Exit Sub
End If

For Each mycell In commrange
If mycell.Offset(0, 1).Value = "" Then
mycell.Offset(0, 1).Value = mycell.Comment.Text
End If
Next mycell

Application.ScreenUpdating = True

End Sub

Đây là đoạn code tôi sưu tầm được.
Thân!

 

[SA_DQ]

Ý của mình là mình sẽ find all tất cả các ô có cùng comment, trong kết quả hiển thị tại "find & replace" sẽ có các ô thể hiện giá trị có cùng comment đó, mình muốn tính tổng của các giá trị đó trên excel, bi jờ toàn làm phương pháp thủ công là cộng = máy tính thôi, nếu mà ít thì còn được chứ mấy chục thì hơi mệt.
Thường mỗi hàng hoá mình phải nhập là số lượng, đơn giá, số tiền. Comment được đánh dấu ở cột số tiền. Khi mình find all tìm theo điều kiện là comment thì kết quả chỉ thể hiện cột số tiền, còn số lượng, đơn giá, và code mình không xem được. Thực ra đây là việc mình làm để kiểm tra lại xem mình nhập liệu có đúng ko.

Mình nêu dường hướng sau, bạn kiểm lại nếu đúng ý ta sẽ tiếp tục:
Bạn khai báo 1 biến
Dim Rng As Range
Sau đó tìm như bạn đã làm lần lượt những ô có Comment;
Khi tìm thấy thì dùng phương thức Union mà ghép vô biến Rng nêu trên;
Câu lệnh nó sẽ như sau:

If Rng Is Nothing then
  Set Rng= Selection
Else
 Set Rng = Union(Rng, Selection)
End If

Sau đó bạn có thể tính tổng các ô này hay ô lân cận theo phương thức Offset()

Hay ngược lại, . . . .