n-jun の回答履歴

仕事でアクセスから二つのファイルを操作したいです。 アクセスのテーブルから新規excel（BOOK１）にデータを抽出し、 そのデータを既存のデータが入っているexcel（BOOK２）にコピーしたいです。 どうしてもコピーメソッドのRANGEクラスのところで「アプリケーションの定義エラー」 なってしまいます。 BOOK１のデータをBOOK２の新規シートにコピー、BOOK１とBOOK2のデータ行を 数える、のは試しやってできたので、 二つのファイル操作は出来ていて、RANGEクラスのところで既存シートにコピーする部分が 出来ていないんだと思います。 基本操作だと思いますが困っています。よろしくお願いします。

仕事でアクセスから二つのファイルを操作したいです。 アクセスのテーブルから新規excel（BOOK１）にデータを抽出し、 そのデータを既存のデータが入っているexcel（BOOK２）にコピーしたいです。 どうしてもコピーメソッドのRANGEクラスのところで「アプリケーションの定義エラー」 なってしまいます。 BOOK１のデータをBOOK２の新規シートにコピー、BOOK１とBOOK2のデータ行を 数える、のは試しやってできたので、 二つのファイル操作は出来ていて、RANGEクラスのところで既存シートにコピーする部分が 出来ていないんだと思います。 基本操作だと思いますが困っています。よろしくお願いします。

仕事でアクセスから二つのファイルを操作したいです。 アクセスのテーブルから新規excel（BOOK１）にデータを抽出し、 そのデータを既存のデータが入っているexcel（BOOK２）にコピーしたいです。 どうしてもコピーメソッドのRANGEクラスのところで「アプリケーションの定義エラー」 なってしまいます。 BOOK１のデータをBOOK２の新規シートにコピー、BOOK１とBOOK2のデータ行を 数える、のは試しやってできたので、 二つのファイル操作は出来ていて、RANGEクラスのところで既存シートにコピーする部分が 出来ていないんだと思います。 基本操作だと思いますが困っています。よろしくお願いします。

ExcelVBAで書かれているプログラムをVB(VisualBasic)に書き直していますが、 VBAのコードの中で、別ファイルから任意の数式(例えば「=3600/60+5000」など)を読み込んで、Evaluate()という関数でこの演算結果を取得している部分があるのですが、VBAのEvaluate()の部分をVBで記述することは可能でしょうか。 よろしくお願いします。

ExcelVBAで書かれているプログラムをVB(VisualBasic)に書き直していますが、 VBAのコードの中で、別ファイルから任意の数式(例えば「=3600/60+5000」など)を読み込んで、Evaluate()という関数でこの演算結果を取得している部分があるのですが、VBAのEvaluate()の部分をVBで記述することは可能でしょうか。 よろしくお願いします。

WindowXP Excel2007(2010でもいいです)環境です。 エクセルマクロについてまったく初心者で、すみませんが、お助けください。 業務用ソフトの日計表のデータを、マクロでエクセルに貼り付けて消費税の計算表を作ろうと思っています。 日計表の１行分（１０列）は貼付けることができました。 しかし、２行目(（７行ほど貼り付けたい）は、作成しても１行目のデータと同じになっています。 ちなみに、エクセルのほかのシートから計算したいシートには複数の行を貼り付けることができて、ボタンも作成し、連続実行も可能でした。 同じ作業をしても、業務用ソフトの日計表からはうまくできません。 たぶん、プログラム内が、Ａｃｔｉｖｅ・・Ｐａｓｔｅ になってて、具体的な指定ができていないせいだと思うのですが。。 日計表画面は、ＣＴＲＬで複数選択ができず、常にひとつの行のみActive（選択されている）状態になります。 日計表画面はタイトルはなく、セル数値などの表示もなく、どのように全体を指定できるのかわかりません。 情報が足りないかもしれませんが、７行の数字をどうやって、エクセルに連続実行できるのか、ご教授ください。 提示必要な情報が何かありますでしょうか。

筆まめ製品の購入を考えているのですが、 購入前に詳しいことを筆まめ会社に聞いてみたいのですが、 筆まめはメールでの質問は出来ないのでしょうか？ 「ご購入前のお問い合わせ先」 http://fudemame-guide.com/support/product/fude22/faq/pre/ の下の方に メールでのお問い合わせ先はあるのですが、 メールフォームを開くと 「MyCreoID」「MyCreoパスワード」が必要ですとなります。 ご存知の方、みえましたら教えて下さい。 よろしくお願い致します。

SONY VAIO(VPCJ1)のデスクトップパソコンを 約１年半前に購入し使用しています！！ ２週間ほど前から、パソコンの起動１～２時間後 急に冷却ファンが回りだすようになりました。 インターネットをしているときというよりは、 パソコンでテレビを見ているときに動き出すため 冷却ファンの音が結構気になります・・・ 購入してから今まで冷却ファンが回ることなどなかったのに どうして急に回るようになってしまったのでしょうか？ スリープやシャットダウンするといったん冷却ファンは止まりますが、 またしばらくすると回り始めます。 急に電源が切れることも。 何か対処方法はありますか？

ExcelVBAで書かれているプログラムをVB(VisualBasic)に書き直していますが、 VBAのコードの中で、別ファイルから任意の数式(例えば「=3600/60+5000」など)を読み込んで、Evaluate()という関数でこの演算結果を取得している部分があるのですが、VBAのEvaluate()の部分をVBで記述することは可能でしょうか。 よろしくお願いします。

ExcelVBAで書かれているプログラムをVB(VisualBasic)に書き直していますが、 VBAのコードの中で、別ファイルから任意の数式(例えば「=3600/60+5000」など)を読み込んで、Evaluate()という関数でこの演算結果を取得している部分があるのですが、VBAのEvaluate()の部分をVBで記述することは可能でしょうか。 よろしくお願いします。

ExcelVBAで書かれているプログラムをVB(VisualBasic)に書き直していますが、 VBAのコードの中で、別ファイルから任意の数式(例えば「=3600/60+5000」など)を読み込んで、Evaluate()という関数でこの演算結果を取得している部分があるのですが、VBAのEvaluate()の部分をVBで記述することは可能でしょうか。 よろしくお願いします。

SONY VAIO(VPCJ1)のデスクトップパソコンを 約１年半前に購入し使用しています！！ ２週間ほど前から、パソコンの起動１～２時間後 急に冷却ファンが回りだすようになりました。 インターネットをしているときというよりは、 パソコンでテレビを見ているときに動き出すため 冷却ファンの音が結構気になります・・・ 購入してから今まで冷却ファンが回ることなどなかったのに どうして急に回るようになってしまったのでしょうか？ スリープやシャットダウンするといったん冷却ファンは止まりますが、 またしばらくすると回り始めます。 急に電源が切れることも。 何か対処方法はありますか？

オープンしているWORDファイルで使用されているフォント名とサイズを全て一覧表示するＶＢＡを希望しています。　次のような表示が欲しいのですが、よろしくお願いします。 MSP ゴシック　10 MSP ゴシック　12 Arial 14 Times New Roman 10 ---------------------------- この質問に対してn-jun さんより以下のご回答を頂きました。サンプルを作りテストしたところWOOD2007で希望通りの結果が得られましたのでベストアンサーとさせてもらいました。　しかし、その後大きなWORDファイルに適用したところ、結果が表示されません。　エラーがでれば問題解決につながるのでしょうが、何らエラーメッセージが出ません。　ご指導いただければありがたいです。 -------------------------------- Ｗｏｒｄ２００２で検証しました。。。 Sub try() Dim myDic As Object Dim v, vv Dim i As Integer Set myDic = CreateObject("Scripting.Dictionary") i = 0 ReDim vv(i) For Each v In ActiveDocument.Range.Characters If Len(v) > 0 Then If Not myDic.Exists(v.Font.Name & " " & v.Font.Size) Then myDic(v.Font.Name & " " & v.Font.Size) = "" vv(i) = v.Font.Name & " " & v.Font.Size i = i + 1: ReDim Preserve vv(i) End If End If Next MsgBox Join(vv, vbCrLf) Set myDic = Nothing End Sub

オープンしているWORDファイルで使用されているフォント名とサイズを全て一覧表示するＶＢＡを希望しています。　次のような表示が欲しいのですが、よろしくお願いします。 MSP ゴシック　10 MSP ゴシック　12 Arial 14 Times New Roman 10 ---------------------------- この質問に対してn-jun さんより以下のご回答を頂きました。サンプルを作りテストしたところWOOD2007で希望通りの結果が得られましたのでベストアンサーとさせてもらいました。　しかし、その後大きなWORDファイルに適用したところ、結果が表示されません。　エラーがでれば問題解決につながるのでしょうが、何らエラーメッセージが出ません。　ご指導いただければありがたいです。 -------------------------------- Ｗｏｒｄ２００２で検証しました。。。 Sub try() Dim myDic As Object Dim v, vv Dim i As Integer Set myDic = CreateObject("Scripting.Dictionary") i = 0 ReDim vv(i) For Each v In ActiveDocument.Range.Characters If Len(v) > 0 Then If Not myDic.Exists(v.Font.Name & " " & v.Font.Size) Then myDic(v.Font.Name & " " & v.Font.Size) = "" vv(i) = v.Font.Name & " " & v.Font.Size i = i + 1: ReDim Preserve vv(i) End If End If Next MsgBox Join(vv, vbCrLf) Set myDic = Nothing End Sub

ＶＢＡで作成したユーザーフォーム上のテキストボックス内のテキストを　カット　アンド　ペースト　が出来るようにしたいのですが方法が有るのでしょうか？ Ｗｏｒｄ　や　Ｅｘｃｅｌ　の様に　出来ると便利になるのですが どなたか　ご教示くださればと思います。宜しくお願いします。

Excel for Mac 2011を使用しています。 VBAを利用し、ユーザーフォームにて日付を入力する項目を 設けようと考えているのですが、 カレンダーコントロールまたはDTPickerが見当たりません。 所持しているWindows用の書籍によると [ツール]-[その他のコントロール]にてコントロールの追加ができるとありますが、 そもそも[ツール]内に[その他のコントロール]が見当たりません。 そもそも存在しないのでしょうか？？ どなたかご存じでしたら回答をいただければと思います。 宜しくお願い致します。

ＶＢＡで作成したユーザーフォーム上のテキストボックス内のテキストを　カット　アンド　ペースト　が出来るようにしたいのですが方法が有るのでしょうか？ Ｗｏｒｄ　や　Ｅｘｃｅｌ　の様に　出来ると便利になるのですが どなたか　ご教示くださればと思います。宜しくお願いします。

オープンしているWORDファイルで使用されているフォント名とサイズを全て一覧表示するＶＢＡを希望しています。　次のような表示が欲しいのですが、よろしくお願いします。 MSP ゴシック　10 MSP ゴシック　12 Arial 14 Times New Roman 10

ＶＢＡ初心者です。ユーザーフォームを作成しシート上に一覧表示をできるように作成しました。（本を見ながらとこちらで質問等させて頂きやっとできました） なので、次にｓｈｅｅｔ1に一覧表示を作成しているので、ｓｈｅｅｔ2に個別表示の仕方はどうしたらよいか教えて頂きたいです。一人の人の情報量が多く、一人分の資料もほしいのですが・・ユーザーフォームから入力後に一覧と個別とにするのはどうすれば初心者でもできますか？ 質問も下手なのでわかりにくいかもしれませんが、教えて頂けたらと思います。

添付画像左のように、A列に１～４、4(1）～(3)までナンバーが記入されており、B列C列には数値が含まれているとき、（　）が存在している場合のみ（　）が存在しないナンバー（例の場合は４）のB列C列に（　）があるナンバー（例の場合(1)～(3)）の合計を添付画像右がわのように表示させたいとき、どのようなマクロを組めばできますでしょうか。 全てお願いしてしまいますと、コードも長くなってくるのではないかと思われますので、画像では入力シートから表示シートに切り替わっているということですが、入力シートの空白セルへの表示でもかまいません。 （　）つきナンバーのB～後の値を（　）なしナンバーのB～後に合計できる方法をお教え頂ければ幸いです。