Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

76 / 3841 ﾍﾟｰｼﾞ

←次へ　｜　前へ→


	【80954】Re:選択セルのみ変更して繰り返す

KH - 19/6/25(火) 0:33 -


	引用なし

	パスワード

▼マナさん：
以下の場合、どこをｃにすればいいですか？
色々変えてみたのですが、うまくいきませんでした。

Sub 繰り返し処理()
　　Dim c As Range
　　For Each c In Range("C7,D13,F20,G31")　　

　　 Range("C7").Select
　　 Selection.Offset(2, 1).Select
　　 Selection.Copy
　　 Selection.Offset(0, -1).Select
　　 Selection.PasteSpecial Paste:=xlPasteValues

　　next
End Sub

・ツリー全体表示


	【80953】Re:選択セルのみ変更して繰り返す

マナ - 19/6/24(月) 23:58 -


	引用なし

	パスワード

▼KH さん：
>
>これの"C7"を"D13","F20","G31"など任意のものに変更して同じ処理をしたいです。

そういう意味ですか。
For each～nextを使います。

Sub test()
　　Dim c As Range

　　For Each c In Range("C7,D13,F20,G31")
　　　　MsgBox c.Address(0, 0)
　　Next

End Sub

・ツリー全体表示


	【80952】Re:選択セルのみ変更して繰り返す

KH - 19/6/24(月) 23:43 -


	引用なし

	パスワード

▼マナさん：

適当に作ったコードですが…

Sub 繰り返し処理()
　　Range("C7").Select
　　Selection.Offset(2, 1).Select
　　Selection.Copy
　　Selection.Offset(0, -1).Select
　　Selection.PasteSpecial Paste:=xlPasteValues

End Sub

これの"C7"を"D13","F20","G31"など任意のものに変更して同じ処理をしたいです。

・ツリー全体表示


	【80951】Re:選択セルのみ変更して繰り返す

マナ - 19/6/24(月) 22:52 -


	引用なし

	パスワード

▼KH さん：

具体例があるほうがよいです。
現在のコードの提示できませんか。

・ツリー全体表示


	【80950】選択セルのみ変更して繰り返す

KH - 19/6/24(月) 22:45 -


	引用なし

	パスワード

Range("C5").Select から始まる処理があるとします。
この最初の選択するセルのみC8、D14、F6などの任意のものに
変えて同じ処理をしたいです。
for next構文だと連続した数値や法則性のある数値を入れなければいけなくて
できません。

処理全体をコピーしてセルの選択位置を変更するしかないのでしょうか？
色々調べてみたのですが、このような繰り返し処理のやりかたが見つかりませんでした。
方法がありましたら、ご教授願います。

・ツリー全体表示


	【80949】Re:2回に1回エラーが出る

γ - 19/6/24(月) 22:19 -


	引用なし

	パスワード

>Range("B2").CurrentRegionの次の行に >変数の宣言を入れ込んだら、エラーが出なくなりました。変数の宣言位置は余り関係ないと思います。現在のコードを提示してみてはいかがですか？

・ツリー全体表示


	【80948】Re:2回に1回エラーが出る

さと - 19/6/24(月) 22:13 -


	引用なし

	パスワード

▼γ さん：

Range("B2").CurrentRegionの次の行に
変数の宣言を入れ込んだら、エラーが出なくなりました。
連続して行う場合、前の処理のセレクト部分が
変数に反映されていると考えたら分かりやすかったです。

ありがとうございました。

・ツリー全体表示


	【80947】等幅忘れた。

Jaka - 19/6/24(月) 18:05 -


	引用なし

	パスワード

> 　　For Each ws In Worksheets >　　　　　　　　　 ↑ >　　　　　　　 .がない。と書いたくせに、入れてなかったので、その辺注意。

・ツリー全体表示


	【80946】あ・・・・。

Jaka - 19/6/24(月) 18:02 -


	引用なし

	パスワード

こっちの方が・・・・
下にある、end with、end if も入れ替えてね。

>　　 If ws.Name = "A" Then
>　　　　With ws
　　　　↓
　　　With ws
　　　　 If .Name = "A" Then

> 　　For Each ws In Worksheets
>　　　　　　　　　 ↑
>　　　　　　　 .がない。

と書いたくせに、入れてなかったので、その辺注意。

・ツリー全体表示


	【80945】Re:指定のシートがあれば処理を行い、無...

fika - 19/6/24(月) 12:44 -


	引用なし

	パスワード

▼Jaka さん：
直ぐに回答をありがとうございます！

フラグのところ、仰る通りややこしくなりました。。
フラグを立てる、降ろす一文、なるほど。。勉強になります。

そしてJakaさんがアドバイスしてくださったコードが
スッキリして解りやすいです！
フラグを使わない方法はこのようになるのですね。

お蔭さまで無事に処理が進みました！
ありがとうございます！

とても勉強になりました。

============
>>　　With Workbooks.Open(f)
>> 　　For Each ws In Worksheets
>　　　　　　　　　　↑
>　　　　　　　 .がない。
>　　　　 Openしたばかりのアクティブブック対象となるので
>　　　　同じようのは動くけど。
>
>この辺↓、なんかフラグつかったりごちゃごちゃしすぎに感じません？
>
>>　　For Each ws In Worksheets
>>　　 If ws.Name = "A" Then flag = True
>>　　Next ws
>>　　If flag = False Then Close
>>　　If flag = True Then
>　　　
>> 　　 With .Worksheets("A")
>
>こんな感じで良いと思うけど？
>
>　　For Each ws In Worksheets
>　　 If ws.Name = "A" Then
>　　　　With ws
>　　　　　　 i = 2
>　　　　　　Do While .Cells(i, 1).Value <> ""
> 　　　　　　　　Sheet1.Cells(j, 1).Value = .Cells(i, 1).Value
> 　　　　　　　　Sheet1.Cells(j, 2).Value = .Cells(i, 2).Value
> 　　　　　　　　Sheet1.Cells(j, 3).Value = .Cells(i, 3).Value
> 　　　　　　　　Sheet1.Cells(j, 4).Value = .Cells(i, 4).Value
> 　　　　　　　　Sheet1.Cells(j, 5).Value = .Cells(i, 5).Value
> 　　　　　　　　Sheet1.Cells(j, 6).Value = .Cells(i, 6).Value
> 　　　　　　　　Sheet1.Cells(j, 7).Value = .Cells(i, 7).Value
> 　　　　　　　　Sheet1.Cells(j, 8).Value = .Cells(i, 8).Value
> 　　　　　　　　Sheet1.Cells(j, 9).Value = .Cells(i, 9).Value
> 　　　　　　　　Sheet1.Cells(j, 9).Value = .Cells(i, 10).Value
> 　　　　　　　　i = i + 1
>　　　　　　　　j = j + 1
>　　　　　　Loop
>　　　　 end with
>　　　end if
>　　next
>
>因みに
>フラグを立てる flag = True
>フラグを降ろす flag = False
>　　　（下すって変換されちゃってたけど）

・ツリー全体表示


	【80944】Re:指定のシートがあれば処理を行い、無...

Jaka - 19/6/24(月) 10:41 -


	引用なし

	パスワード

>　　With Workbooks.Open(f) > 　　For Each ws In Worksheets 　　　　　　　　　　↑ 　　　　　　　 .がない。　　　　 Openしたばかりのアクティブブック対象となるので　　　　同じようのは動くけど。この辺↓、なんかフラグつかったりごちゃごちゃしすぎに感じません？ >　　For Each ws In Worksheets >　　 If ws.Name = "A" Then flag = True >　　Next ws >　　If flag = False Then Close >　　If flag = True Then 　　　 > 　　 With .Worksheets("A") こんな感じで良いと思うけど？　　For Each ws In Worksheets 　　 If ws.Name = "A" Then 　　　　With ws 　　　　　　 i = 2 　　　　　　Do While .Cells(i, 1).Value <> "" 　　　　　　　　Sheet1.Cells(j, 1).Value = .Cells(i, 1).Value 　　　　　　　　Sheet1.Cells(j, 2).Value = .Cells(i, 2).Value 　　　　　　　　Sheet1.Cells(j, 3).Value = .Cells(i, 3).Value 　　　　　　　　Sheet1.Cells(j, 4).Value = .Cells(i, 4).Value 　　　　　　　　Sheet1.Cells(j, 5).Value = .Cells(i, 5).Value 　　　　　　　　Sheet1.Cells(j, 6).Value = .Cells(i, 6).Value 　　　　　　　　Sheet1.Cells(j, 7).Value = .Cells(i, 7).Value 　　　　　　　　Sheet1.Cells(j, 8).Value = .Cells(i, 8).Value 　　　　　　　　Sheet1.Cells(j, 9).Value = .Cells(i, 9).Value 　　　　　　　　Sheet1.Cells(j, 9).Value = .Cells(i, 10).Value 　　　　　　　　i = i + 1 　　　　　　　　j = j + 1 　　　　　　Loop 　　　　 end with 　　　end if 　　next 因みにフラグを立てる flag = True フラグを降ろす flag = False 　　　（下すって変換されちゃってたけど）

・ツリー全体表示


	【80943】Re:指定のシートがあれば処理を行い、無...

fika - 19/6/24(月) 8:24 -


	引用なし

	パスワード

▼Jaka さん：
>あまりよく見てないけど・・・・。
>
>>　　If flag = False Then Close
>　　　　　　　　　　　　 ↑
>　　　　　　　　　　.が足りない。

Jakaさん、ありがとうございます！
.を付けてみましたが、with .worksheets("A")　のところで止まり、
インデックスが有効範囲にありません。が出ました。。

flag を下すということですね。。
探してみます！

・ツリー全体表示


	【80942】Re:2回に1回エラーが出る

γ - 19/6/24(月) 7:23 -


	引用なし

	パスワード

横から失礼する。 ■19/6/23(日) 19:23のコードでは、無造作に　a = Selection.Rows.Count 　b = Selection.Columns.Count で始まっている。そのとき何が選択されているから分かったものじゃない。前の処理で、最終的にSelectされるものが前提になっているとすると、 Selection.Resize(Selection.Rows.Count - 6, Selection.Columns.Count - 1).Select で大きさが縮んだものになっているのではないか。 ■一方で、19/6/23(日) 20:30のコードでは、 Selectionの大きさは、Range("B2").CurrentRegionに由来しているものになっている。だから上記のようなことは起きない。両者は明確に違うと思う。どうすればよいかは自ずと明らかでしょう。

・ツリー全体表示


	【80941】Re:2回に1回エラーが出る

さと - 19/6/23(日) 22:29 -


	引用なし

	パスワード

▼マナさん：

期待通りの動作はしています。
動作はしていますが、エラーで出るので
何か問題があるのではと気になり、質問しました。
何かコードに問題があるのかと…

エラーが出ることは別の話という考えがありませんでした。
動作はしているので、そういうものだと理解します。

色々と、ご指摘ありがとうございました。

・ツリー全体表示


	【80940】Re:2回に1回エラーが出る

マナ - 19/6/23(日) 22:12 -


	引用なし

	パスワード

▼さとさん：

>.Range("B2").CurrentRegion　で選択された範囲が
>4以上なら問題ないということで良いでしょうか？

エラーがでないということと
期待通りの動作をするということは別です。

で、わたしには、何をしようとしているか理解できていません。

そのマクロで、どういう結果になることを期待していますか。

・ツリー全体表示


	【80939】Re:2回に1回エラーが出る

さと - 19/6/23(日) 21:57 -


	引用なし

	パスワード

▼マナさん：

.Range("B2").CurrentRegion　で選択された範囲が
4以上なら問題ないということで良いでしょうか？

・ツリー全体表示


	【80938】Re:2回に1回エラーが出る

マナ - 19/6/23(日) 21:31 -


	引用なし

	パスワード

▼さとさん：

では、以下は　a で問題ないですか。

>　　　　.Range("B2").CurrentRegion.Offset(2, 1).Select
>　　　　Selection.Resize(a - 3, b - 1).Select

　

・ツリー全体表示


	【80937】Re:2回に1回エラーが出る

さと - 19/6/23(日) 21:01 -


	引用なし

	パスワード

▼マナさん：

前半部分は、
B2が選択されてaがその行数となるので
メッセージボックスに1が表示される。

後半部分は、
B2を含む範囲が選択されて、その選択範囲がoffsetで
行と列が移動して、その状態の選択範囲の行数が
メッセージボックスに表示される。

このように理解しています。

・ツリー全体表示


	【80936】Re:2回に1回エラーが出る

マナ - 19/6/23(日) 20:43 -


	引用なし

	パスワード

▼さとさん：

以下のマクロの実行結果が理解できますか。

Sub test()
　　Dim a As Long
　　
　　Sheets("7月").Activate
　　Range("B2").Select
　　
　　a = Selection.Rows.Count
　　
　　MsgBox Selection.Rows.Count
　　MsgBox a

　　Range("B2").CurrentRegion.Offset(2, 1).Select
　
　　MsgBox Selection.Rows.Count
　　MsgBox a
　
End Sub

・ツリー全体表示


	【80935】Re:2回に1回エラーが出る

さと - 19/6/23(日) 20:30 -


	引用なし

	パスワード

返信ありがとうございます。

指摘内容を確認してみたのですが改善されませんでした。
まだ私が内容ををしっかり理解できていないせいかもしれないですが…

以下のように変数の宣言を使用しないように試してみったら、全くエラーが出ません。
変数の宣言の仕方がおかしいのでしょうか？
何か分かることありましたらご教授願います。

Sub 当月入力準備()
　　Application.ScreenUpdating = False
　　With Sheets("7月")
　　　　.Range("B2").CurrentRegion.Offset(2, 1).Select
　　　　Selection.Resize(Selection.Rows.Count - 3, Selection.Columns.Count - 1).Select
　　　　Selection.Copy
　　　　.Range("B2").CurrentRegion.Offset(3, 1).Select
　　　　Selection.Resize(Selection.Rows.Count - 3, Selection.Columns.Count - 1).Select
　　　　Selection.PasteSpecial xlPasteValues
　　　　.Range("B2").CurrentRegion.Offset(2, 1).Select
　　　　Selection.Resize(Selection.Rows.Count - 6, Selection.Columns.Count - 1).Select
　　　　Selection.ClearContents
　　End With
　　　　　　　　　　　　　　　
End Sub

・ツリー全体表示


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

76 / 3841 ﾍﾟｰｼﾞ

←次へ　｜　前へ→

ページ：

┃

記事番号：

(SS)C-BOARD v3.8 is Free