こんにちは。
VBA初心者のものですが質問させていただきます。
※エクセル２００３です
「sheet1のD4:FA4のうち、09年8月以外の日付のセルすべてを選択する」
の構文を下記のように作ってみたのですがうまくいきません・・・
(1)「09年8月」の認識
(2)「～以外のセル全て選択」
の2点がネックで困っています。
ちなみに日付のセルには「2009/8/5」のように入力されており、
表示は「09/8/5」です。
すみませんがご教示お願いいたします。
Sub Macro1()
Dim 日付 As Range
For Each 日付 In Worksheets("sheet1").Range("D4:FA4")
If 日付.Value like"*09/8/*"= false Then
日付.select
End If
Next
End Sub
１２３４５６７８９１０・・・・ ← 日付
田中 １ １ １
中村 １ １
鈴木 １１１１１
・
・
・
上のようになっている表を下記のように変換したいのですが、マクロがうまく書けません。
Ａ Ｂ Ｃ Ｄ Ｅ Ｆ Ｇ Ｈ Ｉ Ｊ Ｋ Ｌ Ｍ
１ ２ ３ ４ ５ ６ ７ ← 日付
田中 中村 田中 鈴木 中村 田中
鈴木 鈴木 鈴木 鈴木
Sub test01()
d = Worksheets("Sheet1").Range("A65536").End(xlUp).Row
r = Worksheets("Sheet1").Range("IV2").End(xlToLeft).Column
k = 4 '新規作成用の行ポインター
For j = 2 To r
For i = 3 To d
If Worksheets("Sheet1").Cells(i, j) = 1 Then
Worksheets("新規作成用").Cells(k, 2 * (j - 6)) = Worksheets("Sheet1").Cells(i, 2)
k = k + 1
End If
Next i
Next j
End Sub
ここまで書いていきづまってしまいました。どなたかご指南ください。
以下の同じフォルダに入った条件の合致したセルがある行を削除したいのです
が色々検索しても下の処理にあてはまるようなものが見つかりませんでした。
どなたかお助けしていただけないでしょうか？
お願いします。
特定条件合致行削除（）
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
エクセル2003を使用しています。もしよかったら教えてください。
【例】
エクセルシートを2つ使うことを前提として、
Sheet1にはA1:F50の6列範囲セルに対して1～60の範囲内の数字が決められた背景色とフォント色に従い元々ランダムに入っております。
次に新たにSheet2を作り、そのE1:J50の6列範囲セルに値を他からコピーしてきた数字がランダムに入っています。
上記Sheet1セル範囲とSheet2セル範囲を比較して、それぞれのセル範囲内の数字がそれぞれ一致した場合、Sheet2のセル群をSheet1のセルの背景色とフォントカラーを同一に変更するマクロがわかりませんでした。
また1～60範囲外数値であれば処理しません。
調べても、数値入力した時点で他のセルの背景・フォント色を同一に変更する方法しか無かったので、For Eachを使い、試してみたのが下記のマクロです。
Private Sub Worksheet_Change(ByVal Target As Range)
Dim v, c As Range
'//変更されたセル範囲・値をチェックして、関係なければ処理をしない
If Target.Count > 1 Then Exit Sub
If Intersect(Range("E1:J50"), Target) Is Nothing Then Exit Sub
v = Target.Value
If Not IsNumeric(v) Or v < 1 Or v > 60 Then Exit Sub
'//参照するシートの範囲について順にチェック
'//値が同じだったら、フォントカラーと背景色を同じにして終了
For Each c In Worksheets("sheet1").Range("A1:F50")
If c.Value = v Then
Target.Interior.ColorIndex = c.Interior.ColorIndex
Target.Font.ColorIndex = c.Font.ColorIndex
Exit For
End If
Next c
End Sub
これで実行するとSheet2に数値を新たに入力してうまくいきます。
ただ、Sheet2へ他からコピーしてきた数値のセル背景・フォント色を変更することができないです。
上記の作業を次から次へと新規で対応しなければならず、数値の入力に疲れてきております。
うまくいくマクロありますでしょうか？
