aタグのリンククリックについて教えてください
昨日以降(0) ２日前以降(0) ３日前以降(0) ４日前以降(0) ５日前以降(0)
| Message#15 2015年5月18日(月)16時14分 From: 気ずる | 返事 削除 変更 |
| sub sample() '最終行取得 r = maxRC(, 1) call ieview(objIE,"http://www.yahoo.co.jp") for i = 1 to r call ienavi(objIE,cells(i,"A") cells(i,"D") = objIE.document.body.outerhtml next i end sub Function maxRC(Optional sheetName As String = "mySheet", _ Optional rcNo As Variant = 1, _ Optional addRC As Integer = 0, _ Optional typeRC As String = "R") As Long If sheetName = "mySheet" Then sheetName = ActiveSheet.Name End If If typeRC = "R" Then maxRC = Sheets(sheetName).Cells(Rows.Count, rcNo).End(xlUp).row + addRC ElseIf typeRC = "C" Then maxRC = Sheets(sheetName).Cells(rcNo, Columns.Count).End(xlToLeft).Column + addRC End If End Function |
昨日以降 ２日前以降 ３日前以降 ４日前以降 ５日前以降
