avanzato の回答履歴

Excel２００３のＶＢＡで質問です。 複数ブック→1つのブックで複数シート　にするマクロを作成しています。 今まではうまく実行できていたのですが、 wb.Sheets("12月").Range("A1:AO45").Copy mb.Sheets(mb.Sheets.Count).Range("A1").Select mb.Sheets(mb.Sheets.Count).Paste を追加したところ、途中までは大丈夫なのですが、ある一定数以上のブックで 「セルの書式が多すぎるため書式を追加できません」とメッセージが出ます。 VBAのどの辺りを修正すればよいのでしょうか？ また、都度 「コピーまたは移動先セルの内容を置き換えますか？」や「クリップボードにおおきな情報があります。この情報を貼り付けられるようにしますか？」などに「Y」や「N」を都度入力しなくてもよいようにできますでしょうか？ 以上、よろしくお願いします。 下記は全マクロ。 Sub Consolid03() Dim mb As Workbook, wb As Workbook Dim myfdr As String, fname As String, n As Integer Application.ScreenUpdating = False '画面更新を一時停止 Set mb = ThisWorkbook 'このコピー先ブックをmbとする。 myfdr = ThisWorkbook.Path fname = Dir(myfdr & "\*.xls") 'フォルダ内のExcelブックを検索 Do Until fname = Empty '全て検索 If fname <> mb.Name Then 'ブック名がこのブックの名前でなければ Set wb = Workbooks.Open(myfdr & "\" & fname) 'そのブックを開きwbとする。 wb.Sheets("12月").Copy After:=mb.Sheets(mb.Sheets.Count) '開いたシートをコピーしてmbの末尾に置く wb.Sheets("12月").Range("A1:AO45").Copy mb.Sheets(mb.Sheets.Count).Range("A1").Select 'コピー先シートを選択してアクティブにする mb.Sheets(mb.Sheets.Count).Paste wb.Close (False) '有無を言わずに保存せず閉じる mb.Sheets(mb.Sheets.Count).Unprotect Password:="9" 'パスワード解除 For Each c In mb.Sheets(mb.Sheets.Count).UsedRange '取り込んだシートの使用範囲に If c.FormulaR1C1 Like "=*!*" Then '他シート参照があれば c.Value = c.Value '値に変更 End If Next n = n + 1 'ブック数をカウント End If fname = Dir 'フォルダ内の次のExcelブックを検索 Loop '繰り返す Application.ScreenUpdating = True '画面更新一時停止を解除 Dim ws As Worksheet '全てのシートの色をなしにする For Each ws In Worksheets ws.Tab.ColorIndex = xlColorIndexNone Next MsgBox UCase(Environ("UserName")) & "さん、" & n & "件のブックをコピーしましました。" _ + Chr(&HD) + Chr(&HA) + "他シートを参照する式だけは値にしておきましたよ。" _ + Chr(&HD) + Chr(&HA) + "" _ + Chr(&HD) + Chr(&HA) + "", , "（￣ー￣）v " End Sub

デスクトップＰＣが「節電モードに入ります」となって立ち上がらなくなりました。 少し前までは何回か再起動してなんとか動いていましたが、 それでもフリーズして強制終了せざるおえませんでした。 現在はノートＰＣを使っていますが、データやお気に入りなど全てデスクトップに入っているので非常に困っています。 （バックアップをしていませんでした；） 富士通でWindowsXP（FMV CE50J7）です。 中身を掃除してもだめでした。 何か対処法などあれば教えてください。 よろしくお願いします。

エクセル関数についての質問です。 添付画像の表の中の土曜日の各セル[現金販売・月極販売・合計金額]にそれぞれの合計(週の合計：月曜日から金曜日)を出したいのです。 日付は自動入力にしています。 自分なりに調べてみたのですが、関数初心者の為答えにたどりつけません。 別シートには毎日入力する表を作り、添付している表に入力されるようにSUMIF関数を入れています。毎月曜日は変動するので金額入力欄へは全て関数が入っています(もちろん土曜日の所へも)その関数は消さずに土曜日の場合は週の合計をだしたいのです。 会社への提出書類なのですが、未だに手書き書類です。 自分の日々の売上管理をパソコンでしてみようと思いました。この表は提出書類なので形式を変えること事は出来ません。 エクセル2003を使っています。 宜しくお願いいたします。

Excel２００３のＶＢＡで質問です。 複数ブック→1つのブックで複数シート　にするマクロを作成しています。 今まではうまく実行できていたのですが、 wb.Sheets("12月").Range("A1:AO45").Copy mb.Sheets(mb.Sheets.Count).Range("A1").Select mb.Sheets(mb.Sheets.Count).Paste を追加したところ、途中までは大丈夫なのですが、ある一定数以上のブックで 「セルの書式が多すぎるため書式を追加できません」とメッセージが出ます。 VBAのどの辺りを修正すればよいのでしょうか？ また、都度 「コピーまたは移動先セルの内容を置き換えますか？」や「クリップボードにおおきな情報があります。この情報を貼り付けられるようにしますか？」などに「Y」や「N」を都度入力しなくてもよいようにできますでしょうか？ 以上、よろしくお願いします。 下記は全マクロ。 Sub Consolid03() Dim mb As Workbook, wb As Workbook Dim myfdr As String, fname As String, n As Integer Application.ScreenUpdating = False '画面更新を一時停止 Set mb = ThisWorkbook 'このコピー先ブックをmbとする。 myfdr = ThisWorkbook.Path fname = Dir(myfdr & "\*.xls") 'フォルダ内のExcelブックを検索 Do Until fname = Empty '全て検索 If fname <> mb.Name Then 'ブック名がこのブックの名前でなければ Set wb = Workbooks.Open(myfdr & "\" & fname) 'そのブックを開きwbとする。 wb.Sheets("12月").Copy After:=mb.Sheets(mb.Sheets.Count) '開いたシートをコピーしてmbの末尾に置く wb.Sheets("12月").Range("A1:AO45").Copy mb.Sheets(mb.Sheets.Count).Range("A1").Select 'コピー先シートを選択してアクティブにする mb.Sheets(mb.Sheets.Count).Paste wb.Close (False) '有無を言わずに保存せず閉じる mb.Sheets(mb.Sheets.Count).Unprotect Password:="9" 'パスワード解除 For Each c In mb.Sheets(mb.Sheets.Count).UsedRange '取り込んだシートの使用範囲に If c.FormulaR1C1 Like "=*!*" Then '他シート参照があれば c.Value = c.Value '値に変更 End If Next n = n + 1 'ブック数をカウント End If fname = Dir 'フォルダ内の次のExcelブックを検索 Loop '繰り返す Application.ScreenUpdating = True '画面更新一時停止を解除 Dim ws As Worksheet '全てのシートの色をなしにする For Each ws In Worksheets ws.Tab.ColorIndex = xlColorIndexNone Next MsgBox UCase(Environ("UserName")) & "さん、" & n & "件のブックをコピーしましました。" _ + Chr(&HD) + Chr(&HA) + "他シートを参照する式だけは値にしておきましたよ。" _ + Chr(&HD) + Chr(&HA) + "" _ + Chr(&HD) + Chr(&HA) + "", , "（￣ー￣）v " End Sub

Excel２００３のＶＢＡで質問です。 複数ブック→1つのブックで複数シート　にするマクロを作成しています。 今まではうまく実行できていたのですが、 wb.Sheets("12月").Range("A1:AO45").Copy mb.Sheets(mb.Sheets.Count).Range("A1").Select mb.Sheets(mb.Sheets.Count).Paste を追加したところ、途中までは大丈夫なのですが、ある一定数以上のブックで 「セルの書式が多すぎるため書式を追加できません」とメッセージが出ます。 VBAのどの辺りを修正すればよいのでしょうか？ また、都度 「コピーまたは移動先セルの内容を置き換えますか？」や「クリップボードにおおきな情報があります。この情報を貼り付けられるようにしますか？」などに「Y」や「N」を都度入力しなくてもよいようにできますでしょうか？ 以上、よろしくお願いします。 下記は全マクロ。 Sub Consolid03() Dim mb As Workbook, wb As Workbook Dim myfdr As String, fname As String, n As Integer Application.ScreenUpdating = False '画面更新を一時停止 Set mb = ThisWorkbook 'このコピー先ブックをmbとする。 myfdr = ThisWorkbook.Path fname = Dir(myfdr & "\*.xls") 'フォルダ内のExcelブックを検索 Do Until fname = Empty '全て検索 If fname <> mb.Name Then 'ブック名がこのブックの名前でなければ Set wb = Workbooks.Open(myfdr & "\" & fname) 'そのブックを開きwbとする。 wb.Sheets("12月").Copy After:=mb.Sheets(mb.Sheets.Count) '開いたシートをコピーしてmbの末尾に置く wb.Sheets("12月").Range("A1:AO45").Copy mb.Sheets(mb.Sheets.Count).Range("A1").Select 'コピー先シートを選択してアクティブにする mb.Sheets(mb.Sheets.Count).Paste wb.Close (False) '有無を言わずに保存せず閉じる mb.Sheets(mb.Sheets.Count).Unprotect Password:="9" 'パスワード解除 For Each c In mb.Sheets(mb.Sheets.Count).UsedRange '取り込んだシートの使用範囲に If c.FormulaR1C1 Like "=*!*" Then '他シート参照があれば c.Value = c.Value '値に変更 End If Next n = n + 1 'ブック数をカウント End If fname = Dir 'フォルダ内の次のExcelブックを検索 Loop '繰り返す Application.ScreenUpdating = True '画面更新一時停止を解除 Dim ws As Worksheet '全てのシートの色をなしにする For Each ws In Worksheets ws.Tab.ColorIndex = xlColorIndexNone Next MsgBox UCase(Environ("UserName")) & "さん、" & n & "件のブックをコピーしましました。" _ + Chr(&HD) + Chr(&HA) + "他シートを参照する式だけは値にしておきましたよ。" _ + Chr(&HD) + Chr(&HA) + "" _ + Chr(&HD) + Chr(&HA) + "", , "（￣ー￣）v " End Sub

先般、下記のvbaのコーディング事例の回答を頂きました。 再度ご質問させて頂きたく、よろしくお願いします。 質問１ a列に点数を入力すると同時にb列に表示させたい。 →This workbookのPrivate Sub Workbook_Open()にvbaを登録するのでしょうか？ 質問２ a列に点数が入力された場合のみb列を表示させたい。 =================== a1～a100のセルに点数が入力されているとします。 その点数を元に下記の通りb列にランクを自動的に付ける場合の vbaのコーディングはどうなりますか？ ss(95以上) a(90-94) b(85-89) c(80-84) d(75-79) e(70-74) f(65-69) g(60-64) h(55-59) i(50-54) j(50以下)

エクセル関数についての質問です。 添付画像の表の中の土曜日の各セル[現金販売・月極販売・合計金額]にそれぞれの合計(週の合計：月曜日から金曜日)を出したいのです。 日付は自動入力にしています。 自分なりに調べてみたのですが、関数初心者の為答えにたどりつけません。 別シートには毎日入力する表を作り、添付している表に入力されるようにSUMIF関数を入れています。毎月曜日は変動するので金額入力欄へは全て関数が入っています(もちろん土曜日の所へも)その関数は消さずに土曜日の場合は週の合計をだしたいのです。 会社への提出書類なのですが、未だに手書き書類です。 自分の日々の売上管理をパソコンでしてみようと思いました。この表は提出書類なので形式を変えること事は出来ません。 エクセル2003を使っています。 宜しくお願いいたします。

Excel2007で[Enter]を押すと任意のセルにジャンプするようなマクロを組みました。 そのマクロの使用を止めたく、[開発]－[VisualBasic]で自分で作ったマクロを削除、[Moduleの解放]等を 行いましたが、なぜか[Enter]を押すたびに表題のメッセージが出るようになってしまいました。 このメッセージを出なくするためにはどうすればよいのでしょうか?

最近、パソコンが勝手に再起動した挙句、「システムは深刻なエラーから回復しました」というエラーメッセージが出てくることが何度かあります。 これの原因は一体なんなのでしょう？ イベントビューアで参照した説明は以下の通りです エラーコード 1000008e、パラメータ1 c0000005、パラメータ2 bf813d4e,パラメータ3 f21934f8、パラメータ4　00000000.

ウィンドウズを終了させてやり忘れたことを思い出してスグにまた電源を入れたら、おかしな事になってしまい今、次の英文が出た状態で止まってます…分かる単語が少なくて困ってます。。。誰か対処法を教えて下さい。 A problem has been detected and windows has been shut down to prevent damage to your computer. UNMOUNTABLE_BOOT_VOLUME If this is the first time you've seen this stop error screen, restart your computer. If this screen appears again,follw these steps: Check to make sure any new hardware or software is properly installed. If this is a new installation,ask your hardware or software manufacturer for any windows updates you might need. If problems continue,disable or remove any newly installed hardware or software. Disable BIOS memory options such as caching or shadowing. If you need tu use safe Mode to remove or disable components ,restart your computer,press F8 to select Advanced startup Options,and then select safe Mode. Technical information: ***stop:0x000000ED(0x81351E30,0xC0000006,0x00000000,0x00000000) ここまでです。 これを読んで対処法が分かる方、パソコンに疎い私でも分かるように教えていただけたらありがたいです。 最後の行の文字はゼロかオーかは、分かりません… 保存しておいた画像とか消えてるんでしょう…それは仕方ないと諦めます… また使えるようになれば、それでいいです… osはwindows XPです。

複数のシートにオートシェイプで囲みをつくりその中に　 「平成22年○月○日」 と日付をいれたとします。　日付だけを変えたいと思います。 複数シート同時に日付をかえるにはどうすればいいでしょうか。 オートシェイプの中でも関数は使えましたでしょうか。

中古パソコンを購入しましたが右クリックが動作しません、大変使いづらいです、本体はNEC VC500 XPです、マウスは正常です、マイコンピュターのマウスの項目には右クリック動作のON、OFFはありませんでした、CPUの故障でしょうか、リカバリでなおりますでしょうか、設定 の仕方でなおりましたらよろしくお願いします

エクセルで、メニュー または セル上で右クリックした際に表示される 「セルの書式設定」 の中で、フォント や 罫線 の 色 のボックス部分が、選択不可の状態になっており、変更できません。 ツールバーの「フォントの色」 ボタンは有効になっており、押せば色の変更は可能です。 また、その状態で、「ユーザー設定」 を表示し、「コマンド」タブを選択し、そのまま何もせずに 「閉じる」 を押すと、その直後からは、「セルの書式設定」 で フォントや 罫線 の色のボックス が選択可能な状態になり、実際に色を変えることができます。再起動後には、上記の状態に戻りますが。 なぜだか、まったくわかりません ・・・。わかる方 いらっしゃいましたら、教えてください。 上記以外に不具合はなく、ワードでは同じ様な状態はありません。 ＯＳはＸＰで、バージョンは ２００３です。 壊れちゃったのでしょうか？？

パソコン初心者です。エクセルで表を作りました。Ａ４で１ページの分量なのですが印刷すると２枚プリントアウトされます。２枚目はもちろん白紙です。画面をチェックしても２ページ目にはデータは何もありません。２ページ目がプリントアウトされないようにするにはどうすればいいでしょうか。詳しい方がいらしゃったら教えてください。初歩的な質問で申し訳ありません。

エクセル関数で困っています。 Ａの表とＢの表を統合したいのです。 ●Ａ表 名前　　身長　　体重 田中　　165　　　65 佐竹　　167　　　45 伊藤　　124　　　35 ● 名前　　胴囲　　座高 伊藤　　70　　　60 佐竹　　65　　　78 鈴木　　62　　　42 これを名前をキーにして統合した表を作りたいのです　 関数を教えてください。 よろしくお願いします。

諸事情があって改めてwidows XPを再インストールする事になったのですがプロダクトIDが分からないんです。もしかしたら、カードのような物かも知れないですがプロダクトIDらしき物が見当たりません。 どうすれば宜しいでしょうか？ 助けてください。 宜しくお願いします。

エクセル関数で困っています。 Ａの表とＢの表を統合したいのです。 ●Ａ表 名前　　身長　　体重 田中　　165　　　65 佐竹　　167　　　45 伊藤　　124　　　35 ● 名前　　胴囲　　座高 伊藤　　70　　　60 佐竹　　65　　　78 鈴木　　62　　　42 これを名前をキーにして統合した表を作りたいのです　 関数を教えてください。 よろしくお願いします。

４、５日前からなんですがパソコンが立ち上がって通常の画面になった時に office 「実行するにはアプリケーションをインストールする必要があります。最初に、このアプリケーションをインストールした場所から、セットアップを実行してください。」という表示が出るようになりました。 実際にofficeのエクセルをクリックして利用しようとしたら上記の表示が出てエクセルが使えず、他のofficeを同じ操作をしたところ全て上記の表示が出て使用できません。コントロールパネルでoffice2000を一旦、削除して再インストールを２回試しました。インストールをして正常にセットアップしました、という表示が出ます。再起動をしてもパソコンが立ち上がって通常の画面になった時に上記の表示が出ます。どうすればofficeが使えますか?助けて下さい。

メール配信ソフトについて お世話になります。 今回、メルマガ等に使用する、 メール配信ソフトについて質問です。 ・パーソナライズ機能 ・顧客データベース機能 上記の機能がついており、 尚且つ、低価格なメール配信ソフトをご存知でしたら、 ご教授願いたいです。 現状考えておりますメール配信ソフトは、 ●ネット商人pro（サーバーインストール型） http://www.netshoninpro.com/ です。 できればローカルで使用できるものを探しておりますが、 サーバインストール型も含めて、なかなかこれといったソフトが 見当たりませんでした。 どなたかメール配信ソフトについて、 ご存知の方いらっしゃいましたら、 ご教授いただけましたら幸いです。 よろしくお願いいたします。

すみません質問させて頂きます。先日パソコンをリカバリーしました。成功したのは良いのですが今まで文字で「顔」と入力すると顔文字が出てたのですが、リカバリーしてから出なくなってしまいました。どうやって設定し直すか分からず困ってます。どなたか詳しい方がいらっしゃったらお教え願えれば幸いです。よろしくお願い致します。