ベストアンサー

エクセルマクロで外部ファイルを開きたい

2010/08/23 09:28

DOUGLAS_の回答

DOUGLAS_
ベストアンサー率74% (397/534)

2010/08/28 20:08 回答No.10

　それでは、もともとの「前回の分のQ&AはNo7の記述」ではなくて「noro6857 さんのお手許にあるコード」について説明をさせていただきます。　ヤリタイことができればよいようなものですが、この際、Excel VBA のお勉強だと思ってお付き合いくださいね。　最初にお断りしておきますが、今回も回答を３つに分割しております。 -------------------------------- 　先ず、最初にコードの一番最後にあるべき End Sub が抜けているようですが、一番最後に入っていますよね。 -------------------------------- １）最初に、[Sub ステートメント] で [Sub プロシージャ] を宣言します。　何のことかさっぱりお分かりにならなくても結構です。　ここから、「End Sub」までが、１括りのマクロだとぐらいに思っていただければ結構です。＞Sub Macro1() ＞' ＞' Macro1 Macro ＞' マクロ記録日 : 2010/2/9 ユーザー名 : QDELLSP２＞' 　「'」で始まる行はコメントですので、「Sub Macro1()」の次の４行は削除しても構いません。 -------------------------------- ２）変数・定数などを宣言します。　こちらも、初心者の内は、お分かりにならなくて結構です。＞Dim buf As String, buf2 As String, CB As New DataObject ＞Dim rng As Range 'データセル範囲＞Dim c As Range 'データセル＞Dim n As Integer 'データセル範囲の列数＞Dim i As Integer 'ループカウンター＞Dim x As Integer 'オフセット量 -------------------------------- ３）最終的に、「AA1:AA500」にデータを書き出しますので、予め、この範囲のデータをクリアしておきます。＞'//旧抽出データ消去＞Range("AA1:AA500").ClearContents -------------------------------- ４）「A:R」列内にある「アクティブセルを含むグループ」を編集対象とするため、先ず、「A:R」列外がアクティブセルになっている場合は、即時、マクロを中止します。＞'//選択セルが対象列範囲外なら中止＞If Intersect(ActiveCell, Columns("A:R")) Is Nothing Then Exit Sub 　ということで、ここのコードは「Columns("A:R")」でなくて、「Columns("M:R")」でもよいのかも知れませんが、上記の意味をよくお考えいただいてお決めください。 -------------------------------- ５）当該グループのセル範囲を Range オブジェクト「rng」に格納します。＞'//データ表示数式セル範囲の取得（エラー表示セルは除外）＞Set rng = Range("M" & ActiveCell.Row, "R" & ActiveCell.End(xlDown).Row) ＞Set rng = rng.SpecialCells(xlCellTypeFormulas, 7) 　１行目のコードは、『アクティブセルと同じ行にあるＭ列のセル』と『アクティブセルで [Ctrl] + [↓] を押下したときに移動するセルと同じ行にあるＲ列のセル』とによって囲まれた範囲を「rng」にセットしています。　２行目のコードは、「rng」という範囲の中で、『[編集(E)] - [ジャンプ(G)...] = [ジャンプ] ダイアログ - [セル範囲(S)...] = [選択オプション] ダイアログ - [選択] セクションの中から [数式(F)] の中の [数値(U)]・[文字(X)]・[論理値(E)] にチェックを付けて、[OK] すると得られるセル範囲』を選択しています。

質問者

お礼 2010/08/28 22:09

【質問１】空白行は、実態上収集する必要はありません。ただしエラーセルは単一セルに発生することもあり得るので収集しないと、列ごとの行数が不一致になってしまうため収集が必要かもしれません。行単位のエラーは、下記関数等により空白に置き換えています。【質問２】その都度集計前作業として手動で算式削除をしています。というのも最終行がデータであっても不要なものは削除するため、これはその都度見て判断しなくてはなりません。【質問３】下記関数式参照（空白行にするため、内容判断の上L列のセルを手動削除。）【質問４】下記関数式参照(R列) 【質問５】下記関数式参照(B1)およびR3 【質問６】【質問７】下記関数式参照(R3) 関数式は長くなるため若干関連セルを省略してありますが最低限の部分でご紹介します。 ●A1（元データ） 08月01日(日) により文字列でB1に「100801」と表示します。 ●B1 ="10"&LEFT(A1,2)&MID(A1,((FIND("月",A1,1)-1)+1)+1,2) ●E3（時間をふたけたにするための調整） =IF(ISERR(FIXED(VALUE(LEFT(A3,(FIND(":",ASC(A3),1)-1))),0,TRUE)),#REF!,IF((FIND(":",ASC(A3),1)-1)<2,"0","")&FIXED(VALUE(LEFT(A3,(FIND(":",ASC(A3),1)-1))),0,TRUE)) ●F3（時間を付します）E3がひとけただったら0を追加して二桁にとたうえでB1に付加 =$B$1&IF(LEN(E3)=1,"0"&E3,E3) 注A3には元データのうちタイトル部分の００：００／○○○ という文字列が入ります。（各グループの先頭行に相当します・R3参照）００：００は時間を意味し、0～9までは頭に0がつくように二桁にしています。本来はEとFはひとつにできますが、目的がわからなくなるのを恐れて分割して作っていたためそのままにしておきました。 ■記号は各列適当に■だけ表示する列もありますが、R列だけはグループの１行めということで■をつけず ●R3 =IF(K3="A","MB"&F3&"="&A3,IF(K3="","",FIXED(L3,0,TRUE)&"."&Q3)) となり具体的には「MB10080100+A3の文字」になります。あとでA3の文字の部分を書き換えるのですが、これはまったく不揃いでマクロでルールはしにくいかと思います。（グループの内容を見ながら自己判断するため）各列ともそうですが、K3には１連の番号をふたけたに揃えて表示します ●K3の関数 =IF(ISERR((FIND("：",A3,1)-1)),IF(L3="","",IF(L3<10,"0",""))&IF(L3="","",FIXED(L3,0,TRUE)),"A") ●L3は連続番号 =IF(L2+L3=0,1+L1,1+L3) エラーの出る行（元データの空欄の行)や、グループ間の不要な行は L列を手動すると、K列の値が消えることで、空白行に置き換えています。そのままだとエラー表示される行です。これもデータの内容から判断するため特に不要と思われる行などはルールしにくい性質です。したがって集計前に手動で仕切っています。 M3/=IF(K3="A","■5"&F3,IF(K3="","",TRIM(RIGHT(LEFT(H3,(FIND("／",H3,1)-1)),LEN(LEFT(H3,(FIND("／",H3,1)-1))))))) N3/=IF(K3="A","■6",IF(K3="","",IF(ISERR(REPLACE(T3,((FIND(" ",T3,1)-1))+1,1,"")),T3,REPLACE(T3,((FIND(" ",T3,1)-1))+1,1,"")))) O3/=IF(K3="A","■4",IF(K3="","",+F3&"-"&K3&"-"&Q3)) P3/=IF(K3="A","■3",IF(K3="","",+R3&"-"&F3)) Q3/=IF(K3="A","■2",IF(K3="","",TRIM(M3)&"("&N3&")")) K3/=IF(ISERR((FIND("：",A3,1)-1)),IF(L3="","",IF(L3<10,"0",""))&IF(L3="","",FIXED(L3,0,TRUE)),"A") これらの途中列セルは合体もできるのですが、あとでわかりやすいように分割してあるものです。