2012-09-06から1日間の記事一覧

Rangeから選択されているセルのアドレス・行・列番号 を調べる

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) StartRow = Target.Cells(1).Row StartColumn = Target.Cells(1).Column Max_Row = Target.Cells(Target.Count).Row Max_Column = Target.Cells(Target.Count).Column End Sub…

Excelが認知している最終行(列)を取得する

Option Explicit Sub TEST14() ' 最終セルを表示 MsgBox ActiveSheet.Cells.SpecialCells(xlLastCell).Address End Subネタ元 http://www.asahi-net.or.jp/~ef2o-inue/vba_o/sub05_030_100.html

インデックス指定でセルの選択

単一のセルB3を選択します。 Sub rei806() Worksheets("Sheet1").Activate Cells(3, 2).Select End Sub セル範囲A1:B3を選択します。 Sub rei807() Worksheets("Sheet1").Activate Range(Cells(1, 1), Cells(3, 2)).Select End Subネタ元 http://www.eurus.d…

選択されているセルのアドレス・行・列番号 を調べる

StartRow = LoopArea.Cells(1).Row StartColumn = LoopArea.Cells(1).Column Max_Row = LoopArea.Cells(LoopArea.Count).Row Max_Column = LoopArea.Cells(LoopArea.Count).Columnネタ元 http://www.k1simplify.com/vba/tipsleaf/leaf240.html

OLEサーバーなソフトを作る調査

VC

http://www.atmarkit.co.jp/bbs/phpBB/viewtopic.php?topic=43441&forum=7 http://msdn.microsoft.com/ja-jp/library/8c47csfz(v=vs.80).aspx http://eternalwindows.jp/ole/oleembedded/oleembedded06.html