ja7awu の回答履歴

フォルダ(A)の中にエクセルファイルが(a,b)2つあります。aのファイルに下記のマクロを組んで、ボタンにマクロを貼り付けます。マクロでbのファイルを開きたいのですが、ファイルが見つかりませんとなってしまいます。フォルダ(A)は場所を移動して使う予定です。うまく動かなくて困っております。ご教授よろしくお願い致します。 Sub CCC() 　 s_PathCheck 　 Workbooks.Open Filename:=myWBPath & "b.xls" Sheets("P").Select Range("a11").Select End Sub Sub s_PathCheck() Dim n As Variant myWBPath = Workbooks(1).Path myWBName = Workbooks(1).Name n = InStr(myWBName, ".xls") myWBNameF = Left(myWBName, n - 1) End Sub

2009/12/31を　31/Dec/09　と表記させたいのですが dd/???/yyというように 12月をDecにする方法を教えてください。 アクセス2003です。

たとえば、新たにワークシートを挿入し、A1とC3のセルにのみ入力し、他のセルには一度も入力や書式設定をしなかった場合、 MsgBox ActiveSheet.UsedRange.Addressは、当然　$A$1:$C$3　を返しますね。 この場合、仮にD列から右に非表示の列があってもUsedRange.Addressは変わりません。 ところが、4行目以下に非表示行があった場合は何故か非表示行までの範囲がUsedRange.Addressに含まれてしまいます。 仮に上記の入力状態のままで、20行目とF列を非表示にすると、不思議なことに　$A$1:$C$20　が返ってきます。 どうしてUsedRangeの取得では、行と列との非表示の場合の取り扱いが異なるのでしょうか？ （￣∇￣; ？（￣□￣; ？ Σ(￣0￣;)？

たとえば、新たにワークシートを挿入し、A1とC3のセルにのみ入力し、他のセルには一度も入力や書式設定をしなかった場合、 MsgBox ActiveSheet.UsedRange.Addressは、当然　$A$1:$C$3　を返しますね。 この場合、仮にD列から右に非表示の列があってもUsedRange.Addressは変わりません。 ところが、4行目以下に非表示行があった場合は何故か非表示行までの範囲がUsedRange.Addressに含まれてしまいます。 仮に上記の入力状態のままで、20行目とF列を非表示にすると、不思議なことに　$A$1:$C$20　が返ってきます。 どうしてUsedRangeの取得では、行と列との非表示の場合の取り扱いが異なるのでしょうか？ （￣∇￣; ？（￣□￣; ？ Σ(￣0￣;)？

エクセルのマクロでｗｅｂのデータを取り込みたいのですが 2009年3月3日のデータを取る時のアドレスがhttp://…/2009/03/03/….htmlの場合 With ActiveSheet.QueryTables.Add(Connection:= _ "URL;http://…/2009/03/03/….html" となりますが、これをLoopさせて3/2、3/1、2/28、2/27…のデータを取りたいのですが どういう形でLoopさせればよいのでしょう？ 単純にMonthやDayを使うと1～9月や日は一桁になってしまうと思いますけど

以下のようにデータの整理をしたいのですが、関数やマクロで処理できませんか？ 良い方法があれば宜しくご指導お願い致します。 B1とB2が同じなら、C2をD1にコピーして2列を削除 但し、D1が空白で無い場合はE1に E1も空白で無い場合はF1に F1も空白で無い場合はG1に…以下続く… と言うようなものです。 どうぞ宜しくお願い致します。

最近マクロ機能を使い始めた初心者です。 マクロの記録を使い、ちょっとだけVBEで触っています。 以下のような場合、なんと記述すればよいでしょうか？ 詳しい方にはとても簡単だと思われ、お恥ずかしいですが、 教えていただけましたら幸いです。 【実現したい内容】 あるセル範囲を指定している時に、実行すると、 指定していた範囲の行の、A列のみが選択される ※例えばB1:B3、またはC1:C3、またはD1:E3 のをセル範囲を選択している時に、マクロを実行すると いずれの場合もA1:A3を選択する。 表現が分かりにくいでしょうか…？

Ｔｅｘｔｂｏｘや、Ｃｏｍｂｏｂｏｘで、２バイト入力した時に、次のＴｅｘｔｂｏｘや、Ｃｏｍｂｏｂｏｘに移動出来るような制御はありますか？２バイト以上入力出来ないような制御をしたいです。 Private Sub ComboBox1_Change() ComboBox2.SetFocus End Sub も考えたのですが、これだと何バイトでも入力出来るので、宜しくお願いします。

いつもお世話になります。 記録マクロで行った部分です Columns("R:R").Select Selection.Insert Shift:=xlToRight Range("R2").Select ActiveCell.FormulaR1C1 = "=IF((RC[-4]=1),((RIGHT(RC[-1],8)*1)),(IF((RC[-4]>R[-1]C[-4]),(RIGHT(RC[-1],8))-(RIGHT(R[-1]C[-1],8)),(R[-1]C))))" Selection.NumberFormatLocal = "[$-F400]h:mm:ss AM/PM" Selection.AutoFill Destination:=Range("R2:R65536") Range("R2:R65536").Select Columns("R:R").Select Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False これでいきますと、R列全てに対して計算してしまうので 隣が入力されている所までを判断して次の処理に入りたいと思っているのですが、いまいち分からないのです。 どうかよろしくお願いします。

マクロ初心者です。 For文で、変数を２つ定義し、それぞれが１つずつ増えてくれるような マクロを組みたいのですが、うまくいきません。 例えばA列の並んだ数字を、B列に一個とばしで入力するとして・・・ 例） Dim i As Integer Dim j As Integer For j = 2 To 10 Step 2 For i = 1 To 9 Cells(j, 2).Value = Cells(i, 1).Value Next i, j ではだめですよね。iが１つ増える時に、jも１つ増える、 というようにVBAを組むことが可能なのでしょうか？ ど素人な質問ですみませんが、教えてください。

エクセルで食数表を作成しています。 出勤日に○を入力したいのですが ワンクリックで○が表示されてまたクリックすると ○印が消えるような設定はあるのでしょうか？ よろしくお願いいたします。

Excel2007 VBAにてWorksheet_BeforeRightClickを使用しています。 列セル（行セル）の全選択をして、右クリックでセルの書式設定を一括で出来ますが、 BeforeRightClickに引っかかってしまいます。 そこで、セル以外を選択されているかを調べる方法はあるのでしょうか？ Target.Addressも試しました。 これだと、セル以外を選択時「$D:$D」、１つのセル選択時「$D2」などと返って来ます。 前者は数字が含まれていませんので特定のセルではありませんが、 列位置によっては文字数が変わってしまいます。 後者はセルを指定されている時ですが、範囲ではありません。 説明が分かりにくいかも知れませんが、 列セルの全選択時はBeforeRightClickを無視、 １つのセル選択時はセルの行位置を取得、 複数のセル選択時は選択セルの開始行位置を取得したい訳です。 どなたか御存知でしたら教えて下さい。 よろしくお願いします。

Private Sub Worksheet_Change(ByVal Target As Range) 　 If Intersect(Target, Range("A1")) Is Nothing Then Exit Sub 以下マクロの内容 End Sub これでセルＡ1が変わるとイベントマクロが発生しますが セルＢ1が変わると別のマクロが発生し セルＣ1が変わるとまた別のマクロが発生し…とするには どうすればよいのですか 単純に並べて書いたらだめみたいだったんですけど

セルの選択された範囲をＶＢＡで取得する時、選択開始行は「ActiveCell.Row」で取得出来ますが、 選択終了行を取得するプロパティは無いのでしょうか？ 「Selection.Cells.Count」を使用して、選択範囲の行数が返って来るのは分かっています。 問題なのはセルの選択順序です。 セルの範囲選択を上から下方向の場合は問題無いのですが、下から上に選択した場合、 選択開始行より下なのか、上なのかが判断出来ません。 そこで、選択範囲の行数ではなく、選択範囲終了の「行位置」が取得できる方法が無いかと色々調べてみましたが、見つけられませんでした。 どなたか御存知でしたら教えて下さい。

Range("A1").Select Selection.AutoFill Destination:=Range("A1:A11"), Type:=xlFillCopy Range("A1:A11").Select 上記のスクリプトで、 Rangeのところを 隣あった列の最下段まで と、言うような指定はどうすればいいのでしょうか？ B列の最後の行と隣り合ったセルまで、 A1のセルをコピーしたい場合です。

エクセル2003でハイパーリンクのセルからURLアドレスを取得する関数はありますか？ ハイパーリンクを作成する関数は、=HYPERLINK("URLアドレス", "表示名称")で可能ですが、この逆で、"URLアドレス"を取得する関数を探しています。 例えばこのセルが、A1にあったとして、B1に =A1とすると、B1には「表示名名称」が表示されます。 C1に「URLアドレス」を表示させるVBAでなく関数が知りたいです。 無ければ、VBAでも構いません。 よろしくお願いいたします。

エクセル2003を使っています。 以前は、セルのコピーで、右下の黒十字をドラッグするとコピーできたのですが、先日、急に黒十字が出なくなりました。 どうすれば復旧できますか？

エクセルシートにテキストボックスをつけたのですが、エンターキーのみで改行するにはどうしたらいいのでしょうか。通常Ctrl＋Enterで改行となります。 同じくエクセルシートにラベルをつけてスピンボタンでカウントしているのですが、そのラベルの表示（Caption）をエクセルのセル内に表示したいのですが、式の書き方を教えてください。 以上宜しくお願いします。

「WindowsXP」/「Office2003Professional」を使用しています。 一つのフォルダに格納された複数のテキストファイルから、指定した文字列を含んだ行だけをExcelに抽出し、一覧表にする方法を教えて下さい。 各テキストファイルの抽出したい部分は以下のようになっています。(一部抜粋) ------------------ +製造元 *NEC +型番 *ABC-000 +メモリMAX　*512GB +スロット数　*2 +DIMM1 *256 MB *333MHz +DIMM2 *256 MB *333MHz ------------------ 文字の先頭に[+]がついているものが検索文字列で、[*]が抜き出したいデータ部分です。 (実際のテキストでは[+]や[*]は書いてありません。) これをExcelで検索文字列を項目名に指定し、[*]部分を抜き出し全テキストファイルを一覧表にしたいと思っています。(行列反転した表） ------------------ 　　　　Ａ　　　　　　　　Ｂ　　　　Ｃ　　　　Ｄ　　　　　　　Ｅ 　　 　　 F　　　　　Ｇ 1　ファイル名　製造元 　　型番　　メモリMAX　スロット数　　DIMM1 　 DIMM2　… 2　aaa.txt NEC　　　ABC-000　　512MB　　　　 2 256MB 　 256MB 3　bbb.txt FUJITU FMV10 1024MB 2 512MB 　　　　　　　　　　　　　　　・ 　　　　　　　　　　　　　　　・ ------------------ ●テキストファイルの検索文字列とデータの間には半角スペースが入っています。 ●テキストファイルの検索文字列の行位置はファイルごとに異なります。 ●テキストファイルの検索文字列の中にはファイルによっては存在しない文字列もあります。 ●ExcelのA列にはフォルダ内のファイル名が予め全て入力されています。 もしもVBAを使用しなければならない場合は、VBAの知識が無い為、勝手を申しますが詳しくご教示頂けると幸いです。 宜しくお願い致します。

EXCEL でわからない箇所があり質問します。 前提条件 Sheet1 A列：名前 B列：年月 C列：値 データは、名前と年月で一意になるデータシートがあり マスターデータとして全データが登録されている Sheet2 A列：名前 B列：年月 C列：値 ある条件でとあるデータベースから抽出した名前と年月の一覧がある この段階で値のセルには何も入っていない やりたい事 （１）この状態でマクロを実行し、Ａ列、Ｂ列を条件に該当する行から 　　　Ｃ列を抽出しSheet2 にセット （２）Sheet2のＣ列の値を変更後、マクロの実行で 　　　Ａ列、Ｂ列の条件を元該当する行から、Sheet1の Ｃ列に値を更新 （３）もし、Sheet2のＡ列、Ｂ列の条件に該当しない行がある場合、 　　　Sheet1に行追加しＣ列を格納 という事をしたいと考えています。 Sheet1 の全ての行をマクロでループさせて Ａ列、Ｂ列をif分で比較し行を取得し、Sheet2 に張る場合、 遅くなるのであまりやりたくないと思っています Find 関数も考えたのですが、ヘルプを見る限り、条件が１つしか指定でき ないように思えるのですが、複数列の条件を指定できる Find 関数 あるいは、類似の関数とあかがあるのなら教えてください 最悪は、EXCEL ADO で、自分自身をSQLで抽出、Update、Insert を行う 事も考えていますが、 EXCELのセル内の式で、INDEX関数やDGET関数で簡単に抽出できるのに （ただ、値を変更するので式はかけないけど・・・） わざわざ、ADOでプログラムを組むのもどうなんだろうと疑問に思ってます。