mimeu の回答履歴

Excelのマクロを使用してオートシェイプ図形の色を変えたいのです。 オートシェイプ図形を５０個ならべて、マウスでクリックしてものは色が変わるようにしたいと思います。 マクロ記録をすると以下のようになりました。 Sub Macro1() ActiveSheet.Shapes("AutoShape 1").Select Selection.ShapeRange.Fill.ForeColor.SchemeColor = 45 Selection.ShapeRange.Fill.Visible = msoTrue Selection.ShapeRange.Fill.Solid End Sub このプログラムを５０個書くわけにはいかないのですが、プログラムで処理するのに問題点が２つ出てきました。 ・オートシェイプ図形の名前が"AutoShape 1"となっていますが、これを変更したいのですが、書式設定にはありませんでした。変更するにはどうすればよいのでしょう？ ・クリックしたオートシェイプ図形がどれであるかを返す関数がないと、どの図形がクリックされたかわからないのですが、これを返す関数はあるのでしょうか？ よろしくお願いします。

Excelのマクロでコマンドボタンを選択する方法 マクロの記述でオブジェクトのコマンドボタンのみを選択するにはどうしたらいいでしょうか？ 別のマクロが登録されているボタンを削除するのが目的です。 オブジェクトは他にもテキストや直線などがあり、コマンドボタンのみの特定の仕方がわかりません。 シートも複数あり、コマンドボタンもまちまちな名前がついています。 WinXP　Excel2000

再びビジュアルベーシック2008の質問です。 現在のプログラミングで、ＥＳＣキーを押すとプログラムが終了するようにしたいのですが、どのようなタグをつければいいでしょう？ＶＢ初心者なのでどうぞよろしくお願いいたします。

Excelで質問です。連番に関してです。 明日仕事で使うので急いでいます。 A 　1 　1 A 　1 　2 A 　1 　3 A 　2 　1 A 　2 　2 A 　2 　3 A 　2 　4 A 　2 　7 A 　2 　8 A 　3 　1 A 　3 　2 A 　3 　3 A 　3 　4 B 　1 　1 B 　1 　2 B 　1 　3 B 　2 　1 B 　2 　2 B 　2 　3 例えると上記のような感じのデータがあります。 Aというグループ内（左側の列）で 1というデータ（真ん中の列）に 1,2,3…という連番（右側の列）が 順番に振られています。 イメージとしてはA-1というキーに対して1,2,3... という数字が連番としてそれぞれ振られている感じです。 ※並び替えは昇順で済んでいます 目的としては右側の列である連番の途切れた部分に追加で番号を 2つ分入力し、 A-1-4 A-1-5 というキーが欲しいのです。 つまりが若い空き番から順に2つ使用するデータを拾うには どうすれば良いか…ですね。 （例）1,2,3で途切れている場合は4,5と入力。 もしこれだけならば問題は無かったんです。 =IF(C2+1=C3,"","▲") で、▲のついているところから途切れの箇所を拾えます。 しかし、他にもこんなパターンがあるのです。 （パターン1）1,2,3,8,9,10... これで欲しいのは4,5。 上記のやり方だと必要ない11,12も拾ってしまいます。 ※あくまで「左側の列-真ん中の列」というキーに対して 番号を割り振るのは2つまで。同じキー内に途切れが 二つある時点で上記のやり方が出来ません。 （パターン2）4,5,6... これで欲しいのは1,2。 最初から抜けています。 （パターン3）1,2,3,5,6,10,11... これで欲しいのは4,7 1つ空き番があって、次が離れています。 Excelの関数だけでどうにかできるかは分かりません。 マクロで解けるらしいですが、自分はマクロは使えません…。 あとAccessを活用して何とかできないか…とも思ってます。 ※元々このデータはAccessからエクスポートしたデータです 数万行あるデータだけに手入力は絶対に無理です。 空き番に2つ数字を割り振る方法があれば教えていただけると助かります。 Accessを組み合わせての方法でも良いです。 ただし、当方AccessはExcel以上に無知なもので…。 よろしくお願いいたします。

縦幅・横幅・フォントサイズを固定値にしたいセルへの入力で、セルから文字がはみ出ない様にしたいと考えています。 当初、セルに入力されたバイト数をカウントする事ではみ出た事を把握しようと考えたのですが、Alt+Enterキーを押してのセル内改行も含む為に、セル内のバイト数では、セルをはみでる事を把握しきれません。 そこで、LEN関数を用いてセル内の行数が一定値を超えた場合を把握しようと考えました。 しかしながら、Alt+Enterキーを押してのセル内改行は、CHAR(10)で拾えるのですが、セルの書式設定で「自動で折り返して全体を表示する」にチェックを入れている為、「自動で折り返し」→「改行」されるケースもあります。 この、自動で折り返して改行された場合の「改行」をカウントする方法を御教授頂きたく、質問させて頂きました。 よろしくお願い致します。

OfficeXPで作られたマクロがOffice2007で動きません。 OSは Windows 7 Pro です。 Officeマクロセキュリティ「全て許可」 信頼できる場所も設定しましたがだめでした。 パソコン素人のためどこから調べてよいのかまったくわかりません。 善きアドバイスをお願いします。

OfficeXPで作られたマクロがOffice2007で動きません。 OSは Windows 7 Pro です。 Officeマクロセキュリティ「全て許可」 信頼できる場所も設定しましたがだめでした。 パソコン素人のためどこから調べてよいのかまったくわかりません。 善きアドバイスをお願いします。

見積書の商品を発注したときに、その情報を別ブックで管理したいと思っています。 見積書の発注用シートとは別のシートに管理データを蓄積しながら転記できるマクロは組めたのですが、使い勝手が悪いため全く別のブックに管理データを蓄積したいと思います。 見積書データは保存をするときは、その都度異なるファイル名で保存し、管理データはc:\管理￥集計.xlsで保存します。 途中まで作ってみたのですが、アクティブシートとブックが途中でこんがらがってしまって行き詰っています。 サンプルデータを添付いたしますので、ご教示願えませんでしょうか。 マクロとＶＢＡについては初心者なので大変申し訳ありませんが、よろしくお願い申し上げます。

勉強として、LoadPicture関数を使って、 画像表示をするプログラムを作っております。 今、ワークシート上にImageオブジェクトを作って そこに画面表示されるようにしたいと思っております。 ※ユーザフォームで、Imageオブジェクトを作って 　表示することはできます。 今、ワークシート上にImageオブジェクトをどう作るのかが わからず、それについて教えていただきたく掲示致しました。 ※下記サイトに記載されている、ワークシート上にImageオブジェクトを 　どう配置すればいいのかが、関心を持っております。 　http://mugicyan.gooside.com/excel/vba_times/lesson_02_01.html

最近、やっと就職ができ事務職をがんばっています。 エクセルを使った仕事が多く、単純な手作業が多いのですが、マクロという存在を知って書籍を購入して作業の自動化ができないか自分なりに研究しています。 できれば、自動化できるようにしてもっとたくさんの仕事をこなして会社の方に認めて頂き正社員になれないものかと思ってます。 でも、1ヶ月ほど経ったのですがまだ自分には難しいのかと思い質問させていただきました。 私が欲しいマクロなのですが下記のようなものです。 　エクセルのマクロで日本語→中国語の複数単語の一括置換します。 Gooの他の質問と回答を調べて、日本語の複数置換マクロがあって試してみたのですが、マクロを記入するところで中国語を記載すると文字化けしてしまいます。 そこで以下の方法でできないかと思ったのですが、こういったマクロを作るのは可能なのでしょうか？難しいのでしょうか？ 1.まず、以下のSheet1の日本語／中国語の対応表を読みに行きます。 　Sheet1 　A列 　B列 　China1　中国語1 　China2　中国語2 　China3　中国語3 　China4　中国語4 　China5　中国語5 　China6　中国語6 　China7　中国語7 　China8　中国語8 *単語はあればあっただけ検索して置換するにできればうれしいです。 2.そのファイル内にあるSheet1以外のすべてのSheet（Sheet名はいろいろ）にある、対応表の単語を全部置換します 恐れ入りますがもしお時間ある方でわかる方がいらっしゃりましたらアドバイスを頂ければ嬉しいです。 宜しくお願い致します。

最近、やっと就職ができ事務職をがんばっています。 エクセルを使った仕事が多く、単純な手作業が多いのですが、マクロという存在を知って書籍を購入して作業の自動化ができないか自分なりに研究しています。 できれば、自動化できるようにしてもっとたくさんの仕事をこなして会社の方に認めて頂き正社員になれないものかと思ってます。 でも、1ヶ月ほど経ったのですがまだ自分には難しいのかと思い質問させていただきました。 私が欲しいマクロなのですが下記のようなものです。 　エクセルのマクロで日本語→中国語の複数単語の一括置換します。 Gooの他の質問と回答を調べて、日本語の複数置換マクロがあって試してみたのですが、マクロを記入するところで中国語を記載すると文字化けしてしまいます。 そこで以下の方法でできないかと思ったのですが、こういったマクロを作るのは可能なのでしょうか？難しいのでしょうか？ 1.まず、以下のSheet1の日本語／中国語の対応表を読みに行きます。 　Sheet1 　A列 　B列 　China1　中国語1 　China2　中国語2 　China3　中国語3 　China4　中国語4 　China5　中国語5 　China6　中国語6 　China7　中国語7 　China8　中国語8 *単語はあればあっただけ検索して置換するにできればうれしいです。 2.そのファイル内にあるSheet1以外のすべてのSheet（Sheet名はいろいろ）にある、対応表の単語を全部置換します 恐れ入りますがもしお時間ある方でわかる方がいらっしゃりましたらアドバイスを頂ければ嬉しいです。 宜しくお願い致します。

エクセルのマクロを活用して下記のことを考えています。 エクセルで複数単語の一括置換は過去の質問でありまして活用できそうだったのですが、置換後の文字が中国語だとマクロに中国語を記載すると文字化け（？マーク）になり、エラーが出ます。 日本語→中国語の複数単語の一括置換（エクセル）ができる方法はないのでしょうか？ やりたいことは、簡単に以下のようなことです。 エクセル全てのシートが対象で、事前に下記の置換内容を準備します。 そして一括置換がエクセル内でしたいです。 China1→中国語1 China2→中国語2 China3→中国語3 China4→中国語4 宜しくお願い致します。

シート上に貼り付けたBMPファイルを探して、指摘するようなプログラムを作ろうと考えています。 しかし、BMPファイルの探し方が分かりません。 BMPというプロパティを持っていたりするのでしょうか？ また、貼り付けた画像は、オートシェイブ扱いとなって探す事は無理なのでしょうか？ どなたか宜しくお願いします。

Access2000 の●●mdb から Excel2007 のAAA.xls を開こうとしますが オートメーションエラー（サーバーによって例外が返されました） が表示され開きません。 ●●mdb と AAA.xls は同じフォルダーに入れてます。 Accessの「参照設定」では、 　　Microsoft Excel 12.0 Object Library を選んでます。 ボタン（Cmd1)を押して表示させたいので Private Sub Cmd1_Click() Dim Appexcel As New Excel.Application Dim wb As Excel.Workbook Dim strfile As String strfile = CurrentProject.Path & "\AAA.xls" Set Appexcel = New Excel.Application Set wb = Appexcel.Workbooks.Open(strfile) Appexcel.Visible = True End Sub のように書いてますが、どうもうまく開いてくれません。 どうすれば表示させることができますか。

Excel2003の個人用マクロブックが、何の変更も加えてなくてもExcelを終了するたびに個人用マクロブックの保存を聞かれる様になってしまいました。 終了時に毎回ダイアログが出てきてしまうのが面倒なだけで、それ以外は特に支障は無いのですが… 何か良い解消方法はないでしょうか？

MS Excelで作ったファイルで、会社の年間の書類をリストにして管理しています。アパレルの会社で、各、メーカーさんに渡す、オーダーシートの番号をリストにし、詳細を記入、また、オーダーナンバーの欄には、ハイパーリンクをつけ、このリストから、各オーダーシートが開けるようになっています。 一年間で、オーダーナンバーは1500位まで行くので、こちらのエクセルファイルも、毎年1500段くらいのファイルになっています。 このリストを、毎年、コピーして、使いまわしており、使っていたところ、昨日、こちらのファイルが開かなくなりました。ファイルを開けようとすると、「このブックには他のデータソースへのリンクが含まれています。」というウィンドウが出て、「更新しない」を選択すると、エクセルが落ちます。「更新する」を選択すると、ずっとリンクを探していて、結局開けることができません。　今は、他の場所に保存してあった、全てのハイパーリンクが無効になっているファイルを臨時で使用しています。こちらのリストは、会社内でも大変よく使うものなので、再度リンクをつけて、使いたいのですが、また、ただリンクを付け直して、同じ問題が起こってしまうことがありそうで、迷っています。このファイルは、もう6年以上、コピーしながら使っているものなので、もうファイルがおかしくなっているのかとも思います。 いま、臨時で使っているファイルにそのままハイパーリンクをつけても問題ないか、もしくはこのコピーしながら使っていたファイルを捨て、新しいBookで作り直した方がよいのか、アドバイスいただければと思います。どうぞ、よろしくお願いいたします。

いつも大変お世話になります。 アクセスクエリの質問ですが、テーブルデータより予定数が通常クエリで紐付いていて、もともとこの予定数はデータとして例えば90が入力されていて、普通に抽出すれば当然90が抽出できるのですが、クエリを実行すると、ダイアログなどで、手動で200と入力すると、200がクエリで出力させたいのですが・・・ 非常に、分りにくいかもしれませんが、アドバイスお待ちしております。

MS Excelで作ったファイルで、会社の年間の書類をリストにして管理しています。アパレルの会社で、各、メーカーさんに渡す、オーダーシートの番号をリストにし、詳細を記入、また、オーダーナンバーの欄には、ハイパーリンクをつけ、このリストから、各オーダーシートが開けるようになっています。 一年間で、オーダーナンバーは1500位まで行くので、こちらのエクセルファイルも、毎年1500段くらいのファイルになっています。 このリストを、毎年、コピーして、使いまわしており、使っていたところ、昨日、こちらのファイルが開かなくなりました。ファイルを開けようとすると、「このブックには他のデータソースへのリンクが含まれています。」というウィンドウが出て、「更新しない」を選択すると、エクセルが落ちます。「更新する」を選択すると、ずっとリンクを探していて、結局開けることができません。　今は、他の場所に保存してあった、全てのハイパーリンクが無効になっているファイルを臨時で使用しています。こちらのリストは、会社内でも大変よく使うものなので、再度リンクをつけて、使いたいのですが、また、ただリンクを付け直して、同じ問題が起こってしまうことがありそうで、迷っています。このファイルは、もう6年以上、コピーしながら使っているものなので、もうファイルがおかしくなっているのかとも思います。 いま、臨時で使っているファイルにそのままハイパーリンクをつけても問題ないか、もしくはこのコピーしながら使っていたファイルを捨て、新しいBookで作り直した方がよいのか、アドバイスいただければと思います。どうぞ、よろしくお願いいたします。

エクセルのマクロを勉強中です。 仕事で使いたいのですが、わからなくて困っています。 教えていただけないでしょうか。 商品受注の表でシート1（商品マスター）に商品マスター（Ａ3に「商品コード」Ｂ3に「商品名」Ｃ3に「型番」Ｄ3に「単価」）があります。 シート2（入力用）は、Ａ3に「商品コード」Ｂ3に「商品名」Ｃ3に「型番」Ｄ3に「単価」Ｅ3に「注文総計」Ｆ3に「Ａ社分」（Ａ社からの受注数）Ｇ3に「Ｂ社分」（Ｂ社からの受注数）Ｈ3に「合計」（Ａ社分とＢ社分の合計）Ｈ3に「チェック」（注文総計と合計の差で同じだと○を表示）があります。 注文総数というのは、Ａ社とＢ社から受注した数の合計で、どちらからいくつ受注したのかは、別に出てくる伝票を数えないとわかりません。 やりたいことは (1)　「商品コード」を手入力すると、商品マスターから「商品名」「型番」「単価」が入力される。 「商品コード」に該当ないコードを入力すると、メッセージがでる。 (2)「注文総数」と「Ａ社分」と「Ｂ社分」を手入力すると、「合計」と「チェック」が入力される。 「商品コード」の入力があるのに「注文総数」等数値の入力が無い場合は、0とみなして計算する。 以上の(1)と(2)の手入力分が入力（変更）されしだい、自動に入力される分が入力（変更）するようにしたいのです。 今のところ、ボタンを作って(1)と(2)を動かしているのですが、自動にすることもエラー処理部分ができません・・・ ちなみに自分で作った（見よう見まねです）のは以下です。 (1)　Sub 商品マスターコピー() ' '*** 入力の最後行までを別シートにコピー（vlookup) ' 最終行 = Range("A" & Rows.Count).End(xlUp).Row '入力した商品名の最終行の検索 For 行 = 4 To 最終行 If Range("A" & 行).Value <> "" Then Range("B" & 行) = Application.WorksheetFunction.VLookup(Range("A" & 行), Worksheets("商品マスター").Range("A:D"), 2, False) '商品マスターから商品名をコピー Range("C" & 行) = Application.WorksheetFunction.VLookup(Range("A" & 行), Worksheets("商品マスター").Range("A:D"), 3, False) '商品マスターから型番をコピー Range("D" & 行) = Application.WorksheetFunction.VLookup(Range("A" & 行), Worksheets("商品マスター").Range("A:D"), 4, False) '商品マスターから単価をコピー End If Next End Sub (2)　Sub 注文数集計() ' '***　列全てに集計（足し算、引き算、if文）結果を表示 最終行 = Range("A" & Rows.Count).End(xlUp).Row '入力した商品名の最終行の検索 For 行 = 4 To 最終行 If Range("A" & 行).Value <> "" Then Range("H" & 行) = Application.WorksheetFunction.Sum(Range("F" & 行), Range("G" & 行)) 'H列に（明細あり+明細なし）を表示 ' Range("I" & 行) = Range("E" & 行) - Range("H" & 行) 'I列に（総合計-受注数）の差額を表示 Range("I" & 行) = IIf(Range("E" & 行) - Range("H" & 行) = 0, "○", Range("E" & 行) - Range("H" & 行)) '計-受注数）の差額を表示 End If Next End Sub 説明が下手なので上手く伝えられたか心配ですが・・・どうぞよろしくお願いいたします。

Excell（２００３）での売上帳、仕入帳の管理についての質問です。 現在、仕入れ帳を作成していますが、入力された内容を自動的に売上げ帳に転記したいと考えています。 仕入れ帳は、仕入れ先ごとにファイルが分かれています。 仕入れ先ごとのファイルを開いて編集すれば、その内容が1つ（または現場名ごと）のファイルに転記されるようなシステムを作りたいと考えています。 仕入れ帳に入力してある項目は以下になります。 1．月日 2．品名 3．数量 4．単価 5．仕入れ金額 6．支払い金額 7．差し引き残高 8．現場名 上記より、1～5のみを仕入れ帳へ転記したいと考えています。 出来れば単純に転記するだけではなく、8の現場名ごとにファイルかシートで分けたいですが、今の自分のスキル的に無理なようなら、1つのファイルにまとめてでも良いかと思っています。 このような事はExcelで可能でしょうか？ 可能でしたら、関数、マクロ、VBAなど・・どんな方法で可能か教えて下さい。 プログラムの作成を代行していただける方にお願いすることも考えていますが、出来れば自分で勉強して自作したいです。 よろしくお願いします。