VBAワールド

VBAワールドは、Excel VBAおよびVBAに関する情報交換や会議を行うための専用ボード（掲示板）です。
ご利用案内はこちらです。書き込みはここです。気軽に書き込んでください!!

過去の掲示 1997年最新

お騒がせ致しました発見しました。Excel97上で、SortやProtectなどが失敗する例 ActiveXを使用した場合に起こります。回避方法該当メソッドの直前に、ActveCell.Activateを追加し、フォーカスを一旦ワークシートに移動(強制認識)すると解決します。　　　それでは! ＶＢＡファンのメールお待ちします
S.T <gokohs@justnet.ne.jp>
東京都, - Tuesday, December 15, 1998 at 01:14:18 (JST)

Access97でActiveXのコモンダイアログボックスを使う時、バージョンはよくマシンによって異なっていて、複数のマシンに作成したアプリをインストールすると動く時と、エラーで動かない場合があります。これの回避法はないでしょうか。
osore <osore@hi-ho.ne.jp>
kagosima, - Saturday, December 12, 1998 at 01:41:14 (JST)

立て続けで恐縮です。MicroSoft社のテクニカルサポートに問い合わせを投じて憤慨しています。有料なんですよ! （一定期間経過後）。でも、こんな素晴らしい「部屋」を創っていただいた方に感謝感激。みんなでもっと利用しましょうよ。VBAってめちゃんこ面白いですね。 C++には手が届かないけど、VBAの可能性ってそんなに浅くはなさそう。(MSに一大事が起こらない限りは)　でも、ＶＢよりもVBAは動作が不安定な気がします。この「部屋」にめぐり合えた事が、それを解決してくれると、みんなが幸せになるんですよね。　新参者です宜しく
S.Terada <休止中>
東京都, - Thursday, November 05, 1998 at 00:27:36 (JST)

WorkBook及びSheetのProtectメソッドにPassWordを指定すると、失敗するケースがあります。成功する場合と失敗する場合の違いが解りません。どなたかわかる方いらっしゃいますか使用例　ActiveWorkBook.Protect PassWord:=11111 ActiveWorkSheet.Protect PassWord:=11111 の形式で使用しました。　このページにてご回答頂ける方、お願い致します。1998-11-3　寺田節男

寺田節男
東京都, - Wednesday, November 04, 1998 at 00:45:48 (JST) はじめまして。

現在、英国にいます。こっちにくる間際にEXCEL97に入れ替えたものの、アドインが作れず困り果てております。
EXCEL95VBAのときにあったようなアドインをEXCEL97で作るにはどうすればいいんでしょう。
EXCEL97ではXLA拡張子のファイルはもう作れないんでしょうか?
ご教示お願いします。

Yasushi NAKAMURA <Y.Nakamura@hw.ac.uk>
英国, - Tuesday, November 03, 1998 at 22:58:36 (JST)

こんにちは。私はMACのExcel98を使っているのですが、デバッグしようと思ったら、ウォッチウィンドウやローカルウィンドウが「表示」メニューにありません。これはどういうことでしょう？
マック版にはこれらに変わる物は無いのでしょうか？要は計算中に各変数にどんな値が入っているかがわかれば、いいのですが（ウォッチ式のことですね）。何かいい方法があれば教えて下さい。
それにしても、何で無いのかなぁー。：：
えふかわ <kfurukaw@id.takushoku-u.ac.jp>
東京都, - Monday, November 02, 1998 at 19:18:24 (JST)

Accessで、「クロス集計」の結果をサブフォームに表示していますが、クロス集計結果で項目が増えたり減ったりするたび、フォームデザインを変更していたのでは汎用性がありません。VBAでうまく処理できないものでしょうか。（"Solutions.mdb"にレポートの用例はあったのですが）よい方法があればお教え下さい。
ばしばし <palettes@moon.co.jp>
大阪府, - Monday, November 02, 1998 at 13:00:28 (JST)

Excel VBAで実行中にAddメソッドで追加した、コントロールのイベントを取得するには？
VBA NewFace
東京都, - Friday, October 23, 1998 at 15:32:31 (JST)

はじめまして。ExcelのVBAで何がなんだかわからなくってしまって、ここに書き込みをさせて頂きました。実は、Excel起動時に、VBAでCurDir関数を使用しようとすると、「コンパイルエラー・プロジェクト、またはライブラリが見つかりません」とメッセージが表示されます。実際ライブラリも入っているし、「Visual Basic Application」も参照可能になっています。なのに、このようなメッセージが出る原因を、どなたかご存知ではないでしょうか？もし、ご存知の方がいらっしゃいましたら、ぜひ教えていただきたいのですが。初めてのＵＰで、切羽詰まった書き方をしてしまいましたことをお許しください。
emiko <emiko@inse.co.jp>
東京都, - Monday, October 19, 1998 at 19:05:24 (JST)

はじめまして、藤井と申します。さっそく質問ですが、 ①ExcelVBAファイルをプログラム上で保存する方法 ②特定のセルのみ書き込みを出来なくする方法を教えて下さい。
藤井 <fujii@dis-net.co.jp>
神奈川県, - Monday, October 19, 1998 at 10:58:51 (JST) 下の書き込みの自己フォーローです。
初心者の為、全くわかっていなかっただけでした。
Rangeで指定すればできました。

大変お騒がせしました。
spyderco <spyderco@alles.or.jp>
東京都, - Friday, October 16, 1998 at 18:58:14 (JST)

下の書き込みの追加です。EXCELの挿入-名前-定義等で設定した範囲名の内容を参照したいのですが、VBAでは無理なのでしょうか？
spyderco <spyderco@alles.or.jp>
東京, - Friday, October 16, 1998 at 12:39:53 (JST)

VBAでEXCELの範囲を参照することはできないのでしょうか？ 1-2-3マクロでは簡単なんだけど・・・
spyderco <spyderco@alles.or.jp>
東京, - Friday, October 16, 1998 at 12:21:00 (JST)

VBAでMouseDown,MouseUpイベントが上手く取得できません、なぜ？
VBA Programer
- Thursday, October 15, 1998 at 10:39:17 (JST)

Excel97のVBAを使っています。
サーバー上にあるファイル(WorkBook)を別の人が開いていれば、独自のメッセージを出したいと考えています。
ファイルが開かれているかどうかを知るマクロを教えていただけますでしょうか。

Moriyama <moriyama@nichibun-g.co.jp>
大阪, - Monday, October 12, 1998 at 16:01:17 (JST)

＞Visibleとはどういう意味ですか？ Visible = True で、表示。 Visible = False で、非表示。です。どのアプリでご使用かわかりませんが、Access で説明しますね。（私は、ＶＢＡをＡｃｃｅｓｓでしか使った事が無いので。ちなみに、今仕事でＶＢもやってます。）ｅｘ）貼り付けたコマンドボタンの名前を　MyButton　とした場合、 MyButton.Visible = False と、すると、あら不思議。そのフォームにあったはずのコマンドボタンが消えているではありませんか。・・・といった感じです。おわかり頂けたでしょうか？
田中ちづる <tanaka@utec.co.jp>
山口県, - Sunday, October 11, 1998 at 18:17:56 (JST)

Visibleとはどういう意味ですか？
田中典夫 <tanakan@cocoa.ocn.ne.jp>
新潟県, - Sunday, October 11, 1998 at 11:16:46 (JST)

Access97でDBを複数作成し、それらを統括するMainMenu(Form)を単独DBとして持ち、そのMainMenuから、各DBのMenuをボタンをクリックすることにより起動したいのですが、（要は、Access97のDBから、他のAccess97のDBを起動したいのです・・・。）うまく行きません。実現する手段を教えて下さい・・・（-_-;;)
田中ちづる <tanaka@utec.co.jp>
山口県, - Thursday, September 17, 1998 at 18:26:45 (JST)

指定した複数シートのシート名を連続して変更できる
マクロを作成していますが、下記の点がどうしても解決
できないので、どなたか教えてください。。。

＜質問＞
ダイアログシートで、組み込みダイアログボックスを
表示させるには、どのようにすればよいのでしょうか？

＜詳細＞
マクロを実行すると、指定したシートを対象に、順に
シート名変更の組み込みダイアログボックスを表示
させるようにしました。

ワークシート、モジュール、グラフシートでは、問題なく
表示できるのですが、ダイアログシートがアクティブに
なると、エラーが発生してしまいます。

というわけで、ダイアログシートで組み込みダイアログ
ボックス表示を可能にするには、どのようにすればよい
のか、どなたか教えて下さい。

mimi
- Friday, August 28, 1998 at 14:31:12 (JST)

初めましてぇ
あのですね・・・。
ワードの機能に ”ふりかな”をふるのがありますよね？
あれをマクロで作って自分のプログラムの中に組み込みたいのです。
本体の名前の方は、アクセスデータから持ってきています。
同じようにフリガナの方もアクセスのデータから持ってきたいのです。
そういうのって・・・ご存知の方はいらしゃいますか？
よろしければ・・・メールで教えてください。
是非是非お願いしますぅぅぅぅ

rie <roto@ustechno.co.jp>
大阪, - Friday, August 21, 1998 at 17:49:04 (JST)

エクセルのオートフォームのようなフォームを作りたいのですがマクロの作り方がわからないので誰か教えていただけませんか？検索機能とシート1とシート2に同時に入力していけるフォームが作りたいのですが、難しくてわからないのですが。。。。。
y.k <ps@geocities.co.jp>
三重県, - Thursday, August 20, 1998 at 01:17:17 (JST)

ＶＢＡで統計プログラムを作成しています。
ＣＳＶファイルを今開いているブックのひとつのシートに読み込みたいのですが、
よい方法があれば教えて下さい。
その際、フィールドの区切り・属性も自由に出来れば良いのですが・・
別ブックなら簡単ですな。
有線譲二 <IZU@OCEANICPARK>
横浜, - Sunday, August 16, 1998 at 08:42:14 (JST)

ＹＡＭＡさんこんにちは、ＢＵＭＰＥＲと申します。（かなり前の書き込みなので、見てくれるか不安ですが・・・）シート（ブック）が変わるとボタンが消えるという事ですが（違ったらゴメンナサイ）これはもう無くなってしまうのは仕方が無いので、マクロ実行用のファイルと、実行対象のファイルと分けてはどうでしょうか。こうすれば、同じシートで常に実行する事になるので、ボタンが消える事はありません。それが「や」な場合、アイコンを一つ作ってそこにマクロを登録してはどうでしょうか。こうすれば、ファイルが変わろうが、Ｅｘｃｅｌを再立ち上げしようが、アイコンは残っているのでよいかと。参考まで
ＢＵＭＰＥＲ <ke-mochi@system.hitachi.co.jp>
江戸！, - Monday, August 03, 1998 at 17:17:36 (JST)

はじめまして。こんな素晴らしいページがあることに感動しています。
私は今、見積書のようなものを作っているのですが、（詳しい内容については業界特有のものなので、省略します。）
元のファイルに入力したデータを新規ブックを作りそこに複写して保存するようにしています。
そこで、データのやりとりをするのに、元のブックと新規ブックのファイル名を取得したいのですが、
メインプロシャージャの中で最初に元ファイルのファイル名を取得しても、
サブにそのファイル名を受け渡すことがうまく出来ず、元ファイルと新規ブックの間を行き来して
処理をすることが出来ずに困っています。
ちょっとわかりにくいかもしれませんが、ヒントをください。よろしくお願いします。

Dreamer <giblack@bronze.ocn.ne.jp>
島根県, - Monday, July 13, 1998 at 00:10:48 (JST)

はじめまして、どなたか知ってうる方教えて下さい。ＶＢＡでフォ－ムを作りシ－トにコマンドボタンを付けてフォ－ムを呼び出してできるようにしたのですが、プロジェクトが変わるとシートに付けたコマンドボタンがなくなり、ツ－ルからマクロを選び実行しなくてはならないのでが、ファイルを呼び出しても、プロジェクトが変わってもコマンドボタンで作ったフォ－ムを呼び出すのはどうすればいいのか教えて下さい。
YAMA <YAMAMOTO@OEM.CO.JP>
大阪府, - Monday, June 22, 1998 at 14:25:32 (JST)

はじめまして。ご存知の方、いらっしゃいましたら教えて下さい。
Excel5.0(Macintosh版)とExcel95,Excel97が混在する職場で、
ＶＢＡを使ったプログラムをExcel95で作成しました。
レポート管理のプログラムで各自がレポートの題名などを記入
していく内容です。しかし、運用してみると最上位であるExcel97で
ファイルを開いたときに「このファイル形式はサポートされていません」と
ＶＢＡのエラーメッセージが出て開けない場合があるのです。
ヘルプには

あらゆる状況で、すべてのファイル形式でも読み込めるわけではありません。
エラーの原因と対処方法を次に示します。
Visual Basic の以前バージョンで作成したバイナリファイルをロード
しようとしています。
そのファイルを作成した Visual Basic の以前バージョンで
ファイルをロードし、テキスト形式で保存してから、ロードし直します。

と書かれていますが、どういった場合に発生するのか、また回避する方法が
わかりません。
どうか、よろしくお願いします。
松本 <matsumoto@sharp.vip.co.jp>
奈良県, - Friday, June 05, 1998 at 16:06:22 (JST)

はじめまして、 ORACLE（7.2.3)からODBCにてExcel97へデータを貼りつける処理をVBAで実施実施しようとしています。ODBCを起動しODBC画面内のボタンをクリックすると、うまく行きます。そこで、その処理をExcel側にボタンを作成して実行すると、「XLODBC32.DLLの登録に失敗しました」というエラーになります。この処理はExcel5.0ではうまく行っていた処理ですが・・・。
くら <kurahasi@mx7.mesh.ne.jp>
兵庫県, - Friday, June 05, 1998 at 13:53:30 (JST)

三四郎さん、こんにちは。オンラインヘルプで「改ページ」を検索し、さらに「条件を満たしたときに改ページするように設定する」トピックを参照してください。マクロおよびVBの2つの方法が詳しく紹介されています。VBを使用されたことがなければ、前者の方法を選択する方がよいと思います。
ゆうほ <yasuo@uchidas.com>
兵庫県, - Wednesday, June 03, 1998 at 14:08:38 (JST)

当方アクセス９７を使用しております。二つのテーブルがＩＤでリレーションが結ばれていて、１：ｎの関係になってます。それをサブレポートを使って印刷したいのですが、印字時には１：５までしか印字してはいけない、という条件があります。例えば、買い物カゴの中に品物はいくつも入れられるのに、レシートは5製品までしか打ち出せなくて、残りの品物はまたレシートを打ち出さなきゃいけないという条件です。メインレポートの方で制御するのだろうとは思うのですが、、、困ってます。どなたかお知恵をお借りできれば、、と思ってます。宜しくお願いいたします。三四郎
三四郎 <yoshimi_k@hi-ho.ne.jp>
東京都, - Sunday, May 31, 1998 at 22:30:38 (JST)

はじめまして。
現在、Excel95 から Oracle-ODBC ドライバを使用して、Excelシートへ
該当データを貼りつけようとしているのですが、
Order by 句があると、[ODBC 接続エラー] となってしまいます。

- 貼りつけＯＫなＳＱＬ文 -
sQueryString = "SELECT A.CODE_GROUP_MANAG,A.CODE_PARTS,A.CODE_PARTS_SUB,NVL(B.CODE_GENRE,' '),NVL(B.CODE_MODEL,' '),"
sQueryString = sQueryString & " A.CODE_GROUP_PARTS_MEM,A.CODE_ORDER_GROUP,A.RATE_YIELD_PLAN "
sQueryString = sQueryString & " FROM BAT010 A,DPT032 B "
sQueryString = sQueryString & " WHERE (A.CODE_GROUP_MANAG != 'WA' AND A.CODE_PARTS = B.CODE_PARTS(+) AND A.CODE_PARTS_SUB = B.CODE_PARTS_SUB(+)) "

- 貼りつけＮＧになるＳＱＬ文 -
sQueryString = "SELECT A.CODE_GROUP_MANAG,A.CODE_PARTS,A.CODE_PARTS_SUB,NVL(B.CODE_GENRE,' '),NVL(B.CODE_MODEL,' '),"
sQueryString = sQueryString & " A.CODE_GROUP_PARTS_MEM,A.CODE_ORDER_GROUP,A.RATE_YIELD_PLAN "
sQueryString = sQueryString & " FROM BAT010 A,DPT032 B "
sQueryString = sQueryString & " WHERE (A.CODE_GROUP_MANAG != 'WA' AND A.CODE_PARTS = B.CODE_PARTS(+) AND A.CODE_PARTS_SUB = B.CODE_PARTS_SUB(+)) "
sQueryString = sQueryString & " Order by A.CODE_PARTS"

qdf.SQL = sQueryString
Set rst = qdf.OpenRecordset(dbOpenSnapshot, dbForwardOnly) 'dbSQLPassThrough)
iNumberOfRows = Worksheets("Sheet1").[A2].CopyFromRecordset(rst)

どなたか、わかる方教えてください。

はし <hashi@ctbj.canon.co.jp>
- Tuesday, May 26, 1998 at 19:15:09 (JST)

EXECL97-VBAで作成したプログラムですが、[CTRL+S]でセーブするとなぜがＦＤ（フロッピー）にアクセスに行くのです。ActiveWorkbook.Saveでこのような現象にもなります。どなたか教えてください。
梶川 <kajikawa@gw.ohmoto.co.jp>
岡山県, - Tuesday, April 28, 1998 at 18:56:44 (JST)

見目さん
組み込みダイアログボックスで読み込んだファイルの名前を
Dialogオブジェクトから直接知ることはできません。
したがって、ダイアログボックスで［開く］ボタンが押されたとき
すなわち、Showメソッドの戻り値がTrueの時に、読み込んだワークブックの
Nameプロパティでファイル名を取得します。
たとえば、次のようにします。

Sub test()
    If Application.Dialogs(xlDialogOpen).Show = True Then
        MsgBox ActiveWorkbook.Name
    End If
End Sub

富田満 <tomita@tajima.ac.jp>
兵庫県, - Wednesday, April 22, 1998 at 09:16:20 (JST)

はじめまして。
Ｅｘｃｅｌの組み込みダイアログボックスを使って選択された
ファイル名をよみたいのですがうまくいきません。
どのようにすればよろしいのでしょうか？
見目直樹 <kenmoku@cresc.co.jp>
埼玉県, - Friday, April 17, 1998 at 18:14:02 (JST)

ゆうほさん、御回答ありがとうございます。
やはりVBAではできないようですね。
仕方がないので、現在別の手段で対応を進めています。
ちなみに、引数用のテーブルをDB上に作るという方法です（かなりイマイチですが）。

また何かありましたら質問するかもしれませんが、その時はよろしくお願いします。

松井 <m-matsui@dd.iij4u.or.jp>
東京, - Friday, April 17, 1998 at 14:55:27 (JST)

松井さん、はじめまして。少し調べてみましたが、できないようです。

●Visual Basicでは、コマンドラインスイッチで引数を指定できます。

/cmd または /c	[オプション] ダイアログ ボックスの [詳細設定] タブの [コマンド ライン引数] ボックスに argument を記述します。
                このスイッチを指定する場合は、コマンド ラインの最後に指定する必要があります。
argument	プログラムで使われる文字列式。この文字列は、Command 関数によって取得できます。

●しかし、Excelには該当する起動スイッチは見当たりません。

起動時のオプション	入力する文字列
特定のブックを開く	"ブックのパス\ファイル名"
特定のブックを読み取り専用で開く	/r "ブックのパス\ファイル名"
Excel の起動画面および新規ブックが表示されないようにする	/e
作業フォルダを指定する	/p "フォルダのパス\フォルダ名"

ゆうほ <yasuo@uchidas.com>
兵庫県, - Friday, April 17, 1998 at 11:15:11 (JST)

はじめまして。
早速ですが、Excel VBAに関する質問です。
他のAPからExcel VBAを呼ぶ際に、引数を渡したいのですがうまく渡ってくれません。
例．"xxx.xls"というbookに"aaa"という引数を渡す場合．．．

呼び側：
excel xxx.xls aaa
VBA側:
Msgbox( Command() )

とテスト的にやっているのですが、Msgboxには何も表示されません（NULL）。
呼び方が悪いのか、"Command()"の使い方が悪いのでしょうか？
それとも、VBAではこういう事はできないのでしょうか。

どなたか分かる方がいましたら、御教授下さい。
よろしくお願いします。

松井 <m-matsui@dd.iij4u.or.jp>
東京, - Thursday, April 16, 1998 at 18:03:03 (JST)

joeyanさん、はじめまして。VBAを活かすいいアイディアですね。今後ともよろしくお願いします。
UFO <yasuo@uchidas.com>
兵庫県, - Tuesday, March 31, 1998 at 13:21:50 (JST)

始めまして
joeyan（ジョーヤンと呼んでください）です。
excellのためのこんなＨＰがあるなんて感激しました。
このごろＶＢＡを使い出しました。
ＶＢＡを使い出したのは自分で使うぶんにはｅｘｃｅｌｌのワークシート関数だけあればほとんどはどうにかなるのですが、
これを人に使わせようとすると教育が大変で、多少ＶＢＡでそこらへんを作りこんでやれば使ってもらえそうだったからです。
ファイルの保存、印刷、データの呼び出しあたりを自動化してやればということで使いはじめました。
というわけで初登場の手土産代わりにこんなプログラムはいかがでしょうか？


'*********************************


'ワークシートの印刷（色を消して印刷）


'*********************************


Sub print_proc()


    Dim i as Integer


    Dim j As Integer


    Dim ci() As Integer


    Dim prg As Range


    Set prg = Range("Print_Area")


    ReDim ci(prg.Rows.Count, prg.Columns.Count)


    ActiveSheet.Unprotect password:="xxx"


    For i = 1 To prg.Rows.Count


        For j = 1 To prg.Columns.Count


            ci(i, j) = prg.Cells(i, j).Interior.ColorIndex


            prg.Cells(i, j).Interior.ColorIndex = xlNone


        Next j


    Next i


    ActiveSheet.Protect password:="xxx"


    ActiveSheet.PrintOut copies:=1


    ActiveSheet.Unprotect password:="xxx"


    For i = 1 To prg.Rows.Count


        For j = 1 To prg.Columns.Count


            prg.Cells(i, j).Interior.ColorIndex = ci(i, j)


        Next j


    Next i


    ActiveSheet.Protect password:="xxx"


End Sub

まずワークシートを作り計算式をいれて完成させます。
人に使わせるとやっぱり計算式のところにデータを入力したりして壊してしまいます。
それじゃということで当然保護をかけます。
今度は入力するときに入力できるところとできないところがわからんといってきます。
それじゃと保護をかけたところに色をつけてやって「色のついているところは入力出来ませんよ」とします。
カラープリンターなんかがついていると印刷が異常に遅くなったり、目立ってはいけないところが目立ったりします。
そこでこのプログラムを使うと色を消して印刷してくれるのでとっても便利！！

joeyan <joeyan@mvf.biglobe.ne.jp>
福岡県, - Thursday, March 26, 1998 at 16:52:36 (JST)

ENOさん、こんにちは。 Excelのバージョンは5.0でしょうか？私の手元には、Win3.1の環境がないので動作確認はできかねます。また、具体的なコードが書かれていませんので、どのような処理をされているか不明ですが、次の点に留意してください。
●「CTRL+ENDキーを押す」という操作をマクロ記録すると次のコードが得られます。
ActiveCell.SpecialCells(xlLastCell).Select
ところで、SpecialCells(xlLastCell)メソッドでは、ブックを開いてから一度でも使われたセル範囲（xlCellTypeLastCell。使われたセル範囲内の最後のセル。）は有効なままです。このことは、セルを削除しても変わりません。なお、当然のことながら、ブックの[上書き保存]を行なえば新しいセル範囲が有効になりますので、確認してみてください。
UFO <yasuo@uchidas.com>
兵庫県, - Wednesday, March 25, 1998 at 17:42:50 (JST)

複数のファイルを一つにまとめて表を作成するプログラムを作っています。
最初は順調に処理できていたのですが、突然「選択範囲がおおきすぎます。
捜査の結果を元に戻すことができなくなります」とメッセージがでてしまいました。
データの件数を調べたところ、５００件くらいにかならないのですが、張り付先のシートを調べたところ、前回のデータ見た目には削除されているのですが、CTRL+ENDキーを押すとデータのない行へ１７００行あたりに移動してしまいます。
このことが原因かと思うのですが、どう対応したら良いのでしょうか？
シートから１７００行までをクリアや削除をしてみたのですが、変わりません。
今回のプログラムはWindows3.1で使用しています。
ENO <enomoto.h@nis2.nippeitoyama.co.jp>
- Wednesday, March 25, 1998 at 13:05:22 (JST)

お詫びとお知らせ
掲示板システムの不具合により、しばらくの間書き込みができませんでした。この間にご利用頂いた方には、ご迷惑をお掛けしたことをお詫び致します。復旧しましたので、今後ともよろしくお願い致します。
Webmaster <webmaster@uchidas.com>
兵庫県, - Wednesday, March 25, 1998 at 12:47:14 (JST)

だいごろうさん、こんにちは。アクセスのｖｅｒ．2.0の環境が手元にないので、詳細は分かりませんが、カレントレコードを編集可能にする Editメソッドと変更内容を更新するUpdateメソッドを使って、たとえば次のようにすればよいのでは？

…
MyRecSet.Edit                         '編集可能にする
MyRecSet!名前="だいごろう"    'フィールドの内容を変更する
MyRecSet.Update                    '変更内容を更新する
…

なお、マニュアルはなくても、オンラインヘルプは参照できませんか？
UFO <yasuo@uchidas.com>
兵庫県, - Sunday, March 15, 1998 at 10:24:41 (JST)

どなたかウ髟阡札疋丱ぅ皇困韻譴个場りがたいんですが・髟阡:�凾エクセルから,DAOを使用してテキストファイルにウ髟阡札D札垢靴燭い鵑任垢气場実償質�跌聽∵$Bo/">minoru�踉纂?蓿繙就轣蛹寘蜴闥_擎$Bzz.org{aシ迚鈿鴣煽荻煇抦闥韋`商苳纂岱処東京都, - Thursday, March 12, 1998 at 17:54:25 (JST)

アクセスのＶＢＡのことなのですが、、、。ｖｅｒ．2.0で、検索は"ｆｉｎｄｔｅｘｔ"でできるのですが、置換えに対する関数やコマンドがわかりません。御教授いただきたいのですが、、、今は、97で一度作ってそれを2.0で書き直しているので（2.0のマニュアルがないので、、、）一応97でもよいです。－エクセルなら簡単に出来るのに、困ってます。もしくは、アクセスＶＢＡの専用の掲示板があるのなら、そこの場所を教えていただきたいのです。拙い文章で申し訳ございませんが、宜しくお願いいたします。
だいごろう <yoshimi_k@hi-ho.ne.jp>
東京都, - Sunday, March 08, 1998 at 17:49:09 (JST)

UFOさん、ありがとうございました。
質問(3)については、RowSoruceを使って解決できました。
とてもわかりやすいデータで教えて頂けたので、大変勉強になりました。
またわからないことが出来たら質問させて頂きます。
もすきーと <kanda@tic.ne.jp>
東京都, - Saturday, February 28, 1998 at 13:28:24 (JST)

ENOさん、こんにちは。マクロを含むブックを開くときのダイアログボックスの表示ですが、これはマクロ・ウィルスを阻止するための方策ですので、面倒でも毎回確認するしかないでしょう。使用する「人間」に判断が委ねられているわけですから...
UFO <yasuo@uchidas.com>
兵庫県, - Saturday, February 28, 1998 at 10:31:09 (JST)

EXCEL97・VBAでの質問です。 EXCEL97でマクロを含むブックを開くときにダイアログボックスが表示されますよね。いつも使うプログラムを開く度にこのメッセージが出てしまうのは困ります。でも、ダイアログボックスのチェックをハズして、他のブックを開くときにチェックされないのは、また困ります。各社員が使う週報システムをEXCEL97・VBAで作成中です。毎日使うモノなので、あのメッセージは気になります。このような場合はどうやって対応したらよいのでしょうか？アドバイスをお願いします。
ENO <enomoto.h@nis2.nippeitoyama.co.jp>
神奈川県, - Thursday, February 26, 1998 at 16:20:30 (JST)

ENOさん、こんにちは。
次のいずれかを試してみてください。
Call clear_rows (Range(otop.Offset(1, 0), otop.Offset(1, 13)))
または、括弧を外して
clear_rows Range(otop.Offset(1, 0), otop.Offset(1, 13))
この件に関しては、オンラインヘルプの「Callステートメント」の項を参照してください。

VBAに関する以前のバージョンとの変更点は、下記URLを参照してください。
http://www.microsoft.com/japan/support/kb/articles/J028/5/60.htm
UFO <yasuo@uchidas.com>
兵庫県, - Wednesday, February 25, 1998 at 15:45:59 (JST)

先ほど書き込みをしたのですが、改行を入れなかったのでどんなものかわからないですよね。もう一度入れます。 Sub data_stock_init() Dim otop As Object Dim now_sheet As String Set otop = Sheets("week.dat").Range(TMP_SDA_WAT) now_sheet = ActiveSheet.Name Sheets(otop.Worksheet.Name).Activate clear_rows (Range(otop.Offset(1, 0), otop.Offset(1, 13))) EXCEL95では動いていたのですがEXCEL97ではERROR424 [オブジェクトが必要です] とエラーになってしまいました。これから95から97に対応しなければいけないのですが、何かコツとか手順とかあるでしょうか？もうどう進めていいのか分かりません。よろしくお願いします。
ENO <enomoto.h@nis2.nippeitoyama.co.jp>
神奈川県, - Tuesday, February 24, 1998 at 18:51:56 (JST)

Kenzoさん、はじめまして。次のような方法ではどうですか？

sqlstring = "Select * From 商品マスター Where 商品ID  < 0"
connstring = _
    "ODBC;DSN=AccessTest;"
With ActiveSheet.QueryTables.Add(Connection:=connstring, _
        Destination:=Range("B1"), Sql:=sqlstring)
    .Refresh
End With

UFO <yasuo@uchidas.com>
兵庫県, - Tuesday, February 24, 1998 at 13:42:41 (JST)

もすきーとさん、はじめまして。
(1)ユーザーフォームの「Initialize イベント」に次のようなコードを書けばよいと思います。

Private Sub UserForm_Initialize()
    TextBox1.Text = Date
End Sub

(2)たとえば、次のようにしてはどうでしょうか？
TextBox1.Text = Range("A1")
Worksheets("B").Range("A2") = Range("A2")

(3)やりたいことが今一つよく見えません。もう少し具体的に教えてください。

UFO <yasuo@uchidas.com>
兵庫県, - Tuesday, February 24, 1998 at 13:36:35 (JST)

VBAのためのこんなHPがあるなんて感動しました。早速質問です。私はVBAについてはほとんど初心者なんですが、他の人がEXCEL95で作成したVBAを変更していました。変更といっても書いてあるモノを見てちょこちょこ変えただけなんですが。今度そのプログラムをEXCEL97に対応できるように変更しなくてはいけなくなりました。大抵はEXCEL97でも動くとゆうことなんですが、だめなんです。もうどうしたら良いのか……ヘルプなども見たのですが上手く行きません。どなたか良いアドバイスがあればお願いします。 Sub data_stock_init() Dim otop As Object Dim now_sheet As String Set otop = Sheets("week.dat").Range(TMP_SDA_WAT) now_sheet = ActiveSheet.Name Sheets(otop.Worksheet.Name).Activate clear_rows (Range(otop.Offset(1, 0), otop.Offset(1, 13))) Call range_name_set(Range(otop.Offset(0, 0), otop.Offset(0, 13)), TMP_SDA_WAR) この最後の行でエラーとなります。EXCEL95では動いていました。よろしくお願いします。
ENO <enomoto.h@nis2.nippeitoyama.co.jp>
神奈川県, - Tuesday, February 24, 1998 at 09:37:42 (JST)

はじめまして、ＥｘｃｅｌＶＢＡで行き詰まっていたので、利用させて頂きます。ＥｘｃｅｌからＯＤＢＣ経由でＡＣＣＥＳＳデータベースに接続しています。ＡＣＣＥＳＳの指定ＤＢから、テーブル名のリストを取得したいのですが、可能でしょうか？分かる方がいたら教えて下さい。ちなみに、ORACLE1では、”select * from tab;”というＳＥＬＥＣＴ文になります。
Kenzo <kenzo@pfu.co.jp>
東京都, - Saturday, February 21, 1998 at 16:32:54 (JST)

はじめまして。エクセルのVBAを勉強中なのですが、行き詰まったときにこのホームページに出会いましたので、さっそく質問させて頂きます。 (1)ユーザーフォームのテキストボックスに日付を自動入力したい (2)「ワークシートA」のデータをユーザフォームに呼び出し、そのデータを「ワークシートB」に送ったときに、ワークシートAの他のデータもBに送りたい (3)質問(1)で入力した日付を検索して呼び出せるようにしたい以上、よろしくお願いします。
もすきーと <kanda@tic.ne.jp>
東京都, - Thursday, February 19, 1998 at 01:45:28 (JST)

はじめまして。江良亜1004です。ＶＢＡ掲示板があるのを知り驚きつつ感激してます。これからも覗かせていただきたいと思いますのでよろしくお願いします。ところで、直接ＶＢＡに関係のない質問かも知れないのですが、 VBEditerの検索ダイアログに日本語入力すると必ず文字化けするんですが、原因ご存知の方いませんか？
江良亜1004 <shosaku@tka.att.ne.jp>
東京都, - Saturday, February 14, 1998 at 02:53:42 (JST)

```
Yasuo's Home Pageへ戻ります
```