Tìm tiêu đè dòng và tiêu đề cột (1 người xem)

[vulunktheky]

Chào mọi người,
Mình có 1 file dữ liệu như này:
Sheet data chứa dữ liệu theo từng vùng không cố định số dòng và số cột.
- Thì vấn đề của mình là khi nhập vào điều kiện của 1 vùng thì sẽ tìm ra tiêu đề của dòng và tiêu đề của cột đó ở vị trí bất kỳ.

- Ví dụ1: Điều kiện để tìm là 1200, thì điều kiện phải nối thêm số 3 vào để được 31200 để dò tìm sang sheet data
và kết quả trả về là tiêu đề dòng: Screw position và tiêu đề cột: Shooting seat 1.
- Ví dụ 2: Điều kiện để tìm là 1387.01, thì điều kiện phải nối thêm số 3 vào để được 31387.01 để dò tìm sang sheet data
và kết quả trả về là tiêu đề dòng: Safety door closed và tiêu đề cột: Position 1

Mình xin cảm ơn mọi người.

 

[snow25]

Chào mọi người,
Mình có 1 file dữ liệu như này:
Sheet data chứa dữ liệu theo từng vùng không cố định số dòng và số cột.
- Thì vấn đề của mình là khi nhập vào điều kiện của 1 vùng thì sẽ tìm ra tiêu đề của dòng và tiêu đề của cột đó ở vị trí bất kỳ.

- Ví dụ1: Điều kiện để tìm là 1200, thì điều kiện phải nối thêm số 3 vào để được 31200 để dò tìm sang sheet data
và kết quả trả về là tiêu đề dòng: Screw position và tiêu đề cột: Shooting seat 1.
- Ví dụ 2: Điều kiện để tìm là 1387.01, thì điều kiện phải nối thêm số 3 vào để được 31387.01 để dò tìm sang sheet data
và kết quả trả về là tiêu đề dòng: Safety door closed và tiêu đề cột: Position 1

Mình xin cảm ơn mọi người.

Bạn biết viết code VBA không.

 

[vulunktheky]

Bạn biết viết code VBA không.

Mình chưa có hiểu code vba bạn ơi. Nhờ bạn hỗ trợ giúp.

 

[BuiQuangThuan]

Số trong data có trùng nhau bao giờ không?

 

[vulunktheky]

Số trong data có trùng nhau bao giờ không?

Sheet data không trùng số bạn ơi

 

[BuiQuangThuan]

Sheet data không trùng số bạn ơi

Giờ bạn muốn dùng VBA à

 

[vulunktheky]

Giờ bạn muốn dùng VBA à

Nếu công thức xử lý được thì có thể dùng công thức, nếu công thức không khả thi thì VBA bạn.

 

[TongDe]

Nếu chỉ để xem --> Làm cho bạn cái text search, đánh thử vài kí tự vào để tìm...
Hoặc tạo bảng TongHop rồi dùng Vlookup...Cell C2

 

[vulunktheky]

Nếu chỉ để xem --> Làm cho bạn cái text search, đánh thử vài kí tự vào để tìm...
Hoặc tạo bảng TongHop rồi dùng Vlookup...Cell C2

dữ liệu ở sheet data mình đưa ra là dữ liệu mẫu, nếu mà dữ liệu lên tới 1000 dòng tương ứng khoảng vài trăm bảng thì sẽ như thế nào bạn.

 

[VetMini]

dữ liệu ở sheet data mình đưa ra là dữ liệu mẫu, nếu mà dữ liệu lên tới 1000 dòng tương ứng khoảng vài trăm bảng thì sẽ như thế nào bạn.

Vài trăm bảng thì kiếm phần mềm khác mà làm.
Tầm cỡ này mà quản lý bằng Excel thì công ty hà tiện quá mức.

 

[SA_DQ]

Mình cho macro này chạy trên file của bạn:

Sub TimKiemDuLieu()
 Dim Rng As Range, sRng As Range, Cls As Range
 Dim MyAdd As String
 Const MyColor = 34
 Dim W As Integer
 
 Sheet1.Select
 With Sheets("Data")
    Set Rng = .UsedRange
    For Each Cls In Range([C2], [C2].End(xlDown))
        Set sRng = Rng.Find(Cls.Value, , xlFormulas, xlPart)
        If sRng Is Nothing Then
            Cls.Interior.ColorIndex = 38
        Else
            W = 0
            MyAdd = sRng.Address
            Do
                W = W + 1
                Cls.Interior.ColorIndex = MyColor + W
                Cls.Offset(, 2).Value = sRng.End(xlToLeft).Value
                Cls.Offset(, 3).Value = sRng.End(xlUp).Value
                Set sRng = Rng.FindNext(sRng)
            Loop While Not sRng Is Nothing And sRng.Address <> MyAdd
        End If
    Next Cls
 End With
End Sub

& kết quả không đến nổi tệ:

Screw position

Shooting seat 1

1200​

Screw position

Shooting seat 1

Actual material quantity

Shooting seat 1

1204​

Actual material quantity

Shooting seat 1

Injection time

Shooting seat 1

1208​

Injection time

Shooting seat 1

Screw speed

Shooting seat 1

1212​

Screw speed

Shooting seat 1

Actual injection rate

Shooting seat 1

1216​

Actual injection rate

Shooting seat 1

Actual injection pressure

Shooting seat 1

1220​

Actual injection pressure

Shooting seat 1

Feeding time

Shooting seat 1

1224​

Feeding time

Shooting seat 1

Screw position

Shooting seat 2

1201​

Screw position

Shooting seat 2

Actual material quantity

Shooting seat 2

1205​

Actual material quantity

Shooting seat 2

Injection time

Shooting seat 2

1209​

Injection time

Shooting seat 2

Screw speed

Shooting seat 2

1213​

Screw speed

Shooting seat 2

Actual injection rate

Shooting seat 2

1217​

Actual injection rate

Shooting seat 2

Actual injection pressure

Shooting seat 2

1221​

Actual injection pressure

Shooting seat 2

Feeding time

Shooting seat 2

1225​

Feeding time

Shooting seat 2

Screw position

Shooting seat 3

1202​

Screw position

Shooting seat 3

Actual material quantity

Shooting seat 3

1206​

Actual material quantity

Shooting seat 3

Injection time

Shooting seat 3

1210​

Injection time

Shooting seat 3

Screw speed

Shooting seat 3

1214​

Screw speed

Shooting seat 3

Actual injection rate

Shooting seat 3

1218​

Actual injection rate

Shooting seat 3

Actual injection pressure

Shooting seat 3

1222​

Actual injection pressure

Shooting seat 3

Feeding time

Shooting seat 3

1226​

Feeding time

Shooting seat 3

Screw position

Shooting seat 4

1203​

Screw position

Shooting seat 4

Actual material quantity

Shooting seat 4

1207​

Actual material quantity

Shooting seat 4

Injection time

Shooting seat 4

1211​

Injection time

Shooting seat 4

Screw speed

Shooting seat 4

1215​

Screw speed

Shooting seat 4

Actual injection rate

Shooting seat 4

1219​

Actual injection rate

Shooting seat 4

Actual injection pressure

Shooting seat 4

1223​

Actual injection pressure

Shooting seat 4

Feeding time

Shooting seat 4

1227​

Feeding time

Shooting seat 4

Safety door closed

Position 1

1387​

Upper stop of rear plate

Shooting seat 1

Safety door opened

Position 1

1387.01​

Safety door opened

Shooting seat 1

 

[vulunktheky]

Mình cho macro này chạy trên file của bạn:

Sub TimKiemDuLieu()
 Dim Rng As Range, sRng As Range, Cls As Range
 Dim MyAdd As String
 Const MyColor = 34
 Dim W As Integer
 
 Sheet1.Select
 With Sheets("Data")
    Set Rng = .UsedRange
    For Each Cls In Range([C2], [C2].End(xlDown))
        Set sRng = Rng.Find(Cls.Value, , xlFormulas, xlPart)
        If sRng Is Nothing Then
            Cls.Interior.ColorIndex = 38
        Else
            W = 0
            MyAdd = sRng.Address
            Do
                W = W + 1
                Cls.Interior.ColorIndex = MyColor + W
                Cls.Offset(, 2).Value = sRng.End(xlToLeft).Value
                Cls.Offset(, 3).Value = sRng.End(xlUp).Value
                Set sRng = Rng.FindNext(sRng)
            Loop While Not sRng Is Nothing And sRng.Address <> MyAdd
        End If
    Next Cls
 End With
End Sub

& kết quả không đến nổi tệ:

Screw position

Shooting seat 1

1200​

Screw position

Shooting seat 1

Actual material quantity

Shooting seat 1

1204​

Actual material quantity

Shooting seat 1

Injection time

Shooting seat 1

1208​

Injection time

Shooting seat 1

Screw speed

Shooting seat 1

1212​

Screw speed

Shooting seat 1

Actual injection rate

Shooting seat 1

1216​

Actual injection rate

Shooting seat 1

Actual injection pressure

Shooting seat 1

1220​

Actual injection pressure

Shooting seat 1

Feeding time

Shooting seat 1

1224​

Feeding time

Shooting seat 1

Screw position

Shooting seat 2

1201​

Screw position

Shooting seat 2

Actual material quantity

Shooting seat 2

1205​

Actual material quantity

Shooting seat 2

Injection time

Shooting seat 2

1209​

Injection time

Shooting seat 2

Screw speed

Shooting seat 2

1213​

Screw speed

Shooting seat 2

Actual injection rate

Shooting seat 2

1217​

Actual injection rate

Shooting seat 2

Actual injection pressure

Shooting seat 2

1221​

Actual injection pressure

Shooting seat 2

Feeding time

Shooting seat 2

1225​

Feeding time

Shooting seat 2

Screw position

Shooting seat 3

1202​

Screw position

Shooting seat 3

Actual material quantity

Shooting seat 3

1206​

Actual material quantity

Shooting seat 3

Injection time

Shooting seat 3

1210​

Injection time

Shooting seat 3

Screw speed

Shooting seat 3

1214​

Screw speed

Shooting seat 3

Actual injection rate

Shooting seat 3

1218​

Actual injection rate

Shooting seat 3

Actual injection pressure

Shooting seat 3

1222​

Actual injection pressure

Shooting seat 3

Feeding time

Shooting seat 3

1226​

Feeding time

Shooting seat 3

Screw position

Shooting seat 4

1203​

Screw position

Shooting seat 4

Actual material quantity

Shooting seat 4

1207​

Actual material quantity

Shooting seat 4

Injection time

Shooting seat 4

1211​

Injection time

Shooting seat 4

Screw speed

Shooting seat 4

1215​

Screw speed

Shooting seat 4

Actual injection rate

Shooting seat 4

1219​

Actual injection rate

Shooting seat 4

Actual injection pressure

Shooting seat 4

1223​

Actual injection pressure

Shooting seat 4

Feeding time

Shooting seat 4

1227​

Feeding time

Shooting seat 4

Safety door closed

Position 1

1387​

Upper stop of rear plate

Shooting seat 1

Safety door opened

Position 1

1387.01​

Safety door opened

Shooting seat 1

Dạ, em cảm ơn anh.