onlyrom の回答履歴

教えてください。 EXCEL2003形式ファイルのVBAに、 Private Sub Workbook_BeforeClose(Cancel As Boolean) ThisWorkbook.Close SaveChanges:=False End Sub を記述してファイルを保存します。(作成は、EXCEL2003で保存します。) (仮にBook1.xlsとします。) このファイル(Book1.xls)をEXCEL2007で開きます。 このとき、別のファイル(仮にBook2.xlsとします。形式は、EXCEL2003です)をEXCEL2007で開きます。 で、Book1.xlsを×ボタンで終了すると、 EXCEL2007が異常終了します。 環境依存でしょうか？ PCの環境に、EXCEL2003とEXCEL2007が混在しています。

教えてください。 EXCEL2003形式ファイルのVBAに、 Private Sub Workbook_BeforeClose(Cancel As Boolean) ThisWorkbook.Close SaveChanges:=False End Sub を記述してファイルを保存します。(作成は、EXCEL2003で保存します。) (仮にBook1.xlsとします。) このファイル(Book1.xls)をEXCEL2007で開きます。 このとき、別のファイル(仮にBook2.xlsとします。形式は、EXCEL2003です)をEXCEL2007で開きます。 で、Book1.xlsを×ボタンで終了すると、 EXCEL2007が異常終了します。 環境依存でしょうか？ PCの環境に、EXCEL2003とEXCEL2007が混在しています。

こんにちは、お世話になります。質問はタイトル通りなのですが、 横文字で文章を作成していて、次に段落した場合に、上下空間が空かないように続けて入力していきたいのですが、どうしても一行ぐらい空きます。自分なりに調べましたがどうしても解決できません。 どうすれば上下隙間なく入力することが出来るのでしょうか。狭い面に多くの文字を記載しなければならないことがあり、どうしても知りたいので、どうぞご教授お願いします。

左右にリストボックスを２つ並べて、左のリストボックスのリストからコマンドボタンを使って右のリストボックスに移すようなダイアログはよく見かけます。エクセルVBAで、実現するには、やはりシートにデータを保存するのでしょうか？また、順番を元通り(ソートされたものではない)にするためには、元のデータのリストを表すセル列を用意しておいて、リストがチェンジするたびに、左側のリストの列と右側のリストの列のセルを整備するしかないのでしょうか？ どなたか、詳しい方いらっしゃいましたらよろしくお願いいたします。

エクセルのデータをワードへ差込印刷はできるのですが、エクセルへ差し込む方法を教えていただきたけますか。 エクセルで作った、学年の試験得点の一覧表があります。 これをエクセルで作った個人票に差し込みたいのです。

http://okwave.jp/qa2799128.html 以前に質問させていただきましたが、未だ解決せずにこちらのカテゴリで質問させていただきました。過去の回答等も検索し、奮闘してみましたが、自分のやりたい事といまいち一致せずうまい具合に完成しなかった為、教えていただけると助かります。 目的は以前質問した内容と変わりません。ただ、回答していただいた方がおっしゃっているように、どのオフィス系ソフトでもかまいませんので (1)同じもので同じ数（又は予定表より多い数）のものは消しこみ。（「済み」の表示などでもかまいません） (2)同じもので予定表より少ない個数だと、「○個不足」などと表示できるようにしたいのです。 もともとの予定表のほうのあるセルに「済」又は「○枚不足」などと表示できればと思っています。 また、予定表は一週間単位で最新のブックで作成していきますし、入荷した伝表を入力するシートは原紙があり、毎日新しいブックに入力していく形になります。 どなたか力を貸してください。宜しくお願いいたします。

あるシステムが吐くcsvファイルの項目の中に改行が入っているものがあります。 例） 01,aaa,bbb（改行）bbb,ccc（改行） 02,ddd,eee,fff（改行） 03,ggg（改行）ggg,hhh,iii（改行） このCSVファイルをエクセルのマクロで読み込んでシートに展開したい のですが、項目中にある改行で別レコードを認識してしまいます。 結果） A B C D ---+---+---+--- 01 aaa bbb　 bbb ccc 02 ddd eee fff 03 ggg ggg hhh iii これを以下のようにしたいのですが・・・ A B C D ---+------+------+---- 01 aaa bbbbbb ccc 02 ddd eee fff 03 gggggg hhh iii どうやればよいでしょうか？ ご教授お願いいたします。

表題の件で、ご質問があります。 excel2003で、VBAのユーザフォームを使っております。 リストボックスが二つあり、左の項目を選択したら右の項目にその選択した値が移動する処理をしたいのですがまったくできません。 ＜処理内容＞ ・リストボックス１の内容 りんご text メロン トマト 上記で、りんごをダブルクリックするとリストボックス１とリストボックス２の内容は以下になります。 ＜選択後結果＞ ・リストボックス1 text メロン トマト ・リストボックス２ りんご このようにダブルクリックしたらりんごは消えてリストボックス２に移動します。 また逆の処理もしたくたとえばこの状態でリストボックス２を選択したらりんごがリストボックス１に戻る。 ＜処理内容＞ ・リストボックス２ りんご ・リストボックス1 text メロン トマト リストボックス２をダブルクリックすると以下のようになります。 ・リストボックス２ ・リストボックス1 りんご text メロン トマト このようになります。 上記二点の処理がしたいと思います。 どなた様か御教授頂けないでしょうか？ お手数お掛けしますが宜しくお願いします。

エクセルでグラフを作成しています。日次の数字と合計の数字はデータテーブルで見せたいのですが、合計の数字はグラフには反映したくありません。(数字が大きくなりますし、必要ないので。) 何か方法はあるのでしょうか。 合計部分はグラフの参照範囲からは外し、テキストボックスを挿入してセルの参照をすればよいのでしょうか。でもテキストボックスはつけられても数式バー「＝」がクリックできません。 よろしくお願いします。 ↑ さきほど質問し、回答を頂いてやってみてできた気になったのですが、よく見てみると合計だけでなく、日次グラフも非表示となってしまっていました。再度質問させて下さい。 よろしくお願いします。 ************* <頂いてやってみた回答> 合計の「データ系列の書式設定」 「軸」タブで第2軸を選択 「パターン」タブの全項目を「なし」に設定 第2軸の「軸の書式設定」 「パターン」タブの全項目を「なし」に設定 グラフのオプション 「ラベル」タブで「値」に設定して合計のラベルの位置を調整

エクセルでグラフを作成しています。日次の数字と合計の数字はデータテーブルで見せたいのですが、合計の数字はグラフには反映したくありません。(数字が大きくなりますし、必要ないので。) 何か方法はあるのでしょうか。 合計部分はグラフの参照範囲からは外し、テキストボックスを挿入してセルの参照をすればよいのでしょうか。でもテキストボックスはつけられても数式バー「＝」がクリックできません。 よろしくお願いします。 ↑ さきほど質問し、回答を頂いてやってみてできた気になったのですが、よく見てみると合計だけでなく、日次グラフも非表示となってしまっていました。再度質問させて下さい。 よろしくお願いします。 ************* <頂いてやってみた回答> 合計の「データ系列の書式設定」 「軸」タブで第2軸を選択 「パターン」タブの全項目を「なし」に設定 第2軸の「軸の書式設定」 「パターン」タブの全項目を「なし」に設定 グラフのオプション 「ラベル」タブで「値」に設定して合計のラベルの位置を調整

エクセルでグラフを作成しています。日次の数字と合計の数字はデータテーブルで見せたいのですが、合計の数字はグラフには反映したくありません。(数字が大きくなりますし、必要ないので。) 何か方法はあるのでしょうか。 合計部分はグラフの参照範囲からは外し、テキストボックスを挿入してセルの参照をすればよいのでしょうか。でもテキストボックスはつけられても数式バー「＝」がクリックできません。 よろしくお願いします。 ↑ さきほど質問し、回答を頂いてやってみてできた気になったのですが、よく見てみると合計だけでなく、日次グラフも非表示となってしまっていました。再度質問させて下さい。 よろしくお願いします。 ************* <頂いてやってみた回答> 合計の「データ系列の書式設定」 「軸」タブで第2軸を選択 「パターン」タブの全項目を「なし」に設定 第2軸の「軸の書式設定」 「パターン」タブの全項目を「なし」に設定 グラフのオプション 「ラベル」タブで「値」に設定して合計のラベルの位置を調整

以下のコードで外部から取得したセル範囲rangeAをresizeを使って 変更しようとしていますが，できません．　どこが間違っているのでしょうか．　よろしくご教示ください． Sub No1autofill(A As String, b As Integer) Dim rangeA As Range, rangeC As Range Dim rowA As Integer, columnA As Integer, rowsC As Integer Set rangeA = Range(A) rowA = rangeA.Row columnA = rangeA.Column rowsC = b - rowA Set rangeC = rangeA.Resize(rowsC + 1, columnA)

以下のコードで外部から取得したセル範囲rangeAをresizeを使って 変更しようとしていますが，できません．　どこが間違っているのでしょうか．　よろしくご教示ください． Sub No1autofill(A As String, b As Integer) Dim rangeA As Range, rangeC As Range Dim rowA As Integer, columnA As Integer, rowsC As Integer Set rangeA = Range(A) rowA = rangeA.Row columnA = rangeA.Column rowsC = b - rowA Set rangeC = rangeA.Resize(rowsC + 1, columnA)

マウスでWorkSheetの任意のセルを選択して、CommandButton1をクリックします。 その際に、選択セルが"(NULL)"かどうかの判定をしたいのですが、 どのように記載したらよいのでしょうか。 If 「　　？　　」= "" Then ・・・・・ EndIf

知人から頂いたエクセルファイルで、あるパラメーターを入力すれば計算結果がセルＭ１に出るといったマクロが組んであるファイルがあります。ちなみに、パラメーター入力はセルへの入力ではなく、メッセージボックスが表示されそこに入力する方法です。 パラメーター量は膨大であるため、何とか効率的に計算結果表を作成したいのですが、何か良い方法はないでしょうか？ 高度なＶＢＡ知識が必要となるようであれば諦めて地道に頑張ります。

下記で文字の「強制全角変換」について質問した者です。 http://oshiete1.goo.ne.jp/qa2737696.html 実際にシートの作成をしていて、範囲も指定して、全角変換できるのですが、 指定範囲外のシートに入力した時にエラーが出るようになりました。 「オブジェクトが必要です（Error424）」 エラー画面が出なくなるためには、どうすれば良いですか？

下記で文字の「強制全角変換」について質問した者です。 http://oshiete1.goo.ne.jp/qa2737696.html 実際にシートの作成をしていて、範囲も指定して、全角変換できるのですが、 指定範囲外のシートに入力した時にエラーが出るようになりました。 「オブジェクトが必要です（Error424）」 エラー画面が出なくなるためには、どうすれば良いですか？

下記で文字の「強制全角変換」について質問した者です。 http://oshiete1.goo.ne.jp/qa2737696.html 実際にシートの作成をしていて、範囲も指定して、全角変換できるのですが、 指定範囲外のシートに入力した時にエラーが出るようになりました。 「オブジェクトが必要です（Error424）」 エラー画面が出なくなるためには、どうすれば良いですか？

エクセル2003を使用しています。 通常現象が現れないのですが 特定のファイルを開くと行名（１～）と列名（Ａ～）に アンダーバーが表示されます。 操作自体はふだんと変わりなく とくにおかしい様子もありません。 これはいったいなんなのでしょうか？

　エクセルでI列に値が入力されていて、その値が変わればMSGBOXを30秒間だけ出すようにしたいが、どうすればいいんでしょうか？MSGBOXの中身は　”BUY""SELL"で 　Private　Sub Worksheet_Change (By Val Target As Range) If Target.Column="I"Then Msgbox"buy""sell" End IF End Sub これでは、表示されません　どう改良するんでしょうか？ あと、30秒間だけ表示させるには、 option explicit public declare function gettickcout lib "kernel132"()As long で証明？して DimStartTime DimNowTime StartTim=GetTickCount MyMsgbox.Show0 DoWhileNowTime-StartTime<3000 NowTime=GetTickCount Do Event Loop Unload My Msgbox End sub だと思うんですが、二つを混ぜてするにはどうするのでしょうか？教えてください