タイトル | : Re: エクセルのワークシートのアクティブセルの変化を捉えるには? |
記事No | : 1557 |
投稿日 | : 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
|