掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
VBからEXCELVBAのChangeイベントを記述するには？ (ID:101910)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
はじめまして。 誰か力をお貸しください。 VBからEXCELのVBAを記述したいのですができません。 ここの過去レスを確認してVBEオブジェクトを使えばできそうな気が したのですが、実行するとエラーはでないものの記述はされません。 最終的にやりたい事は下記です。 セル（１，１）に制限文字数を指定して、セル（２，１）に文字を 書いた時に制限文字数を超えたら文字色を赤にする。 上記マクロをVB上から既存のEXCELファイルに登録したい。 やり方があっているかわかりませんが、途中まで書いたコードは下記です。 Dim xlapp As NEW Excel.Application Dim xlbook As Excel.Workbook Dim ovbe As VBIDE Dim omod As VBIDE.VBComponent Dim ocode As VBIDE.CodeModule Set xlbook = xlapp.Workbooks.Open("xxx.txt") Set ovbe = xlapp.VBE Set omod = ovbe.VBProjects(1).VBComponents(2) Set ocode = omod.CodeModule ocode.AddFromString "Private Sub Worksheet_Change(Byval Target As Range)" _ & vbCrLf & "Dim i As integer" & vbCrLf & "End Sub" Set ocode = Nothing Set omod = Nothing Set ovbe = Nothing xlbook.SaveAs App.Path & "xxx.xls" xlbook.Close xlapp.Quit Set xlapp = Nothing 宜しくお願いします。
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.