aタグのリンククリックについて教えてください 削除
| 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 |
上のメッセージを削除します。
よければパスワードを入力し、削除ボタンをクリックしてください。
