Xin phương pháp nhập biểu theo yêu cầu

[manlucky]

Mình muốn xin các bạn công thức hoặc pp nào để khi nhập vào danh sách bàn giao . bên cột loại hồ sơ chỉ cần ấn số 1 hoặc số 2 thì nó sẽ nhảy sang các cột bên cạnh các thành phần của hồ sơ như trong mẫu . Xin đa tạ

 

[comet_1701]

Mình muốn xin các bạn công thức hoặc pp nào để khi nhập vào danh sách bàn giao . bên cột loại hồ sơ chỉ cần ấn số 1 hoặc số 2 thì nó sẽ nhảy sang các cột bên cạnh các thành phần của hồ sơ như trong mẫu . Xin đa tạ

Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range, cll As Range
Set rng = Range("A2:A1000")
If Not Intersect(Target, Range("D3:D1000")) Is Nothing Then
    For Each cll In rng
        If Val(Right(cll, 1)) = Target.Value Then
            Target.Offset(, 1).Value = cll.Offset(, 1).Value
            Target.Offset(1, 1).Value = cll.Offset(1, 1).Value
            Target.Offset(2, 1).Value = cll.Offset(2, 1).Value
        End If
    Next
End If
Set rng=Nothing
End Sub

Không biết ý bạn có phải thế này ko, Bạn chép thẳng đoạn code trên vào sheet loaihoso, Alt+F11, kích vào sheet loaihoso rồi paste vào nhé. Nhớ enble macro.

 

[chuot0106]

Mình muốn xin các bạn công thức hoặc pp nào để khi nhập vào danh sách bàn giao . bên cột loại hồ sơ chỉ cần ấn số 1 hoặc số 2 thì nó sẽ nhảy sang các cột bên cạnh các thành phần của hồ sơ như trong mẫu . Xin đa tạ

Bạn nói rõ hơn chút được không? Tôi xem File đính kèm vẫn chưa hình dung ra được vấn đề của bạn.

 

[manlucky]

để các bạn dễ hiểu hơn mình gửi lại file như này . mình muốn nhập vào mẫu 06 như trong file vs các tiêu thức như ví dụ . mình muốn làm sao để nhập 1 cách nhanh nhất in ra đc mẫu đó . mong các bạn giúp mình chỉ làm cách nào hoặc lập form như nào để nhập vào nhanh nhất có thể .

 

[comet_1701]

để các bạn dễ hiểu hơn mình gửi lại file như này . mình muốn nhập vào mẫu 06 như trong file vs các tiêu thức như ví dụ . mình muốn làm sao để nhập 1 cách nhanh nhất in ra đc mẫu đó . mong các bạn giúp mình chỉ làm cách nào hoặc lập form như nào để nhập vào nhanh nhất có thể .

Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range, cll As Range
Set rng = Sheet1.Range("A3:A1000")
If Not Intersect(Target, Sheet3.Range("F12:F1000")) Is Nothing Then
    For Each cll In rng
        If Val(Right(cll, 1)) = Target.Value Then
            Target.Offset(, 1).Value = cll.Offset(, 1).Value
            Target.Offset(1, 1).Value = cll.Offset(1, 1).Value
            Target.Offset(2, 1).Value = cll.Offset(2, 1).Value
        End If
    Next
End If
Set rng = Nothing
End Sub

Sửa lại vậy thôi,
Bạn chép thẳng đoạn code này vào sheet 3. Tại sheet 3 thử nhập số 1 vào F12. Bạn te st có gì phản hồi sớm thì mình và mọi người mới biết được còn sửa cho bạn, bài trước cũng thấy đúng yêu cầu nhưng ko thấy bạn phản hồi nên chả biết thế nào

 

[manlucky]

Cám ơn bạn rất nhiều . mình đã test và làm đc . cho mình hỏi thêm là mình muốn thêm nhiều các chủng loại hồ sơ hoặc thêm thành phần cho 1 loại hồ sơ thì sửa chỗ nào trong code trên . Bạn vui lòng bôi đen đoạn đó giúp mình để mình tiện sửa nhé . Đa tạ đa tạ.

 

[manlucky]

Cám ơn bạn rất nhiều . mình đã test và làm đc . cho mình hỏi thêm là mình muốn thêm nhiều các chủng loại hồ sơ hoặc thêm thành phần cho 1 loại hồ sơ thì sửa chỗ nào trong code trên . Bạn vui lòng bôi đen đoạn đó giúp mình để mình tiện sửa nhé . Đa tạ đa tạ.

Mình làm đc rồi , cứ thêm vào đc nó sẽ tự nhảy thêm , hì . cám ơn các bạn nhiều nha .

 

[comet_1701]

Cám ơn bạn rất nhiều . mình đã test và làm đc . cho mình hỏi thêm là mình muốn thêm nhiều các chủng loại hồ sơ hoặc thêm thành phần cho 1 loại hồ sơ thì sửa chỗ nào trong code trên . Bạn vui lòng bôi đen đoạn đó giúp mình để mình tiện sửa nhé . Đa tạ đa tạ.

Mở rộng vùng range ra thôi, và thêm or bớt hàm offset, Ko biết bạn có biết hàm đó ko, chỉ cần biết qua offset là tử sửa được thôi, nếu chưa biết bạn vào diễn đàn thêm khảo thêm, or đưa file có tất cả tình huống lền