Excel VBAで末端までだと4万行くらいのデータを整理するものを組んで
います。初心者ゆえどなたかお詳しい方の知恵を拝借いたしたく。
元となるデータは15行が一塊であるデータブロックで構成されており、
14行目には"END"の文字があり、15行目には必ず空白行があります。
この15行のデータブロックが延々4万行繰り返しの形で存在しています。
どのデータブロックか判別できる数字が入っているのは1行目のE列
です。
データブロック一行目E列に含まれる特定の語句(IDNo.)を検索し、これを
起点として空白行までの15行一塊のデータブロックをまとめて削除でき
るものを作成しようと思ったのですが、一行ずつ削除するところまでしか
自力では分からず、これ以降どのように追記すれば良いか見当がつか
ない状態です。よろしくお願いします。
元データ
A B C D E F G
1 aaa bbb ccc ddd (IDNo.) fff ggg
2 111 222 333 444 555 666 777
（略）
14 END
15 (空白行)
16 AAA BBB CCC DDD (IDNo.) FFF GGG
（略）
29 END
30 (空白行)
以下 検索したもの＋自分で追記してみた部分です。
Sub 特定ID削除()
With ActiveWorkbook.ActiveSheet
Const startrow As String = "1" '開始行を指定
Const col As String = "E" '識別文字が入力されている列
Dim Idx As Long
Dim keyWord
keyWord = Application.InputBox("削除対象の文字列を指定", Type:=2)
If TypeName(keyWord) <> "Boolean" And Len(keyWord) > 0 Then
For Idx = .Cells(65536, col).End(xlUp).Row To startrow Step -1
If InStr(.Cells(Idx, col).Value, keyWord) > 0 Then
' If Application.CountIf(Rows(Idx), "*" & keyWord & "*") > 0 Then
.Rows(Idx).Delete
End If
Next Idx
End If
End With
End Sub
Sub test()
Dim OLEList As Object
Set OLEList = ActiveSheet.OLEObjects.Add( _
ClassType:="Forms.ListBox.1", _
Left:=1, _
Top:=1, _
Width:=80, _
Height:=80)
End Sub
このコードで作るリストボックスってOLEオブジェクトのリストボックスですよね？
リストボックスを作って、デザインビューにして右クリックをしてもプロパティが見つかりません。
手作業でコントロールツールボックスからリストボックスを挿入すると、
右クリックした時にプロパティがあります。
このＶＢＡコードで挿入するリストボックスは
コントロールツールボックスから挿入するものとは別物ですか？
画像は右側は、「手作業でコントロールツールボックスからリストボックスを挿入」で、
左側は上記のコードで挿入しました。
今日パソコンが新しくなり、office2003から2010になりました。
2003で作成したマクロで、SORTメソッドを書き換え実行したところ、『実行時エラー1004 アプリケーション定義またはオブジェクト定義のエラーです』とメッセージが… デバッグでみると、Applyのところが黄色になっていました。
何が悪いのか教えてもらえますか？
Worksheets("営業所順位表").Activate
Application.Calculation = xlCalculationAutomatic '再計算自動
With ActiveSheet.Sort.SortFields
.Clear
.Add Key:=Range("E3"), Order:=xlDescending
End With
With ActiveSheet.Sort
.SetRange Range("A3:S68")
.Header = xlYes
.Apply ←ここが黄色に
End With
Excel VBAで末端までだと4万行くらいのデータを整理するものを組んで
います。初心者ゆえどなたかお詳しい方の知恵を拝借いたしたく。
元となるデータは15行が一塊であるデータブロックで構成されており、
14行目には"END"の文字があり、15行目には必ず空白行があります。
この15行のデータブロックが延々4万行繰り返しの形で存在しています。
どのデータブロックか判別できる数字が入っているのは1行目のE列
です。
データブロック一行目E列に含まれる特定の語句(IDNo.)を検索し、これを
起点として空白行までの15行一塊のデータブロックをまとめて削除でき
るものを作成しようと思ったのですが、一行ずつ削除するところまでしか
自力では分からず、これ以降どのように追記すれば良いか見当がつか
ない状態です。よろしくお願いします。
元データ
A B C D E F G
1 aaa bbb ccc ddd (IDNo.) fff ggg
2 111 222 333 444 555 666 777
（略）
14 END
15 (空白行)
16 AAA BBB CCC DDD (IDNo.) FFF GGG
（略）
29 END
30 (空白行)
以下 検索したもの＋自分で追記してみた部分です。
Sub 特定ID削除()
With ActiveWorkbook.ActiveSheet
Const startrow As String = "1" '開始行を指定
Const col As String = "E" '識別文字が入力されている列
Dim Idx As Long
Dim keyWord
keyWord = Application.InputBox("削除対象の文字列を指定", Type:=2)
If TypeName(keyWord) <> "Boolean" And Len(keyWord) > 0 Then
For Idx = .Cells(65536, col).End(xlUp).Row To startrow Step -1
If InStr(.Cells(Idx, col).Value, keyWord) > 0 Then
' If Application.CountIf(Rows(Idx), "*" & keyWord & "*") > 0 Then
.Rows(Idx).Delete
End If
Next Idx
End If
End With
End Sub
Excel VBAで末端までだと4万行くらいのデータを整理するものを組んで
います。初心者ゆえどなたかお詳しい方の知恵を拝借いたしたく。
元となるデータは15行が一塊であるデータブロックで構成されており、
14行目には"END"の文字があり、15行目には必ず空白行があります。
この15行のデータブロックが延々4万行繰り返しの形で存在しています。
どのデータブロックか判別できる数字が入っているのは1行目のE列
です。
データブロック一行目E列に含まれる特定の語句(IDNo.)を検索し、これを
起点として空白行までの15行一塊のデータブロックをまとめて削除でき
るものを作成しようと思ったのですが、一行ずつ削除するところまでしか
自力では分からず、これ以降どのように追記すれば良いか見当がつか
ない状態です。よろしくお願いします。
元データ
A B C D E F G
1 aaa bbb ccc ddd (IDNo.) fff ggg
2 111 222 333 444 555 666 777
（略）
14 END
15 (空白行)
16 AAA BBB CCC DDD (IDNo.) FFF GGG
（略）
29 END
30 (空白行)
以下 検索したもの＋自分で追記してみた部分です。
Sub 特定ID削除()
With ActiveWorkbook.ActiveSheet
Const startrow As String = "1" '開始行を指定
Const col As String = "E" '識別文字が入力されている列
Dim Idx As Long
Dim keyWord
keyWord = Application.InputBox("削除対象の文字列を指定", Type:=2)
If TypeName(keyWord) <> "Boolean" And Len(keyWord) > 0 Then
For Idx = .Cells(65536, col).End(xlUp).Row To startrow Step -1
If InStr(.Cells(Idx, col).Value, keyWord) > 0 Then
' If Application.CountIf(Rows(Idx), "*" & keyWord & "*") > 0 Then
.Rows(Idx).Delete
End If
Next Idx
End If
End With
End Sub
