excel - Excel VBA マクロの検索と書式設定

Question

ヘッダーで特定の文字列を見つけて、その列のセルをフォーマットするマクロを作成しようとしています。たとえば、「購入日」、「キャップ日」、「有効期限」というヘッダーがあります。使用された「日付」の最初のインスタンスを見つけ、それらをテキストとしてフォーマットし、次に出現するものとフォーマットなどを見つけられるようにしたい.

最初のインスタンスのみを検索し、それ以上検索しないものを作成しました。何か案が？「Find」と「After」を調べましたが、正しく機能しません。

助けてくれてありがとう。

Answer 1

また、最初の発見を通り過ぎるのにも苦労しました。以下の Do While のコードの最後の部分を見てください。多分あなたはそこから何かを作ることができます。

Sub HyperLinking()     
  Call HyperLink("Text TO Hyperlink", "C:\Document.docx")   
End Sub 

Private Function HyperLink(LinkName As String, LinkAddress As String) 
  Dim WDApp As Object, wd As Object, rn As Long 
  On Error Resume Next 
  Set WDApp = GetObject(, "Word.Application") 
  If Err.Number <> 0 Then 
      Set WDApp = CreateObject("Word.Application") 
  End If 
  On Error Goto 0 
  Set wd = WDApp.Documents.Open(LinkAddress) 
  WDApp.Visible = True 
  Set objWdRange = wd.Content      
  objWdRange.Find.ClearFormatting 
  With objWdRange.Find 
      .Text = LinkName 
      .Forward = True 
      .Wrap = wdFindContinue 
  End With 
  Do While objWdRange.Find.Execute = True 
      objWdRange.Hyperlinks.Add Anchor:=objWdRange, Address:=LinkAddress, SubAddress:="", ScreenTip:="Linked  Document", TextToDisplay:=LinkName 
      objWdRange.Find.Execute 
  Loop      
  wd.Save 
  wd.Close 
  Set wd = Nothing 
  Set WDApp = Nothing      
End Function

1 つの問題は、書式設定が原因で、すべての単語が見つからない場合があることです。なぜこれが起こるのか誰かが助けることができますか？

このコードを要件に適合させることができます。