Excel VBA質問箱 IV

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

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


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

8875 / 76735

←次へ　｜　前へ→


	【73428】Re:AdvancedFilterメソッドについて

ニャンソ - 13/1/7(月) 21:05 -


	引用なし

	パスワード

▼kanabun さん：

こんばんは。

>> With Book3.Worksheets("Temp") 'Temp Sheetに必要データだけ転記
>>　　　.UsedRange.Clear
>>　　　'列見出しのコピー
>>　　　.Cells(nRow, 1) = "Group番号" 'あとで Book3より引用
>>　　　.Cells(nRow, 2) = shtA.[C7].Value '県名
>>　　　.Cells(nRow, 3) = shtA.[D7].Value '地区★
>>　　　.Cells(nRow, 4) = shtA.[F7].Value '従業員番号-----+
>>　　　.Cells(nRow, 5) = shtA.[G7].Value '従業員氏名　　 |印刷項目
>>　　　.Cells(nRow, 6) = shtA.[Y7].Value '申請金額　　　 |
>>　　　.Cells(nRow, 7) = shtA.[Z7].Value '実金額　-------+
>
>ここの shtA (送られてきた元データのあるシート) の7行目という行番号を
>shtA.[C4].Value
>のように 4 に変えないといけないですね。

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

>マクロの書いてあるブックに List という名のシートはあるんですか？
>そしてそこにはこんなリストがあるんですか？
>
>マクロブックの「List」シート
>
>>　Ａ　　　Ｂ　　　Ｃ　　　Ｄ　　Ｅ　　　　　　Ｇ
>>　　　　　　　グループ　従業員　　　　　　　　　　
>>県名　　地区　　番号　　番号　従業員名　　　地区
>>愛知　　A地区　　1　　　005　　新井　　　　A地区
>>岐阜　　B地区　　1　　　006　　荒川　　　　B地区
>>三重　　C地区　　2　　　015　　上野　　　　C地区
>>静岡　　D地区　　2　　　017　　遠藤　　　　
>>福井　　E地区　　3　　　020　　大貫　　　　
>>東京　　A地区　　6　　　038　　君島　　
>>東京　　B地区　　6　　　041　　小池　　
>>東京　　C地区　　6　　　050　　佐々木　　
>>東京　　D地区　　6　　　051　　佐藤　　
>>東京　　E地区　　6　　　057　　鈴木　　
>>東京　　F地区　　6　　　058　　須藤　　
>>東京　　G地区　　6　　　062　　高久　　
>>東京　　X地区　　6　　　065　　高橋　

そうですね。
Book3に「List」

地区・責任者番号・グループ番号・従業員番号・従業員名・その他データ

これを

地区・責任者番号・グループ番号・従業員番号・従業員名・地区

「Temp」は空白で作成しました。

>>Sub Try1()
>>　'◆送られてきたBookをアクティブにして実行してください
>>　Set Book1 = ActiveWorkbook '送られてきたデータブック
>>　Set Book2 = Workbooks("Book2.xls") '印刷シート
>>　Set Book3 = ThisWorkbook　 'このマクロBook(Group名一覧を含む)
>>　
>>　If Book1 Is Book2 Then
>>　　　MsgBox "送られてきたBookを前面にして実行", vbCritical
>>　　　Exit Sub
>>　End If
>>　If Book1 Is Book3 Then
>>　　　MsgBox "送られてきたBookを前面にして実行", vbCritical
>>　　　Exit Sub
>>　End If
>
>ここのことですね？

そうです。

>>　'◆送られてきたBookをアクティブにして実行してください
>
>この文章の意味を分かってもらえないと... ほかにどう表現したらいいのか...
>すみません、語彙が少なくて...
>要するに Book1 あたるBook をプログラム Sub Try1() を走らせる直前に
>クリックして（こうすることによって、Book1 が最前面になります）
>マクロスタートということなんですが。。。

Book1をアクティブにするとの事でしたが、
Book3をアクティブにすると「送られてきたBookを前面にして実行」
というエラーは出ませんでした…

>あと、送られてきたBook ですが、
>Sub Try1() で想定しているレイアウトになってないような気がするので、
>Book3(マクロブック) の「List」シートに対応するデータ（ダミーデータ）
>を自作されて、それで検証してもいいですね。

地区・責任者番号・グループ番号・従業員番号・従業員名・地区

ではなく

>>　Ａ　　　Ｂ　　　Ｃ　　　Ｄ　　Ｅ　　　　　　Ｇ
>>　　　　　　　グループ　従業員　　　　　　　　　　
>>県名　　地区　　番号　　番号　従業員名　　　地区

に変更し作成してみます。

よろしくお願い致します。

0 hits

▼

【73344】AdvancedFilterメソッドについて ニャンソ 12/12/21(金) 23:34