问题描述
这里我要突出显示 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
解决方法
暂无找到可以解决该程序问题的有效方法,小编努力寻找整理中!
如果你已经找到好的解决方法,欢迎将解决方案带上本链接一起发送给小编。
小编邮箱:dio#foxmail.com (将#修改为@)