Excel VBA質問箱 IV

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

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


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

49638 / 76736

←次へ　｜　前へ→


	【32002】Re:総合集計表から個別集計に

Hirok - 05/12/4(日) 10:48 -


	引用なし

	パスワード

▼こたつねこさん：

貴重なコメントありがとうございました。
このコードを実際に仕事に活用しますので、自分なりに
コードの解釈と、部分的な変更が対応でき、自分に自信と
活用する勇気を得るために、色々とお聞きしご迷惑をかけました。
単純なWith構文は自分でも作成するのですが、貴殿の書かれた
この後半のWith構文の構成が理解できていません。
どのように理解すると良いのか、もしコメントいただければ幸いですが。

>Sub 順次選択貼付け()
>
>Dim r As Range
>Dim myr As Range
>Dim dteDate As Date
>
>With Sheets("集計表")
>　 '日付の入力のある範囲をセット
>　 Set myr = .Range("A4", .Range("A65536").End(xlUp))
>　 '日付を変数に格納
>　 dteDate = .Range("A1").Value
>End With
>
>'日付の入力のある範囲を１セルづつ繰り返し変数rにセットする
>For Each r In myr
>　 '営業所名がNullでない場合実行
>　 If r.Offset(, 1).Value <> "" Then
>　　　'転記先のシート名が=営業所名なので日付の1列右のセルの値を
>　　　'シート名として指定

⇒　　ここでのWith Sheetsは転記先のシートを指すのですか？
　　　転記先と理解する判断基準は何なのでしょうか。
　　　r.Offset(,1).valueは"集計表"での営業所名の列で、シートの
　　　異なるもの(内容)が同居して、よくコードが成り立つのが不思議です。
　　　どのように理解すると良いのでしょう？　

>　　　With Sheets(r.Offset(, 1).Value)
>　　　　 '指定シートのA列最終行＋１に日付を転記
>　　　　 .Range("A65536").End(xlUp).Offset(1).Value = dteDate
>　　　　 '指定シートのC列最終行＋１に売上高を転記
>　　　　 .Range("C65536").End(xlUp).Offset(1).Value = r.Offset(, 2).value
>　　　End With
>　 End If
>Next
>
>End Sub

0 hits

▼

【31891】総合集計表から個別集計に YN63 05/12/1(木) 21:54