fumufumu_2006 の回答履歴

vb6でaccess2000テーブル（作成したもの）をすべて削除しようと試みますが何点か残ってしまいます。一発で削除する方法ありますか？ For Each tbl In dbs.TableDefsの構文を使っています。

下記のマクロを実行したときに、Sheets("提供データ")のＤ列の7327行目はブランクなのに、Sheets("jyoken")のa列の7326行目に計算式がコーピされるのはなぜでしょうか。 ちなみにSheets("jyoken")のa列の2行目に=提供データ!D3という計算式 が入っています。 Sheets("jyoken")のa列の7326行目には計算式がコーピしないようにするにはどこを修正すればよいのでしょうか教えてください。 Sub 式複写() Dim gyo, burank ActiveWorkbook.PrecisionAsDisplayed = False Sheets("提供データ").Select Range("a2").Select gyo = 2 burank = "" Do gyo = gyo + 1 burank = Worksheets("提供データ").Cells(gyo, 4).Text Loop While burank <> "" ' Sheets("jyoken").Select Range("A2").Select Selection.Copy Range(Cells(3, 1), Cells(gyo - 1, 1)).Select '複写先 ActiveSheet.Paste End Sub

Visual Basic超初心者ですがよろしくお願いします。 標準モジュールで入力したものを実行すると、必ず「実行時エラー　"53":　ファイルが見つかりません。」と表示してしまいます。 入力したものはミスはないと思うのですが、何回やってもエラーが出てしまいます。 わかる方いましたら教えてください。 入力したものを一応載せときます↓ Sub list_file() Dim numfile As Long Dim i As Long With Application.FileSearch .NewSearch .LookIn = Range("b1").Value .Filename = Range("b2").Value .SearchSubFolders = Range("b3").Value If .Execute() > 0 Then file_count = .FoundFiles.Count MsgBox file_count & "files exis" Worksheets.Add after:=Worksheets("sheet1") Range("a1").Value = "filename" Range("b1").Value = "date" Range("c1").Value = "size" For i = 1 To file_count Cells(i + 1, 1).Value = .FoundFiles(i) Cells(i + 1, 2).Value = FileDateTime(.FoundFiles(i)) Cells(i + 1, 3).Value = FileLen(.FoundFiles(i)) Cells(i + 1, 2).Value = Hex(Cells(i + 1, 3).Value) Next Columns("a:c").AutoFit Else MsgBox "no file exists" End If End With End Sub

Ａｃｃｅｓｓ２０００（２００２のライセンスがあったのでアップグレード予定）で、プログラムを作ることになりました。 フォームＡに、テキストボックスで文字を入力させます。 その文字をキーにして、データベースを検索し、 その情報をフォームＢに上記キーをヘッダにテキストボックスで表示し、 複数業の表形式で、データを全て表示・スクロールしたいと思っています。 その時に、どのようにしてこのキーを利用していけば実現できるのか、イメージできないで困っています。 フォームＡのテキストの値をキーにデータベースを読み、 該当するレコードを、全て、表形式のフォームＢに表示する。 同時に、フォームＡのテキストの値であるキーはヘッダ部に表示し、値が変更され、更新ボタンを押せば、検索しなおして、表示しなおす。 表示された明細には、変更ボタンを儲けて、 変更フォームで表示して更新させて、終わったら画面が表形式に戻ってくる。 こんな機能なのですが・・・。 パラメータ値であるＡの値の受け渡しがうまくいかず困っていますので、どうしたら、実現できるか教えてくださいませ。 ややこしくてすみません。 アドバイス宜しくお願いします。

Visual Basic超初心者ですがよろしくお願いします。 標準モジュールで入力したものを実行すると、必ず「実行時エラー　"53":　ファイルが見つかりません。」と表示してしまいます。 入力したものはミスはないと思うのですが、何回やってもエラーが出てしまいます。 わかる方いましたら教えてください。 入力したものを一応載せときます↓ Sub list_file() Dim numfile As Long Dim i As Long With Application.FileSearch .NewSearch .LookIn = Range("b1").Value .Filename = Range("b2").Value .SearchSubFolders = Range("b3").Value If .Execute() > 0 Then file_count = .FoundFiles.Count MsgBox file_count & "files exis" Worksheets.Add after:=Worksheets("sheet1") Range("a1").Value = "filename" Range("b1").Value = "date" Range("c1").Value = "size" For i = 1 To file_count Cells(i + 1, 1).Value = .FoundFiles(i) Cells(i + 1, 2).Value = FileDateTime(.FoundFiles(i)) Cells(i + 1, 3).Value = FileLen(.FoundFiles(i)) Cells(i + 1, 2).Value = Hex(Cells(i + 1, 3).Value) Next Columns("a:c").AutoFit Else MsgBox "no file exists" End If End With End Sub

下記のマクロを実行したときに、Sheets("提供データ")のＤ列の7327行目はブランクなのに、Sheets("jyoken")のa列の7326行目に計算式がコーピされるのはなぜでしょうか。 ちなみにSheets("jyoken")のa列の2行目に=提供データ!D3という計算式 が入っています。 Sheets("jyoken")のa列の7326行目には計算式がコーピしないようにするにはどこを修正すればよいのでしょうか教えてください。 Sub 式複写() Dim gyo, burank ActiveWorkbook.PrecisionAsDisplayed = False Sheets("提供データ").Select Range("a2").Select gyo = 2 burank = "" Do gyo = gyo + 1 burank = Worksheets("提供データ").Cells(gyo, 4).Text Loop While burank <> "" ' Sheets("jyoken").Select Range("A2").Select Selection.Copy Range(Cells(3, 1), Cells(gyo - 1, 1)).Select '複写先 ActiveSheet.Paste End Sub

　エクセルのマクロを連続で使用すると、どんどん処理速度が遅くなっ てきます。1回目はとても早く処理してくれるのですが、間隔を空けず に10回位使用すると相当待ちぼうけを食らいます。 　また使用するにつれ、ファイルの容量が大きくなっていくのですが これと何か関係があるのでしょうか？ 　どのようにすれば改善できるか、どなたか教えていただけないでしょうか？ 　よろしくお願いします。

OnTimeを使ったタイマーですが、サンプルを利用して実行させると次のようなエラーになってしまいます。 「マクロ’Ｉ：￥一定時間後にxls'実行マクロ'が見つかりません。」 なにか設定する事項でもあるのでしょうか？ Option Explicit Dim 待ち時間 Dim 指定時刻 Sub 一定の時間間隔でマクロを実行する() 指定時刻 = Now + TimeValue("0時00分05秒") '5秒後 待ち時間 = TimeValue("0時00分01秒") Application.OnTime TimeValue(指定時刻), "実行マクロ名", TimeValue(待ち時間) End Sub Sub 実行マクロ名() Dim wavfile As String wavfile = "C:\Windows\Media\ringin.wav " 'wavファイルのパス Shell "mplay32.exe /play /close " & wavfile End Sub

　エクセルのマクロを連続で使用すると、どんどん処理速度が遅くなっ てきます。1回目はとても早く処理してくれるのですが、間隔を空けず に10回位使用すると相当待ちぼうけを食らいます。 　また使用するにつれ、ファイルの容量が大きくなっていくのですが これと何か関係があるのでしょうか？ 　どのようにすれば改善できるか、どなたか教えていただけないでしょうか？ 　よろしくお願いします。

お間抜けな質問かもしれませんが。。。 Visual Basic 6.0 →　Visual Studioにあり、ボタンやテキストボックスなどを作成し、そこの実装（プログラム）していく。 Visual Basic　2005　→　言語そのもの と私は思っているのですがどうでしょうか？

VB2005環境です。 DataGridViewコントロールの、列ごとに入力制限をかけたいと 思っています。 たとえば、1列目は数字のみ入力可能、2行目は半角英数字…と いった具合です。 また、できればある列にはIMEMODEを設定してやりたいとも 思っています。 KeyDownイベントで、列の名前ごとにif文をかまして、文字を弾けば いいかと思っていたのですが、思ったより手間で、コピペでの入力 には対応できません。 プロパティでなんとかならないかと思ったのですが、デザイナからは そのようなものは見つかりませんでした。 何かシンプルに入力制御をかけられる方法はないでしょうか？ ご教授お願いいたします。

同一ブック内に２つのシートがあります。 Sheet1に列H：業者、列I：支払額、列J：支払期日・・・があります。 Sheet2（結果）にはカレンダー一覧があります。 例）Sheet1 …　　　業者　　　　支払額　　　支払期日 　　　　aaa 　1000 2007/10/5 　　　　bbb 　5000 2007/10/5 　　　　aaa 　2000 2007/10/20 　　　　ccc 　2000 2007/10/20 例）Sheet2（結果） 日付　　　　業者　　　　支払額　　　　業者　　　支払額　 2007/10/1 2007/10/2 …（略） 2007/10/5　 aaa 1000 bbb 5000 2007/10/6 …（略） 2007/10/31 Sheet1に業者、支払額、支払期日を入力すると、Sheet2の同日付の横欄に業者と支払額が抽出されるように関数を定義したいのです。 同じような質問を参考にやってみたのですが、なかなかうまくいきません。どなたかエクセル初心者の私に丁寧に説明していただけませんでしょうか？

同一ブック内に２つのシートがあります。 Sheet1に列H：業者、列I：支払額、列J：支払期日・・・があります。 Sheet2（結果）にはカレンダー一覧があります。 例）Sheet1 …　　　業者　　　　支払額　　　支払期日 　　　　aaa 　1000 2007/10/5 　　　　bbb 　5000 2007/10/5 　　　　aaa 　2000 2007/10/20 　　　　ccc 　2000 2007/10/20 例）Sheet2（結果） 日付　　　　業者　　　　支払額　　　　業者　　　支払額　 2007/10/1 2007/10/2 …（略） 2007/10/5　 aaa 1000 bbb 5000 2007/10/6 …（略） 2007/10/31 Sheet1に業者、支払額、支払期日を入力すると、Sheet2の同日付の横欄に業者と支払額が抽出されるように関数を定義したいのです。 同じような質問を参考にやってみたのですが、なかなかうまくいきません。どなたかエクセル初心者の私に丁寧に説明していただけませんでしょうか？

シート1からシート10まであるブックがあります。 各シートのE2セルには氏名が入ります。 入力はシート1から順番にしていくとします。 どのシートまで入力するかは一定ではありませんが 最高10番目のシートまでということです。 たとえば、シート1のE2に入力された値が佐藤だとして、 シート2のE2に入力された値が鈴木だとします。 次にシート3のE2に入力された値がまた佐藤だった場合 シート3に入力した値を変更するように促すメッセージを出したいのです。 ただ入力できないようにするのではなく 修正が出来るようにしたいのが希望です。 入力規則でもなんとかなるのかと思いましたが シートをまたいだやり方がわかりません。 よろしくお願いします。

お世話になってます。 VBAの初心者です。 test.mdbファイルを "C\TEST"　という作業ディレクトリ配下において そのmdbのモジュールでCurDirを使用してカレントディレクトリを取得する という処理をVBAで書きたいのですが、 Dim strPath As String strPath = CurDir("C") と記述し実行しても strPathに格納される値は　"C\"　となってしまいます。 本当は"C\TEST"という値を取得したいのですが、 使用方法が間違っているのか、何が悪いのかよく分かりません。 よろしくお願い致します。

すみません、PHPでログインするパスワード制限のやりかたを教えて下さい。 もう、全然わかりませんー。 PHPで作られた掲示板スクリプトに、簡単にパスワードだけで制限をかけたいのです。 掲示板スクリプトはhttp://www.mt312.com/script/11/です。 最初、こういった既存の掲示板にパスワードだけで制限をかけるという簡単なパスワード制限だけ出来るCGIをKENTさんのLOGINというプログラムで実行していたのですが、どうも携帯ｉモードでのパスワード入力が出来ないんです。AUでは出来ました。 ソフトバンクは、今現在では確認出来ていません。 ログイン先のファイルがHTMLまたはCGIでないためかとも思うのですが・・・。 BASIC認証ではなく、簡単に、既存のスクリプトにパスワードだけで制限をかけて、携帯でも利用出来るやり方はありませんか？ このやり方は、CGIなら多く有りますが、 PHPだと難しいのでしょうか？ PHP初心者で大変申し訳有りませんが、どなかた教えて下さい、 どうぞ宜しくお願い致します。

プログラミング初心者です。ＶＢＡでスロットをつくるようなプログラムはしたことがあります。 電子天秤とパソコンをつないで重量変化を継時的にとりたいのですがどのように書けばいいかわかりません。『自動計測システムのためのＶＢ６』という本で勉強しているのですが、どのように応用していいのかがわかりません。 何かよい参考書ないしはＨＰなどありませんでしょうか？？

Access内で使用しているテーブルを削除すると 「オブジェクト'TMPCL303941'が見つかりませんでした。オブジェクトが存在していることを、名前やパス名が正しいことを確認してください。」の警告メッセージが表示され消せません。 どうすれば削除できますか？

プログラミング初心者です。ＶＢＡでスロットをつくるようなプログラムはしたことがあります。 電子天秤とパソコンをつないで重量変化を継時的にとりたいのですがどのように書けばいいかわかりません。『自動計測システムのためのＶＢ６』という本で勉強しているのですが、どのように応用していいのかがわかりません。 何かよい参考書ないしはＨＰなどありませんでしょうか？？

TextBox1、TextBox2、TextBox3・・・・TextBox10 と10個のテキストボックスにVB6で使っていたコントロール配列と同じような処理の仕方をコードで教えていただけませんか。 for i=0 to 9 TextBox(i).Text=i next i 上記のコードをVB.NETで書くとすれば、どのように書けばいいかということさえわかれば、なんとか頑張れる気がします。