pauNed の回答履歴

お世話になります。 ExcelVBAで、横の幅をいっぱいにとったときの拡大率を取得しようとしていますが、うまくいかず困っております。 With Worksheets(1).PageSetup .Zoom = False .FitToPagesWide = 1 .FitToPagesTall = 1000 End With で横１ページに合わせて印刷できる設定になりますが、このときの拡大率（Zoom）を変数に代入することができません。どなたか、お助けいただけないでしょうか。 どうか、よろしくお願いいたします。

excel2003で、必要無い列を一括で削除したいのですが、マクロ以外で良い方法はありますか？ （行列変換すると256を超える為、オートフィルタの横バージョンがあれば、便利だなと思ってしまいました。2007は手元に無いです）

下記のようなマクロを作成しましたが、実行するとエラーメッセージ（コンパイルエラー　SubまたはFunctionが定義されていません）が表示され止ってしまいます。 解決方法を御指導お願い致します。 Private Sub CommandButton2_Click() '得意先登録ダイアログで登録ボタンをクリック時実行 Dim check As Long '重複の有無(=0:重複せず,>0:重複) Dim insertRow As Long '挿入行位置 '入力必須項目のチェック If koudo.Text = "" Then MsgBox MsgBox "得意先コードを入力してください", vbExclamation, "入力エラー" koudo.SetFocus Exit Sub End If If syamei.Text = "" Then MsgBox "得意先名を入力してください", vbExclamation, "入力エラー" syamei.SetFocus Exit Sub End If '重複チェック On Error Resume Next check = 0 check = WorksheetFunction.Match(clnt(koudo.Text), Range("得意先一覧").Columns(2), 0) On Error GoTo 0 If check > 0 Then MsgBox "この得意先コードは、すでに入力されています", vbExclamation, "入力エラー" koudo.SetFocus Exit Sub End If Sheets("得意先マスター").Unprotect With Range("得意先一覧") '最下行に一行挿入する insertRow = .Rows.Count .Rows(insertRow).Insert Shift:=xlDown 'データをセルに入力する .Cells(insertRow, 1) = tourokubi.Text .Cells(insertRow, 2) = koudo.Text .Cells(insertRow, 3) = syamei.Text .Cells(insertRow, 4) = huri.Text End With Sheets("得意先マスター").Protect Unload 得意先登録ダイアログ End Sub

下記のようなマクロを作成しましたが、実行するとエラーメッセージ（コンパイルエラー　SubまたはFunctionが定義されていません）が表示され止ってしまいます。 解決方法を御指導お願い致します。 Private Sub CommandButton2_Click() '得意先登録ダイアログで登録ボタンをクリック時実行 Dim check As Long '重複の有無(=0:重複せず,>0:重複) Dim insertRow As Long '挿入行位置 '入力必須項目のチェック If koudo.Text = "" Then MsgBox MsgBox "得意先コードを入力してください", vbExclamation, "入力エラー" koudo.SetFocus Exit Sub End If If syamei.Text = "" Then MsgBox "得意先名を入力してください", vbExclamation, "入力エラー" syamei.SetFocus Exit Sub End If '重複チェック On Error Resume Next check = 0 check = WorksheetFunction.Match(clnt(koudo.Text), Range("得意先一覧").Columns(2), 0) On Error GoTo 0 If check > 0 Then MsgBox "この得意先コードは、すでに入力されています", vbExclamation, "入力エラー" koudo.SetFocus Exit Sub End If Sheets("得意先マスター").Unprotect With Range("得意先一覧") '最下行に一行挿入する insertRow = .Rows.Count .Rows(insertRow).Insert Shift:=xlDown 'データをセルに入力する .Cells(insertRow, 1) = tourokubi.Text .Cells(insertRow, 2) = koudo.Text .Cells(insertRow, 3) = syamei.Text .Cells(insertRow, 4) = huri.Text End With Sheets("得意先マスター").Protect Unload 得意先登録ダイアログ End Sub

エクセル初心者です。過去記事も読みましたが、わかりませんでしたので書き込みさせていただきます。 円グラフを作りました。 円グラフには「通信費30％」「渉外費25％」「車両費15％」・・・ と、内訳が記載されて表示されています。 作成したグラフをプロジェクターを通して大画面に写して、会議出席者に説明をしたいと思っています。 その際、例えば円グラフの「通信費30％」のところにカーソルを持っていくと、 その内訳が「電話代10,000円」「ハガキ代15,000円」「切手代5,000円」のように、 コメントが現れるようにすることは可能なのでしょうか。 わかりづらい質問で大変申し訳ございませんが、ご伝授いただけましたら幸いです。 何卒よろしくお願いいたします。

エクセルでマクロを作り、実行したのですが、データを集計し「2」で集約する部分で「オブジェクトからはみでます」というエラーがでます。原因がわかりません。正しく実行できる方法を教えてください。 Selection.Subtotal GroupBy:=2, Function:=xlSum, TotalList:=Array(3, 4, 5, 6, _ 7, 8, 10, 13), Replace:=True, PageBreaks:=False, SummaryBelowData:=False Range("D2").Select 　　↓この部分でエラーになります。 ActiveSheet.Outline.ShowLevels RowLevels:=2 Range("A2").Select Selection.Insert Shift:=xlDown Range("P2:R2").Select Selection.Insert Shift:=xlDown Range("B1").Select Selection.SpecialCells(xlCellTypeVisible).Select Selection.Copy

エクセルでマクロを作り、実行したのですが、データを集計し「2」で集約する部分で「オブジェクトからはみでます」というエラーがでます。原因がわかりません。正しく実行できる方法を教えてください。 Selection.Subtotal GroupBy:=2, Function:=xlSum, TotalList:=Array(3, 4, 5, 6, _ 7, 8, 10, 13), Replace:=True, PageBreaks:=False, SummaryBelowData:=False Range("D2").Select 　　↓この部分でエラーになります。 ActiveSheet.Outline.ShowLevels RowLevels:=2 Range("A2").Select Selection.Insert Shift:=xlDown Range("P2:R2").Select Selection.Insert Shift:=xlDown Range("B1").Select Selection.SpecialCells(xlCellTypeVisible).Select Selection.Copy

エクセルにてデータの抽出をしたいのですが、わからないので教えてください。 例えば、下の様なデータがあります。 回数　　　１回目　　　２回目 　　3回目 　　4回目 1000　　　　あ　　　　　　a　　　　　　Ａ　　　　　　０ 1001　　　　い 　 　　　　b 　　　　　　Ｂ　　　　　　１　 1002　　　　う 　 　　　　c　 　　　　　Ｃ　　　　　　２ 1003　　　　え 　　　　　d 　　　　　　Ｄ　　　　　　３　　 1004　　　　お 　　　　　e 　　　　　　Ｅ　　　　　　４　 1005　　　　か 　　　　　f 　　　　　　Ｆ　　　　　　５ 別のシートに、 回数の１００１と入力すると、３回目のＢが抽出 　　　１００３と入力すると、３回目のＤが抽出 　　　１００５と入力すると、３回目のＦが抽出出来る様にしたいです わかりにくい文章ですいませんが、ご回答よろしくお願いします。　

エクセルでマクロを作り、実行したのですが、データを集計し「2」で集約する部分で「オブジェクトからはみでます」というエラーがでます。原因がわかりません。正しく実行できる方法を教えてください。 Selection.Subtotal GroupBy:=2, Function:=xlSum, TotalList:=Array(3, 4, 5, 6, _ 7, 8, 10, 13), Replace:=True, PageBreaks:=False, SummaryBelowData:=False Range("D2").Select 　　↓この部分でエラーになります。 ActiveSheet.Outline.ShowLevels RowLevels:=2 Range("A2").Select Selection.Insert Shift:=xlDown Range("P2:R2").Select Selection.Insert Shift:=xlDown Range("B1").Select Selection.SpecialCells(xlCellTypeVisible).Select Selection.Copy

エクセル２００３にて、給料の予算を作っています。 鈴木　総務　１０００円　２０年１月 鈴木　総務　１２００円　２０年２月 佐藤　経理　１４００円　２０年１月 佐藤　経理　１５００円　２０年２月 木村　経理　２０００円　２０年１月 木村　経理　２１００円　２０年２月 これをピボットテーブルにして、 　　　２０年１月　２０年２月 総務　１０００円　１２００円 経理　３４００円　３６００円 というように、作成していました。 しかし、人数が増え、部門が増え、年間通じての予算となり、 さらには、佐藤は、総務と経理兼務で半分ずつの負担というようなことも出てきました。 もちろん以下のように、ひたすら行数を増やしてやれば、ピボットテーブルで作業できるのはわかっております。 佐藤　経理　　７００円　２０年１月　（０．５） 佐藤　経理　　７５０円　２０年２月　（０．５） 佐藤　総務　　７００円　２０年１月　（０．５） 佐藤　総務　　７５０円　２０年２月　（０，５） しばらくは、これにて対応してきたのですが、今回、３課以上の兼務？などの事例が出てきて、行数が数千行？に増えてしまい、わけがわからなくなってきてしまいました。 このような時、行数をできるだけ抑えてピボットテーブルにまとめることはできないでしょうか？ または、下記のような基本項目を何らかの形でデータを入れれば、自動に行が作成されるなどの方法は無いでしょうか？ 佐藤　総務０．５　経理０．２　営業０．３ 　　　２０年１月　１２００円 　　　２０年２月　２５００円 ※　この調子で１年分作ると、佐藤氏だけで３６行にもなってしまいます。社員１００人で３６００行です。この管理が煩雑のため、これを自動作成または、行数削減したい、ということです。 わかりにくかったらすみません。よろしくお願いします。

エクセル２００３にて、給料の予算を作っています。 鈴木　総務　１０００円　２０年１月 鈴木　総務　１２００円　２０年２月 佐藤　経理　１４００円　２０年１月 佐藤　経理　１５００円　２０年２月 木村　経理　２０００円　２０年１月 木村　経理　２１００円　２０年２月 これをピボットテーブルにして、 　　　２０年１月　２０年２月 総務　１０００円　１２００円 経理　３４００円　３６００円 というように、作成していました。 しかし、人数が増え、部門が増え、年間通じての予算となり、 さらには、佐藤は、総務と経理兼務で半分ずつの負担というようなことも出てきました。 もちろん以下のように、ひたすら行数を増やしてやれば、ピボットテーブルで作業できるのはわかっております。 佐藤　経理　　７００円　２０年１月　（０．５） 佐藤　経理　　７５０円　２０年２月　（０．５） 佐藤　総務　　７００円　２０年１月　（０．５） 佐藤　総務　　７５０円　２０年２月　（０，５） しばらくは、これにて対応してきたのですが、今回、３課以上の兼務？などの事例が出てきて、行数が数千行？に増えてしまい、わけがわからなくなってきてしまいました。 このような時、行数をできるだけ抑えてピボットテーブルにまとめることはできないでしょうか？ または、下記のような基本項目を何らかの形でデータを入れれば、自動に行が作成されるなどの方法は無いでしょうか？ 佐藤　総務０．５　経理０．２　営業０．３ 　　　２０年１月　１２００円 　　　２０年２月　２５００円 ※　この調子で１年分作ると、佐藤氏だけで３６行にもなってしまいます。社員１００人で３６００行です。この管理が煩雑のため、これを自動作成または、行数削減したい、ということです。 わかりにくかったらすみません。よろしくお願いします。

仕事で工事の完成写真を電子データで登録しているのですが ＪＰＥＧでーたの写真の上に、施工範囲をオートシェイプを使って表示 させています。 以前は、写真の上に半透明の紙を付け、それに赤鉛筆でマーキングしていました。同じような方法で、エクセルにＪＰＥＧ画像をはりつけその上にオートシェイプで半透明にして施工範囲を囲んでいます。 写真の横くらいに、施工範囲網掛けの有無を選択できるセルをつくり その内容によって、マーキングが見えたり、見えなかったりするようにしたいのですが、可能でしょうか。オートシェープの順序を条件により変えられれば出来そうな気がするのですが。 ちなみにマクロを使うと、登録が出来ないので、マクロ以外で対応したいのですが。よろしくご教授ねがいます。

winxp he sp2,office2003 楽天　新日鉄　ABとCD両方にあります。 その結果を、EFに記述するマクロを教えてください。 AB　CD　データは沢山あります。 列がずれて見にくいです。 A,B列：サーチ　　C,D列：基準　E,F列：結果 A　　　B　　　　　C　　　D　　　　　　　　　　　　　E　　　F 4755　楽天　　　　1400　アライヴコミュニティ　　　　4755　楽天 1885　東亜建　　　1503　住友石炭　　　　　　　　　　5401　新日鉄 6796　クラリオン　1518　三井松島 6590　芝浦　　　　1757　千年の杜 5218　オハラ　　　1783　Ａ．Ｃホールディングス 6723　ＮＥＣエレ　2164　地域新聞社 4973　日本高純度　2316　モスインスティテュート 6665　エルピーダ　2318　ビービーネット 4186　東応化　　　2330　フォーサイド・ドット・コム 5401　新日鉄　　　2350　オックスホールディングス 　　　　　　　　　2709　タスコシステム 　　　　　　　　　3011　バナーズ 　　　　　　　　　3090　ナチュラム 　　　　　　　　　4314　ダヴィンチ・アド 　　　　　　　　　4755　楽天 　　　　　　　　　4772　デジタルアドベンチャー 　　　　　　　　　4835　インデックスＨＬＤＧＳ 　　　　　　　　　5401　新日鉄 　　　　　　　　　5955　ヤマシナ よろしくお願いします。

検索の仕方が悪いのか、どうしたらいいのか方法が分からないのでご存知の方はお教えください。 以下のような表があります。 使用者名|教室 |授業 ―――――――――― 山田花子|Ａ□|音楽 □□□□|□□|国語 □□□□|Ｂ□|数学 □□□□|□□|図工 ――――――――――ここで改ページ □□□□|□□|体育 山田太郎|Ｂ□|音楽 □□□□|□□|図工 鈴木一郎|Ａ□|図工 □□□□|□□|家庭科 両面印刷の予定なので、これでは次のページになったとき即座に誰がどの教室を使っていたか分かりません。 そこで下記のようにしたいのです。 使用者名|教室 |授業 ―――――――――― 山田花子|Ａ□|音楽 □□□□|□□|国語 □□□□|Ｂ□|数学 □□□□|□□|図工 ――――――――――ここで改ページ 山田花子|Ｂ□|体育←直前の使用者名と教室が入力される 山田太郎|Ｂ□|音楽 □□□□|□□|図工 鈴木一郎|Ａ□|図工 □□□□|□□|家庭科 ※スペースではズレてしまった為空白欄に「□」を入力しています。実際には空欄です。 上記のように改ページがあったら直前のデータが入っているセルから情報を抜き出して挿入したいのですがどのような方法を使えばよいでしょうか? それぞれの行は固定ではなく途中で挿入が入ったりする場合があります。そうするとまた一から入力しなければならず大変手間です・・・。 関数を使えばいいのか、Excelの機能で実現できるのかマクロを組まなければならないのか皆目検討が付きません。 ヘッダーはすでに使用しています。何個も設定できるものなのでしょうか? 全体で100ページ以上になり、かつ毎月提出するものなため、便利な機能があれば知りたいです。 とても困っています。ご存知の方はぜひお教えください。 よろしくお願いします。

winxp he sp2,office2003 楽天　新日鉄　ABとCD両方にあります。 その結果を、EFに記述するマクロを教えてください。 AB　CD　データは沢山あります。 列がずれて見にくいです。 A,B列：サーチ　　C,D列：基準　E,F列：結果 A　　　B　　　　　C　　　D　　　　　　　　　　　　　E　　　F 4755　楽天　　　　1400　アライヴコミュニティ　　　　4755　楽天 1885　東亜建　　　1503　住友石炭　　　　　　　　　　5401　新日鉄 6796　クラリオン　1518　三井松島 6590　芝浦　　　　1757　千年の杜 5218　オハラ　　　1783　Ａ．Ｃホールディングス 6723　ＮＥＣエレ　2164　地域新聞社 4973　日本高純度　2316　モスインスティテュート 6665　エルピーダ　2318　ビービーネット 4186　東応化　　　2330　フォーサイド・ドット・コム 5401　新日鉄　　　2350　オックスホールディングス 　　　　　　　　　2709　タスコシステム 　　　　　　　　　3011　バナーズ 　　　　　　　　　3090　ナチュラム 　　　　　　　　　4314　ダヴィンチ・アド 　　　　　　　　　4755　楽天 　　　　　　　　　4772　デジタルアドベンチャー 　　　　　　　　　4835　インデックスＨＬＤＧＳ 　　　　　　　　　5401　新日鉄 　　　　　　　　　5955　ヤマシナ よろしくお願いします。

検索の仕方が悪いのか、どうしたらいいのか方法が分からないのでご存知の方はお教えください。 以下のような表があります。 使用者名|教室 |授業 ―――――――――― 山田花子|Ａ□|音楽 □□□□|□□|国語 □□□□|Ｂ□|数学 □□□□|□□|図工 ――――――――――ここで改ページ □□□□|□□|体育 山田太郎|Ｂ□|音楽 □□□□|□□|図工 鈴木一郎|Ａ□|図工 □□□□|□□|家庭科 両面印刷の予定なので、これでは次のページになったとき即座に誰がどの教室を使っていたか分かりません。 そこで下記のようにしたいのです。 使用者名|教室 |授業 ―――――――――― 山田花子|Ａ□|音楽 □□□□|□□|国語 □□□□|Ｂ□|数学 □□□□|□□|図工 ――――――――――ここで改ページ 山田花子|Ｂ□|体育←直前の使用者名と教室が入力される 山田太郎|Ｂ□|音楽 □□□□|□□|図工 鈴木一郎|Ａ□|図工 □□□□|□□|家庭科 ※スペースではズレてしまった為空白欄に「□」を入力しています。実際には空欄です。 上記のように改ページがあったら直前のデータが入っているセルから情報を抜き出して挿入したいのですがどのような方法を使えばよいでしょうか? それぞれの行は固定ではなく途中で挿入が入ったりする場合があります。そうするとまた一から入力しなければならず大変手間です・・・。 関数を使えばいいのか、Excelの機能で実現できるのかマクロを組まなければならないのか皆目検討が付きません。 ヘッダーはすでに使用しています。何個も設定できるものなのでしょうか? 全体で100ページ以上になり、かつ毎月提出するものなため、便利な機能があれば知りたいです。 とても困っています。ご存知の方はぜひお教えください。 よろしくお願いします。

日々積み重ねられるデータを折れ線グラフにしているのですが、 データを追加したときに自動的にグラフに反映することはできるでしょか。 よろしくお願いします。

エクセルのVBAで、Application.Dialogs(xlDialogInsertPicture).Showを使って、写真取り込む時に、シートにではなく、フォームのImageに直接取り込む方法ってあるのでしょうか？ UserForm1.Image1 = Application.Dialogs　_(xlDialogInsertPicture).Show とするとエラーになってしまいます。 宜しくお願いします。

宜しくお願い致します Excel2003で作成した、関数を使用して作ったカレンダーがあります それをコピー貼り付けで確か図のリンク貼り付けから入ったと思いますが、別のExcelを立ち上げて貼りつけましたこれをSheet1に12月分コピーで並べます、 で、質問ですがこの時に作成してあった12月分並べたカレンダーの 例えば1月のカレンダーをクリックすると数式バーに =EMBED("Excel,SheetX","")と表示されています、12ヶ月分全です、出来たものは現在手元にあります そんなに難しくなく偶然に出来たような気がしますが これが作成した手順を忘れてしまい、コピー、貼り付けをしても出来ません 他の人のPCを借りてExcel2003でやってみましたが思い出せません 数式バーには=Excel'ドライブ名.[カレンー,XlsX]'!'r5c2:r12c8'のように表示されてしまいます 今はExcel2007ですが何をしても出来ないで困っています、数式バーには =Excel'ドライブ名.[カレンダー,XlsX]'!'r5c2:r12c8'の様に 表示されてどうしても=EMBED("Excel,SheetX","")と表示出来ません（SheetXはシート番号） ちなみに=EMBED("Excel,SheetX","")が表示されていると12月分コピペ並べたカレンダーのどれかをクリックすると、その1ヶ月分がリンクされて、関数を使用して作ったカレンダーの日にちを変えるとそれのみ変更されますが =Excel'ドライブ名.[カレンダー,XlsX]'!'r5c2:r12c8'と 表示されると、コピーした１月から12月がすべて同じように変更されてしまいます。 Excel2007で=EMBED("Excel,SheetX","")と表示出来るでしょうか。 Excel2007で図のコピー、図のリンク貼り付けで行っています オブジェクトの挿入からやつてみても同じことでした。 =EMBEDとはオブジェクトの読み込みのHTMLタグのようですが??

宜しくお願い致します Excel2003で作成した、関数を使用して作ったカレンダーがあります それをコピー貼り付けで確か図のリンク貼り付けから入ったと思いますが、別のExcelを立ち上げて貼りつけましたこれをSheet1に12月分コピーで並べます、 で、質問ですがこの時に作成してあった12月分並べたカレンダーの 例えば1月のカレンダーをクリックすると数式バーに =EMBED("Excel,SheetX","")と表示されています、12ヶ月分全です、出来たものは現在手元にあります そんなに難しくなく偶然に出来たような気がしますが これが作成した手順を忘れてしまい、コピー、貼り付けをしても出来ません 他の人のPCを借りてExcel2003でやってみましたが思い出せません 数式バーには=Excel'ドライブ名.[カレンー,XlsX]'!'r5c2:r12c8'のように表示されてしまいます 今はExcel2007ですが何をしても出来ないで困っています、数式バーには =Excel'ドライブ名.[カレンダー,XlsX]'!'r5c2:r12c8'の様に 表示されてどうしても=EMBED("Excel,SheetX","")と表示出来ません（SheetXはシート番号） ちなみに=EMBED("Excel,SheetX","")が表示されていると12月分コピペ並べたカレンダーのどれかをクリックすると、その1ヶ月分がリンクされて、関数を使用して作ったカレンダーの日にちを変えるとそれのみ変更されますが =Excel'ドライブ名.[カレンダー,XlsX]'!'r5c2:r12c8'と 表示されると、コピーした１月から12月がすべて同じように変更されてしまいます。 Excel2007で=EMBED("Excel,SheetX","")と表示出来るでしょうか。 Excel2007で図のコピー、図のリンク貼り付けで行っています オブジェクトの挿入からやつてみても同じことでした。 =EMBEDとはオブジェクトの読み込みのHTMLタグのようですが??