Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
8891 / 76732 ←次へ　｜　前へ→
【73409】Re:AdvancedFilterメソッドについて
発言  kanabun  - 13/1/5(土) 19:04 -
引用なし
パスワード
   ▼ニャンソ さん：

>申し訳ありません。
>4行目で統一しました。

そしたら、
> 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 に変えないといけないですね。

>コードの結果ですが、やはり
>
>Set shtL = Book3.Worksheets("List")
>
>
>のところが、インデックスがないと出てしまいます。
>
>何故でしょうか？

マクロの書いてあるブックに 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　　高橋　

>
>また、「送られてきたBookをアクティブにして実行」
>
>とエラーが出ます。
>
>送られてきたBook1で実行しているのですが…

>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 が最前面になります）
マクロスタートということなんですが。。。

あと、送られてきたBook ですが、
Sub Try1() で想定しているレイアウトになってないような気がするので、
Book3(マクロブック) の「List」シートに対応するデータ（ダミーデータ）
を自作されて、それで検証してもいいですね。
429 hits
▼ 【73344】AdvancedFilterメソッドについて ニャンソ 12/12/21(金) 23:34 質問
【73346】Re:AdvancedFilterメソッドについて UO3 12/12/22(土) 0:44 発言
【73348】Re:AdvancedFilterメソッドについて ニャンソ 12/12/22(土) 8:33 質問
【73349】Re:AdvancedFilterメソッドについて kanabun 12/12/22(土) 10:08 発言
【73350】Re:AdvancedFilterメソッドについて kanabun 12/12/22(土) 10:17 発言
【73353】Re:AdvancedFilterメソッドについて ニャンソ 12/12/22(土) 16:22 回答
【73352】Re:AdvancedFilterメソッドについて ニャンソ 12/12/22(土) 16:18 質問
【73351】Re:AdvancedFilterメソッドについて UO3 12/12/22(土) 14:07 発言
【73354】Re:AdvancedFilterメソッドについて ニャンソ 12/12/22(土) 16:28 回答
【73355】Re:AdvancedFilterメソッドについて UO3 12/12/22(土) 18:23 発言
【73356】Re:AdvancedFilterメソッドについて ニャンソ 12/12/22(土) 19:14 お礼
【73358】Re:AdvancedFilterメソッドについて ニャンソ 12/12/24(月) 21:24 回答
【73360】Re:AdvancedFilterメソッドについて kanabun 12/12/25(火) 0:05 発言
【73362】Re:AdvancedFilterメソッドについて ニャンソ 12/12/25(火) 20:34 お礼
【73361】Re:AdvancedFilterメソッドについて UO3 12/12/25(火) 10:39 発言
【73363】Re:AdvancedFilterメソッドについて ニャンソ 12/12/25(火) 20:54 回答
【73364】Re:AdvancedFilterメソッドについて UO3 12/12/26(水) 9:53 発言
【73366】Re:AdvancedFilterメソッドについて ニャンソ 12/12/26(水) 19:46 お礼
【73369】Re:AdvancedFilterメソッドについて UO3 12/12/27(木) 12:33 発言
【73371】Re:AdvancedFilterメソッドについて ニャンソ 12/12/27(木) 22:03 回答
【73372】Re:AdvancedFilterメソッドについて UO3 12/12/27(木) 22:10 発言
【73379】Re:AdvancedFilterメソッドについて ニャンソ 12/12/28(金) 21:00 回答
【73373】Re:AdvancedFilterメソッドについて UO3 12/12/27(木) 22:15 発言
【73380】Re:AdvancedFilterメソッドについて ニャンソ 12/12/28(金) 21:02 回答
【73382】Re:AdvancedFilterメソッドについて ニャンソ 12/12/28(金) 22:00 発言
【73385】Re:AdvancedFilterメソッドについて ニャンソ 12/12/29(土) 20:11 回答
【73374】Re:AdvancedFilterメソッドについて kanabun 12/12/28(金) 11:23 発言
【73375】Re:AdvancedFilterメソッドについて kanabun 12/12/28(金) 11:42 質問
【73376】Re:AdvancedFilterメソッドについて UO3 12/12/28(金) 12:05 発言
【73377】Re:AdvancedFilterメソッドについて kanabun 12/12/28(金) 19:37 発言
【73378】Re:AdvancedFilterメソッドについて kanabun 12/12/28(金) 20:05 発言
【73381】Re:AdvancedFilterメソッドについて ニャンソ 12/12/28(金) 21:56 回答
【73383】Re:AdvancedFilterメソッドについて kanabun 12/12/29(土) 9:31 発言
【73384】Re:AdvancedFilterメソッドについて kanabun 12/12/29(土) 9:40 発言
【73386】Re:AdvancedFilterメソッドについて ニャンソ 12/12/29(土) 21:23 回答
【73387】Re:AdvancedFilterメソッドについて kanabun 12/12/29(土) 21:58 発言
【73388】Re:AdvancedFilterメソッドについて ニャンソ 13/1/2(水) 21:17 回答
【73390】Re:AdvancedFilterメソッドについて kanabun 13/1/3(木) 0:26 発言
【73391】Re:AdvancedFilterメソッドについて ニャンソ 13/1/3(木) 20:39 回答
【73392】Re:AdvancedFilterメソッドについて kanabun 13/1/3(木) 23:11 発言
【73396】Re:AdvancedFilterメソッドについて ニャンソ 13/1/4(金) 20:59 回答
【73409】Re:AdvancedFilterメソッドについて kanabun 13/1/5(土) 19:04 発言≪
【73428】Re:AdvancedFilterメソッドについて ニャンソ 13/1/7(月) 21:05 回答
【73429】Re:AdvancedFilterメソッドについて kanabun 13/1/7(月) 23:27 発言
【73451】Re:AdvancedFilterメソッドについて ニャンソ 13/1/11(金) 20:54 回答
【73452】Re:AdvancedFilterメソッドについて kanabun 13/1/11(金) 23:09 発言
【73477】Re:AdvancedFilterメソッドについて ニャンソ 13/1/14(月) 20:07 回答
【73488】Re:AdvancedFilterメソッドについて kanabun 13/1/15(火) 9:39 発言
【73508】Re:AdvancedFilterメソッドについて ニャンソ 13/1/16(水) 21:17 回答
【73511】Re:AdvancedFilterメソッドについて kanabun 13/1/16(水) 22:51 発言
【73521】Re:AdvancedFilterメソッドについて ニャンソ 13/1/17(木) 20:46 回答
【73522】Re:AdvancedFilterメソッドについて kanabun 13/1/17(木) 21:58 発言
【73525】Re:AdvancedFilterメソッドについて ニャンソ 13/1/17(木) 22:47 回答
【73389】Re:AdvancedFilterメソッドについて ニャンソ 13/1/2(水) 21:26 回答
【73365】Re:AdvancedFilterメソッドについて kanabun 12/12/26(水) 9:54 発言
【73367】Re:AdvancedFilterメソッドについて ニャンソ 12/12/26(水) 20:06 回答
【73368】Re:AdvancedFilterメソッドについて kanabun 12/12/26(水) 21:09 質問
【73370】Re:AdvancedFilterメソッドについて ニャンソ 12/12/27(木) 21:49 回答
【73359】Re:AdvancedFilterメソッドについて ニャンソ 12/12/24(月) 21:25 質問
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
8891 / 76732 ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free