cần hướng dẫn trích dẫn trong excel

[badguy113]

em muốn trích dẫn lý lịch của nhân viên. khi em đưa chuột vào tên nhân viên ở sheet Luong thì nó sẽ trích dẫn lý lịch nhân viên bên sheet Hồ Sơ Nhận Viên. Với lại mấy pro củng hướng dẫn em cách ghi số điện thoại mà nó không bị mất đi số 0 (01887949412 thi nó trở thành 1887949412). Thanks các Pro nhiều
View attachment Tính Lương.xlsx

 

[ndu96081631]

em muốn trích dẫn lý lịch của nhân viên. khi em đưa chuột vào tên nhân viên ở sheet Luong thì nó sẽ trích dẫn lý lịch nhân viên bên sheet Hồ Sơ Nhận Viên. Với lại mấy pro củng hướng dẫn em cách ghi số điện thoại mà nó không bị mất đi số 0 (01887949412 thi nó trở thành 1887949412). Thanks các Pro nhiều
View attachment 49465

Cái này phải dùng code VBA thôi bạn à!

Function CV(Name As String, DataRng As Range) As String
  Dim FRng As Range, i As Long, Temp As String, Arr() As String
  Set FRng = DataRng.Resize(, 1).Find(Name, , xlValues, xlWhole)
  If Not FRng Is Nothing Then
    For i = 1 To DataRng.Resize(1).Columns.Count
      Temp = Intersect(FRng.EntireRow, DataRng(1, i).EntireColumn).Value
      ReDim Preserve Arr(i)
      Arr(i - 1) = Replace(DataRng(1, i).Value, Chr(10), " ") & ": " & Temp
    Next
    CV = Join(Arr, vbLf)
  End If
End Function

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  Dim DataRng As Range, Comm As String
  On Error Resume Next
  If Not Intersect([A3:A1000], Target) Is Nothing Then
    Range("A3:A1000").ClearComments
    If Target <> "" And Target.Count = 1 Then
      Set DataRng = Sheet1.[B2:H20000]
      Comm = CV(Target.Value, DataRng)
      Target.AddComment Comm
      With Target.Comment
        .Visible = True
        .Shape.Height = 100
        .Shape.Width = 200
      End With
    End If
  End If
End Sub

- Trong sheet Luong lần 1, chọn các cell tại cột A sẽ thấy Comment
- Lưu ý: Enable Macro nhé
------------------------------
Còn việc gõ số điện thoại, bạn cứ gõ dấu nháy đơn vào trước SĐT là được rồi

 

[badguy113]

ah anh ndu96081631 cho em hỏi thêm là khi em làm một file excel như anh bằng excel 2007 thì em viết code VB vào rồi save xong tắt mở lại thì nó không lưu lại code VB. Phải save lại ở định dạng excel 97-2003 thì nó mới lưu được code VB. Có cách nào tự Enable Macro khi mở excel lên không anh.
Một lần nữa cảm ơn anh rất nhiều

 

[ndu96081631]

ah anh ndu96081631 cho em hỏi thêm là khi em làm một file excel như anh bằng excel 2007 thì em viết code VB vào rồi save xong tắt mở lại thì nó không lưu lại code VB. Phải save lại ở định dạng excel 97-2003 thì nó mới lưu được code VB. Có cách nào tự Enable Macro khi mở excel lên không anh.
Một lần nữa cảm ơn anh rất nhiều

Với Excel 2007, để có thể chạy được Macro, bạn save nó thành dang xlsm là được!
Còn vụ tự Enable macro là do Security quyết định! Nếu Security để ở mức Low thì khi mở file nó tự Enalbe macro thôi
Tuy nhiên, khuyên bạn không nên làm vậy! Vì đó chính là miếng mồi ngon cho virus tấn công đấy