エクセル2003
「Sheet5」のデータを「Sheet6」に重複チェックをしながら追記していきたいです。
「Sheet5」に他のソフトから出力したデータがあります。
「Sheet6」には履歴を残すために出力したデータを追記していきます。
そこで、重複チェックをしながら追記したいです。
重複チェックは【請求先コード】【日付】の２つでしたいです。
私が作成したものは【請求先コード】のみのチェックです。
日付のデータ型を「Date」にして、どう記述すればよいのか分からずに質問しました。
よろしくお願い致します。
「Sheet5」１行目は見出し
A列・・・・・・・・・・・・・B列・・・・・・・・・・・C列
請求先コード ｜ 請求先名 ｜ 日付
1000 A社 2011/1/20
1010 B社 2011/1/20
1012 C社 2011/1/20
「Sheet6」１行目は見出し
A列・・・・・・・・・・・・・B列・・・・・・・・・・・C列
請求先コード ｜ 請求先名 ｜ 日付
1000 A社 2011/1/10
1000 A社 2011/1/20
1010 B社 2011/1/10
1010 B社 2011/1/20
1012 C社 2011/1/10
1012 C社 2011/1/20
1015 D社 2011/1/10
1010 E社 2011/1/10
Sub test1()
Dim ws1 As Worksheet, ws2 As Worksheet
Dim x As Long, y As Long, z As Long, i As Long
Set ws1 = Sheets("Sheet5")
z = Range("A1").End(xlDown).Row
Set ws2 = Sheets("Sheet6")
x = ws2.Cells(Rows.Count, "A").End(xlUp).Row + 1
For y = 1 To z
If ws1.Cells(y, "A").Value = "" Then Exit For
Next
ws1.Cells(2, "A").Resize(y - 1, z).Copy
ws2.Cells(x, "A").PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
With Worksheets("Sheet6")
'A列とC列を基準に昇順で並び替えます
Sheets("Sheet6").Select
Range("A1").Select
Range("A:C").Sort Key1:=Range("A2"), Order1:=xlAscending, Key2:=Range( _
"C2"), Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase _
:=False, Orientation:=xlTopToBottom, SortMethod:=xlPinYin, DataOption1:= _
xlSortNormal, DataOption2:=xlSortNormal
'請求先コードにして重複チェック
For i = ActiveSheet.Range("A65536").End(xlUp).Row To 2 Step -1
With Cells(i, "A")
If .Value = .Offset(-1).Value Then
.EntireRow.Delete
End If
End With
Next
End With
End Sub
Excel 2002 です
下記コードはなんとか動作するんですが、
例えば、「Cells(1, 8).Value」が「2」の時、
「"G:G"」列の「12」にも動作してしまうので、
必ず、「2」だけに動作させたいんですが、
どのように記述すればよいでしょうか？
「Cells(1, 8).Value」と「"G:G"」列は、1～20までの数字しかありません。
他に、おかしな記述箇所がありましたら、教えて下さいませ。
何卒よろしくお願い致します。
----------------------
Sub 一セルずつ貼付ける()
Dim fWord As Integer, fAdd, c
fWord = Cells(1, 8).Value
With Workbooks("ああ.xls").Worksheets(1).Range("G:G")
Set c = .Find(fWord, LookIn:=xlValues)
If Not c Is Nothing Then
fAdd = c.Address
Do
c.Offset(0, 5).Copy
Worksheets(Worksheets.Count).Range("D65536").End(xlUp). _
Offset(1, 0).PasteSpecial Paste:=xlAll, _
Transpose:=True
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> fAdd
End If
End With
End Sub
エクセルマクロで今開いているブック以外のブック名を取得して編集するマクロを作っていますが、一度他のブックを開かずにエラーメッセージ"価格を検索したいブックを開いて下さい。"を表示させると以降開いたブック名を取得出来ません。
For Each wb In Application.Workbooks
s = wb.Name
If s <> ActiveWorkbook.Name Then
Exit For
Else
MsgBox "価格を検索したいブックを開いて下さい。"
Exit Sub
End If
Next
オブジェクトの解放など調べてみたのですが、初心者でよく解らず困っています。どなたか教えて下さい。
アクティブセル値と同じオブジェクト名のテキストボックスが複数有ります。そのテキストボックスの大きさやテキスト（アクティブセル値と同じ）の内容に書き換えたいと思っています。
サイズとテキスト書き込みのステートメントをFor Eachで括りました。
途中にMsgboxを入れて確認するとボックスの数だけ繰り返しているのは間違いないのですが、変更できるのは1個だけです。
最初に作った（？）テキストボックスのみを何度も書き換えているのかな？と思っているのですが、複数個の変更をするにはどの様にしたらいいのでしょうか。
宜しくお願い致します。
Sub test()
A = ActiveCell.Formula
For Each shp In ActiveSheet.Shapes
If shp.Name = A Then
ActiveSheet.Shapes(A).Select
Selection.ShapeRange.Height = 19.5
Selection.ShapeRange.Width = 19.5
With ActiveSheet.Shapes(A).TextFrame
.Characters.Text = A
End With
With Selection.Font
.Size = 7
End With
End If
Next shp
End Sub
お世話になります。
初めて投稿いたします。
VBA初心者です。エクセルグラフの軸ラベルを一括変換したいのですが、分からなくて困っています。
過去ログ、個人HPなどを参考にして、一つのグラフを選択、下記マクロを実行すれば、一つのグラフのみなら軸ラベルを変更する事が出来たのですが、ワークシート内の複数の埋め込みグラフを一発でラベル変更する場合のマクロが作成できません。
当方会社員、データをまとめる為、今回100ヶほどのグラフを一括変換したいため、どうしてもマクロ処理したいと考えています。
For Each・・・Next でループさせたいのですが、何分初心者勉強中の為、エラー多発、何方かお分かりの方、お助け下さい。
Sub 軸ラベル一括変換()
With ActiveChart
With .Axes(xlCategory, xlPrimary)
.HasTitle = True
.AxisTitle.Text = "X"
End With
With .Axes(xlValue, xlPrimary)
.HasTitle = True
.AxisTitle.Text = "y"
End With
End With
End Sub
