none
VBA ComponentType 100(WorkSheet)にテキスト挿入 RRS feed

  • 質問

  • やりたいことは、WorkSheet「Sheet1」に次のコードを挿入したいのですが、非力にて未達。
    Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
      Call Module2
    End Sub
    次のWebサンプルを試みたのですが標準モジュールに対しては実行でき満足しているのですが、
    WorkSheetに挿入する事はできませんでした…ご教授宜しくお願いいたします。
    Sub InsertLines_Sample()
      Dim Str As String
      Str = "' 5行目にInsertLinesで挿入しました。" & vbCrLf & "' vbCrLfを使用すると複数の行を挿入できます。"
      ThisWorkbook.VBProject.VBComponents("Module1").CodeModule.InsertLines 5, Str
    End Sub

    u793nabe

    2021年2月19日 3:46

回答

  • u793nabeさん、こんにちは。

    ”Module1”を”Sheet1”に変えればよいのではないですか? (もちろん、挿入するテキストはイベント処理のコードのテキストにしなければなりませんが。)







    2021年2月19日 7:25
  • KokemomoYamamomoさん、早々のご回答ありがとうございます。
    納得、標準モジュールを気にしたがゆえ「プロパティ名」が頓挫していました…お恥ずかしい。
    ご指摘に従い、"Module1"を"Sheet1"に変えての試行で問題は解決しました…感謝
    ≪試行3例≫
    ThisWorkbook.VBProject.VBComponents("Sheet1").CodeModule.InsertLines 5, Str
    ThisWorkbook.VBProject.VBComponents("Sheet1").CodeModule.AddFromString Str
    ThisWorkbook.VBProject.VBComponents(ActiveSheet.CodeName).CodeModule.AddFromString Str

    u793nabe

    • 回答としてマーク u793nabe 2021年2月19日 11:33
    2021年2月19日 11:31

すべての返信

  • u793nabeさん、こんにちは。

    ”Module1”を”Sheet1”に変えればよいのではないですか? (もちろん、挿入するテキストはイベント処理のコードのテキストにしなければなりませんが。)







    2021年2月19日 7:25
  • KokemomoYamamomoさん、早々のご回答ありがとうございます。
    納得、標準モジュールを気にしたがゆえ「プロパティ名」が頓挫していました…お恥ずかしい。
    ご指摘に従い、"Module1"を"Sheet1"に変えての試行で問題は解決しました…感謝
    ≪試行3例≫
    ThisWorkbook.VBProject.VBComponents("Sheet1").CodeModule.InsertLines 5, Str
    ThisWorkbook.VBProject.VBComponents("Sheet1").CodeModule.AddFromString Str
    ThisWorkbook.VBProject.VBComponents(ActiveSheet.CodeName).CodeModule.AddFromString Str

    u793nabe

    • 回答としてマーク u793nabe 2021年2月19日 11:33
    2021年2月19日 11:31