Excelのマクロを使用して以下の内容をしたいのですがどのようにすれば宜しいでしょうか?
1)「Sheet1」のセルの値が>2(2より大きい)の場合に「Sheet2」の同一のセルの色を例えば赤色にする。
これをA1~N34までのセルに関して連続で実行したい。
2)「X」というファイルのSheet1 A1からN34セルに同一のフォルダーに入っている、他のファイルの同セルに値が記載されていれば、その値をコピーしたい。
フォルダーに次々とファイルが追加されていくことを想定し、できれば他のファイル名は指定しなくてもどんどんコピーできるマクロがあればいいと思うのですが・・・
すみませんが宜しくお願いいたします。
A 回答 (5件)
- 最新から表示
- 回答順に表示
No.5
- 回答日時:
んー? 情報提供の不足は色々ありますが,特に難しい内容では無さそうに思えましたが。
sub macro1()
dim s as string
dim myPath as string
myPath = thisworkbook.path & "\"
s = dir(mypath & "*.xls")
application.displayalerts = false
application.screenupdating = false
do
if s <> thisworkbook.name then
workbooks.open filename:=mypath & s
'コピーしてきたいシートの具体的な詳細が不明
workbooks(s).worksheets(1).range("A1:N34").copy
'肝心の,どう貼りたいのか,重なったらどうしたいのか等の詳細一切不明
thisworkbook.worksheets("Sheet1").range("A1").pastespecial _
Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=True, Transpose:=False
workbooks(s).close savechanges:=false
end if
s = dir()
loop until s = ""
application.screenupdating = true
application.displayalerts = true
end sub
>色塗り
別にマクロとか使わなくても,シート2のセル範囲を選んで
条件付き書式を取り付けて
セルの値が → 数式が に変えて
右の空欄に
=INDIRECT("Sheet1!RC",FALSE)>2
と記入して,書式ボタンでセルの色を赤く塗って出来上がり。です。
No.4
- 回答日時:
こんばんは!
とりあえず、(1)に関してですが・・・
Sub test()
Dim i, j As Long
For i = 1 To 34
For j = 1 To 14
If Worksheets("sheet1").Cells(i, j) > 2 Then
Worksheets("sheet2").Cells(i, j).Interior.ColorIndex = 3
End If
Next j
Next i
End Sub
こんな感じですかね?
(2)に関してはちょっと判りかねますので
この程度でごめんなさいね。m(__)m
No.3
- 回答日時:
Ano2の1)はSheet1のマクロに作成する、それ以外の所にする場合には
For Each m_Range In Worksheets("Sheet1").Range("A1:N34")
としてください。
No.2
- 回答日時:
1)
Sub MacroX()
Dim m_Range As Object
For Each m_Range In Range("A1:N34")
If m_Range.Value > 2 Then
Worksheets("Sheet2").Range(m_Range.Address).Interior.Color = vbRed
End If
Next
End Sub
2)
仕様があいまいです
どんどんコピーするとは、たとえばAファイルのA1にデータがありBファイルのA1にデータがあった場合どちらを優先させるのかが不明です。
一度確認したファイルは次の実行時に値をコピーするのかも不明です。
コピーしないとすれば確認したかどうかをどこに記憶しておいて良いのか。
再度流れをじっくり考えて仕様をねってみましょう。
No.1
- 回答日時:
とりあえず1です。
Sub aaa()
Dim r As Integer, c As Integer
For c = 1 To 14
For r = 1 To 34
If Worksheets("Sheet1").Cells(r, c).Value > 2 Then
Worksheets("Sheet2").Cells(r, c).Interior.ColorIndex = 3
End If
Next r
Next c
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) Excelのマクロコードについて教えてください。 1 2022/03/27 13:25
- Excel(エクセル) エクセルのマクロについて教えてください。 3 2023/02/07 14:47
- Excel(エクセル) エクセルのマクロについて教えてください。 1 2022/03/31 12:46
- Visual Basic(VBA) Excelのマクロについて教えてください。 1 2023/03/12 12:16
- Excel(エクセル) エクセルのマクロについて教えてください。 1 2022/08/04 13:56
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2023/08/03 11:27
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2023/08/03 12:30
- Visual Basic(VBA) エクセルのマクロについて教えてください マクロを実行して 作業フォルダの中にある PDFファイル名を 3 2023/07/01 15:16
- その他(プログラミング・Web制作) python文字化けエラーが発生しているようです 3 2022/04/13 19:41
- Excel(エクセル) エクセルのマクロについて教えてください。 1 2023/01/26 09:50
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
至急!尿検査前日にオナニーし...
-
首吊りどこ締めるの
-
尿検査前日に自慰行為した時の...
-
尿検査の前日は自慰控えたほう...
-
白血球が多いとどんな心配があ...
-
勃起する時って痛いんですか? ...
-
腕を見たら黄色くなってる部分...
-
excelでsin二乗のやり方を教え...
-
変な話しになります。尿検査で...
-
彼女のことが好きすぎて彼女の...
-
1日前の検尿
-
EXCELで条件付き書式で空白セル...
-
検便についてです。 便は取れた...
-
中出しをするとお腹が痛い・・・。
-
2つの数値のうち、数値が小さい...
-
EXCELで式からグラフを描くには?
-
小数点以下を繰り上げたものを...
-
値が入っているときだけ計算結...
-
これって喉仏ですか? 私は女性...
-
Excelで""で囲む方法
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
至急!尿検査前日にオナニーし...
-
首吊りどこ締めるの
-
尿検査の前日は自慰控えたほう...
-
尿検査前日に自慰行為した時の...
-
検便についてです。 便は取れた...
-
白血球が多いとどんな心配があ...
-
中出しをするとお腹が痛い・・・。
-
射精をして1週間以内に尿検査を...
-
彼女のことが好きすぎて彼女の...
-
腕を見たら黄色くなってる部分...
-
勃起する時って痛いんですか? ...
-
変な話しになります。尿検査で...
-
これって喉仏ですか? 私は女性...
-
EXCELで条件付き書式で空白セル...
-
男です。昨日の午後3時くらいに...
-
今朝、毎朝の習慣でオナニーし...
-
納豆食べた後の尿の納豆臭は何故?
-
1日前の検尿
-
値が入っているときだけ計算結...
-
精子が黄色?
おすすめ情報