Tìm nhiều giá trị thay thế 1 giá trị trong 1 bảng tính

[nghidinh24]

1. Dữ liệu bạn không chuẩn, STT 1 có sheet ở dòng 9, có sheet ở dòng 10, có sheet dòng 11 lu xu bu.



2. Trong file bạn có những sheet đâu có giống mẫu cần thay các số >0 thành 1, như sheet đi muộn, ăn ca... làm sao chạy, trong khi bạn nói chạy tất cả?
3. Nói chung là yêu cầu "trớt huớt", làm không nỗi.

Đúng ah.
Như bác Ba Tê nói. Nó không giống nhau. nhưng em có đã chỉnh sửa và tạo cho nó đồng bộ giống nhau rùi ah.


Mà em có vấn đề là khi em vào pần help trong cửa sổ VBA thì nó luôn bị link sang việc tìm sự giúp đỡ trên mạng Chrome. mà nó ko giúp đỡ thẳng luôn trong cửa sổ mà ko kết nối mạng là như thê nào?
Làm thế nào em có thể tự động cho nó tự giúp trong cửa sổ mà ko cần có mạng

View more random threads:

• Từ một mã cho trước tìm ra thông số những cột tương ứng - Không dùng VBA
• Anh chị giúp em theo yêu cầu của file em đính kèm phía dưới
• Lỗi khi mở file đuôi .xls
• Hướng dẫn làm file báo cáo
• Tìm giá trị thỏa nhiều điều kiện
• Công thức nhận biết
• Các bác giúp em lập bảng tính lương tự động theo đơn giá này với ạ
• Anh chị chỉ giùm em cách làm phần FORMS của F_Xem với
• [Help] Tìm số trang của 1 ô trong excel
• Hỏi về sử dụng hàm IF có điều kiện là giờ

[Hong_Linh]

Em có file đính kèm:
Hiện tại em muốn thay thế giá trị khác 0 bằng giá trị 1.
người cho em hỏi công thức nào để có thể thay thế hay replace những giá trị đó bằng 1.

[thuyvt123]

bạn thay thế tất cả các cột luôn hay sao?

đúng rùi. MÌnh muốn thay đổi tất cả các cột, nếu ko có công thức mà làm thủ công thì ko biết bao giờ xong. đó chỉ là 1 tổ. mà mình pải làm cả 23 tổ trong vòn 12 tháng. [IMG]images/smilies/a00.gif[/IMG]

[caynguqua]

đúng rùi. MÌnh muốn thay đổi tất cả các cột, nếu ko có công thức mà làm thủ công thì ko biết bao giờ xong. đó chỉ là 1 tổ. mà mình pải làm cả 23 tổ trong vòn 12 tháng. [IMG]images/smilies/a00.gif[/IMG]

Quét chọn vùng muốn thay các ô >0 thành số 1.
Run Sub này bằng cách nào đó.

Public Sub GPE()Dim Cll As RangeFor Each Cll In Selection    If Cll.Value > 0 Then Cll.Value = 1Next CllEnd Sub  

[minhtien123]

Quét chọn vùng muốn thay các ô >0 thành số 1.
Run Sub này bằng cách nào đó.

<div class="bbcode_container">
<div class="bbcode_description">PHP Code:

</div>
</div>
</div>
đúng ý em rùi. Cảm ơn bác.

[pu6511]

Quét chọn vùng muốn thay các ô >0 thành số 1.
Run Sub này bằng cách nào đó.

<div class="bbcode_container">
<div class="bbcode_description">PHP Code:

</div>
</div>
</div>
Nếu như bây giờ em muốn chọn cả workbook thì phải vào từng sheet để run macro ah.
Có cách làm cho cả workbook mọi số >0 đều chuyển sang 1 ko ah?

[nmhquoc]

Option ExplicitSub ThayBang1() Dim Sh As Worksheet, Cls As Range, Rng As Range For Each Sh In ThisWorkbook.Worksheets    Set Rng = Sh.UsedRange.SpecialCells(xlCellTypeConstants, 1)    If Not Rng Is Nothing Then        With Cls            For Each Cls.Offset() In Rng                If .Value > 0 Then .Value = 1            Next Cls        End With    End If Next ShEnd Sub  

Tranh thủ lúc thầy Ba Tuế đang nhậu!

[1aido]

<div class="bbcode_container">
<div class="bbcode_description">PHP Code:

</div>
</div>
</div>
Bác HoangYen !
Nó bị lỗi như hình
http://i.imgur.com/osByVGm.png
không thể run được ah.

[buidinhsg]

Bác HoangYen !
Nó bị lỗi như hình
http://i.imgur.com/osByVGm.png
không thể run được ah.

Bỏ dòng Option Explicit trong code của bạn(dòng đầu tiên đó) xem có được không?

-------------------------------------------------------------------------------------------
Nếu không được thì chạy sub này xem sao!

Public Sub GPE()
Dim Cll As Range, Ws As Worksheet
For Each Ws In Worksheets
    For Each Cll In Ws.Range("Vung Can Chuyen")
        If Cll.Value > 0 Then Cll.Value = 1
    Next Cll
Next Ws
End Sub

Thay chỗ in đậm thành địa chỉ cụ thể vùng của bạn!

[khamnamkhoa]

Nếu như bây giờ em muốn chọn cả workbook thì phải vào từng sheet để run macro ah.
Có cách làm cho cả workbook mọi số >0 đều chuyển sang 1 ko ah?

Lý ra bạn nên cung cấp thêm 1 thông tin quan trọng: Tìm và thay thế trong vùng nào? Vì chẳng lý nào thay thế mọi thứ trên bảng tính thành số 1 hết
Tôi giả định rằng bạn sẽ tìm và thay thế trong vùng D9:AH35. Vậy code thế này

Sub Test()
  Dim wks As Worksheet
  For Each wks In Worksheets
    With wks.Range("D9:AH35")
      .Replace 0, "o", xlWhole
      .SpecialCells(xlCellTypeConstants, 1).Replace "*", 1
      .Replace "o", 0, xlWhole
    End With
  Next
End Sub