VBAワールド

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

過去の掲示 1997年 1998年 1999年 2000 2001 最新

みなさまお世話になります。　ＶＢＡというか、設定の問題だとは思うのですが、エクセル2000の最大列数（今はIVで終わってます）を増やす方法をご存知の方、教えていただけませんか？お願いします。
Taka <zan10253@nifty.ne.jp>
三重県, - Wednesday, December 19, 2001 at 18:14:17 (JST)

いずみ様、回答ありがとうございます。
せっかくの回答でしたが、私が知りたいことはちょっと違います。
セルの中のデータ数ではなくて、グラフの中のデータ数です。
例えば、温度のグラフがあるとすると、部屋の温度のデータ、外気の温度のデータとあったら、
２個ということになります。
私の表現が至らなかったために、すいませんでした。
ひろ <denchn@yahoo.co.jp>
神奈川県, - Wednesday, December 19, 2001 at 01:55:51 (JST)

データ数の取得について
参考になるかどうかはわかりませんが・・・
私は、データの最終行を取得する時に、どこか基準の列を
Excelの最終行（65536）まで飛ばして、そこからデータ最終行に戻らせる
という方法をとっています。
横方向でも同じ考えで、ちょっと変更すれば可能だと思います

'* A列を基準にし、最終行を選択
Cells(65536, 1).End(xlUp).Select
intLastRow = ActiveCell.Row

いずみ <moonoasis@earth.co.jp>
愛知県, - Tuesday, December 18, 2001 at 10:35:28 (JST)

はじめまして。仕事で大量のデータの解析を行っています。
今までは、手作業で行っていましたが、手に負えなくなってきましたのでマクロに挑戦中です。
そこで、質問です。
既に作成済みのグラフが複数あって、その参照するデータ数がそれぞれ違います。
参照する横軸の領域を変更したいと考えています。
横軸が同じ時刻軸の場合には、一括で変更できるようにはなりました。
ところが、散布図で書かせているグラフの場合、横軸自体が変わっています。
その場合、どうやって変更すればよいのでしょうか?
最大の分からない点は、グラフのデータ数をどうやって取得するかです。
これさえわかれば何とかなると思っています。
本屋でいろんな本を見てもどういすればよいか分かりません。
よろしくお願いします。
ひろ <denchn@yahoo.co.jp>
神奈川県, - Monday, December 17, 2001 at 20:04:04 (JST)

はじめまして。なかです。
先週はじめてExcelのマクロを動かしたくらいの初心者です。
今、Excelの表を文字コードUTF-8のXMLで出力しようとしています。
具体的にやりたいことは以下のような感じです。

・もとの表
名前　　年齢
なか　　25
AA　　　22
BB　　　50

・出力XML
<?xml version='1.0' encoding='UTF-8'?>
<sample>
　<name='なか' age='25'/>
　<name='AA' age='22'/>
　<name='BB' age='50'/>
</sample>

現在、出力の文字コードがShift_JISのものは出来ているのですが、
UTF-8で出力するやり方がわからず、出力されたXMLを文字コード変換フィルタに
通してUTF-8にしている次第です。
できれば一度の操作で、UTF-8のXMLを出力したいのです。
どなたか良い方法をご存知の方がいらっしゃいましたら教えてください。
よろしくお願いします。

なか <m_naka@george24.com>
神奈川県, - Wednesday, December 12, 2001 at 16:52:01 (JST)

初めて書き込みします。よろしくお願いします。
EXCELのマクロエディタ画面で、プロジェクトエクスプローラウインドウと
プロパティウインドウが文字化けして読めなくなりました。
文字化けの解消方法がありましたら教えてください。

toppy <tokunaga@nsknet.or.jp>
石川県, - Tuesday, December 11, 2001 at 23:37:06 (JST)

どなたかわかる方、助けてください。
Excel上で、あるリストを作っています。（在庫管理表みたいなやつ）
それでVBAにさせたいことは、ある列の入力フィールドだけセルを選択すると
メッセージボックスを表示させたいのです。
例えば、F列の項目を入力しようとセルを選択すると、「右の備考欄に忘れずに納期日を記入
してください」というふうにメッセージを出したいのです。
一応VBAは少しは勉強して、"ブックを開いたときにメッセージを表示"したりできるようには
なりましたが、選択したセル（あるいは列）だけのイベントの指定の仕方がわかりません。
ご回答お待ちしていまーす！！
ひでま <hidema@f2.dion.ne.jp>
宮城県, - Tuesday, December 04, 2001 at 17:09:16 (JST)

下の件ですが、どうやらdrwatsonが関係しているようです。
例えば
LSfrm.KUMIcmb.Value = Workbooks(1).Name
と追加するとエラーファイルを出します。どこが悪いのかはっきり分かりませんが
少なくともdrwatsonとの相性は悪いみたいです。
何か情報お持ちの方よろしくお願いします。(ロンペイさん、有難うございます)

まるぼろ <vg32@yahoo.co.jp>
福岡県, - Monday, December 03, 2001 at 18:05:57 (JST)

まるぼろさん
Workbooks.Open Filename:=PAS
ではどうでしょうか？
ロンペイ
- Thursday, November 29, 2001 at 11:52:34 (JST)

すいません、書き忘れです。
OS WIN2000
EXCEL 2000
です。

まるぼろ <vg32@yahoo.co.jp>
福岡県, - Tuesday, November 27, 2001 at 21:23:32 (JST)

マクロ中からワークブックを開くとアプリケーションエラー発生してしまいます。
ワークブックをすべて閉じてから出ることや、マシンに依存することから(VAIOは出る、
gatewayはでない)とても困っています。
エラーの中身は｢エラーが発生したためEXCEL.exeを終了します。プログラムをもう一度
開始する必要があります」と出ます。
ログファイルは
アプリケーション例外が発生しました:
アプリケーション: (pid=836)
発生時間: 2001/11/26 @ 16:43:03.516
例外番号: c0000005 (アクセス違反)
です。(drwatson)
workbooks.open filename:=pathでは駄目なのですが
ダイアログから読み込むとエラーを出しません。
どなたか助けて頂けないでしょうか。
よろしくお願いします。

まるぼろ <vg32@yahoo.co.jp>
福岡県, - Tuesday, November 27, 2001 at 21:20:57 (JST)

ファイルはWorkbooksで、シートはSheetsで
セルはCellsで定義するんですが、
フォルダーの定義は何でしょうか？
誰か教えて下さい！
ロンペイ
- Tuesday, November 06, 2001 at 17:32:25 (JST)

初めまして、Word98についてご意見おねがいします。複数のコマンドボタンにそれぞれマクロを埋め込んだアクティブ文書を、「ファイル」⇒「送信」⇒「メールの宛先」を利用してメール送信すると、元の文書は変化ないのですが送信された文書のコマンドボタン名（ｵﾌﾞｼﾞｪｸﾄ名）がランダムに入れ替わってしまい、これにより、ボタンを押した時に走るマクロも変わってくるのです。コマンドボタンのCaptionは変わりません。一度ファイルを保存してメールブラウザから添付ファイルをつけて送信する以外に、何か回避方法はありませんでしょうか？
alisha <lucky7nk@hotmail.com>
石川県, - Monday, November 05, 2001 at 20:37:23 (JST)

　大学の講義で、エクセルVBAを受講しているのですが、知識的にも　経験に乏しいせいか、今度出された課題がわからなくて困っています。　それは、二次方程式のプログラムを作成が課題のテーマなのですが、ぜひ誰か　お教え願えないでしょうか。詳しく言うと、２次方程式ax^2+bx+c=0の解を、根の公式を利用　してa,b,cを確定するプログラムです。どうか教えてください
学生 <g0993199@pu-kumamoto.ac.jp>
熊本県, - Tuesday, October 30, 2001 at 13:50:13 (JST)

すいません、ＶＢＡとは関係ないんですが。
ＷＩＮ－ＭＥでＭＳ－ＤＯＳの画面を開く方法はないでしょうか？
ロンペイ
- Tuesday, October 30, 2001 at 11:05:56 (JST)

ロンペイさんへ
開かずにですか！？
csvなどでは開かなくてもできますが、Excelとかは
ちょっとわかりません（＾＾；
すみません。

いずみ
- Monday, October 29, 2001 at 13:52:12 (JST)

いずみさんどうも有難う御座いました｡お蔭様で日付の表示ができました。
こじま <r-kojima@chigusa.co.jp>
東京都, - Friday, October 26, 2001 at 19:56:02 (JST)

いずみさんありがとうございます！
一度試してみます。
後、ご相談なんですが、ファイルを開けずにやる方法はないでしょうか？
ロンペイ
- Friday, October 26, 2001 at 18:32:06 (JST)

ロンペイさんへ
エラーの内容ですが、「インデックスが有効範囲にありません」という
エラーでしょうか？このエラーならば、Workbooks(Df(x)).Sheets(Ds).Cells(y, 1)
のあたりでエラーだと思います。
ファイルが開いているか、またはシート名があっているかなど確認してみてください

「Ifに対するEndifがありません」というエラーであれば、
If Workbooks(Df(x)).Sheets(Ds).Cells(z, 11) <> " "　Then DATAsu = DATAsu + 1　
End If
の部分を、
If Workbooks(Df(x)).Sheets(Ds).Cells(z, 11) <> " " Then　
DATAsu = DATAsu + 1　
End If　
にしてみたらどうでしょうか？
私が実行したところ、上の２つのエラーがでました。
これで解決するかわからないですけど、頑張ってみてください。（＾＾；
いずみ
愛知県, - Thursday, October 25, 2001 at 22:23:23 (JST)

いずみさんへ
こんな感じでわかりますでしょうか？
Sub 在庫違算検索マクロ()
'初期値
Dim Df(15) As String
Df(1) = "在庫(札幌)"
Df(2) = "在庫(仙台)"
Df(3) = "在庫(東京)"
Df(4) = "在庫(関東)"
Df(5) = "在庫(新潟)"
Df(6) = "在庫(金沢)"
Df(7) = "在庫(長野)"
Df(8) = "在庫(名古屋)"
Df(9) = "在庫(岡山)"
Df(10) = "在庫(米子)"
Df(11) = "在庫(福岡)"
Df(12) = "在庫(熊本)"
Df(13) = "在庫(鹿児島)"
Df(14) = "在庫(南大阪)"
Df(15) = "在庫(兵庫)"
DATAsheet = "200106～"
OUTfile = "全体"
OUTsheet = "差異200106～"
Ds = DATAsheet
Of = OUTfile
Os = OUTsheet
x = 0: y = 0: z = 0: w = 0
DATAsu = 0
KENSAKUsu = 0
KENsu = KENSAKUsu
Do
y = 4
w = 4
z = 3
If x = 15 Then Exit Do
x = x + 1
Do
If Workbooks(Df(x)).Sheets(Ds).Cells(y, 1) = " " Then Exit Do
KENsu = KENsu + 1
y = y + 1
Loop
Do
If KENsu = z Then Exit Do
z = z + 1
If Workbooks(Df(x)).Sheets(Ds).Cells(z, 11) <> " "
Then DATAsu = DATAsu + 1
End If
Loop
Workbooks(Of).Sheets(Os).Cells(10, w) = DATAsu
Loop
End Sub

ロンペイ
- Thursday, October 25, 2001 at 18:38:33 (JST)

ロンペイさんへ
改行もなく、End if の記載もないので、どこまでがDoループで
くくられているのかわかりません。できれば、もう少し見やすく
記載しなおしていただけないでしょうか？
たぶん、エラーの原因は、Do・・・Loopとif・・・End if
の組み合わせがうまくいってないのだと思いますが。

いずみ
愛知県, - Thursday, October 25, 2001 at 17:01:58 (JST)

下の様なプログラムを組んだのですがエラーが出てしまい、何を訂正したらいいのかわかりません。どう訂正すればいいのか教えていただけませんでしょうか。 Sub 在庫違算検索マクロ() '初期値 Dim Df(15) As String Df(1) = "在庫(札幌)" Df(2) = "在庫(仙台)" Df(3) = "在庫(東京)" Df(4) = "在庫(関東)" Df(5) = "在庫(新潟)" Df(6) = "在庫(金沢)" Df(7) = "在庫(長野)" Df(8) = "在庫(名古屋)" Df(9) = "在庫(岡山)" Df(10) = "在庫(米子)" Df(11) = "在庫(福岡)" Df(12) = "在庫(熊本)" Df(13) = "在庫(鹿児島)" Df(14) = "在庫(南大阪)" Df(15) = "在庫(兵庫)" DATAsheet = "200106～" OUTfile = "全体" OUTsheet = "差異200106～" Ds = DATAsheet Of = OUTfile Os = OUTsheet x = 0: y = 0: z = 0: w = 0 DATAsu = 0 KENSAKUsu = 0 KENsu = KENSAKUsu Do y = 4 w = 4 z = 3 If x = 15 Then Exit Do x = x + 1 Do If Workbooks(Df(x)).Sheets(Ds).Cells(y, 1) = " " Then Exit Do KENsu = KENsu + 1 y = y + 1 Loop Do If KENsu = z Then Exit Do z = z + 1 If Workbooks(Df(x)).Sheets(Ds).Cells(z, 11) <> " " Then DATAsu = DATAsu + 1 End If Loop Workbooks(Of).Sheets(Os).Cells(10, w) = DATAsu Loop End Sub
ロンペイ
- Thursday, October 25, 2001 at 16:16:33 (JST)

『ActiveSheet.PageSetup.LeftHeader = "&[日付]"』の件
ActiveSheet.PageSetup.LeftHeader = "&D"
にしてみてはいかがでしょうか？
いずみ
愛知県, - Thursday, October 25, 2001 at 11:59:02 (JST)

初めまして。Excel2000を使用しております。
ヘッダーを変更するため、『ActiveSheet.PageSetup.LeftHeader = "&[日付]"』
と入力したところ、"日付]"と表示されてしまいました｡
"ヘッダーの編集"を開き、何も変更せずに"OK"を押すと、ちゃんと今日の日付が表示されるのですが、他に方法は無いものでしょうか。ご存知の方いらっしゃいましたら、ご教授よろしくお願いします。
こじま <r-kojima@chigusa.co.jp>
東京都, - Wednesday, October 24, 2001 at 18:07:21 (JST)

BATファイルを起動の件
shellで呼び出してしまうと、終わったかどうかの判断ができません。
objectを使って呼び出せばよいのではないでしょうか？
そこらへんのヘルプを見ると、例がのってると思います（＾＾）
いずみ
愛知県, - Wednesday, October 24, 2001 at 08:31:42 (JST)

Excel97を使用しています。

APIを使用すると「開く」でファイルではなく”フォルダ”を指定出来ると聞きました。
方法を教えてください。
KENKEN <ken__t@mail.goo.ne.jp>
東京都, - Tuesday, October 23, 2001 at 19:51:14 (JST)

Excel97を使用しています。

application.filesearchであるディレクトリ以下のファイルをリストするマクロを組みました。
ところが、*.lnkファイルをリストすると、対象となっているあて先のファイルの情報を
表示してしまいます。
これを回避する方法をぜひ教えてください。
KENKEN <ken__t@mail.goo.ne.jp>
東京都, - Tuesday, October 23, 2001 at 19:48:27 (JST)

BATファイルを起動し、データの転送を行っています。現在、ShellExecuteを使用し、BATファイルを起動しているのですが、 BATファイルの結果がでるまで待って、エラーがなければ先に進む・・・という処理を行ないたいと思っています。このような事は可能でしょうか？また、可能であれば、どうすれば良いかを教えて下さい。 ---------------------------------------------------- Dim Wk_Path As String Dim nRet As Long Dim sPath As String Dim sPara As String Wk_Path = ActiveWorkbook.Path sPath = Wk_Path & "\Ftp.bat" sPara = "" nRet = ShellExecute(0, vbNullString, sPath, sPara, Wk_Path, 1)
RIE <rie34@mail7.dddd.ne.jp>
神奈川県, - Friday, October 19, 2001 at 10:18:33 (JST)

保存しますか？のメッセージを出さない方法： ActiveWorkbook .Saved = True '---擬似的に保存した状態にする Application.Quit としてみてはどうでしょうか？改行がなくて見にくかったので、もう1度書込みしました（＾＾； ↓
いずみ
愛知県, - Wednesday, October 17, 2001 at 14:09:58 (JST)

保存しますか？のメッセージを出さない方法： With ActiveWorkbook .Saved = True '---擬似的に保存した状態にする End With Application.Quit としてみてはどうでしょうか？
いずみ
- Wednesday, October 17, 2001 at 14:07:01 (JST)

ｴｸｾﾙ95で、ﾀﾞｲｱﾛｸﾞﾎﾞｯｸｽからの印刷は、１度閉じてから行うとあるが、うまく動作せず。ＨＥＬＰ－ＭＥ！
ｴｸｾﾙ95は？？？ <hiyama@epmail.hepco.co.jp>
北海道, - Wednesday, October 17, 2001 at 10:03:08 (JST)

エクセルからアクセスのＤＢファイルを読み込んだり検索する為の関数はないと思いますが、読み込むことは可能です。 ADOや、DAOなどを使用するとできますよ。
いずみ
- Tuesday, October 16, 2001 at 11:32:30 (JST)

VBからExcel97をたちあげて、保存せずに終了したいのです。終了させるコマンド xlsExcel.Application.Quit だけだと、保存しますか？と尋ねられてしまいます。なんとか確認ダイアログを表示させずに終了させられないでしょうか。
takuhiro <taku8009@yahoo.co.jp>
千葉県, - Thursday, October 11, 2001 at 10:22:34 (JST)

最近VBAをはじめたものですが、もしかして初歩的なことかも？フォームにMultPageを10ページぐらい作ったのですが、ボタンで、page1.page2.3.4.....と、次へのボタンを作って順に開きたいのですが、どこにコードを？どうしてもわかりません、 pageの中のボタンではダメなのでしょうか？なにか方法は、ありますか？教えていただけないでしょうか？よろしくお願いします。
arai <post@mixup.co.jp>
東京都, - Thursday, October 04, 2001 at 12:13:50 (JST)

はじめまして。早速ですがＥｘｃｅｌＶＢＡについてご教示願いたいのですが・・・
親Ｓｈｅｅｔの照合セル（単列範囲）をドラッグ
子Ｓｈｅｅｔの照合セル（単列範囲）をドラッグ
（前提条件として先に選ばれた方が親の選択範囲とします。単独のシート内ではなく複数のシート内での場合とします。また範囲は不定長なもので・・・）
この二つのドラッグ範囲を比較して作業をしたいのですが、今、親Ｓｈｅｅｔのドラッグ範囲をどのように持ってこようか悩んでます。Ｓｈｅｅｔが変わるので非アクティブになった時にもってこれるようにしようかと試みているのですが、なかなかうまくいきません。コマンドボタンは子シートの範囲指定したあとでしか押下することができないので、何かいい方法がありましたら教えてください。まだまだ初心者なので、サンプルも付けていただけると助かります。どなたか、わかる方・・・宜しくお願いします。
ＫＥＩ
千葉県, - Monday, October 01, 2001 at 18:39:21 (JST)

エクセルからアクセスのＤＢファイルを読み込んだり検索する為の関数？は有るのでしょうか。ＤＢのタイプは、いわゆる商品マスターです。
本松じゅにあ <hello@abox4.so-net.ne.jp>
福岡県, - Friday, September 14, 2001 at 20:39:44 (JST)

こんにちわ！初めて書き込みさせていただきます。今、検索プログラムを作っているんですがどうもうまくいきません。大文字と小文字の区別無しに検索する検索プログラムを作りたいんですが、どうにかならないでしょうか？
レン
大阪府, - Wednesday, September 12, 2001 at 16:40:27 (JST)

SQLのDISTINCTROWの概念が今一つわからないのですがどなたかわかりやすく教えてください
TETSU <tetsu7070@hotmail.com>
埼玉県, - Monday, September 10, 2001 at 11:42:52 (JST)

こんにちは。
フォームの再表示がうまくいきません。
以下の処理が途中で止まってしまいます。

１．マクロ入りフォームを開きます（aaa.xls）
２．１．のフォームのコマンドボタンをクリックし，別のブックファイル（bbb.xls）を
開きます
３．bbb.xlsに付けたコマンドボタンのクリックイベントで１．のフォームに戻ります。
４．aaa.xlsに付けた「終了」ボタン(コマンドボタン）をクリックします。
　　クリックイベントの中の Workbooks(bbb.xls).closeで処理が終了(中断)して
しまい、この先、以降の処理(ﾏｸﾛ入りﾌｫｰﾑを表示する等)が中断してしまいます。

処理を続行する方法をどなたか教えて下さい。

※bbb.xlsで自分自身をcloseしてaaa.xlsのThisWorkBook_Active時でフォームを
表示する(xxx.showメソッド)も駄目でした。

nao <ntani@par.odn.ne.jp>
東京都, - Wednesday, September 05, 2001 at 02:51:48 (JST)

ゆうほさんありがとうございました。
一通り見たつもりでしたが、見つけられなかったです。
おかげさまでばっちり元に戻りました。
おおやましんいち
- Monday, August 27, 2001 at 10:37:30 (JST)

このページの　Monday, November 06, 2000　の書き込みの関連では？
ゆうほ
- Sunday, August 26, 2001 at 11:28:45 (JST)

はじめまして。
プロジェクトエクスプローラで字体が
先週から明朝体になってしまっているんです
もとの字体にもどしたいのですがわかりません
教えてください。
おおやましんいち
- Friday, August 24, 2001 at 17:03:36 (JST)

本当にご親切にありがとうございました。早速試してみます。これで何とかなったら本当に助かるのですが・・・。頑張ってみます。また何か問題が生じたら（たぶん生じてしまうと思いますが）また相談にのっていただけるでしょうか？お願いします。どちらにせよ近い内にご報告させていただきます。ではありがとうございました
だまりん
- Tuesday, August 21, 2001 at 09:13:09 (JST)

だまりんさん、こんにちは。出力（作成する表）の内容が動的に変化するため、結構難しい問題です。そこで、cellsプロパティにより、元の表の内容と出力先の表の内容をすべて2次元配列風に扱って処理する方針で基本部分を試作してみました。ユーザーフォームを作成し、コンボックスから月曜日を選べるようにしました。 "月間"と"週間"という名前のワークシートを準備し、"月間"の方のみにデータを入れると、自動的に"週間"側に内容が作成されます。なお、特急で作りましたのでバグがあるかもしれません。そのときは、手直ししてください。

Private Sub ComboBox1_Change()
    Dim genba(4), genba_t(4), genba_n(4), genba_max(4)
    genba(1) = "A"
    genba(2) = "B"
    genba(3) = "C"
    genba(4) = "D"
    genba_t(1) = "A牧場"
    genba_t(2) = "B農場"
    genba_t(3) = "C公社"
    genba_t(4) = "D牧場"
    g_max = 4
    
    '月間データの範囲
    Set rng月間 = Worksheets("月間").Range("A1:O7")
    '週間データの範囲
    Set rng週間 = Worksheets("週間").Range("A1:K20")
    rng週間.Cells.ClearContents
    rng週間.Cells(1, 1) = "日付"
    
    'データ行数のカウント
    r_max = rng月間.Rows.Count
    'データ列数のカウント
    c_max = rng月間.Columns.Count
  
    '現場最大人数の初期化
    For i = 1 To g_max
        genba_max(j) = 0
    Next i
       
    '月曜日の位置を求める
    For i = 2 To c_max
        If rng月間.Cells(1, i).Value = ComboBox1.Text Then
            d = i
        End If
    Next i
   
    '現場毎の1日の最大人数を求める
    For i = d To d + 6
        For j = 1 To g_max
            genba_n(j) = 0
            For k = 1 To r_max
                If rng月間.Cells(k, i).Value = genba(j) Then
                    genba_n(j) = genba_n(j) + 1
                End If
            Next k
            If genba_n(j) > genba_max(j) Then
                genba_max(j) = genba_n(j)
            End If
        Next j
    Next i
    
    '名前の複写
    '書き出し行位置
    l = 2
    '全現場分繰り返す
    For i = 1 To g_max
        rng週間(l, 1).Value = genba_t(i)
        n = 2
        '1週間分繰り返す
        For j = d To d + 6
            '日付複写
            rng週間.Cells(1, n).Value = rng月間.Cells(1, j).Value
            '1日分繰り返す
            m = 0
            For k = 3 To r_max
                If rng月間.Cells(k, j).Value = genba(i) Then
                    rng週間.Cells(l + m, n).Value = rng月間.Cells(k, 1).Value
                    m = m + 1
                End If
            Next k
            n = n + 1
        Next j
        '書き出し位置を増やす
        l = l + genba_max(i)
    Next i
End Sub

Private Sub UserForm_Initialize()
    '月間データの範囲
    Set rng月間 = Worksheets("月間").Range("A1:O7")
    'データ列数のカウント
    c_max = rng月間.Columns.Count

    'コンボボックスに月曜日を追加
    For i = 2 To c_max
        Set ret = rng月間(1, i).Find("月")
        If Not ret Is Nothing Then
            ComboBox1.AddItem (rng月間(1, i).Value)
        End If
    Next i
End Sub

ゆうほ
- Friday, August 17, 2001 at 17:26:35 (JST)

遅くなってすみません。お返事ありがとうございました。
早速ですが、月間配置表と週間配置表の見本です。
＜月間配置表＞

　日付　　1(月) 2(火) 3(水) 4(木) 5(金) 6(土) 7(日) 8(月) 9(火) 10(水) ･･････
　名前
山田太郎　　A    B     A     D     A                C     A      B
佐藤花子　　A    A     C     D     D                A     B      C
十勝大介    C    D     A     A     B                B     C      A
小西珠生　　D    C     B     C     C                D     D      D
山本圭二　　B    A     D     B     A                D     A      B

＜週間配置表＞

　日付　　1(月)　　　2(火)　　　3(水)　　　4(木)　　　5(金)　　　6(土)　　7(日)
Ａ牧場　山田太郎　　佐藤花子　 山田太郎　  十勝大介　 山田太郎
　　　　佐藤花子　　山本圭二　 十勝大介　　　　　　　 山本圭二
Ｂ農場　山本圭二　　山田太郎　 小西珠生　　山本圭二　 十勝大介
Ｃ公社　十勝大介　　小西珠生　 佐藤花子　　小西珠生　 小西珠生
Ｄ牧場　小西珠生　　十勝大介　 山本圭二　　山田太郎　 佐藤花子
　　　　　　　　　　　　　　　　　　　　　 佐藤花子

こんな感じです。実際は人が20人ほどで、1つの場所に5人ぐらい入ります。
よろしくお願いします。
だまりん
北海道, - Thursday, August 16, 2001 at 13:49:23 (JST)

すいませんっ！長くて途中で切れちゃいました。
かいつまんで続きです。
' CSVファイル、フルパス名を作成
t_csv_file = prtCsvPath & t_csv
' 出力用ファイル名の作成
t_excel = proSys.PersonalID & "_" & proSys.Sno & "." & prtExcelExt
t_excel_file = prtLocalPath & t_excel

FileCopy t_template_file, t_excel_file

Set proX = CreateObject("excel.application")
proX.WindowState = EXCEL_STATUS_MIN

' 各ファイルをExcelに読み込む
proX.Workbooks.Open (t_excel_file)
proX.Workbooks.Open (t_csv_file)

ご存知の方いらっしゃいましたら、お願いします。また切れちゃったらどうしよう。
あや
- Monday, August 06, 2001 at 15:44:45 (JST)

はじめまして。初めて書き込みします。
VBからExcelを起動してCSVデータを貼り付けて帳票を作成するというプログラムの修正をしています。Excel９５と９７では違う動きをします。９５のほうでは完成した帳票にメニューバーが表示されるのですが、９７ではメニューバーが消えてしまいます。表示するようにしたいのですが、どなたか対処の仕方を知っている方はいらっしゃらないでしょうか？
ちなみにソースは以下のようにCreateObject関数を使用しています。

' ファイルを用意する
' テンプレートファイル､フルパス名を作成
t_template_file = prtTemplatePath & t_template
' CSVファイル、フルパス名を作成
t_csv_file = prtCsvPath & t_csv
' 出力用ファイル名の作成
t_excel = proSys.PersonalID &
あや
- Monday, August 06, 2001 at 15:39:40 (JST)

Syunちゃんさんへ。 ListBox1.RowSource = "[listbox.xls]Sheet1!A1..A3" のように書きます。
ゆうほ
- Saturday, August 04, 2001 at 16:48:33 (JST)

ゆうほさんへ早速教えて頂きありがとうございます。　　　　Listbox1.RowSouce = "A1..A3" の右辺の記述方法が分かりませんでした。おかげさまで　シート名の記述も　"シート名!A1..A3" とうまくいきましたがBook名の記述がうまくいきません。是非教えて下さい。
Syunちゃん
Aomori, - Saturday, August 04, 2001 at 14:49:59 (JST)

Ｓｙｕｎチャンさん、こんにちは。

されたい処理内容がよく分かりませんが、RowSourceを使った基本的な例を示します。
A1からA3に、

コーヒー
紅茶
ミルク

と入力しておきます。フォームを作成し、次のコードを書きます。

Private Sub ListBox1_Click()
    Range("A5").Value = ListBox1.ListIndex
    Range("B5").Value = ListBox1.Value
End Sub

Private Sub UserForm_Initialize()
    ListBox1.RowSource = "A1..A3"
End Sub

ゆうほ
- Saturday, August 04, 2001 at 10:39:56 (JST)

リストボックスのRowSourceプロパティーをＶＢＡから実行したいのですがうまくいきません。どなたか大至急教えて下さい。 01/8/4
Ｓｙｕｎチャン
Aomori, - Saturday, August 04, 2001 at 07:59:45 (JST)

だまりんさん、こんにちは。処理自体は可能と思いますが、月間配置表と週間配置表のレイアウトがわかりません。タグの<PRE></PRE>で囲んで、表のサンプルを見せてください。多少ずれてもかまいません。たとえば、こんな感じです。

日付	商品名	担当者名	金額
10月4日	パソコン	秋田	128000
10月4日	ハードディスク	千葉	25000
10月4日	OS	福井	15000

ゆうほ
- Friday, August 03, 2001 at 12:35:01 (JST)

miya-kunさん、こんにちは。どのような状況でエラーになるのか詳細を教えてください。マクロは、自分で作成されたのですか？それともマクロ記録ですか？マクロ記録でのピボットテーブルの作成はうまくいくのですか？
ゆうほ
- Friday, August 03, 2001 at 12:17:09 (JST)

Excel95のとき動いていたシステムをExcel2000で動かそうと思ったところ
エラーがでてしまいました。
ActiveChart.Axes(xlValue, xlSecondary).MinimumScale = -6
主軸のときはOKなのですが、2軸？（xlSecondary）になるとエラーが出てしまいます。
９５では動いていたので、構文は変ではないと思うのですが、ヘルプを見ても
原因がわかりません。どなたかわかる方orヒントでもよいので、教えてください。
よろしくお願いします。
いずみ <moonoasis@earth.co.jp>
愛知県, - Friday, August 03, 2001 at 08:38:03 (JST)

ＥＸＣＥＬ２０００ＶＢＡを使用してＥメールを送信したいと考えているのですが、
どちらかお手本となって頂ける方がいらっしゃいましたらメールを下さい。
tkaa <matuo@artsystem.co.jp>
東京都, - Thursday, August 02, 2001 at 18:11:35 (JST)

こんにちは、「しょーい」と申します。今回皆さんにお聞きしたい内容は、ACCESSで作成したフォームで入力した値を、Wordオブジェクトへ渡して、そのフォントサイズを ACCESS側で変更しようとしています。それでそのWordオブジェクトに移った時に、obj.Fontsize = と指定しているのですが、どうもうまくいきません。どなたかご指摘頂きたいのですが。やはり指定が間違っているのでしょうか・・・？ちなみにそのオブジェクトは、テキストボックスです。以上、宜しくお願いします。
しょーい
- Thursday, August 02, 2001 at 13:50:39 (JST)

ゆうほさん！せっかくご教授頂いていたのに、このサイトを確認しておらず、全く気付きませんでした。ほぼ1ヶ月も返事が無いままで、本当に失礼をしました。ありがとうございます。早速参考にしてみます。また機会があれば、ヨロシクお願いしますね。
Miran
愛知県, - Thursday, August 02, 2001 at 13:41:16 (JST)

はじめまして。マクロを使って職場用月間人員配置表より、週間配置表を作りたいのですが困っています。どなたか手を貸して下さい。内容ですが月間配置表はＡ列に各名前が並び、１行目２行目に日付と曜日、３行目から人名の横に各配置現場名（５ヶ所）が並んでいます。ここから、週間配置表に各現場名ごとに人名を抽出してまとめたいのです。週間配置表は、Ａ列に各現場名、１行目２行目に日付と曜日、３行目から現場ごとに月曜ならＢ列に、火曜ならＣ列にというように人名を縦に並べたいのです。何となく分かっていただけたでしょうか? マクロを使って出来るでしょうか? 今考えていたのは、はじめに入力させる月曜の日にちによりFindで取り出す１週間を決め、各曜日ごとにfindで現場名を列検索し、Offsetで人名を取り出せれば・・・しかしできませんお忙しいところすみませんが力になって下さい。お願いします
だまりん
北海道, - Monday, July 30, 2001 at 14:14:50 (JST)

VBAで　作ったもの（BOOKとしてではなく、モジュールプログラムとして）を　フロッピーに入れて一般に販売するってことはできるのでしょうか？
そのあたりの事に詳しい方がいらっしゃいましたら、教えてください。　
エム <msakai@mud.biglobe.ne.jp>
- Thursday, July 26, 2001 at 21:09:45 (JST)

はじめまして。教えてください。ＷＩＮ９８＋ＯＦＦＩＣＥ２０００の同じ環境でＰＣによってＥＸＣＥＬのマクロ中のＤＡＴＥ文やＦＯＲＭＡＴ文でコンパイルエラー（プロジェクトまたはライブラリーがみつかりません）となったりならなかったりします。また、これもＰＣによってカレンダーコントロールが使えたり使えなかったりします。不特定多数のＰＣで使うマクロを作成しているので困っています。なにか原因・解決方法・注目点などわかる方がいらっしゃいましたら教えてください。よろしく御願いします。
恵奈 <masimo@fc.freeserve.ne.jp>
愛知県, - Wednesday, July 25, 2001 at 00:01:54 (JST)

Excelマクロを使ってピボットテーブルを作ろうとすると「PivotTable クラスの AddFields メソッドが失敗しました」というエラーが生じますデータの問題かと思ったのですが ...
miya-kun <fwhf1202@nifty.com>
兵庫県, - Tuesday, July 24, 2001 at 19:27:08 (JST)

はじめまして、いきなりですごく申し訳ありませんが、ＶＢ６で作成した勤怠システムの勤務時間を登録する時に、タッチペンでドラッグして時間を入力したいのですか、全然どうしていいのかわかりません・・・どなたかご存知の方がいらっしゃったら教えてください。勉強不足で済みませんが、助けてください。容子
容子 <kame719@livedoor.com>
兵庫県, - Tuesday, July 10, 2001 at 19:19:40 (JST)

Miranさん、こんにちは。
前回のコードは不完全でした。これではどうでしょうか？

●宣言をモジュールに書きます。
Public obj(10) As Object
Public i As Integer

●フォームに書きます。
Private Sub CommandButton1_Click()
    Set obj(i) = CreateObject("word.application")
    obj(i).Visible = True
    i = i + 1
End Sub

Private Sub CommandButton2_Click()
    i = i - 1
    obj(i).Quit
    Set obj(i) = Nothing
End Sub

Private Sub UserForm_Click()
    i = 0
End Sub

ゆうほ <yasuo@uchidas.com>
- Monday, July 09, 2001 at 19:29:00 (JST)

ゆうほさん、ご返答ありがとうございました。今日になって早速適用してみましたが、残念な事にうまくいきませんでした。その理由として、どうもAccessは95でも97でもいいみたいですが、テンプレートで使用しているWord98そのものにバグがある様子でした。 OSが95でも98でもWord95であれば、正しくプロセスは終了されていますが、 Word98の場合は、Wordを終了してもCtrl+Alt+Deleteで確認すると、そこに「Winword」というプロセスが残ったままになっていました。恐らくWord98の持つバグだと思いますので、今回は何とかして回避策を探すつもりです。色々とご迷惑をおかけして恐縮です。また宜しくお願い致します。
Miran
- Monday, July 09, 2001 at 14:35:10 (JST)

Miranさん、こんにちは。これでどうでしょうか？

Dim obj As Object

Private Sub CommandButton1_Click()
    Set obj = CreateObject("word.application")
    obj.Visible = True
End Sub

Private Sub CommandButton2_Click()
    obj.Quit
    Set obj = Nothing
End Sub

ゆうほ <yasuo@uchidas.com>
- Sunday, July 08, 2001 at 18:00:16 (JST)

初めて書き込みを致します。Miranです。今回お聞きしたい内容ですが、まず私の環境はWin95＆Office95です。現在Access95のプログラムで、Wordを起動する処理を行っています。 CreateObjectを使用して、Wordへデータを送り、Nothingで閉じています。それがWin95＆Office97で起動すると正しくオブジェクトが終了されるのですが、ある時Win98で起動したところ、タスクにWinwordが残っていました。その処理は件数によってWordを処理するので、ループを行っていますが、例えば10件ある場合には、プログラム終了後もタスクにWinwordが残ってしまっています。当然30件程ある場合はリソース不足で、不具合が生じています。原因はSet obj(CreateObject変数) = Nothing がうまく認識されていないと診ていますが、Win95ではObjectが終了できるのに、Win98では出来ないというのは、やはりＯＳ側のバグなのでしょうか・・・Win98にはパッチも当たっています。この件について、ご教授頂きたいと思います。宜しくお願い致します。
Miran
愛知県, - Friday, July 06, 2001 at 10:40:35 (JST)

初めて投稿します。とても自分ではわからないので、どなたか教えていただけないでしょうか。
コマンドボタンを押すと、DAOでオラクルに接続しにいく関数を作成しようとしています。
openConnectionを使っています。ODBC接続文字列もちゃんと書きました。
しかしボタンを押すと、必ず[ODBC接続]ダイアログボックスが出てきてしまいます。
これを出さないようにするにはどうしたら良いでしょうか？
ちなみにWindowsのログオンユーザーなら、ダイアログボックスを出さない方法も
あるようですが、それ以外の方法はないでしょうか？
どなたかぜひよろしくお願いします。
まさやん <masaya_kato@hotmail.com>
東京都, - Wednesday, July 04, 2001 at 00:34:14 (JST)

hiroさん、こんにちは。
状況がよく分かりませんが、C:\WINDOWS\SYSTEMに「comdlg32.ocx」があるかどうか確認してみてください。

ゆうほ
- Thursday, June 28, 2001 at 12:17:18 (JST)

HANAさん、こんにちは。
状況がよく分かりませんが、
Excel97であれば、たとえば次のようにすればできるはずです。

Dim obj As Object

Private Sub UserForm_Click()
    Set obj = CreateObject("word.application")
    obj.Visible = True
End Sub

ゆうほ
- Thursday, June 28, 2001 at 12:12:54 (JST)

参照不可：の設定になってしまい。マクロが正しく動作しません。　　　　　参照不可：Microsoft Common Dialog Control 6.0 　　　　　どのように回避したらいいですか？エラー内容：コンパイルエラー　　　　　　オブジェクトまたはライブラリが見つかりません。
hiro <hirotaka2000@livedoor.com>
愛知県, - Wednesday, June 27, 2001 at 19:29:53 (JST)

はじめて書き込みさせてもらいます。実は、ExcelのﾏｸﾛでWordを表示させたいのですが、Shell関数、CreateObject関数どちらを使っても、ｴﾗｰﾒｯｾｰｼﾞ「ﾏｸﾛの記憶領域がを開く事が出来ません」と表示されます。対処方法の分かる方教えて頂けないでしょうか？
HANA <h-sakuragi@geocities.co.jp>
兵庫県, - Monday, June 25, 2001 at 14:22:39 (JST)

あきさん、こんにちは。
オブジェクトを動的に生成する件はどうなりましたか？
↓は、何をスクロールするときの話でしょうか？

ゆうほ <yuho@uchidas.com>
山口県, - Wednesday, June 13, 2001 at 18:35:43 (JST)

ともさん、こんにちは。
どのような処理をされたいのか、もう少し詳しく説明してください。
また、うまくいかないプログラム・コードもあれば参考になります。

ゆうほ <yuho@uchidas.com>
山口県, - Wednesday, June 13, 2001 at 18:15:44 (JST)

　お聞きしたいのですが、Excel　VBAの中でスクロールしたときのイベント (VCでいうと::OnHScroll(...)みたいのもの)ってどういうものでしょうか？探してみても見つかりません。　それでも、自分でイベントを作らないといけないでしょうか？
あき <xgzhang79@hotmail.com>
東京都, - Monday, June 11, 2001 at 17:45:17 (JST)

はじめて投稿致します。私は今、分布図上に表示させた近似曲線式のセルへの貼り込みマクロを作成しているのですが、うまく出来ません。（算出された近似曲線式をリストにする）どうすればいいのでしょうか？どなたか良いテクニックをご存知でしたら、ご教授頂きたく。宜しくお願い申し上げます。
とも
兵庫県, - Monday, June 11, 2001 at 14:10:21 (JST)

はじめまして。私は、今、ＥＸＣＥＬの散布図から作成した近似曲線の式の取得を試みているのですが、うまく出来ずに困っています。 100以上のグラフ・近似曲線作成をしているので、それらで作成される式をどこかのセルに順番に書き出したいのですが、この場合、どのようなﾌﾟﾛｸﾞﾗﾑを作れば良いのでしょうか？どなたか良いテクニックをご存知なら、ご教授頂きたく。宜しくお願い申し上げます。
とも
兵庫県, - Monday, June 11, 2001 at 10:51:42 (JST)

あきさん、こんにちは。
これでどうでしょうか？詳細はヘルプのAddメソッドを参照してください。

Private Sub CommandButton1_Click()
    Set cmdAAA = Controls.Add("Forms.CommandButton.1", "CommandButton2", Visible)
    
    cmdAAA.Left = 100
    cmdAAA.Top = 100
    cmdAAA.Width = 80
    cmdAAA.Caption = cmdAAA.Name
End Sub

ゆうほ
- Saturday, June 09, 2001 at 14:57:01 (JST)

たかさん、こんにちは。
refeditコントロールを使えばよいのでは？
このページ内の「February 21, 2001」頃の書き込みも参考にしてください。

ゆうほ
- Saturday, June 09, 2001 at 14:34:18 (JST)

NAHAさん、こんにちは。

VBでは、WorksheetFunctionオブジェクトを介してExcelのワークシート関数を使用できます。

Private Sub TextBox1_Change()
    If TextBox1.Text <> "" Then
        Range("D1").Value = TextBox1.Text
        Label1.Caption = Application.WorksheetFunction.VLookup(Range("D1"), Range("A1:B3"), 2)
    Else
        Label1.Caption = ""
    End If
End Sub

ゆうほ
- Saturday, June 09, 2001 at 14:17:49 (JST)

夏空さん、こんにちは。
まず1行の構造を知る必要があります。一般に、1行の文字列は次のようになります。

文字文字文字[改行コード]

ちなみに、改行コードはOSによって異なり次のとおりです。

Windows CR＋LF
UNIX LF
Mac CR

CR+LFは、Carrige Return（復帰）と Line Feed（改行）の意味です。
「復帰」はカーソルを行の先頭に戻し、（改行）は次の行に送るということになります。
したがって、CRは復帰・改行ということであり、いわゆる「改行」動作になります。
CRの文字コードは、10進数で13、16進数で0D、エスケープシーケンスで\rです。
LFの文字コードは、10進数で10、16進数で0A、エスケープシーケンスで\nです。（nの意味はNew Lineです）

したがって、Mulilineのテキストボックスの内容をセルに移すと、CRとLFも一緒に送られます。このうちLFは問題ありません。なぜならセル内で改行するときに、[Alt]+[Enter]で改行すると入力される文字だからです。
しかし、CRは制御文字であり正しく表示できないため「・」が表示されます。
したがって、このCRを削除すればよいわけです。
次の例では、CRを削除するのではなく、Replaceメソッドを使って、CRをChr(0)つまり空白文字を意味するNULL文字に置き換えています。

Private Sub CommandButton1_Click()
    Range("A1").Value = TextBox1.Text
    Range("A1").Replace _
        What:=Chr(13), Replacement:=Chr(0)
End Sub

ゆうほ
- Saturday, June 09, 2001 at 11:47:06 (JST)

　お聞きしたいのですが、ExcelVBAでオブジェクトを動的に生成する時って、どうしたらよろしいですか？ VBの場合では　　Set cmdAAA=Controls.Add("VB.CommandButton","cmdButton") では動的に生成できますが、Excelではうまくいっていません。　できれば具体的なコードがあればうれしいですが。　
あき <xgzhang79@hotmail.com>
東京都, - Friday, June 08, 2001 at 14:24:31 (JST)

始めて投稿いたします。
SAP-BW(2.0B)のInfoPackege のスケジュールをVBAからキックする
オブジェクトのインターフェイス、サンプルありましたら
教えてください　お願いします
KI
- Thursday, June 07, 2001 at 11:43:15 (JST)

はじめて掲示します。お願いします。エクセルで、テキストボックスやラベルに指定した範囲（A1とかB3とか）の内容< を表示させることはできますが、その逆（指定した範囲の内容と範囲のアドレス?(A1とかB3とか)）を表示させることはできませんか？　誰かわかる方、教えていただけないでしょうか？
たか <ZAN10253@nifty.ne.jp>
三重県, - Wednesday, June 06, 2001 at 11:10:28 (JST)

どなたか教えてください。VBA+エクセル2000でLOOKUP関数、VLOOKUP関数の使い
方はどのようにコードすればいいのでしょうか？ちなみに検査値はBOOK1のユーザフォーム
上のTextBoxから入力したもの、又検査範囲はBOOK2のシートのセル範囲から、取ろうと
思っています。VBAのHELPにはこの関数が無い様なのですが？どなたか宜しくお願いします。
NAHA <nahata@jttk.zaq.ne.jp>
兵庫県, - Friday, June 01, 2001 at 18:36:46 (JST)

ユーザーフォームのテキストボックスを改行できるようにして、その入力データをセルに記入するようにしました。ところが、例えばテキストボックスに下記のように入力すると　　　今日は夏空です。　　　散歩でもします。　　　でも暑いです。　記入されたセルでは　　　今日は夏空です。・　　　散歩でもします。・　　　でも暑いです。のように「・」が入ってしまいます。この「・」が入らないようにするにはどうしたらよいのでしょうか。どなたかわかる方がおりましたら、教えて頂けたら幸いです。　　
夏空 <fwht4347@nifty.com>
埼玉県, - Wednesday, May 30, 2001 at 09:48:20 (JST)

誰か教えてくださいシートを開く時、一部の列を非表示する様にしてます。しかし、シートの保護がかけられなくて困ってます。何とか保護を解除するマクロを組んでますが、共有を掛けているため結局だめでした。　共有を掛けたファイルの列の表示・非表示をするマクロ（VBA)を教えてください。
桃太郎 <suenaga@hi-ho.ne.jp>
長崎県, - Sunday, May 27, 2001 at 21:10:07 (JST)

HITさん、こんにちは。こんな感じでどうでしょうか？

Sub Macro1()
    Dim x() As String '動的配列
    n = Len(Cells(1, 1).Value)
    ReDim x(n) '領域確保
    
    For i = 1 To n
        x(i) = Mid(Cells(1, 1).Value, i, 1)
        Cells(3, i).Value = x(i) '確認のためセルに格納
    Next
End Sub

ゆうほ
- Thursday, May 24, 2001 at 12:48:31 (JST)

ごく基本的なロジックを教えてください。ある文字列"abcdefg"がcell(1,1)に格納されており、その各々の文字を配列 X(*)に格納するためにはどうしたら良いでしょうか？
HIT <HGA03106@nifty.com>
- Monday, May 21, 2001 at 11:56:53 (JST)

はじめまして。VBAの初心ﾒです。 Excelシートで罫線で囲まれた範囲を取得する方法を教えてください。
okada <mokada@sam.hi-ho.ne.jp>
愛知県, - Sunday, April 29, 2001 at 21:36:30 (JST)

ＶＢＡ初心ﾒです。他のセルを参照したセル値（計Zｮから得た値）を変数に取り込む方法とそのセル値がエラー値（#VALUE）であるかどうかの判断方法がわかりません。どなたかご教授願えればと思っています。よろしくお願いいたします。
小口　剛 <t_kgc@deneb.freemail.ne.jp>
茨城県, - Friday, April 13, 2001 at 17:35:11 (JST)

こんばんわ、VBA初心ﾒなのですがXｲとYｲのある折れ線グラフを書きたいと思っています。
基本的には
ActiveChart.SetSourceData Source:=Sheets("データベース").Range("A4:A21,C4:C21") , PlotBy:=xlColumns
と言った形なのですが、A4やC4などの起点となるセルは変化しないのに対し、A21のセルやC21のセルはデータ数によって変わってしまいます。そこでEnd(xlDown)などのようなコマンドを使って、A4またはC4のセルからデータの入っている最下行のセルまでを選択させたいのですが、どのように記述すればよろしいでしょうか？　VBA本などを買って詩s錯誤してみましたが、いいサンプルがなくて行き詰まってしまいました。　よろしくお願いします。
冨樫健二 <k-togashi@lycos.ne.jp>
O重県, - Sunday, April 08, 2001 at 03:15:05 (JST)

ＶＢＡなんて全然知ｯが無いのですが、エクセルでアドインって何かなとか、いろいろいじっておりましたところ、氓ｩら、エクセルを開こうとすると、必ず認ｯできませんというダイアログボックスが出て、ＯＫまたは、キャンセルを押すと、XLODBC32.DLLというファイルが開きます。そのファイルが開くと、やっとエクセルが開きます。Officeを再インストールしても同じです。なんとか、直す方法は無いでしょうか。
taeane <taeane@bizoffi.com>
愛知県, - Saturday, March 24, 2001 at 21:52:50 (JST)

初めて書き込みでお願いは申し訳ないと思うのですが、どなたか助けて下さい。
エクセルのファイルを起動した時にコンボボックスのリストの内容が表ｦ出来るように
するにはどのようにしたら宜しいのでしょうか。
初心ﾒすぎる質問で申し訳ありませんが宜しくお願い致します。

Q <koga_q@hotmail.com>
- Thursday, March 22, 2001 at 22:32:00 (JST)

nめて書きこみます。ちょっと教えてください。あるデータを定期的に連続して別のフォルダーにＣＯＰＹする方法はありませんか？２つのテキストファイルがあります。タイムリーに書きかえられている生産ﾀ績データです。このＣＯＰＹ元のファイルは日付の名前で毎日変わります。テキストファイルの一番下の行のみ１０分おきに別のフォルダーの一つのファイルにＣＯＰＹして、保存するのですが・・（１０分前のデータは要りません　２行のデータの書き換え）。毎朝一度だけ起動をかけて最新のデータだけを残します。できれば、ｩ動でＡＣＣＥＳＳで取り込みたいのですが・・。わかりにくい質問とは思いますが、よろしくお願いいたします。
としあ <tuchino@waki.mke.mei.co.jp>
徳島県, - Thursday, March 22, 2001 at 11:13:49 (JST)

初めてお便りします５２歳の男です。�｡と実益を兼ねて株ｮ投曹陲靴討�蠅泙后｣諮ｯ廚鬚茲蠍﨓��貌世燭ぐﾙマクロを勉強中（約１ヶ戟jですが、難しくて手に負えません。どなたか私が考えていることをマクロでプログラムできる方謝礼はしますのでご協力願えませんか。出来れば兵庫県在住の方、よろしくお願いします。　　　以上
福島信夫
兵庫県, - Friday, March 09, 2001 at 12:20:14 (JST)

林さん、こんにちは。仕様のようですね。
ゆうほ
- Thursday, March 01, 2001 at 18:44:44 (JST)

ゆうほ様
回答ありがとうございます。
おかげさまでなんとなく出来そうです。
ところで、Refeditってワークシートに貼り付けると
動作しないんですけど、こういう仕様ですか？

林 <haya-hi@mo.kubota.co.jp>
- Wednesday, February 28, 2001 at 12:20:10 (JST)

ゆうほ様
回答ありがとうございます。
おかげさまでなんとなく出来そうです。
ところで、Refeditってワークシートに貼り付けると
動作しないんですけど、こういう仕様ですか？

林 <haya-hi@mo.kubota.co.jp>
- Wednesday, February 28, 2001 at 12:20:02 (JST)

ゆうほ様。無事RefEditを使用して範囲指定することが出来ました。ありがとうございます。
実はこの先がありまして。。。このボタンを使っていろんな範囲を指定しピボットテーブル機能を使って集計したいのです。
が、実際ピボットテーブルをマクロで記憶させると「ピボットテーブル１」という範囲を覚えてしまいます。
この部分をボタンで選択した範囲に指定し直す？というかボタンで指定した部分を実行させる方法はあるのでしょうか？
簡単にマクロを記憶させると下記のようになります。
（"ピボットテーブル1"）と言う部分が３ヶ所あるのですがこの部分をいろいろと変更してみたんですが
全然言うことを聞いてくれません。ご存知でしたらお知恵をお貸し下さい。よろしくお願いします。

Range("D5:F28").Select ActiveSheet.PivotTableWizard SourceType:=xlDatabase, SourceData:= _ "Sheet1!R5C4:R28C6", TableDestination:="", TableName:="ﾋﾟﾎﾞｯﾄﾃｰﾌﾞﾙ1" ActiveSheet.PivotTables("ﾋﾟﾎﾞｯﾄﾃｰﾌﾞﾙ1").AddFields ColumnFields:="ｺｰﾄﾞ" ActiveSheet.PivotTables("ﾋﾟﾎﾞｯﾄﾃｰﾌﾞﾙ1").PivotFields("時間").Orientation = _
てぃん <cam60331@pop07.odn.ne.jp>
千葉県, - Monday, February 26, 2001 at 09:53:13 (JST)

はじめて質問します。よろしくお願いします。エクセルで作成したある表を仕事で使用しています。その中で、図形オブジェクトのテキストボックスを、マクロを使用して、シート上の所定の位置に乗るようにしています。とくに私の使用しているＰＣでは問題ないのですが、沖縄にいる同業者の友人にメールでこのファイルを譲ったところ、テキストボックスがズレてしまうことが判明しました。ＶＢＡでつぎのようなコードを使用して、テキストボックスがシートに表示できるようにしています。 ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, _ 32.25, 60, 33.75, 13).Select (　)の中の数値がシート上の位置を表す座標値のようなものと解釈しています。私自身、いろいろ調べたのですが、原因がはっきりしません。パソコンがちがうと、上のコードではズレしまうのでしょうか。沖縄まで行くことができれば、彼女のＰＣを使ってＶＢＡを作成し直すことができるのですが、今のところ予定がありません。どなたか、原因のわかる方、またＶＢＡを使用して他の方法でテキストボックスを表示する方法のわかる方がおりましたら、教えていただければ幸いです。よろしくお願いします。
Ｍ石橋 <fwht4347@nifty.com>
埼玉県, - Saturday, February 24, 2001 at 13:48:00 (JST)

林さん、こんにちは。業務処理の内容を先にお尋ねしたほうがよかったですね。

これでは、どうでしょうか？

まず、フォームにコントロールを貼りつけます。

コードを書きます。

Private Sub CommandButton1_Click()

    End

End Sub

Private Sub TextBox1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)

    If Button = 2 Then

        UserForm2.Show

    End If

End Sub

テキストボックス上で右クリックすると、userfom2が表示される仕組みです。

リンクするセル設定用のフォームを作ります。

この例では、RefEditを貼りつけています。

コードを書きます。

Private Sub CommandButton1_Click()

    Worksheets("sheet1").Select

 

    UserForm1.TextBox1.ControlSource = RefEdit1.Value

    

    Unload Me

End Sub

RefEditの内容が、元のコントロールのリンクするセルに反映されます。

何か入力してみてください。

ゆうほ
- Saturday, February 24, 2001 at 11:29:14 (JST)

ゆうほ様
回答ありがとうございます。

説明の通りやってみましたが、ちょっと違っていました。
説明不足ですいません。うまく説明できなくて。
最初の質問で『フォーム』という単語を使いましたが、
正確には、『コントロール』です。（ややこしいです！？）

エクセルのワークシートに、『コントロール』を貼り付け、マウスの右ボタンで
オブジェクト自身の色・字体・値などの設定ができます。
また、オブジェクトが保持している値をワークシートのセルにリンクする
こともできます。

私がやりたいのは、この『コントロール』を作りたいのです。
『コントロール』のマウス右ボタンを押すとゆうほ様の回答のような
フォーム(UserForm1)が出てきて値を保持させたいのです。

説明へたですみません。また、ご返事遅くなり重ねてすみません。

林 <haya-hi@mo.kubota.co.jp>
兵庫県, - Friday, February 23, 2001 at 12:39:42 (JST)

てぃんさん、こんにちは。RefEditコントロールを使えばよいのでは？ RefEditコントロールは、Excel97の新機能です。RefEditコントロールを使うと、セル範囲を入力ボックスを取り出すことができます。RefEditコントロールは、フォームを作るときに、ツールボックス内に表示されるはずです。このページの「December 23, 2000」に、関連する内容があります。
ゆうほ
- Wednesday, February 21, 2001 at 19:53:40 (JST)

林さん、こんにちは。

こういうことでいいのでしょうか。

まず、フォームとシートを作ります。

以下のようなコードを書きます。

Private Sub CheckBox2_Click()

    'チェックボックス→セル

    Range("E1").Value = CheckBox2.Value

End Sub

Private Sub TextBox2_Change()

    Range("B1").Value = TextBox2.Text

End Sub

Private Sub TextBox3_Change()

    'セル→テキストボックス

     Range("C1").Value = TextBox3.Text

End Sub

Private Sub UserForm_Initialize()

    Worksheets("sheet1").Select

    

    'セル→テキストボックス

    TextBox1.Text = Range("A1").Value

    'セル→チェックボックス

    CheckBox1.Value = Range("D1").Value

    'セル→テキストボックス

    TextBox3.Text = Range("C1").Value

End Sub

ゆうほ
- Wednesday, February 21, 2001 at 19:47:35 (JST)

始めて投稿いたします。最近マクロ化したら便利だろうなと思い始めて少しずつ勉強しています。今はピポットテーブルを使って集計するマクロを作成したいな！と思っているんですが、問題は1つのシートなのにマクロを実行させたい範囲が多数あることです。範囲だけをその都度指定してマクロを実行させることなんてできるのでしょうか？もし方法を知っている方がいらっしゃいましたら教えてください。よろしくお願いします。
てぃん <cam60331@pop07.odn.ne.jp>
千葉県, - Wednesday, February 21, 2001 at 16:25:28 (JST)

はじめて、質問させていただきます。
エクセル97のフォーム（注）のようなものを作りたいのですが
どうすればできますか？もしくは、参考になる資料かサンプルを
紹介しているＨＰご存知ありませんか？
（注）
フォーム（私が作りたいもの）とコントロールツールボックスの違いを
比較してみました。

例えば、セルの関連付（リンク）をする場合

フォームの場合は、『オブジェクト選択』→『マウス右ボタン』
→『コントロールの書式設定』→『コントロールタブのリングするセル』
となり、

コントロールツールボックスの場合は、
『デザインモード』→『オブジェクト選択』→『マウス右ボタン』
→『プロパティシートの LinkedCell 』
というように設定します。

林 <haya-hi@mo.kubota.co.jp>
兵庫県, - Tuesday, February 20, 2001 at 12:36:12 (JST)

はじめまして、OUTLOOK2000のVBAで新規作成ボタンを押した時、本文の所にいつも特定の文字列が、自動で挿入できるようにしたいのですが、どなたかよろしく！！
SS <ss707@capella.freemail.ne.jp>
山口県, - Saturday, February 17, 2001 at 00:28:20 (JST)

はじめまして、miwaといいます。質問なんですが､エクセルのＶＢＡでスクリーンをロックしたいのですが、コードが分かりません。できましたら、教えてください。
miw <miwa@mx9.freecom.ne.jp>
静岡県, - Tuesday, February 06, 2001 at 15:23:48 (JST)

はじめまして、vbaを初めて４ヶ月です。ExcelVbaからオラクルデータを読んでシートに落とす時で１回目はうまくいくのですが、連続してマクロを起動した時、データを読みにいけません。一度Excelを再起動してやるとデータを読みにいけます。Db.CloseもVba内で記述していますが連続してはDBを読むことができません。Closeでは駄目なんでしょうか？わかる方がいらしたら教えてください。
kazu <kazunobu_hara@mail.goo.ne.jp>
大阪府, - Tuesday, January 30, 2001 at 11:48:21 (JST)

KUROです！（石川県, - Friday, January 19, 2001 at 10:11:43 (JST)）の質問ですが、自力で解決しました。お騒がせしました。
ｋｕｒｏ
- Thursday, January 25, 2001 at 17:42:14 (JST)

こんにちは、初めましてtomです。EXCELまたはACCESSのVBAを使い、ネットワーク内の他のパソコンのファイルにアクセスする方法はありますか？　あるとしたら、どの様にしたらいいのでしょうか？
tom
- Thursday, January 25, 2001 at 10:59:18 (JST)

↓の件ですが解決しました。ありがとうございました。（^o^)
うちょ
- Saturday, January 20, 2001 at 16:57:45 (JST)

こんにちは。初めて投稿します。
今までExcel95のダイアログシーﾄを使用してダイアログを作成していたんですが、
最近、VBEのユーザーフォームに切り替えました。
その際に、テキストボックスのオブジェクト名を変数を用いて記述したいんですが
どのようにしたらいいんでしょうか？

具体的な使用例としては、textbox1～30までのテキストボックスに
変数x(1)～x(30)までの値を入力したいときに、for~next構文を使用して
入力させる方法を教えてくださいまし。

基本をしらずに独学でやってるもんで、ひどく基本的なことかも知れませんが
なにとぞ助けてやってください。

うちょ <uchiyama.toshi@nikon.co.jp>
埼玉県, - Saturday, January 20, 2001 at 16:14:48 (JST)

こんにちは。任意のフォルダの中にあるファイル名のリストを作りたいのです。 DosのDirコマンドを使用し、テキストに吐き出すことはわかったのですが、エクセルVBAでファイル名を取得するにはどのようにすればよいのでしょうか？それと、フォルダ内のファイルの件数はどのように出せますか？よろしくお願いいたします。
ﾏﾐ
東京都, - Friday, January 19, 2001 at 17:11:57 (JST)

初めて書き込みします。みなさん宜しくお願いいたします。個人用マクロブック（ＸＬＳＴＡＲＴ内）に以下の様なマクロを組み込みたいのですが上手くいきません。詳しい方ご指導お願いいたします。アクティブなブックに標準モジュール（Ａ）があったとします。個人用マクロによって、アクティブなブックの標準モジュール（Ａ）のみを消す方法が解りません。ブックやシートは選択し消去は出来るのですが、任意のモジュールを選択消去できません。良い方法を教えて下さい。
KURO <h-nakaguro@mvf.biglobe.ne.jp>
石川県, - Friday, January 19, 2001 at 10:11:43 (JST)

昨日、”フォーム上にグラフを表示するにはどうやればいいんですか？”と言う質問を
かきこしたんですけど，自力で出来ました．

ActiveChart.Export Filename:="c:\my documents\test.gif"
で、グラフをGIFファイルにエクスポートして保存し、
Image1.Picture = LoadPicture("c:\my documents\test.gif")
で、FormのImageに表示する．
って感じです．誰かやる人がいたら参考にしてください．
お騒がせしました．またなんかあったら、相談にのってください
ありがとうございました。ＰＯＯＨ！でした。
ＰＯＯＨ！
- Thursday, January 18, 2001 at 21:56:49 (JST)

ＶＢＡのユーザーフォームにＥｘｃｅｌワークシートで使用しているデータのグラフを
表示させるには、どうすればいいのですか?
そのユーザフォームを呼び出すごとに、ワークシート側のデータを反映させたい.
誰か教えてください.
POOH!
- Wednesday, January 17, 2001 at 14:14:37 (JST)

>>ayuさん一文だけで動作したということは９７でもcellsはｻﾎﾟｰﾄしているということで　エラーが起きないということは（2000ではあの文は普通に実行できた）そこには問題がないと思われますそれでもエラーが出るのは元のコードの中の変数をCellsに使いそれがオブジェクト定義にひっかかるぐらいしか思いつきませんあとはエラーの内容からひたするヘルプを見るとか何とか偉そうなこと言ってる僕ですがまだVBはじめて半年です　なんで見当外れなこと言ってたらすいませんもし解決したらできれば原因を教えてほしいです　では
あ
ちば, - Friday, January 12, 2001 at 21:21:57 (JST)

ayuです。あさん、お返事ありがとうございます。先の書き込みでCellsをCellと書いていました。どうも済みません。m(__)m VB上でSub/ユーザフォームの実行を行った場合にはエラーにならないのですが、全体を通して実行させた場合にエラーで止まっちゃうのです。加えた文は一文のみですので、他の場所がおかしいってことはないと思うのですが。。
ayu
東京, - Friday, January 12, 2001 at 09:53:53 (JST)

ayuサンへ　CellをCellsにかえてみては？それとRangeの変換ですが　以前Rowsを使うときに変数をつかいたいと思ってやった方法ですが一応下のような方法でできましたなぜ　"A1"の１の部分をstr()にしないのかは僕にもわかりませんキャストするとなぜかエラーが出ます　Rows（）でもでました誰かわかる人がいたら教えてくださいお願いします Option Explicit Private Sub CommandButton1_Click() Dim intCol As Integer Dim intRow As Integer intCol = 65 ' アスキーでA intRow = 1 MsgBox "Row=" + Str(intRow) MsgBox "Col=" & Chr(intCol) Range(Chr(intCol) & intRow).Value = "Test" End Sub
あ
ちば, - Thursday, January 11, 2001 at 22:36:05 (JST)

はじめまして、ayuです。いまexcel97でマクロを組んでいるのですが、セルの罫線を指定したいのですが、エラーが出てしまいます。プログラムは ActiveSheet.Cell(1,1).Borders.LineStyle = xlContinuousとしています。 excel2000のテキストではCellがRangeとなっています。 97では動作しないのでしょうか？また、Cell(1,1)をRange("A1")のように置きかえられますか？空白を検索するためにfor文を用いて行数を求めてますが、Rangeで検索したり、Rangeに置きかえられられると非常に楽なことが多いです。どなたか御分かりでしょうか？宜しくお願い致します。
ayu
東京都, - Thursday, January 11, 2001 at 18:38:18 (JST)

ひろです。確認が遅くなりました。ゆうほさんありがとうございます。参考にさせて頂きますね。
ひろ <hkuwa@goo.ne.jp>
- Wednesday, January 10, 2001 at 14:20:32 (JST)

ひろです。確認が遅くなりました。ゆうほさんありがとうございます。参考にさせて頂きますね。
ひろ <hkuwa@goo.ne.jp>
- Wednesday, January 10, 2001 at 14:20:13 (JST)

　初めまして。誰かVBでIRCのソース公開してるところがあれば教えて欲しいです
にゃんじろう <ff456789@oitaweb.ne.jp>
大分, - Monday, January 08, 2001 at 02:57:09 (JST)

　初めまして。誰かVBでIRCのソース公開してるところがあれば教えて欲しいです
にゃんじろう <ff456789@oitaweb.ne.jp>
大分, - Monday, January 08, 2001 at 02:56:56 (JST)

ゆうほさん、お返事ありがとうございます。
最近始めたばかりで良く判りませんが、どうもＶＢ（ＶＢＡも）はイベントが発生してなんぼのもの、という感じかなと思い始めていました。
イベントとして認識してもらえないなら難しいのでしょうね。もう少し勉強したいと思います。
どうもありがとうございました。
ざえもん <zaemon@ccsnet.ne.jp>
山口県, - Saturday, January 06, 2001 at 17:14:17 (JST)

ざえもんさん、こんにちは。リスト入力の選択動作ではイベントは発生しないようですね。 Enterすれば、Worksheet_Changeが使えるのですが．．．
ゆうほ <yuho@uchidas.com>
山口県, - Saturday, January 06, 2001 at 12:02:16 (JST)

ＥＸＣＥＬ９７でマクロ・ＶＢＡを作り始めた初心者です。
メニューからデータ（Ｄ）→入力規則（Ｌ）でリスト入力をしているセルに対して、値が新規に入力された、或いは変更された、というのを検知する方法はありますか？
リスト入力するセルが多数あるのでどのセル、というのでは無く、アクティブなセルの値が変更された、というのを検知したいのですが。
また条件文で、（人手により）リスト入力されるまで待つ、というのを表現するにはどうしたら良いのでしょうか？
宜しくお願いします。

ざえもん <zaemon@ccsnet.ne.jp>
山口県, - Friday, January 05, 2001 at 16:35:00 (JST)

プロジェクトエクスプローラとプロパティーウィンドウの書体が行書体のようになっていてとても読みづらくなっています。どうすれば書体を変更できるでしょうか？どなたか教えていただけないでしょうか？
ふくふく <nagaie@ii-okinawa.ne.jp>
沖縄県, - Monday, January 01, 2001 at 00:11:15 (JST)

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