Hợp đồng lao động không nhẩy dữ liệu khi Spin theo số thứ tự

Liên hệ QC

chothadiem

Thành viên hoạt động
Tham gia
29/10/18
Bài viết
188
Được thích
50
Xin chào toàn thể các thầy (cô), anh (chị) trên GPE.
Em có sưu tầm được hợp đồng lao động trên diễn đàn GPE.
dữ liệu được lấy từ Sheet (DM_HD) để điền sang sheet (HD_LD) theo số thứ tự.
nhưng khi dữ liệu được lấy sang thì ở dòng số 25 (B25) trong sheet (HD_LD) không nhẩy dữ liệu khi spin.
Dữ liệu dòng số 25 trong sheet (HD_LD) được lấy ở cột S (ngày bắt đầu thử việc) và cột T (ngày kết thúc thử việc) trong sheet (DM_HD).
Xin được nhờ sự giúp đỡ chỉnh sửa giúp em đoạn code để khi spin hợp đồng theo số thứ tự dữ liệu dòng số 25 trong sheet (HD_LD) thay đổi tương ứng với số thứ tự đó.
Em xin cảm ơn!
2222.png



anh.png
 

File đính kèm

  • ok.xlsm
    116.4 KB · Đọc: 14
Lần chỉnh sửa cuối:
Xin chào toàn thể các thầy (cô), anh (chị) trên GPE.
Em có sưu tầm được hợp đồng lao động trên diễn đàn GPE.
dữ liệu được lấy từ Sheet (DM_HD) để điền sang sheet (HD_LD) theo số thứ tự.
nhưng khi dữ liệu được lấy sang thì ở dòng số 25 (B25) trong sheet (HD_LD) không nhẩy dữ liệu khi spin.
Dữ liệu dòng số 25 trong sheet (HD_LD) được lấy ở cột S (ngày bắt đầu thử việc) và cột T (ngày kết thúc thử việc) trong sheet (DM_HD).
Xin được nhờ sự giúp đỡ chỉnh sửa giúp em đoạn code để khi spin hợp đồng theo số thứ tự dữ liệu dòng số 25 trong sheet (HD_LD) thay đổi tương ứng với số thứ tự đó.
Em xin cảm ơn!
View attachment 233493
Thấy nhiều code quá!
 
Lần chỉnh sửa cuối:
Xin chào toàn thể các thầy (cô), anh (chị) trên GPE.
Em có sưu tầm được hợp đồng lao động trên diễn đàn GPE.
dữ liệu được lấy từ Sheet (DM_HD) để điền sang sheet (HD_LD) theo số thứ tự.
nhưng khi dữ liệu được lấy sang thì ở dòng số 25 (B25) trong sheet (HD_LD) không nhẩy dữ liệu khi spin.
Dữ liệu dòng số 25 trong sheet (HD_LD) được lấy ở cột S (ngày bắt đầu thử việc) và cột T (ngày kết thúc thử việc) trong sheet (DM_HD).
Xin được nhờ sự giúp đỡ chỉnh sửa giúp em đoạn code để khi spin hợp đồng theo số thứ tự dữ liệu dòng số 25 trong sheet (HD_LD) thay đổi tương ứng với số thứ tự đó.
Em xin cảm ơn!
View attachment 233503



View attachment 233493
Thiếu 1 dòng lệnh
Làm tạm trong file
Mã:
Sub HD_LD()
    Dim Rng As Variant
    Application.ScreenUpdating = False
    'Sheets("DM_HD").Unprotect Password:="******"
    On Error Resume Next                              'On Error Resume Next
    Range("AT4:AT10500").ClearContents
    Set Rng = S_DM.Range("A14:A" & S_DM.[B65500].End(xlUp).Row).Find(Range("A1").Value, , , xlWhole)
    If S_DM.Range("Q" & Rng.Row).Value <> "" Then
        Range(Range("AP4").Value).Value = S_DM.Range("D5").Value & ", " & "ngày " & Day(S_DM.Range("Q" & Rng.Row).Value) & " tháng " & Month(S_DM.Range("Q" & Rng.Row).Value) & " n" & ChrW(259) & "m " & Year(S_DM.Range("Q" & Rng.Row).Value)
    Else
        Range(Range("AP4").Value).Value = S_DM.Range("D5").Value & ", " & "ngày ....... tháng ....... n" & ChrW(259) & "m 201......"
    End If
    If S_DM.Range("B" & Rng.Row).Value <> "" Then
        Range(Range("AP3").Value).Value = S_DM.Range("B" & Rng.Row).Value
    Else
        Range(Range("AP3").Value).Value = "S" & ChrW(7889) & ": ....................."
    End If
    Range("A6") = WorksheetFunction.Max(S_DM.Range("A15:A5500"))
    Range("AT62").FormulaR1C1 = _
    "=MID(R[-59]C[-27],FIND("","",R[-59]C[-27],1)+1,LEN(R[-59]C[-27]))"
    Range("AT62").Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                                                                  :=False, Transpose:=False
    Range(Range("AP1").Value).Value = UpperUni(S_DM.Range("D2").Value)
    Range(Range("AQ1").Value).Value = S_DM.Range("D7").Value
    Range(Range("AQ2").Value).Value = "Qu" & ChrW(7889) & "c t" & ChrW(7883) & "ch: " & S_DM.Range("D11").Value
    Range(Range("AR1").Value).Value = S_DM.Range("D10").Value
    Range(Range("AS1").Value).Value = S_DM.Range("D2").Value
    Range(Range("AT1").Value).Value = S_DM.Range("D4").Value
    Range(Range("AU1").Value).Value = "   " & ChrW(272) & ChrW(7883) & "a ch" & ChrW(7881) & ": " & S_DM.Range("D3").Value & "."
    Range(Range("AV1").Value).Value = S_DM.Range("D" & Rng.Row).Value
    Range(Range("AV2").Value).Value = "Qu" & ChrW(7889) & "c t" & ChrW(7883) & "ch: " & S_DM.Range("L" & Rng.Row).Value
    Range(Range("AW1").Value).Value = "   Sinh ngày: " & Day(S_DM.Range("F" & Rng.Row).Value) & "/" & Month(S_DM.Range("F" & Rng.Row).Value) & "/" & Year(S_DM.Range("F" & Rng.Row).Value)
    Range(Range("AW2").Value).Value = "T" & ChrW(7841) & "i: " & S_DM.Range("G" & Rng.Row).Value
    Range(Range("AX1").Value).Value = "   Ngh" & ChrW(7873) & " nghi" & ChrW(7879) & "p: " & S_DM.Range("E" & Rng.Row).Value
    Range(Range("AY1").Value).Value = "   " & ChrW(272) & ChrW(7883) & "a ch" & ChrW(7881) & " th" & ChrW(432) & ChrW(7901) & "ng trú: " & S_DM.Range("K" & Rng.Row).Value
    Range(Range("AZ1").Value).Value = "   S" & ChrW(7889) & " CMND: " & S_DM.Range("H" & Rng.Row).Value
    Range(Range("AZ2").Value).Value = S_DM.Range("I" & Rng.Row).Value
    Range(Range("AZ3").Value).Value = "T" & ChrW(7841) & "i: " & S_DM.Range("J" & Rng.Row).Value
    Range(Range("BA1").Value).Value = "   - Lo" & ChrW(7841) & "i h" & ChrW(7907) & "p " & ChrW(273) & ChrW(7891) & "ng lao " & ChrW(273) & ChrW(7897) & "ng: " & S_DM.Range("p" & Rng.Row).Value & "."
    Range(Range("BB1").Value).Value = "   - T" & ChrW(7915) & ": ngày " & Day(S_DM.Range("Q" & Rng.Row).Value) & " tháng " & _
                                      Month(S_DM.Range("Q" & Rng.Row).Value) & " n" & ChrW(259) & "m " & Year(S_DM.Range("Q" & Rng.Row).Value) & " " & ChrW(273) & ChrW(7871) & "n " & "ngày " & _
                                      IIf(S_DM.Range("R" & Rng.Row).Value > 0, Day(S_DM.Range("R" & Rng.Row).Value), "......") & " tháng " _
                                    & IIf(S_DM.Range("R" & Rng.Row).Value > 0, Month(S_DM.Range("R" & Rng.Row).Value), "......") & " n" & ChrW(259) & "m " & _
                                      IIf(S_DM.Range("R" & Rng.Row).Value > 0, Year(S_DM.Range("R" & Rng.Row).Value), "......") & "."
    Range(Range("BC1").Value).Value = Range("BC7").Value 'Ngay thu viec
    Range(Range("BD1").Value).Value = "   - " & ChrW(272) & ChrW(7883) & "a " & ChrW(273) & "i" & ChrW(7875) & "m làm vi" & ChrW(7879) & "c: " & S_DM.Range("X" & Rng.Row).Value
    Range(Range("BE1").Value).Value = "   - Ch" & ChrW(7913) & "c danh chuyên môn: " & S_DM.Range("M" & Rng.Row).Value & "        " & "- Ch" & ChrW(7913) & "c v" & ChrW(7909) & " (n" & ChrW(7871) & "u có): " & S_DM.Range("N" & Rng.Row).Value & "."
    Range(Range("BF1").Value).Value = "   - Công vi" & ChrW(7879) & "c ph" & ChrW(7843) & "i làm: " & S_DM.Range("O" & Rng.Row).Value & "."
    Range(Range("BG1").Value).Value = S_DM.Range("C" & Rng.Row).Value
    Range(Range("BH1").Value).Value = "   - H" & ChrW(7907) & "p " & ChrW(273) & ChrW(7891) & "ng lao " & ChrW(273) & ChrW(7897) & "ng " & ChrW(273) & ChrW(432) & ChrW(7907) & "c l" & ChrW(7853) & "p thành 02 b" & ChrW(7843) & "n có giá tr" & ChrW(7883) & " pháp lý nh" & ChrW(432) & " nhau m" & ChrW(7895) & "i bên gi" & ChrW(7919) & " m" & ChrW(7897) & "t b" & ChrW(7843) & "n và có hi" & ChrW(7879) & "u l" & ChrW(7921) & "c t" & ChrW(7915) _
                                    & Range("AT62") & ". Khi 02 bên ký k" & ChrW(7871) & "t ph" & ChrW(7909) & " l" & ChrW(7909) & "c h" & ChrW(7907) & "p " & ChrW(273) & ChrW(7891) & "ng lao " & ChrW(273) & ChrW(7897) & "ng thì n" & ChrW(7897) & "i dung c" & ChrW(7911) & "a ph" & ChrW(7909) & " l" & ChrW(7909) & "c h" & ChrW(7907) & "p " & ChrW(273) & ChrW(7891) & "ng lao " & ChrW(273) & ChrW(7897) & "ng c" & ChrW(361) & "ng có giá tr" & ChrW(7883) & " nh" & ChrW(432) & " các n" & ChrW(7897) & "i dung c" & ChrW(7911) & "a b" & ChrW(7843) & "n h" & ChrW(7907) & "p " & ChrW(273) & ChrW(7891) & "ng lao " & ChrW(273) & ChrW(7897) & "ng này."
    Range(Range("BI1").Value).Value = "   H" & ChrW(7907) & "p " & ChrW(273) & ChrW(7891) & "ng lao " & ChrW(273) & ChrW(7897) & "ng này " & ChrW(273) & ChrW(432) & ChrW(7907) & "c làm t" & ChrW(7841) & "i " & S_DM.Range("D2").Value & "," & Range("AT62") & ". "
    Range(Range("BJ1").Value).Value = S_DM.Range("D" & Rng.Row).Value
    Range(Range("BJ2").Value).Value = S_DM.Range("D7").Value

    'Sheets("DM_HD").Protect Password:="******", AllowFiltering:=True
End Sub
 

File đính kèm

  • ok.xlsm
    107.3 KB · Đọc: 14
Thiếu 1 dòng lệnh
Làm tạm trong file
Mã:
Sub HD_LD()
    Dim Rng As Variant
    Application.ScreenUpdating = False
    'Sheets("DM_HD").Unprotect Password:="******"
    On Error Resume Next                              'On Error Resume Next
    Range("AT4:AT10500").ClearContents
    Set Rng = S_DM.Range("A14:A" & S_DM.[B65500].End(xlUp).Row).Find(Range("A1").Value, , , xlWhole)
    If S_DM.Range("Q" & Rng.Row).Value <> "" Then
        Range(Range("AP4").Value).Value = S_DM.Range("D5").Value & ", " & "ngày " & Day(S_DM.Range("Q" & Rng.Row).Value) & " tháng " & Month(S_DM.Range("Q" & Rng.Row).Value) & " n" & ChrW(259) & "m " & Year(S_DM.Range("Q" & Rng.Row).Value)
    Else
        Range(Range("AP4").Value).Value = S_DM.Range("D5").Value & ", " & "ngày ....... tháng ....... n" & ChrW(259) & "m 201......"
    End If
    If S_DM.Range("B" & Rng.Row).Value <> "" Then
        Range(Range("AP3").Value).Value = S_DM.Range("B" & Rng.Row).Value
    Else
        Range(Range("AP3").Value).Value = "S" & ChrW(7889) & ": ....................."
    End If
    Range("A6") = WorksheetFunction.Max(S_DM.Range("A15:A5500"))
    Range("AT62").FormulaR1C1 = _
    "=MID(R[-59]C[-27],FIND("","",R[-59]C[-27],1)+1,LEN(R[-59]C[-27]))"
    Range("AT62").Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                                                                  :=False, Transpose:=False
    Range(Range("AP1").Value).Value = UpperUni(S_DM.Range("D2").Value)
    Range(Range("AQ1").Value).Value = S_DM.Range("D7").Value
    Range(Range("AQ2").Value).Value = "Qu" & ChrW(7889) & "c t" & ChrW(7883) & "ch: " & S_DM.Range("D11").Value
    Range(Range("AR1").Value).Value = S_DM.Range("D10").Value
    Range(Range("AS1").Value).Value = S_DM.Range("D2").Value
    Range(Range("AT1").Value).Value = S_DM.Range("D4").Value
    Range(Range("AU1").Value).Value = "   " & ChrW(272) & ChrW(7883) & "a ch" & ChrW(7881) & ": " & S_DM.Range("D3").Value & "."
    Range(Range("AV1").Value).Value = S_DM.Range("D" & Rng.Row).Value
    Range(Range("AV2").Value).Value = "Qu" & ChrW(7889) & "c t" & ChrW(7883) & "ch: " & S_DM.Range("L" & Rng.Row).Value
    Range(Range("AW1").Value).Value = "   Sinh ngày: " & Day(S_DM.Range("F" & Rng.Row).Value) & "/" & Month(S_DM.Range("F" & Rng.Row).Value) & "/" & Year(S_DM.Range("F" & Rng.Row).Value)
    Range(Range("AW2").Value).Value = "T" & ChrW(7841) & "i: " & S_DM.Range("G" & Rng.Row).Value
    Range(Range("AX1").Value).Value = "   Ngh" & ChrW(7873) & " nghi" & ChrW(7879) & "p: " & S_DM.Range("E" & Rng.Row).Value
    Range(Range("AY1").Value).Value = "   " & ChrW(272) & ChrW(7883) & "a ch" & ChrW(7881) & " th" & ChrW(432) & ChrW(7901) & "ng trú: " & S_DM.Range("K" & Rng.Row).Value
    Range(Range("AZ1").Value).Value = "   S" & ChrW(7889) & " CMND: " & S_DM.Range("H" & Rng.Row).Value
    Range(Range("AZ2").Value).Value = S_DM.Range("I" & Rng.Row).Value
    Range(Range("AZ3").Value).Value = "T" & ChrW(7841) & "i: " & S_DM.Range("J" & Rng.Row).Value
    Range(Range("BA1").Value).Value = "   - Lo" & ChrW(7841) & "i h" & ChrW(7907) & "p " & ChrW(273) & ChrW(7891) & "ng lao " & ChrW(273) & ChrW(7897) & "ng: " & S_DM.Range("p" & Rng.Row).Value & "."
    Range(Range("BB1").Value).Value = "   - T" & ChrW(7915) & ": ngày " & Day(S_DM.Range("Q" & Rng.Row).Value) & " tháng " & _
                                      Month(S_DM.Range("Q" & Rng.Row).Value) & " n" & ChrW(259) & "m " & Year(S_DM.Range("Q" & Rng.Row).Value) & " " & ChrW(273) & ChrW(7871) & "n " & "ngày " & _
                                      IIf(S_DM.Range("R" & Rng.Row).Value > 0, Day(S_DM.Range("R" & Rng.Row).Value), "......") & " tháng " _
                                    & IIf(S_DM.Range("R" & Rng.Row).Value > 0, Month(S_DM.Range("R" & Rng.Row).Value), "......") & " n" & ChrW(259) & "m " & _
                                      IIf(S_DM.Range("R" & Rng.Row).Value > 0, Year(S_DM.Range("R" & Rng.Row).Value), "......") & "."
    Range(Range("BC1").Value).Value = Range("BC7").Value 'Ngay thu viec
    Range(Range("BD1").Value).Value = "   - " & ChrW(272) & ChrW(7883) & "a " & ChrW(273) & "i" & ChrW(7875) & "m làm vi" & ChrW(7879) & "c: " & S_DM.Range("X" & Rng.Row).Value
    Range(Range("BE1").Value).Value = "   - Ch" & ChrW(7913) & "c danh chuyên môn: " & S_DM.Range("M" & Rng.Row).Value & "        " & "- Ch" & ChrW(7913) & "c v" & ChrW(7909) & " (n" & ChrW(7871) & "u có): " & S_DM.Range("N" & Rng.Row).Value & "."
    Range(Range("BF1").Value).Value = "   - Công vi" & ChrW(7879) & "c ph" & ChrW(7843) & "i làm: " & S_DM.Range("O" & Rng.Row).Value & "."
    Range(Range("BG1").Value).Value = S_DM.Range("C" & Rng.Row).Value
    Range(Range("BH1").Value).Value = "   - H" & ChrW(7907) & "p " & ChrW(273) & ChrW(7891) & "ng lao " & ChrW(273) & ChrW(7897) & "ng " & ChrW(273) & ChrW(432) & ChrW(7907) & "c l" & ChrW(7853) & "p thành 02 b" & ChrW(7843) & "n có giá tr" & ChrW(7883) & " pháp lý nh" & ChrW(432) & " nhau m" & ChrW(7895) & "i bên gi" & ChrW(7919) & " m" & ChrW(7897) & "t b" & ChrW(7843) & "n và có hi" & ChrW(7879) & "u l" & ChrW(7921) & "c t" & ChrW(7915) _
                                    & Range("AT62") & ". Khi 02 bên ký k" & ChrW(7871) & "t ph" & ChrW(7909) & " l" & ChrW(7909) & "c h" & ChrW(7907) & "p " & ChrW(273) & ChrW(7891) & "ng lao " & ChrW(273) & ChrW(7897) & "ng thì n" & ChrW(7897) & "i dung c" & ChrW(7911) & "a ph" & ChrW(7909) & " l" & ChrW(7909) & "c h" & ChrW(7907) & "p " & ChrW(273) & ChrW(7891) & "ng lao " & ChrW(273) & ChrW(7897) & "ng c" & ChrW(361) & "ng có giá tr" & ChrW(7883) & " nh" & ChrW(432) & " các n" & ChrW(7897) & "i dung c" & ChrW(7911) & "a b" & ChrW(7843) & "n h" & ChrW(7907) & "p " & ChrW(273) & ChrW(7891) & "ng lao " & ChrW(273) & ChrW(7897) & "ng này."
    Range(Range("BI1").Value).Value = "   H" & ChrW(7907) & "p " & ChrW(273) & ChrW(7891) & "ng lao " & ChrW(273) & ChrW(7897) & "ng này " & ChrW(273) & ChrW(432) & ChrW(7907) & "c làm t" & ChrW(7841) & "i " & S_DM.Range("D2").Value & "," & Range("AT62") & ". "
    Range(Range("BJ1").Value).Value = S_DM.Range("D" & Rng.Row).Value
    Range(Range("BJ2").Value).Value = S_DM.Range("D7").Value

    'Sheets("DM_HD").Protect Password:="******", AllowFiltering:=True
End Sub
Vâng em cảm ơn anh! anh cho em hỏi thêm trong sheet (HD_LD) vùng cột từ AP trở đi bị ẩn (như hình thứ nhất)
Anh sửa giúp em thì nó đã hiện lên được vùng cột bị ẩn đó (hình thứ hai)
làm cách nào để hiện vùng cột từ AP trở đi trong sheet (HD_LD) mà anh đã giúp em (như hình thứ hai) vậy ạ?
Đó là tính năng gì vậy ạ?
Em chọn nó và bỏ ẩn nhưng không được.

qqqq.pngwwwww.png
 
Vâng em cảm ơn anh! anh cho em hỏi thêm trong sheet (HD_LD) vùng cột từ AP trở đi bị ẩn (như hình thứ nhất)
Anh sửa giúp em thì nó đã hiện lên được vùng cột bị ẩn đó (hình thứ hai)
làm cách nào để hiện vùng cột từ AP trở đi trong sheet (HD_LD) mà anh đã giúp em (như hình thứ hai) vậy ạ?
Đó là tính năng gì vậy ạ?
Em chọn nó và bỏ ẩn nhưng không được.

View attachment 233552View attachment 233553
Do code trong sheet không cho chọn vùng ngoài bảng
Mã:
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
On Error Resume Next
Set myRange = Intersect(Range("AP1:AP650"), Target)
If Not myRange Is Nothing Then
  Range("A1").Select
  End If
End Sub
Chỉnh
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Thành
Private Sub Worksheet_SelectionChange_2(ByVal Target As Excel.Range)
Sẽ unhide bình thường
 
Do code trong sheet không cho chọn vùng ngoài bảng
Mã:
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
On Error Resume Next
Set myRange = Intersect(Range("AP1:AP650"), Target)
If Not myRange Is Nothing Then
  Range("A1").Select
  End If
End Sub
Chỉnh
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Thành
Private Sub Worksheet_SelectionChange_2(ByVal Target As Excel.Range)
Sẽ unhide bình thường
Vâng, em không biết nên chỉnh mãi không được, em cảm ơn anh nhiều ạ!
 
Web KT
Back
Top Bottom