タイトル : Re: エクセルのワークシートのアクティブセルの変化を捉えるには? 投稿日 : 2005/04/04(Mon) 14:48 投稿者 : 魔界の仮面弁士
> エクセルVBAにあるようなSelectionChangeのような > ことは可能でしょうか? Imports System.Runtime.InteropServices Imports Excel = Microsoft.Office.Interop.Excel Public Class Form1 Inherits System.Windows.Forms.Form ''''' ''''' " Windows フォーム デザイナで生成されたコード " ''''' Private WithEvents Sheet As Excel.Worksheet Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load Me.AxWebBrowser1.Navigate("C:\Book1.xls") Dim oBook As Excel.Workbook = DirectCast(AxWebBrowser1.Document, Excel.Workbook) Dim oSheets As Excel.Sheets = oBook.Worksheets Sheet = DirectCast(oSheets(1), Excel.Worksheet) Marshal.ReleaseComObject(oSheets) Marshal.ReleaseComObject(oBook) End Sub Private Sub Sheet_SelectionChange(ByVal Target As Excel.Range) Handles Sheet.SelectionChange End Sub ''''' ''''' (後略: オブジェクトの解放処理等を忘れずに) ''''' End Class |