Excel VBA質問箱 IV

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

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


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

76 / 3841 ﾍﾟｰｼﾞ

←次へ　｜　前へ→


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

ピンク - 19/6/26(水) 21:24 -


	引用なし

	パスワード

▼KH さん：
>　　 For Each c In Range("C7,D13,F20,G31")
　　　　　　　　 In .Range("C7,D13,F20,G31")

Rangeの前に入れてください。

・ツリー全体表示


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

KH - 19/6/26(水) 20:43 -


	引用なし

	パスワード

▼ピンクさん：

ありがとうございました！
うまくいきました。
追加で質問なのですが、教えてもらったコードに
with構文を入れてcの前に「.」を追加したのですが、エラーが出ました。
このコードはおかしいでしょうか？

Sub Test()
　 with sheets("A")
　　 Dim c As Range
　　 For Each c In Range("C7,D13,F20,G31")
　　　　 .c.Offset(2).Value = c.Offset(2, 1).Value
　　 Next
　 end with
End Sub

・ツリー全体表示


	【80966】Re:複数シートデータを一つのシートに1行...

マナ - 19/6/26(水) 19:03 -


	引用なし

	パスワード

▼カピさん：

説明の方法として、文章だけではわかりにくいので
下記のように、表形式で提示いただけるとよいです。

　　 -A-　　　-B-　　　-C-　　　-D-
1　受付番号一人部屋二人部屋三人部屋　
2
3
4

それと、ここはExcel VBA（マクロ）の質問掲示板です。
数式については、他で質問されるとよいと思います。

・ツリー全体表示


	【80965】複数シートデータを一つのシートに1行に...

カピ - 19/6/26(水) 15:01 -


	引用なし

	パスワード

こんにちは。
シート<S１>と<台帳>があります。

<S1>,<S2>,<S3>,...と<S10>までそれぞれ上記のデータが入っています。

シート<S１>
A1に受付番号
B1に1

A3に一人部屋
A4に２

B3に二人部屋
B4に４

C3に三人部屋
C4に１

シート<S2>
A1に受付番号
B1に2

A3に一人部屋
A4に1

B3に二人部屋
B4に3

C3に三人部屋
C4に0

--------------------------------

シート<台帳>
A1に受付番号、B1に一人部屋、C1に二人部屋、D1に三人部屋
A2に1
A3に2

とあります。

A2に1, B2に２、C2に４、D2に１
A3に2, B3に1、C3に3、D3に0

というように転記しようとVLOOKUPやINDIRECTを考えましたが、
上手く行かず困っています。どなたかお力添えをお願いいたします。

お手数ですがよろしくお願い致します。

・ツリー全体表示


	【80964】Re:vbaの行の取得について

名無しの権兵衛 - 19/6/26(水) 14:51 -


	引用なし

	パスワード

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

色々調べたところ、thiscellで実装できました。

・ツリー全体表示


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

さと - 19/6/26(水) 12:32 -


	引用なし

	パスワード

▼γ さん：
これが現在のコードで、このように変数の宣言の位置を変えたら、何回も連続で処理を行ってもエラーが全く出なくなりました。

Option Explicit

Sub 当月入力準備()
　　Application.ScreenUpdating = False
　　With Sheets("7月")
　　　
　　　.Range("B2").CurrentRegion.Offset(2, 1).Select

　 Dim a As Long, b As Long
　　a = Selection.Rows.Count
　　b = Selection.Columns.Count

　　　　Selection.Resize(a - 3, b - 1).Select
　　　　Selection.Copy
　　　　.Range("B2").CurrentRegion.Offset(3, 1).Select
　　　　Selection.Resize(a - 3, b - 1).Select
　　　　Selection.PasteSpecial xlPasteValues
　　　　.Range("B2").CurrentRegion.Offset(2, 1).Select
　　　　Selection.Resize(a - 6, b - 1).Select
　　　　Selection.ClearContents
　　End With
End Sub

・ツリー全体表示


	【80962】Re:vbaの行の取得について

名無しの権兵衛 - 19/6/26(水) 10:07 -


	引用なし

	パスワード

　　　-A-　　　-B-
1　　　大　　　　func(A1)　
2　　　中　　　　func(A2)　
3　　　小　　　　1　
4　　　小　　　　2　
5　　　中　　　　func(A5)　　　　　
6　　　小　　　　3　
7　　　大　　　　func(A7)　

B1はB2B5の合計
B2はB3B4の合計
B5はB6の値
となるように実装したいです。

・ツリー全体表示


	【80961】Re:vbaの行の取得について

マナ - 19/6/25(火) 22:09 -


	引用なし

	パスワード

▼名無しの権兵衛さん：

こんな感じでしょうか。

Function func(集計項目 As Range) As Double
　　Dim f As Range
　　Dim r As Range
　　Dim c As Range
　　
　　Application.Volatile
　　
　　With Range(集計項目, 集計項目.End(xlDown))
　　　　Set f = .Find(集計項目.Value, 集計項目, , xlWhole)
　　　　If f.Row = 集計項目.Row Then
　　　　　　 Set r = Range(集計項目.Offset(1), .Cells(.Count))
　　　　Else
　　　　　　Set r = Range(集計項目.Offset(1), f.Offset(-1))
　　　　End If
　　End With
　　　　
　　For Each c In r.Offset(, Application.Caller.Column - 集計項目.Column)
　　　　If Not c.HasFormula Then
　　　　　　func = func + c.Value
　　　　End If
　　Next

End Function

でも、func2がよいと思います。

Function func2(集計項目 As Range, データ範囲 As Range, 列番号 As Long) As Double
　　Dim f As Range
　　Dim r As Range
　　Dim c As Range
　　
　　With データ範囲.Columns(1).Cells
　　　　Set f = .Find(集計項目.Value, 集計項目, , xlWhole)
　　　　If f.Row <= 集計項目.Row Then
　　　　　　 Set r = Range(集計項目.Offset(1), .Cells(.Count))
　　　　Else
　　　　　　Set r = Range(集計項目.Offset(1), f.Offset(-1))
　　　　End If
　　End With
　　
　　For Each c In r.Columns(列番号).Cells
　　　　If Not c.HasFormula Then
　　　　　　func2 = func2 + c.Value
　　　　End If
　　Next

End Function

・ツリー全体表示


	【80960】Re:vbaの行の取得について

マナ - 19/6/25(火) 19:07 -


	引用なし

	パスワード

▼名無しの権兵衛さん：

何をしたいは理解しました。
でも、それが、なぜ最初の質問につながるのか理解できません。

・ツリー全体表示


	【80959】Re:vbaの行の取得について

マナ - 19/6/25(火) 18:55 -


	引用なし

	パスワード

▼名無しの権兵衛さん：

よくわかりません。
どのセルに何が入力されているか
どのセルが数式で、そんな結果を期待しているか
説明してください。

　　　-A-　　　-B-
1　　　　　　　　
2　　　　　　　　
3　　　　　　　　
4　　　　　　　　
5　　　　　　　　
5　　　　　　　　
6　　　　　　　　
7　　　　　　　　
8

・ツリー全体表示


	【80958】Re:vbaの行の取得について

名無しの権兵衛 - 19/6/25(火) 18:32 -


	引用なし

	パスワード

funcに項目の種類を渡して
自分の一つ下の項目の種類の合計を求めたいです。
上の中項目　5
2個目の中項目　1
大項目　　　6
となるように求めたいです。
_____________________
大項目　| func(A1)
中項目　| func(A2)
小項目　| 3
小項目　| 2
中項目　| func(A5)
小項目　| 1
大項目　| func(A7)
中項目　| func(A8)
小項目　| 1
_____________________

・ツリー全体表示


	【80957】Re:vbaの行の取得について

マナ - 19/6/25(火) 17:50 -


	引用なし

	パスワード

▼名無しの権兵衛さん：

どんな関数か、もう少し具体的な例にできませんか。

Application.Callerでできると思いますが
引数に行を指定すればよいだけのような気がします。

・ツリー全体表示


	【80956】vbaの行の取得について

名無しの権兵衛 - 19/6/25(火) 17:16 -


	引用なし

	パスワード

例　　　A1でユーザ定義関数を使ったら1-5行目
　　　　 A2でユーザ定義関数を使ったら2-6行目
でループしたいのですが、どのように求めたら良いのでしょうか？

・ツリー全体表示


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

ピンク - 19/6/25(火) 16:52 -


	引用なし

	パスワード

▼KH さん：
>これの"C7"を"D13","F20","G31"など任意のものに変更して同じ処理をしたいです。
Sub Test()
　　Dim c As Range
　　For Each c In Range("C7,D13,F20,G31")
　　　　c.Offset(2).Value = c.Offset(2, 1).Value
　　Next
End Sub

・ツリー全体表示


	【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の次の行に >変数の宣言を入れ込んだら、エラーが出なくなりました。変数の宣言位置は余り関係ないと思います。現在のコードを提示してみてはいかがですか？

・ツリー全体表示


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

76 / 3841 ﾍﾟｰｼﾞ

←次へ　｜　前へ→

ページ：

┃

記事番号：

(SS)C-BOARD v3.8 is Free