アクセスです。
Private Sub サンプル()
Dim IE As Object
Set IE = CreateObject("internetExplorer.application")
IE.Visible = True
IE.navigate ("D:\サンプル.txt")
Set IE = Nothing
End Sub
で、ＩＥは開くのですが、ブラウザのサイズがバラバラです。
縦１０ｃｍ、横１０ｃｍのようにサイズの指定はできますか？
（単位はｃｍでなくても大丈夫です＾＾）
http://okwave.jp/qa/q5503310.html
を見ると、ＡＰＩを使うのかなー
と思ったのですが、ＡＰＩの作り方はわからないのでご教授お願いします。
例えば、画像のように
1行目から１０行目の間に適当に値が入ってるとします。
その中で、行に何も入っていないのなら、削除して上へ詰めたいのですが
どのようなコードを書けばいいでしょうか？
該当の行の1列目から256列目のどの列にも値が入ってないのが条件です。
自分なりに考えたのですが
----------------------------------------
Sub test1()
Dim i, gyou As Long
For gyou = 1 To 10 '最終行
i = WorksheetFunction.CountA(Rows(gyou))
If i = 0 Then
Rows(gyou).Delete
gyou = gyou - 1 '削除すると行がずれる
End If
Next
End Sub
----------------------------------------
Sub test2()
Dim i, gyou As Long
gyou = 1
Do While gyou <> 10
i = WorksheetFunction.CountA(Rows(gyou))
If i = 0 Then
Rows(gyou).Delete
Else
gyou = gyou + 1
End If
Loop
End Sub
----------------------------------------
どちらも、なぜか無限ループになってしまいます。
どうすればいいか教えてください。
職場で、データの照合をしているのですが、毎回かわるキーワードが入っている
文字列が含まれる行を削除したいと考えています。
下のものは、ネットサーフィンで拾ってきたものです。
こちらでは、「文字列が含まれている行以外のものを残す」もので、
私が目的としているものと逆になっています。
アプリケーションボックスを利用して、「特定の文字列が含まれている行を削除」
できるのが理想です。
下のものを利用して（作成された方、ごめんなさい）、なんとかできるようにしたいと考えています。
どなたか助けてただけないでしょうか？
当方は、まったくの素人です。
Sub MacroTest1()
Dim keyWord As Variant
Dim FirstAdd As String
Dim UR As Range
Dim c As Range
Const col As Long = 1 '列数
keyWord = Application.InputBox("除外対象の文字列は？", Type:=2)
If VarType(keyWord) = vbBoolean Or Len(keyWord) = 0 Then Exit Sub
With ActiveSheet
With .UsedRange
Set c = .Find( _
What:="*" & keyWord & "*", _
LookIn:=xlValues, _
LookAt:=xlPart, _
SearchOrder:=xlByRows)
If Not c Is Nothing Then
FirstAdd = c.Address
Set UR = c
Do
Set c = .FindNext(c)
Set UR = Union(UR, c)
If c.Address = FirstAdd Then Exit Do
Loop Until c Is Nothing
End If
End With
If Not UR Is Nothing Then
UR.EntireRow.Hidden = True
.UsedRange.SpecialCells(xlCellTypeVisible).Delete
.UsedRange.EntireRow.Hidden = False
End If
End With
End Sub
