这里我要突出显示 pdf 简历中匹配的技能文本。
我为此使用了 P
npm 包。
但是,它没有像它应该的那样突出显示匹配的文本。它突出显示了其他地方。
这不是 CSS 问题。
Option Explicit
Private Sub CommandButton2_Click()
Dim ws As Workbook: Set wb = ThisWorkbook ' workbook containing this code
Dim sws As Worksheet: Set sws = ActiveSheet
Dim StartDate As Date: StartDate = sws.Range("E2").Value
Dim EndDate As Date: EndDate = sws.Range("G2").Value
Dim wrg As Range
Set wrg = sws.Range("H2", sws.Cells(sws.Rows.Count, "H").End(xlUp))
Dim dws As Worksheet
Dim drg As Range
Dim dCell As Range
Dim wCell As Range
Dim DateLooper As Date
Dim fAddr As String
For Each wCell In wrg.Cells ' loop through list of worksheet names
Set dws = wb.Worksheets(wCell.Value)
Set drg = dws.Range("P2", dws.Cells(dws.Rows.Count, "P").End(xlUp))
For DateLooper = StartDate To EndDate ' loop through dates
Set dCell = drg.Find(What:=DateLooper) ' find dates
If Not dCell Is Nothing Then
fAddr = dCell.Address
Do
dCell.EntireRow.Interior.Color = vbCyan
Set dCell = drg.FindNext(dCell)
Loop Until dCell.Address = fAddr
End If
Set dCell = Nothing
Next DateLooper
Next wCell
End Sub
github 上的相关问题:https://github.com/uber/react-vis/issues/1313