sakenomo の回答履歴

Excelにて印刷する場合，フッダ-編集にてさまざまな値を表示できますが，ファイルの「変更日付」をフッダ-に指定することは可能でしょうか？&[日付]や&[時刻]はリアルな日時になってしまいます。エクスプローラのファイルプロパティで参照できる「変更日付」を指定する方法をご存知でしたらご教授下さい。

Excelにて印刷する場合，フッダ-編集にてさまざまな値を表示できますが，ファイルの「変更日付」をフッダ-に指定することは可能でしょうか？&[日付]や&[時刻]はリアルな日時になってしまいます。エクスプローラのファイルプロパティで参照できる「変更日付」を指定する方法をご存知でしたらご教授下さい。

データの集計にExvelを使用しています。 １日に３行データが増えます。 その３行目だけを合計していく方法（数式）は ないでしょうか。 データを追加するだけで、数式は変更せずに、 すべての日の３行目だけの合計がわかるように したいのです。 何かいい方法がないか、お知恵を貸してください。 よろしくお願いします。

EXCEL2000を使っています。 以前EXCEL97で表を作成してオートフィルターをかけたまま 終了し、EXCEL2000で開いて編集しようとしたところオートフィルターの解除をするとアプリケーションエラーが発生し、オートフィルターを解除できなくなってしまいました。 すべて表示を選んでも強制終了がかかってしまいます。 どうにかしてオートフィルターを解除して全てのデータを表示させたいのですが、どうすればいいのでしょうか？ もうもとにもどすことはできないのでしょうか？

いつもお世話になります。 ＷＩＮ９８-ＥＸＣＥＬ２０００での作業です。 ＶＢＡでオートフィルタをかけるところまでは出来たのですが、Ａ列：Ｑ列までの表のうち、Ａ２～Ｋ列の最終行までをコピーしたい場合のコマンドを教えてください。 また、オートフィルタで検索されなかった場合はコピーはしない場合、どうしたらよいのでしょうか？ よろしくお願いします。

暦には、30日月や31日月、28日月　等がありますよね。 例えばですけど、 2003/2/28～2003/4/30　→　”２ヶ月間” 2003/2/28～2003/3/31 →　”１ヶ月間” 2003/6/30～2003/8/31　→　”２ヶ月間” 2003/9/30～2003/12/31 →　”３ヶ月間” と言うように、2・4・6・9・11月の月末日（28or30日) から未来月の月末日が31日であってもその超えた数日分をカウントさせずに期間を計算させる方法はありますか？ 日数じゃなく月そのもので期間計算したいのです。

暦には、30日月や31日月、28日月　等がありますよね。 例えばですけど、 2003/2/28～2003/4/30　→　”２ヶ月間” 2003/2/28～2003/3/31 →　”１ヶ月間” 2003/6/30～2003/8/31　→　”２ヶ月間” 2003/9/30～2003/12/31 →　”３ヶ月間” と言うように、2・4・6・9・11月の月末日（28or30日) から未来月の月末日が31日であってもその超えた数日分をカウントさせずに期間を計算させる方法はありますか？ 日数じゃなく月そのもので期間計算したいのです。

すいません。 以前にもお尋ねしたのですが、解決できないので 再びお尋ねします。 エクセルのＶＢＥで単純にMsgbox"こんにちわ"という ようにメッセージだけを記述したのですがこのダイアログボックスが表示されません。 何か、表示させないようにする設定がエクセルにあるのでしょうか？ というのは、同じ記述で会社のＰＣでは表示されるのに、家のＰＣではできないのです。 どなたかよろしくお願いします。

エクセルＶＢＥの記述で Range("G15").Value=Worksheets("シート名").Range("L7").Valueと記述し、Ｇ15のセルに～名という名前の シートのＬ７のデータを表示するという場合に、これを Ｇ115のセルまでＬ107の値を同様に表示させるようにする （オートフィルということになるんでしょうか？）場合は どのように記述すればいいのでしょうか？ よろしくお願いします。

VBA（エクセル）で教えて下さい。開いていないBOOKのシートを開いているBOOKのシートに貼り付けで、開いているBOOKから開いていないBOOK名を指定したいのですが、 現在開いているエクセルです。 SHEETS(Type)のRANGE（A1）に閉じているBOOK名を入力します。 SHEETS（In）に閉じているBOOKのSHEETSを貼り付けたいのですが、 Ex = Sheets("Type").Range("A1")　　が無いと閉じているEx.xlsを貼り付けます。 このExと言うBOOK以外も多々コピーしたいのですが、どのように書けば良いか分からず、 是非、教えて下さい。 Sub a1() Dim wsSrc As Worksheet, WS As Worksheet Dim PasteR As Range Dim x As Long Sheets("In").Select Cells.Select Selection.Delete Shift:=xlUp Range("A1").Select 'If Worksheets(1).Name = "STEP1" Then ' Worksheets(1).Activate ' Cells.ClearContents ' Else 'Worksheets.Add(Before:=Worksheets(1)).Name = "一覧" 'End If 　　Ex = Sheets("Type").Range("A1") 　　Set wsSrc = ActiveSheet Workbooks.Open "C:\WINDOWS\デスクトップ\test\Ex.xls" For Each WS In Worksheets x = WS.Range("A1").CurrentRegion.Rows.Count If WS.Index = 1 Then Set PasteR = wsSrc.Range("A1") Else Set PasteR = wsSrc.Range("A65536").End(xlUp).Offset(1) End If WS.Range(WS.Cells(1, 1), WS.Cells(x, 44)).Copy PasteR Set PasteR = Nothing Next ActiveWorkbook.Close False Set wsSrc = Nothing End Sub

EXCELで以下のように記述したところ、 「ファイルを置き換えますか」のメッセージの後に 「いいえ」か「キャンセル」を選択すると 「400」というエラーメッセージが表示されます。 「いいえ」か「キャンセル」を選択した場合は、 エラーメッセージを表示させずに、 特定のシートのセルA1にカーソルを移動させたいのですが、可能でしょうか？ ご指導よろしくお願いします。 ＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿ FileA = Application.GetSaveAsFilename( _ InitialFilename:="C:\test.xls", _ fileFilter:="XLSファイル (*.xls), *.xls") ActiveWorkbook.SaveAs Filename:=FileA ＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿

EXCELで以下のように記述したところ、 「ファイルを置き換えますか」のメッセージの後に 「いいえ」か「キャンセル」を選択すると 「400」というエラーメッセージが表示されます。 「いいえ」か「キャンセル」を選択した場合は、 エラーメッセージを表示させずに、 特定のシートのセルA1にカーソルを移動させたいのですが、可能でしょうか？ ご指導よろしくお願いします。 ＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿ FileA = Application.GetSaveAsFilename( _ InitialFilename:="C:\test.xls", _ fileFilter:="XLSファイル (*.xls), *.xls") ActiveWorkbook.SaveAs Filename:=FileA ＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿

エクセルでIRR関数というのがありますよね？ あれはたとえば今いくら投資して、１～ｎ年間いくら儲けたときのｎ年後の内部収益率は？っていう関数だと思うのですが、nが整数のときはそのまま当てはめたらすぐに出ますが、ｎが整数でないとき（例えば３年と半年後とか）のときの求め方がわかりません。 もし、これのだしかたがわかる人がいたら教えてください。お願いします。

XPにてExcel2002を使用しています。 Cですと、 void aaa(double *x ,double (*func)(double)){ } のように関数のポインタを渡すことができると 思うのですが、これと同じことがVBAで できるのでしょうか？

XPにてExcel2002を使用しています。 Cですと、 void aaa(double *x ,double (*func)(double)){ } のように関数のポインタを渡すことができると 思うのですが、これと同じことがVBAで できるのでしょうか？

またお世話になります。 例えば下記のようなデータがあるとします。 　｜Ｂ｜Ｃ｜Ｄ｜Ｅ｜ ---------------------- １｜ａ｜ｂ｜ｃ｜ｅ｜ ---------------------- ２｜ｂ｜ｃ｜ａ｜ｅ｜ ---------------------- ３｜ａ｜ｅ｜ｆ｜ｇ｜ ---------------------- ４｜ｂ｜ｆ｜ｅ｜ａ｜ ---------------------- 　　　　　： 　　　　　： （データは下へ追加されていきます） 上記のデータを行毎に調べて、各値と最も多い組み合わせを調べるにはどうしたらよいでしょうか？ 例えば「ａ」と最も多く組み合わせているのは、「ｅ」となります。 あた「ｂ」と多く組み合わせているのは、「ｅ」となります。 このように各入力値ごとに、最も多く組み合わせているものを抽出するにはどのようにしたら良いでしょうか。 実際には文字ではなく数字を入力しています。 私が考えている方法は、すべての文字に対しての組み合わせ表を作成して、そこから最も多いそれぞれの組み合わせを求めるということですが、これではかなりの量の組み合わせデータを作成しなければならないことになります。 もっと簡単にできる方法はないかと思い、こちらに質問させて頂きました。 とても難しいような気がしますが、アドバイスをよろしく御願いします。 （エクセル98を使用しております。）

　|Ａ|Ｂ|Ｃ|Ｄ| -------------- １|あ|い|う|え| -------------- ２|お|あ|あ|か| -------------- 上記は１行目に左から「あ」「い」「う」「え」が入力されていることを表しています。 この表の中から、一番多く入力されている文字だけを別のセルに抽出させるにはどのようにしたら良いでしょうか。 上記の例を使用すると、A列の５行目（任意のセル）に「あ」と抽出するようにしたいです。 いろいろと調べてみましたが、このように表の中で最も多く入力されている、「文字」または「数字」だけを抽出するという処理方法がみつかりませんでした。 マクロなら可能でしょうか？ このような処理ができる関数もなさそうなので、無理なのかな。 アドバイスを御願い致します。

　|Ａ|Ｂ|Ｃ|Ｄ| -------------- １|あ|い|う|え| -------------- ２|お|あ|あ|か| -------------- 上記は１行目に左から「あ」「い」「う」「え」が入力されていることを表しています。 この表の中から、一番多く入力されている文字だけを別のセルに抽出させるにはどのようにしたら良いでしょうか。 上記の例を使用すると、A列の５行目（任意のセル）に「あ」と抽出するようにしたいです。 いろいろと調べてみましたが、このように表の中で最も多く入力されている、「文字」または「数字」だけを抽出するという処理方法がみつかりませんでした。 マクロなら可能でしょうか？ このような処理ができる関数もなさそうなので、無理なのかな。 アドバイスを御願い致します。

　|Ａ|Ｂ|Ｃ|Ｄ| -------------- １|あ|い|う|え| -------------- ２|お|あ|あ|か| -------------- 上記は１行目に左から「あ」「い」「う」「え」が入力されていることを表しています。 この表の中から、一番多く入力されている文字だけを別のセルに抽出させるにはどのようにしたら良いでしょうか。 上記の例を使用すると、A列の５行目（任意のセル）に「あ」と抽出するようにしたいです。 いろいろと調べてみましたが、このように表の中で最も多く入力されている、「文字」または「数字」だけを抽出するという処理方法がみつかりませんでした。 マクロなら可能でしょうか？ このような処理ができる関数もなさそうなので、無理なのかな。 アドバイスを御願い致します。

A列に入力されている文字列の中にカタカナ（半角,全角含む）が含まれている場合Errorを返す関数ってありますか? 文字列は何文字というのは決まっていません。