以下の同じフォルダに入った条件の合致したセルがある行を削除したいのです
が色々検索しても下の処理にあてはまるようなものが見つかりませんでした。
どなたかお助けしていただけないでしょうか？
お願いします。
特定条件合致行削除（）
Dim path$, wb As Workbook, wbName$
Dim ws As Worksheet, I&
path = ThisWorkbook.path & "\"
wbName = Dir(path & "*.xls")
Do Until wbName = ""
If wbName <> ThisWorkbook.Name Then
Set wb = Workbooks.Open(path & wbName)
= 2
For Each ws In wb.Worksheets
#####################################################################
With ws
この部分に特定範囲の中に条件（３つ）が含まれる行を削除する処理
を実行させたい。
I = I + 1
End With
######################################################################
Next
DoEvents
wb.Save
End If
wbName = Dir
Loop
Set wb = Nothing
Set ws = Nothing
MsgBox "第三処理が完了しました。処理完了です。", vbInformation, "処理確認"
End Sub
VB2008を使用しています。
現在、VBのTextBoxにExel内のデータを表示するプログラムを作成しています。Exel内には10のシートがあり、それぞれのシート内に、20列×50行のデータ（文字）が入っています。
VBには1～10（グループ化）及び11～30の（グループ化）RadioButtonとTxstBox50個を配置し、1～10のRadioButtonでシート名を、11～30のRadioButtonで列を選択し、各TxstBoxに50行のデータを取得したいと考えています。
現在、下記のコードを作成したのですが、この方法ではシート数10×列数20＝200もの似たようなコードを作成しなければなりません。もっとスマートな方法はないでしょうか？
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
' excelを定義
Dim excel As New Microsoft.Office.Interop.Excel.Application
' test.xlsを取得
Dim book As Microsoft.Office.Interop.Excel.Workbook
book = excel.Workbooks.Open("C:\test.xls")
' 1枚目のワークシートを取得
Dim Item(1) As Microsoft.Office.Interop.Excel.Worksheet
Item(1) = CType(book.Worksheets.Item(1), Microsoft.Office.Interop.Excel.Worksheet)
・
・
Item(20) = CType(book.Worksheets.Item(1), Microsoft.Office.Interop.Excel.Worksheet)
Dim COLUMN As String
If RadioButton1.Checked = True AndAlso RadioButton13.Checked Then
COLUMN = "A"
TextBox1.Text = Item(1).Range(COLUMN & "1").Value
・
・
TextBox50.Text = Item(1).Range(COLUMN & "50").Value
Else
If RadioButton10.Checked = True AndAlso RadioButton30.Checked Then
COLUMN = "Ｔ"
TextBox1.Text = Item(10).Range(COLUMN & "1").Value
・
・
TextBox50.Text = Item(10).Range(COLUMN & "50").Value
Else
End If
VB2008を使用しています。
現在、VBのTextBoxにExel内のデータを表示するプログラムを作成しています。Exel内には10のシートがあり、それぞれのシート内に、20列×50行のデータ（文字）が入っています。
VBには1～10（グループ化）及び11～30の（グループ化）RadioButtonとTxstBox50個を配置し、1～10のRadioButtonでシート名を、11～30のRadioButtonで列を選択し、各TxstBoxに50行のデータを取得したいと考えています。
現在、下記のコードを作成したのですが、この方法ではシート数10×列数20＝200もの似たようなコードを作成しなければなりません。もっとスマートな方法はないでしょうか？
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
' excelを定義
Dim excel As New Microsoft.Office.Interop.Excel.Application
' test.xlsを取得
Dim book As Microsoft.Office.Interop.Excel.Workbook
book = excel.Workbooks.Open("C:\test.xls")
' 1枚目のワークシートを取得
Dim Item(1) As Microsoft.Office.Interop.Excel.Worksheet
Item(1) = CType(book.Worksheets.Item(1), Microsoft.Office.Interop.Excel.Worksheet)
・
・
Item(20) = CType(book.Worksheets.Item(1), Microsoft.Office.Interop.Excel.Worksheet)
Dim COLUMN As String
If RadioButton1.Checked = True AndAlso RadioButton13.Checked Then
COLUMN = "A"
TextBox1.Text = Item(1).Range(COLUMN & "1").Value
・
・
TextBox50.Text = Item(1).Range(COLUMN & "50").Value
Else
If RadioButton10.Checked = True AndAlso RadioButton30.Checked Then
COLUMN = "Ｔ"
TextBox1.Text = Item(10).Range(COLUMN & "1").Value
・
・
TextBox50.Text = Item(10).Range(COLUMN & "50").Value
Else
End If
ネットをみているとOut of memory at line:56と表示されるようになりました。調べてみたらこのURLのような問題があるとのことなので直接ダウンロードをクリックしてもページがみつからないと英語で表示されてしまいます。この問題を解決するためにダウンロードするページがあれば教えていただけますか？それではよろしくお願いいたします。http://www.trick7.com/blog/2006/08/04-101752.php
私の質問を拝読いただき、ありがとうございます。
マトリックス形式のデータがワークシートに埋め込まれています。
特定のフィールドに入っている各レコードのデータをエクセルで検査するマクロを作ろうとしています。
検査方法としては、一定量以上の文字列が入っているセルを特定の色で塗るというものです。
（条件付書式でも同じことが可能ですが、操作の関係上、マクロで実現したいものです。）
次のようなコードを実行すると、各セル内の文字量が80文字を超えていようがいまいが、
B列の全てのセルがcolor=7で塗りつぶされてしまいます。
------------------------------------
Private Sub 検査()
Dim objColumn As String
Dim objCell As Range
Dim mojiByt As Integer
i = 2
objColumn = Columns(i).Address
For Each objCell In Range(objColumn)
With objCell
mojiByt = LenB(.Value)
Select Case mojiByt
Case Is > 80
.Interior.Color = 7
Case Else
.Interior.Color = xlNone
End Select
End With
Next
End Sub
------------------------------------
このコードのエラーをご指摘いただきますと幸いです。
よろしくお願い致します。
