mitarashi の回答履歴

こちらでお世話になった者です。その節はありがとうございました。 http://okwave.jp/qa3972230.html 他のブックが開いているとエラーになるので、フォームのブックが開いていたら、 マクロの最初に閉じてしまいたいと思います。 dbase.xls formフォルダ 　001.xls 　002.xls 　003.xls のようなフォルダ構造になっていて、001～003.xlsは入力フォームです。 dbase.xlsを開いて、マクロを貼り付けたボタンをクリックすると、すべてのフォームの データがdbase.xlsに取り込まれます。 ↓のような感じで、最初にメッセージが表示されるようにしたのですが、 自分以外の、formフォルダにあるブックが開いていたらそれをすべて閉じる 方法を教えていただけますか。 Sub data_torikomi() MsgBox ("開いている他のエクセルブックをすべて閉じてください") Dim Fn As String Dim myPath As String Dim dbBkSh As Worksheet Dim i As Long Set dbBkSh = Workbooks("dbase.xls").Worksheets("一覧表") myPath = ThisWorkbook.Path & "\" Fn = Dir(myPath & "form\*.xls") i = 1 　　……

http://okwave.jp/qa1222496.html こちらのページを参考にやってみたのですが、下記コードの3行目で 「アプリケーション定義またはオブジェクト定義のエラーです」となります コードは以下のとおりです －－－－－－－－－－ X = Sheets("Sheet1").Cells(1, 1).Value 　Sheets("Sheet2").Select Sheets("Sheet2").Range(Cells(X, 1), Cells(X, 7)).Select Selection.Delete shift:=xlUp －－－－－－－－－－ Sheet1のA1には任意の数字が入り、その数字に対応したセル範囲を削除するというものです 仮に3と入っているとして、Sheet2のA3からG3までを削除して 行を詰めたいと考えています Sheet1のA1には確かに数字が入っていることは確認しております あともし可能であれば、Sheets("Sheet2").Selectをしなくても 行を削除する方法があればご教授願いたいと思います webでいろいろ調べてみましたが、Sheets("Sheet2").Select　としないといけないようでした VBAはまったくの初心者ですので、そもそも調べ方が間違っているかもしれませんが・・・

http://okwave.jp/qa1222496.html こちらのページを参考にやってみたのですが、下記コードの3行目で 「アプリケーション定義またはオブジェクト定義のエラーです」となります コードは以下のとおりです －－－－－－－－－－ X = Sheets("Sheet1").Cells(1, 1).Value 　Sheets("Sheet2").Select Sheets("Sheet2").Range(Cells(X, 1), Cells(X, 7)).Select Selection.Delete shift:=xlUp －－－－－－－－－－ Sheet1のA1には任意の数字が入り、その数字に対応したセル範囲を削除するというものです 仮に3と入っているとして、Sheet2のA3からG3までを削除して 行を詰めたいと考えています Sheet1のA1には確かに数字が入っていることは確認しております あともし可能であれば、Sheets("Sheet2").Selectをしなくても 行を削除する方法があればご教授願いたいと思います webでいろいろ調べてみましたが、Sheets("Sheet2").Select　としないといけないようでした VBAはまったくの初心者ですので、そもそも調べ方が間違っているかもしれませんが・・・

ワードで作られた様式が渡されましたが、その中に１～３ページはＡ４縦の様式になっていますが、４ページ目はＡ４縦のページ設定なのにＡ４横の表になっています。つまり、４ページ目だけ他のページと違い９０度曲がった表となっており、非常に入力しずらいのです。首を曲げて入力したり、ディスプレイを横にしてみましたがマウス操作がやりにくいなど困っています。どなたか、４ページの９０度曲がった表を直す方法を教えてください。

例えば　10.26（1セル）を10と26を別（2セル）のセルに表示する。 5.1であれば5と1 123.62であれば123と62と このようにセルを分割して表示することは可能でしょうか。 素人で恐縮ですが、アドバイスお願いします。

仕事で使うので、アクセスとデータベースの勉強をしたいと思っています。 が、田舎のため書店にあまり専門的な本がありません…。 アクセスの本はなんとか数冊ありますが、内容が既知のものばかりです。 そこで、ネットから購入しようと考えているのですが、オススメのものありますか？ 現在の職種とスキル、今後の希望は以下のとおりです。 職　種：事務職 スキル：初級シスアド・MOSアクセス・ExcelVBAの記述(中級程度) 希　望：アクセスVBAとフォームの応用を学びたい。 　　　　同時によりデータベースへの理解を深めたい。 技術者になるつもりはないのですが、仕事で扱う情報量がエクセルでは重過ぎるため、今後はアクセスに切り替えていくようにしたいのです。(現在はエクセルで時間をかけて処理していますが)それにしてはもう1歩、知識と技量が足りないというか…。 デキがいいほうではないので、出来れば順を追って理解していけるようなものを探しています。 どうぞよろしくお願いします。

Excel2000で、他のブックからセルの値を参照する際に, #VALUE!になってしまうのはどういう場合でしょうか。 新規で作ったブックでは正常に参照できるのですが, 既にあるブック同士で片方からもう片方のセルを参照しようとすると #VALUE!になってしまいます。 参照の方法ではなく,こうなってしまう要因と対策方法を お教えいただきますよう,お願い致します。

ワードで作成したファイルとエクセルで作成されたファイルを連番でページ数を印字したいのですが、良いソフトはありませんか？ ソースネクスト「いきなりＰＤＦ　プロフェッショナル２」でワードファイルやエクセルファイルをＰＤＦにするのですが、ページ数が印字されません。 　表紙　ワードで作成　　1頁 　概要　ワードで作成　　2頁～3頁 　予算　エクセルで作成　4頁～5頁 　名簿　エクセルで作成　6頁～7頁 　結論　ワードで作成　　8頁～9頁 　・・・・と連番で用紙下中央に頁数が印字する良い方法はありませんか？

ACCESS2003についての質問です。 データをインポートする際、拡張子の付いていないファイル（データの内容は区切り記号付きテキストファイルで表示することができます。）をＡＣＣＥＳＳにインポートする方法を教えて下さい。 .txt や　.csv などの拡張子をつればＡＣＣＥＳＳでインポートできるファイルになるのですがその手間を省けないか？と言われています。 それ位してくれよと思うのですが・・・ ＶＢＡは少し勉強しているのですが、ＶＢＡを利用すればＡＣＣＥＳＳ上でファイルに拡張子を付け加える事は可能になるのでしょうか？教えてください。

仕事上、エクセルに画像を挿入することが多く、場合によって200枚の画像を挿入することがあります。 なんとかならないかとWebで調べたら下記のサイトに行き着きました。 http://pc.nikkeibp.co.jp/article/NPC/20071101/286186/?P=1 このマクロを半信半疑に実行したら、見事に"picuture"というシートにズラーーーっと画像がいっきに挿入されました。 スゴイ！！まさに神みたいなマクロでした。 ただ、数箇所「うーーん・・。」という点があります。 1)■■挿入した各画像の大きさの『縦x横 比』■■ 挿入した全ての画像の"横"の大きさは「セル２個分」にフィットしています。 これはいいの全然いいです。バッチリです。 問題はそれに対する縦です。縦横比を保持しないで縦の大きさが６セル分に無理矢理フィットします。 つまり強引に横2セルx縦6セルの画像になってしまいます。 縦横比を保持できないでしょうか？ ちうなみに貼り付ける画像は全て正方形よりやや横長です。。 2)■■挿入した画像がハイパーリンクになってる。■■ 挿入した画像の位置を微妙に変えようと、白い十字キーのポインターを画像の上に持っていくと、IEでリンク先をクリックするときに出てくる「白い手袋をした人差し指を立てたポインター」に変わります。 これだと画像が選択できません。 以上この２点どなたかマクロに詳しい方がいらっしゃいましたら解決していただけますでしょうか？ 回答下さった方には心底お礼したいです！！お願い致します。 お願いします！

時系列に並んだ年度別の売上データについて、 任意に設定した年度の範囲での平均値を算出したいと思っています。 　　A　　　B　　C　　　D　　E　　　F　　G 1　年度　2000　2001　2002　2003 2004　2005 2　売上　5000　4000　6000　6000　8000　9000 という表の横に 　　H　　I　　　　J 1　From　To　　平均売上 2　2001　2004　　6000 という部分を設け、このFrom(H2)とTo(I2)欄に任意の年を入力すれば 右側の平均売上(J2)が計算されるようにしたいのです。 同様の条件で、指定した期間における年平均の伸び率の 計算ならばHLOOKUP関数を利用すればよいということは すぐにわかったのですが、AVERAGE/DAVERAGEの場合は 入力した条件に対応する売上高ではなくそのセル番号を 参照する必要があるという箇所で混乱してしまいました。

いつも本当にお世話になっております。 現在、データの範囲を検出して、グラフを作成するマクロを記録させて作っています。 ところが、範囲が固定されてしまい難儀しています。 下にそのマクロを転記いたしますので、ご指摘、ご指導頂ければと存じます。 Sub Macro1() ' ' Macro1 Macro ' マクロ記録日 : 2008/3/11 ユーザー名 : acmr ' ' Sheets("元データ入力").Select 上 = 3 左 = 1 下 = Range(Cells(上, 左), Cells(上, 左)).End(xlDown).Row 右 = Range(Cells(上, 左), Cells(上, 左)).End(xlToRight).Column Range(Cells(上, 左), Cells(下, 右)).Select Selection.Sort Key1:=Range("B4"), Order1:=xlAscending, Header:=xlGuess, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod _ :=xlPinYin Charts.Add ActiveChart.ChartType = xlXYScatter ActiveChart.SetSourceData Source:=Sheets("元データ入力").Range("A3:C459"), PlotBy _ :=xlColumns ActiveChart.SeriesCollection(1).Delete ActiveChart.SeriesCollection(1).XValues = "=元データ入力!R4C2:R459C2" ActiveChart.SeriesCollection(1).Name = "" ActiveChart.Location Where:=xlLocationAsObject, Name:="元データ入力" ActiveChart.HasLegend = False End Sub

オートフィルタは２つまでしか条件が設定できません。 ３つ以上設定する方法はないでしょうか？（OR条件です） オートフィルタの引数（Criteria）は２つしかありませんから、恐らく３つ以上の設定はできないと思っています。 そこで、オートフィルタを複数回設定し、使っていない列に特定の文字（例えば○など）を入れ、最後にこの○を条件にすることにより、実質的に３つ以上条件のフィルタリングを実現させたいと考えております。 そこでお聞きしたいのは、各条件でフィルタリングした時に、任意の列に○を入れる方法です。 例えば myRng.AutoFilter Field:=4, Criteria1:="=?UA*" でフィルタリングしたエリアの特定の列に○を入れるにはどのようなVBAになるのでしょうか？ オートフィルタを使わず、ループで全行の条件を聞いて、○をつけることは可能ですが、行数が非常に多いので時間がかかってしまいます。 オートフィルタを使えばすばやく該当行が選択されますので、何とかこれを利用したいと思っています。何か良い方法は無いでしょうか？ よろしくお願いします。

オートフィルタは２つまでしか条件が設定できません。 ３つ以上設定する方法はないでしょうか？（OR条件です） オートフィルタの引数（Criteria）は２つしかありませんから、恐らく３つ以上の設定はできないと思っています。 そこで、オートフィルタを複数回設定し、使っていない列に特定の文字（例えば○など）を入れ、最後にこの○を条件にすることにより、実質的に３つ以上条件のフィルタリングを実現させたいと考えております。 そこでお聞きしたいのは、各条件でフィルタリングした時に、任意の列に○を入れる方法です。 例えば myRng.AutoFilter Field:=4, Criteria1:="=?UA*" でフィルタリングしたエリアの特定の列に○を入れるにはどのようなVBAになるのでしょうか？ オートフィルタを使わず、ループで全行の条件を聞いて、○をつけることは可能ですが、行数が非常に多いので時間がかかってしまいます。 オートフィルタを使えばすばやく該当行が選択されますので、何とかこれを利用したいと思っています。何か良い方法は無いでしょうか？ よろしくお願いします。

お世話になっています。 UserFormに日付を入力したら、シート1に入力してあるデータをシート2にコピーをさせたいのですが出来ますでしょうか？ シート1には、下記のようなデータがあります。 UserFormを作成し、その中には【TextBox】・【CommandButton】があり【TextBox】に日付を入力し【CommandButton】をクリックすると、シート2にそのデータがコピーされるようにしたいのですが・・・ （ちなみに、日付はバラバラに入っています） シート1 　 A　　　B　　　　　　C　　　　　D　　　　E ・ ・ ・ 7 No.　　　日付　　　　商品名　　　　金額　　　仕入先 8 1　　2008/03/10　　　○○○ 9 2　　2008/03/10　　　○○○ 10 3　　2008/03/14　　　○○○ 11 4　　2008/03/13　　　○○○ 12 5　　2008/03/12　　　○○○ 13 6　　2008/03/11　　　○○○ 14 7　　2008/03/12　　　○○○ 15 8　　2008/03/13　　　○○○ ・ ・　　　・ ・ ・　　　・ ・ ・　　　・ 2008/03/12を入力した場合、 シート2 　 A　　　B　　　　　　C　　　　　D　　　　E ・ ・ ・ 7　　　日付　　　　商品名　　　　金額　　　仕入先 8　　2008/03/12　　　○○○ 9　　2008/03/12　　　○○○ 10 11 12 13 14 15 ・ ・　　　・ ・ ・　　　・ ・ ・　　　・

エクセルでグラフの作成をしようと試みたところデータ数が 10000程あったため途中までのデータしかグラフ化されません。 そこで、データを10あるいは100行おきに間引きをしてグラフの作成を行いたいのですが、エクセル上で簡単にこのような操作を行うためにはどのようにすればよいのでしょうか？ 宜しくお願い致します。

以下の４項目のデータが入っているファイルがあります。 「名前」「日付」「費目」「金額」 ex) Ａ子　○月×日　食費　100円 Ｂ子　△月×日　交通費　200円 ・・・ ＜条件＞ ・「名前」は複数ある ・「日付」はひと月分ずつ別シートになっている ・「費目」は「食費」と「交通費」だけ ・「金額」はまちまち このデータをもとにして、以下のような表形式に転記し、印刷をするにはどうすればよいでしょうか。 Ａ子 日付　　　費目１　　金額　　　費目２　　　金額 ○月１日　食費　　　100円 ○月２日　　　　　　　　　　　　　交通費　　　100円 ○月３日 ○月４日 ○月５日　食費　　　100円　　　交通費　　　300円 ・・・ ○月３１日 合計　　　　　　　　　　200円　　　　　　　　　400円 Ｂ子 上記同様 ・・・ ＜条件＞ ・名前毎に別の紙に印刷をする ・食費と交通費は別の列にして、一番下の行で各々の合計をとる ・１日から末日までひと月全ての日付を左端に入れ、ひと月を一枚とする（金額が発生していない日は空欄となる） 簡単なマクロなら使ったことがあるのですが、はたしてこのような処理をするのは可能でしょうか・・・。 どなたかお分かりになる方がいらっしゃいましたら、お教え頂ければと存じます。

いままでのパソコンが壊れたため新しくパソコンを買い換えました。「やりくり上手」の今までのデータの移行はどうすればよいのでしょうか？尚、従来のパソコンのハードディスクは壊れていません。

いままでのパソコンが壊れたため新しくパソコンを買い換えました。「やりくり上手」の今までのデータの移行はどうすればよいのでしょうか？尚、従来のパソコンのハードディスクは壊れていません。

もう一度整理しなおしました。 以下のような、年月ごとの表が、一つのシートの中に縦横にたくさん並んでいます。フォーマットは全て同じです。 これを別シートに、年月を入力して該当月のデータを表ごと表示するようにしたいのです。 色々調べてみてもなかなかわかりません。 よろしくお願いいたします。 ＜以下表の例＞ 2005,1 Elements ICP XRD Manual Estim Pond Total Cu 12 23 12 12 12 71 Au 1.2 6 1.2 1.2 1.2 10.8 Ag 1.4 7 1.4 1.4 1.4 12.6 Pt 1.23 1 1.23 1.23 1.23 5.92 C 4.17 1 4.17 4.17 4.17 17.68 Total 20 38 20 20 20 118