Raistlin の回答履歴

ＬａＶｉｅを使っています。学校で買って３年経ちます。 いつも充電器のコンセントを挿しっぱなしにしていて、ずっとそのまま使えていたのですが、先日充電が出来なくなってしまいました。 コンセントを挿しているのに充電されず、電池切れで休止中になってしいます。 学校に持っていって見てもらった方がいいでしょうか？？ 他に、早急に直す方法はないでしょうか？？ 教えてください。お願いします。

IC（半導体）のメーカー名を調べていますがわかりません 形状　SOP 8pin ロゴマークは丸の中に「hi」とも「Si」とも読めるものが書いてあります。 １行目にロゴと８０９という数字 ２行目に９９１０Ｂという数字 ３行目に９７８２という数字です どなたか上記のようなロゴマークを知っていましたらメーカー名・ICの種類をお教え下さい。

他の質問を参照したのですが、できないのでお願いします。 新しいシート（ブックでもいいです）に次のデータを ひとまとめにしたい。 外国語テストのデータです。 (1)ひとつのブックにシートが十枚ある (2)列ａ２～ｈ２　行２～２９までデータがある。 (3)列ａ番号（ａ２が１、ａ２９が２８） 　列ｂ空欄 　列ｃ日本語 　列ｄ外国語 この構造を倍にしているのでａ～ｈにデータが並んでいる。 これを、 つまり、８×２８のデータが各シートにあるわけですが 【ひとつ】 できればシート１のデータの下 ２９行目からシート２のデータ、５８行目からシート３… というように並べたい。 【ふたつ】 更にできるならａ～ｄの下にｅ～ｈを持ってきて ４×５６の並びにして ５７行目からシート２のデータ…というように並べたい。 データの並びは列ａ列ｅの番号順を保持できたらうれしいです。 どうぞよろしくお願い致します。

ここのところ出回っている充電式電池は、充電に必要な電気代はとても安いとのことですが、例えばラジオは電池で聞いたり交流で聞けたりしますが、充電された電池か、普通の電池か、交流かのどれが一番お安いのでしょうか？

　アナログのテレビを使っておりますが、夕方や夜などは非常にキレイに映ります。しかし、なぜかお昼頃に見ると画質が驚くほど悪くなってしまいます。屋根のブースター付きのアンテナにつないでおり、私の部屋だけ屋根のアンテナの分配器から3Cケーブルで部屋に引き込んでいます。他の部屋は、5Cケーブルで屋根裏に引き込みそこから分配しておりますが、昼でもキレイです。3Cケーブルを使っていることで5Cに比べれば多少減衰するでしょうが、それでこれほど違うというのも違和感があります。夕方や夜はキレイに映ることから配線自体の接触不良などは考えにくいです。私の感覚では、よく晴れた日の正午付近は非常に電波が弱くなる印象があります。 大気の状態で、電波が強くなったり弱くなったりするものでしょうか？雪とか雨が降って電波が減衰されるのであれば、素人にもわかりやすいのですが、晴れると減衰するというのは理解できません。 また、テレビの電波受信で時間帯によって何か変化する要素はありますでしょうか？ お詳しい方にご教授頂ければ幸いです。

表題の方法が知りたいです。ご存知の方はいませんでしょうか？

pcの電源を断した時の日時を取得したいのですが、 今、バッチファイルを作成しそこに、dataとtime、shutdownコマンドを記述しまして日時は取得できます。win2000では、shutdownが無いみたいで、電源を切れません。 ただ、バッチファイルをダブルクリックし忘れてしまいますので、記録できないことがよくあります。 tasksフォルダに電源offは登録することもできませんし、 なんとか自動化できないでしょうか？ 管理ツールにイベントビューアというのがあるのですが、 ちょっと利用しづらいのです。 宜しくお願いします。

変数ｎで検索してなければｎ+1でさがす。更に無ければｎ-1で探すの繰り返しをプラスマイナス4まで検索したいときの書き方がわかりません。

印刷用紙のひな形がA4の紙のなかに3段になっています。 「sheet4月」は顧客名(B行)、担当者名、他に月の売上金等が並んでい ます。顧客名の横の空白のA行に数字の1を入れて、顧客列を選択しま す。それを「sheet合計請求書」に各項目をあてはめて印刷したいので す。 下記のVBEのコードでは「sheet4月」で選択の顧客が「合計請求書」に 内容が移ると3段とも同じ内容、名前になります。 例えば上から1段目「H商事」、2段目「H商事」、3段目「H商事」といっ た具合です。 それを、3段とも違う顧客の内容にしたいのです。 例えば上から1段目、「H商事」、2段目「K機械」、3段目「V貨物」のよ うにしたいのですがわかりません。数字の1をいれて選択する数は約40 社程度です。 ご指導お願いいたします。 Sub 合計請求書印刷() Dim Sheet1 As Worksheet Dim Sheet2 As Worksheet Set Sheet1 = ThisWorkbook.Worksheets("4月") Set Sheet2 = ThisWorkbook.Worksheets("合計請求書") Dim baseRow As Long ' 7行目から、2列目(顧客名)が空になるまでループ baseRow = 7 Do While (Sheet1.Cells(baseRow, 2).Value <> "") '1列目（A列）に1が入っていた時のみ印刷 If (Sheet1.Cells(baseRow, 1).Value = 1) Then ' 1段目 Sheet2.Range("W8").Value = Sheet1.Cells(baseRow, 2).Value Sheet2.Range("B15").Value = Sheet1.Cells(baseRow, 8).Value Sheet2.Range("C15").Value = Sheet1.Cells(baseRow, 10).Value Sheet2.Range("W15").Value = Sheet1.Cells(baseRow, 5).Value ' 2段目 baseRow = baseRow + 1 Sheet2.Range("W25").Value = Sheet1.Cells(baseRow, 2).Value Sheet2.Range("B32").Value = Sheet1.Cells(baseRow, 8).Value Sheet2.Range("C32").Value = Sheet1.Cells(baseRow, 10).Value Sheet2.Range("W32").Value = Sheet1.Cells(baseRow, 5).Value '3段目 baseRow = baseRow + 1 Sheet2.Range("W42").Value = Sheet1.Cells(baseRow, 2).Value Sheet2.Range("B49").Value = Sheet1.Cells(baseRow, 8).Value Sheet2.Range("C49").Value = Sheet1.Cells(baseRow, 10).Value Sheet2.Range("W49").Value = Sheet1.Cells(baseRow, 5).Value ' 印刷プレビュー Sheet2.PrintPreview End If baseRow = baseRow Loop Set Sheet2 = Nothing Set Sheet1 = Nothing End Sub よろしくお願いいたします。

010-05 　2 010-06 　4 010-08　 9 010-09 　16 010-11 　1 010-12 　3 010-13 　2 010-14 　4 010-15 　2 010-16 　4 011-09 　19 012-00　 4 012-01　 1 012-08　 7 012-11 　4 まず表の一部を切取ったものです。1行一件と考えていただければ。このデータで何をしたいかご説明します。 表右側の数が(1)15以上であれば、そのまま。(2)15以下であれば、表左側の5桁では無く頭から3桁で見て、表右の合計が15以上になればその合計を値として出す。(3)3桁で15以上にならない場合は頭から2桁で…。 条件(1)　　　　　010-09　16　→そのままで（5桁） 条件(2)010　　　010-05　2 　　　　　　　　010-06　4 　　　　　　　　010-08 9　　→2+4+9=15（3桁/010） 条件(3) 00　　　001-01　1 　　　　　　　　001-02　2 　　　　　　　　001-03　3 　　　　　　　　001-04　8 　　　　　　　　002-01　1 　　　　　　　　002-02　2　　　 →1+2+3+4+1+2=17（2桁/00） 　　　　　　 とても分かりにくい説明になってしまいすみません… エクセルに関して初心者で…是非教えて頂ければ本当にありがたいです。。 エクセルではなく、アクセスのほうがいいのか…どちらもかじった程度のレベルなのでそれすら分かりません、よろしくお願いします。

010-05 　2 010-06 　4 010-08　 9 010-09 　16 010-11 　1 010-12 　3 010-13 　2 010-14 　4 010-15 　2 010-16 　4 011-09 　19 012-00　 4 012-01　 1 012-08　 7 012-11 　4 まず表の一部を切取ったものです。1行一件と考えていただければ。このデータで何をしたいかご説明します。 表右側の数が(1)15以上であれば、そのまま。(2)15以下であれば、表左側の5桁では無く頭から3桁で見て、表右の合計が15以上になればその合計を値として出す。(3)3桁で15以上にならない場合は頭から2桁で…。 条件(1)　　　　　010-09　16　→そのままで（5桁） 条件(2)010　　　010-05　2 　　　　　　　　010-06　4 　　　　　　　　010-08 9　　→2+4+9=15（3桁/010） 条件(3) 00　　　001-01　1 　　　　　　　　001-02　2 　　　　　　　　001-03　3 　　　　　　　　001-04　8 　　　　　　　　002-01　1 　　　　　　　　002-02　2　　　 →1+2+3+4+1+2=17（2桁/00） 　　　　　　 とても分かりにくい説明になってしまいすみません… エクセルに関して初心者で…是非教えて頂ければ本当にありがたいです。。 エクセルではなく、アクセスのほうがいいのか…どちらもかじった程度のレベルなのでそれすら分かりません、よろしくお願いします。

印刷用紙のひな形がA4の紙のなかに3段になっています。 「sheet4月」は顧客名(B行)、担当者名、他に月の売上金等が並んでい ます。顧客名の横の空白のA行に数字の1を入れて、顧客列を選択しま す。それを「sheet合計請求書」に各項目をあてはめて印刷したいので す。 下記のVBEのコードでは「sheet4月」で選択の顧客が「合計請求書」に 内容が移ると3段とも同じ内容、名前になります。 例えば上から1段目「H商事」、2段目「H商事」、3段目「H商事」といっ た具合です。 それを、3段とも違う顧客の内容にしたいのです。 例えば上から1段目、「H商事」、2段目「K機械」、3段目「V貨物」のよ うにしたいのですがわかりません。数字の1をいれて選択する数は約40 社程度です。 ご指導お願いいたします。 Sub 合計請求書印刷() Dim Sheet1 As Worksheet Dim Sheet2 As Worksheet Set Sheet1 = ThisWorkbook.Worksheets("4月") Set Sheet2 = ThisWorkbook.Worksheets("合計請求書") Dim baseRow As Long ' 7行目から、2列目(顧客名)が空になるまでループ baseRow = 7 Do While (Sheet1.Cells(baseRow, 2).Value <> "") '1列目（A列）に1が入っていた時のみ印刷 If (Sheet1.Cells(baseRow, 1).Value = 1) Then ' 1段目 Sheet2.Range("W8").Value = Sheet1.Cells(baseRow, 2).Value Sheet2.Range("B15").Value = Sheet1.Cells(baseRow, 8).Value Sheet2.Range("C15").Value = Sheet1.Cells(baseRow, 10).Value Sheet2.Range("W15").Value = Sheet1.Cells(baseRow, 5).Value ' 2段目 baseRow = baseRow + 1 Sheet2.Range("W25").Value = Sheet1.Cells(baseRow, 2).Value Sheet2.Range("B32").Value = Sheet1.Cells(baseRow, 8).Value Sheet2.Range("C32").Value = Sheet1.Cells(baseRow, 10).Value Sheet2.Range("W32").Value = Sheet1.Cells(baseRow, 5).Value '3段目 baseRow = baseRow + 1 Sheet2.Range("W42").Value = Sheet1.Cells(baseRow, 2).Value Sheet2.Range("B49").Value = Sheet1.Cells(baseRow, 8).Value Sheet2.Range("C49").Value = Sheet1.Cells(baseRow, 10).Value Sheet2.Range("W49").Value = Sheet1.Cells(baseRow, 5).Value ' 印刷プレビュー Sheet2.PrintPreview End If baseRow = baseRow Loop Set Sheet2 = Nothing Set Sheet1 = Nothing End Sub よろしくお願いいたします。

印刷用紙のひな形がA4の紙のなかに3段になっています。 「sheet4月」は顧客名(B行)、担当者名、他に月の売上金等が並んでい ます。顧客名の横の空白のA行に数字の1を入れて、顧客列を選択しま す。それを「sheet合計請求書」に各項目をあてはめて印刷したいので す。 下記のVBEのコードでは「sheet4月」で選択の顧客が「合計請求書」に 内容が移ると3段とも同じ内容、名前になります。 例えば上から1段目「H商事」、2段目「H商事」、3段目「H商事」といっ た具合です。 それを、3段とも違う顧客の内容にしたいのです。 例えば上から1段目、「H商事」、2段目「K機械」、3段目「V貨物」のよ うにしたいのですがわかりません。数字の1をいれて選択する数は約40 社程度です。 ご指導お願いいたします。 Sub 合計請求書印刷() Dim Sheet1 As Worksheet Dim Sheet2 As Worksheet Set Sheet1 = ThisWorkbook.Worksheets("4月") Set Sheet2 = ThisWorkbook.Worksheets("合計請求書") Dim baseRow As Long ' 7行目から、2列目(顧客名)が空になるまでループ baseRow = 7 Do While (Sheet1.Cells(baseRow, 2).Value <> "") '1列目（A列）に1が入っていた時のみ印刷 If (Sheet1.Cells(baseRow, 1).Value = 1) Then ' 1段目 Sheet2.Range("W8").Value = Sheet1.Cells(baseRow, 2).Value Sheet2.Range("B15").Value = Sheet1.Cells(baseRow, 8).Value Sheet2.Range("C15").Value = Sheet1.Cells(baseRow, 10).Value Sheet2.Range("W15").Value = Sheet1.Cells(baseRow, 5).Value ' 2段目 baseRow = baseRow + 1 Sheet2.Range("W25").Value = Sheet1.Cells(baseRow, 2).Value Sheet2.Range("B32").Value = Sheet1.Cells(baseRow, 8).Value Sheet2.Range("C32").Value = Sheet1.Cells(baseRow, 10).Value Sheet2.Range("W32").Value = Sheet1.Cells(baseRow, 5).Value '3段目 baseRow = baseRow + 1 Sheet2.Range("W42").Value = Sheet1.Cells(baseRow, 2).Value Sheet2.Range("B49").Value = Sheet1.Cells(baseRow, 8).Value Sheet2.Range("C49").Value = Sheet1.Cells(baseRow, 10).Value Sheet2.Range("W49").Value = Sheet1.Cells(baseRow, 5).Value ' 印刷プレビュー Sheet2.PrintPreview End If baseRow = baseRow Loop Set Sheet2 = Nothing Set Sheet1 = Nothing End Sub よろしくお願いいたします。

印刷用紙のひな形がA4の紙のなかに3段になっています。 「sheet4月」は顧客名(B行)、担当者名、他に月の売上金等が並んでい ます。顧客名の横の空白のA行に数字の1を入れて、顧客列を選択しま す。それを「sheet合計請求書」に各項目をあてはめて印刷したいので す。 下記のVBEのコードでは「sheet4月」で選択の顧客が「合計請求書」に 内容が移ると3段とも同じ内容、名前になります。 例えば上から1段目「H商事」、2段目「H商事」、3段目「H商事」といっ た具合です。 それを、3段とも違う顧客の内容にしたいのです。 例えば上から1段目、「H商事」、2段目「K機械」、3段目「V貨物」のよ うにしたいのですがわかりません。数字の1をいれて選択する数は約40 社程度です。 ご指導お願いいたします。 Sub 合計請求書印刷() Dim Sheet1 As Worksheet Dim Sheet2 As Worksheet Set Sheet1 = ThisWorkbook.Worksheets("4月") Set Sheet2 = ThisWorkbook.Worksheets("合計請求書") Dim baseRow As Long ' 7行目から、2列目(顧客名)が空になるまでループ baseRow = 7 Do While (Sheet1.Cells(baseRow, 2).Value <> "") '1列目（A列）に1が入っていた時のみ印刷 If (Sheet1.Cells(baseRow, 1).Value = 1) Then ' 1段目 Sheet2.Range("W8").Value = Sheet1.Cells(baseRow, 2).Value Sheet2.Range("B15").Value = Sheet1.Cells(baseRow, 8).Value Sheet2.Range("C15").Value = Sheet1.Cells(baseRow, 10).Value Sheet2.Range("W15").Value = Sheet1.Cells(baseRow, 5).Value ' 2段目 baseRow = baseRow + 1 Sheet2.Range("W25").Value = Sheet1.Cells(baseRow, 2).Value Sheet2.Range("B32").Value = Sheet1.Cells(baseRow, 8).Value Sheet2.Range("C32").Value = Sheet1.Cells(baseRow, 10).Value Sheet2.Range("W32").Value = Sheet1.Cells(baseRow, 5).Value '3段目 baseRow = baseRow + 1 Sheet2.Range("W42").Value = Sheet1.Cells(baseRow, 2).Value Sheet2.Range("B49").Value = Sheet1.Cells(baseRow, 8).Value Sheet2.Range("C49").Value = Sheet1.Cells(baseRow, 10).Value Sheet2.Range("W49").Value = Sheet1.Cells(baseRow, 5).Value ' 印刷プレビュー Sheet2.PrintPreview End If baseRow = baseRow Loop Set Sheet2 = Nothing Set Sheet1 = Nothing End Sub よろしくお願いいたします。

印刷用紙のひな形がA4の紙のなかに3段になっています。 「sheet4月」は顧客名(B行)、担当者名、他に月の売上金等が並んでい ます。顧客名の横の空白のA行に数字の1を入れて、顧客列を選択しま す。それを「sheet合計請求書」に各項目をあてはめて印刷したいので す。 下記のVBEのコードでは「sheet4月」で選択の顧客が「合計請求書」に 内容が移ると3段とも同じ内容、名前になります。 例えば上から1段目「H商事」、2段目「H商事」、3段目「H商事」といっ た具合です。 それを、3段とも違う顧客の内容にしたいのです。 例えば上から1段目、「H商事」、2段目「K機械」、3段目「V貨物」のよ うにしたいのですがわかりません。数字の1をいれて選択する数は約40 社程度です。 ご指導お願いいたします。 Sub 合計請求書印刷() Dim Sheet1 As Worksheet Dim Sheet2 As Worksheet Set Sheet1 = ThisWorkbook.Worksheets("4月") Set Sheet2 = ThisWorkbook.Worksheets("合計請求書") Dim baseRow As Long ' 7行目から、2列目(顧客名)が空になるまでループ baseRow = 7 Do While (Sheet1.Cells(baseRow, 2).Value <> "") '1列目（A列）に1が入っていた時のみ印刷 If (Sheet1.Cells(baseRow, 1).Value = 1) Then ' 1段目 Sheet2.Range("W8").Value = Sheet1.Cells(baseRow, 2).Value Sheet2.Range("B15").Value = Sheet1.Cells(baseRow, 8).Value Sheet2.Range("C15").Value = Sheet1.Cells(baseRow, 10).Value Sheet2.Range("W15").Value = Sheet1.Cells(baseRow, 5).Value ' 2段目 baseRow = baseRow + 1 Sheet2.Range("W25").Value = Sheet1.Cells(baseRow, 2).Value Sheet2.Range("B32").Value = Sheet1.Cells(baseRow, 8).Value Sheet2.Range("C32").Value = Sheet1.Cells(baseRow, 10).Value Sheet2.Range("W32").Value = Sheet1.Cells(baseRow, 5).Value '3段目 baseRow = baseRow + 1 Sheet2.Range("W42").Value = Sheet1.Cells(baseRow, 2).Value Sheet2.Range("B49").Value = Sheet1.Cells(baseRow, 8).Value Sheet2.Range("C49").Value = Sheet1.Cells(baseRow, 10).Value Sheet2.Range("W49").Value = Sheet1.Cells(baseRow, 5).Value ' 印刷プレビュー Sheet2.PrintPreview End If baseRow = baseRow Loop Set Sheet2 = Nothing Set Sheet1 = Nothing End Sub よろしくお願いいたします。

印刷用紙のひな形がA4の紙のなかに3段になっています。 「sheet4月」は顧客名(B行)、担当者名、他に月の売上金等が並んでい ます。顧客名の横の空白のA行に数字の1を入れて、顧客列を選択しま す。それを「sheet合計請求書」に各項目をあてはめて印刷したいので す。 下記のVBEのコードでは「sheet4月」で選択の顧客が「合計請求書」に 内容が移ると3段とも同じ内容、名前になります。 例えば上から1段目「H商事」、2段目「H商事」、3段目「H商事」といっ た具合です。 それを、3段とも違う顧客の内容にしたいのです。 例えば上から1段目、「H商事」、2段目「K機械」、3段目「V貨物」のよ うにしたいのですがわかりません。数字の1をいれて選択する数は約40 社程度です。 ご指導お願いいたします。 Sub 合計請求書印刷() Dim Sheet1 As Worksheet Dim Sheet2 As Worksheet Set Sheet1 = ThisWorkbook.Worksheets("4月") Set Sheet2 = ThisWorkbook.Worksheets("合計請求書") Dim baseRow As Long ' 7行目から、2列目(顧客名)が空になるまでループ baseRow = 7 Do While (Sheet1.Cells(baseRow, 2).Value <> "") '1列目（A列）に1が入っていた時のみ印刷 If (Sheet1.Cells(baseRow, 1).Value = 1) Then ' 1段目 Sheet2.Range("W8").Value = Sheet1.Cells(baseRow, 2).Value Sheet2.Range("B15").Value = Sheet1.Cells(baseRow, 8).Value Sheet2.Range("C15").Value = Sheet1.Cells(baseRow, 10).Value Sheet2.Range("W15").Value = Sheet1.Cells(baseRow, 5).Value ' 2段目 baseRow = baseRow + 1 Sheet2.Range("W25").Value = Sheet1.Cells(baseRow, 2).Value Sheet2.Range("B32").Value = Sheet1.Cells(baseRow, 8).Value Sheet2.Range("C32").Value = Sheet1.Cells(baseRow, 10).Value Sheet2.Range("W32").Value = Sheet1.Cells(baseRow, 5).Value '3段目 baseRow = baseRow + 1 Sheet2.Range("W42").Value = Sheet1.Cells(baseRow, 2).Value Sheet2.Range("B49").Value = Sheet1.Cells(baseRow, 8).Value Sheet2.Range("C49").Value = Sheet1.Cells(baseRow, 10).Value Sheet2.Range("W49").Value = Sheet1.Cells(baseRow, 5).Value ' 印刷プレビュー Sheet2.PrintPreview End If baseRow = baseRow Loop Set Sheet2 = Nothing Set Sheet1 = Nothing End Sub よろしくお願いいたします。

こんばんは。 pcにMS08-008のセキュリティパッチをインストールすることを検討しているのですが、言葉の意味が難しいので教えてください。 OLE オートメーション？の脆弱性を解決するものらしいのですが、そのOLE オートメーションがJavaScriptやVBScriptによるリクエストを処理する過程に脆弱性が存在する。 http://www.hotfix.jp/archives/alert/2008/ms08-008.html OLEオートメーションとはアプリケーションがデータを共有したり制御したりすることを可能にするもの、というところまではなんとなくわかりました。 エクセルやワードに関係があるってところもなんとなくわかりました。 しかし、データの共有とJavaScriptなどのスクリプトによる処理、ってのがまったくイメージがわかないです。 具体的にどういうことなのかお教えいたたいてもよろしいでしょうか。 よろしくお願いします。

「Backup Exec 10d for Windows Servers 」を利用し、ファイルサーバからバックアップサーバ、バックアップサーバからテープ装置へというバックアップを行っています。 一定期間経過したデータはテープ装置に格納しているのですが、そこからのリストアの方法が分かりません。 マニュアルによると「カタログ」の作成が必要とのことでしたが、カタログ作成のジョブを実行しても、そのカタログがどこに生成されたのかも見えません。 どなたかご存知の方がいらっしゃいましたらご教授いただけませんでしょうか。よろしくお願いいたします。

こんにちは。 Excel関数についての質問です。 下記データおよび条件において、Dcount関数を 用いれば解決することはわかったのですが、 出来れば検索条件などを別表に出さずに抽出したいと 考えています。 もしご存知の方がおられましたらご教授頂けますでしょうか。 宜しくお願い致します。 ■抽出する表 　------------------- 　条件1　条件2 　------------------- 　　0　3月10日 　　1　2月10日 　　2　3月5日 　　0　4月5日 　　0　 　※上記のようなデータが100件程度 ■抽出条件 　条件1が0かつ条件2に日付が入っていること ■補足1 　Dcount関数以外では、各行ごとに判定分を入れてその結果を 　集計するというやり方もありますが、上記表以外のセルは 　使用しない方法を考えています。 ■補足2 　Dcount時の条件 　------------------- 　条件1　条件2 　------------------- 　　0　<>""

雛形.xls のなかに次のシート Sheet1 Sheets("今年データ") Sheet2 Sheets("メモ・検算") Sheet3 Sheets("06年度電力") Sheet4 Sheets("06年度重油") Sheet5 Sheets("06年度ガス") Sheet3から5まではマクロで年度を書き換えるので Sheet3から5までシートナンバーで.Selectして 新しいブックにコピーしたいのですが 良い方法を教えてください。