|
▼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 B C D E G
>> グループ 従業員
>>県名 地区 番号 番号 従業員名 地区
>>愛知 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」シートに対応するデータ(ダミーデータ)
>を自作されて、それで検証してもいいですね。
地区・責任者番号・グループ番号・従業員番号・従業員名・地区
ではなく
>> A B C D E G
>> グループ 従業員
>>県名 地区 番号 番号 従業員名 地区
に変更し作成してみます。
よろしくお願い致します。
|
|