fumufumu_2006 の回答履歴

ブック内の全シートを対象としたマクロで、たとえば　(A1)セルに入力後Enterで(C1)セルにカーソルを移動させるにはどのように記述したらよいでしょうか。よろしくお願いします。

ブック内の全シートを対象としたマクロで、たとえば　(A1)セルに入力後Enterで(C1)セルにカーソルを移動させるにはどのように記述したらよいでしょうか。よろしくお願いします。

VB.netからAccessで作成したデータベースのレコードを 取得するプログラムを作りたいと考えています。 ですが、データベースを操作するプログラムは初めてですので、 どうもイメージがわきません。 やりたいことは、 １．VBからmdbにアクセス（DAO） ２．SELECTでレコードを取得 ３．取得したレコードから必要なフィールドをテキストボックに表示 上記の処理が可能であれば、コーディングのヒントを頂けないでしょうか？ よろしくお願いします --- OS:Windows Vista 開発環境：VS2005 pro

引数で日付を渡し、漢字の曜日一文字が返る関数をＶＢＡで作成しました。 どうせなら日曜日の場合は文字の色を赤色にしようと思い、日曜日の場合だけ文字色を赤にする一文を追加しました。 が、セルにこの関数を貼り付けると曜日は返ってくるのですが、日曜日の場合の赤色が反映されません。 どなたかご教授いただければ嬉しいのですが、、、 宜しくお願い致します！ OS:WindowsXP Excel:OfficeXP です。 以下に作成したマクロ関数を貼り付けます。 ********************************************************* Public Function week(d) As String 　On Error GoTo err_week 　Select Case Weekday(d) 　Case vbSunday 　　week = "日" 　　Worksheets(Application.Caller.Worksheet.Name).Cells(Application.Caller.Row, Application.Caller.Column).Font.ColorIndex = 3 　Case vbMonday 　　week = "月" 　Case vbTuesday 　　week = "火" 　Case vbWednesday 　　week = "水" 　Case vbThursday 　　week = "木" 　Case vbFriday 　　week = "金" 　Case vbSaturday 　　week = "土" 　Case Else 　　week = "×" 　End Select Exit Function 　 err_week: 　week = "ER" 　Exit Sub 'End End Function *********************************************************

いつもこのサイトでは有益な情報ばかりで大変助かっています。 質問ですが表題どうりで200行20列程度の行方向可変の集計表なのですが印刷する際に、表の最終行に表の合計は表示、印刷ともできるのですが、 各頁（40行程度）の合計はどのようにコードを書けば良いのかどなたか教えていただけないでしょうか。

いつもこのサイトでは有益な情報ばかりで大変助かっています。 質問ですが表題どうりで200行20列程度の行方向可変の集計表なのですが印刷する際に、表の最終行に表の合計は表示、印刷ともできるのですが、 各頁（40行程度）の合計はどのようにコードを書けば良いのかどなたか教えていただけないでしょうか。

いつもこのサイトでは有益な情報ばかりで大変助かっています。 質問ですが表題どうりで200行20列程度の行方向可変の集計表なのですが印刷する際に、表の最終行に表の合計は表示、印刷ともできるのですが、 各頁（40行程度）の合計はどのようにコードを書けば良いのかどなたか教えていただけないでしょうか。

いつもこのサイトでは有益な情報ばかりで大変助かっています。 質問ですが表題どうりで200行20列程度の行方向可変の集計表なのですが印刷する際に、表の最終行に表の合計は表示、印刷ともできるのですが、 各頁（40行程度）の合計はどのようにコードを書けば良いのかどなたか教えていただけないでしょうか。

プログラミング初心者でVB.NET2003使用です。 検索したところ、それらしいものがあったのでチャレンジしましたがダメだった（ちょっと違う？）ので質問させていただきます。 http://oshiete1.goo.ne.jp/qa1757174.html 《やりたい事》 Form1に配置したボタン１をクリックするとForm1を閉じてForm2を表示 Form2に配置したボタンＡをクリックするとForm2を閉じてForm1を表示する。 これをやりたいのですが、なかなかうまく行きません。 ボタン１をクリックしてForm1を閉じないでForm2をShowかShowDialogでモードレス表示 ボタンＡをクリックしてForm2をCloseさせてForm1を表示させる事（元々閉じていないので）は出来ます。 可能ならばどちらかを必ず閉じる方法でやりたいと思います。 可能でしょうか？ 解決策やヒント、良いサイトがありましたら回答をお願いします。

フォームの最下部にStatusStripコントロールを配置し、ToolStripStatusLabelを2つそれぞれ左詰め、右詰めに配置しました。 左のラベルの文字数が長いと、右に配置しているラベルがフォームの外に流れてしまい、フォーム上から消えてしまいます。右に配置しているラベルが流れないように固定したいのですがどのようにすればいいのでしょうか。 回答お待ちしております。

ExcelのＶＢＡを使って、バックアップしたメディアのデータベースを作ろうと思っています。 そこで、ＣＤドライブに入っているファイル名や、ファイルのサイズを出力したいのですが、どの関数を使えばよいのでしょうか？

教えてください。 毎月、同じ書式のCSVデータが発行されます。 そのcsvデータを参照ボタンを用意して、 任意の場所にあるそのCSVデータを毎回同じtable名で取り込み、 その後のプロシージャ―で使用したいのですが、 どのようにやったら可能でしょうか？

ＴＡＢ区切りのＣＳＶデータを読み込む方法を教えて下さい。 言語は、VB2005です。 （できればサンプルソースで説明して頂ければありがたいです。）

シート１のB列に1000件以上名前が入っているとします。 (1)B列に入力された名前と同じ名前のシートが作成される。 (2)B列に入力した名前をクリックすると、(1)で作成された同じ名前のページにジャンプする。 とゆうハイパーリンクの設定をしたいのですが無理でしょうか？ B列に入力された名前の数だけシートが作成されるとゆう事になるのですが・・・。 B列の名前は1000件以上あり、尚且つ今後も増えていくので一つのエクセルファイルではシートが足りなくなってしまう為、別のエクセルファイルにも同様にジャンプできるように設定したいのです。 ちなみにA列には数字が入っており、ここにはハイパーリンクはつけたくありません。わかりにくい文章で申し訳ありませんがどなかたご回答お願いいたします。マクロは初心者です。

フォームにD&Dでファイルパスを取得する プログラムを作ろうと思っているのですが、うまくいきません。 ファイルをフォームにドラッグしても禁止マークがでて イベントハンドラがイベントをキャッチしてくれないようです。 なにが問題かアドバイスを頂けないでしょうか？ よろしくお願いします。 Public Class Form1 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Me.AllowDrop = True End Sub Private Sub Form1_DragEnter(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles MyBase.DragEnter If e.Data.GetDataPresent(DataFormats.FileDrop) Then e.Effect = DragDropEffects.Copy End If End Sub Private Sub Form1_DragDrop(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles MyBase.DragDrop Dim FileName As String FileName = e.Data.GetData(DataFormats.FileDrop)(0) MsgBox(FileName) End Sub End Class ---- 開発環境：VS2005 pro OS：WindowsVista

VBA初心者です。 いつもボタンを作って、マクロを起動させていますが、たしか、エクセルシートのセルそのものをボタンにする方法があったと思います。 教えてください。

vb2005で開発中です。 DataGridViewのセルが Me.DataGridView1.CurentCell.ReadOnly = True で、編集不可としています。その項目にカーソルがある状態で、入力を開始したら、編集可能となり、その値がただちに反映させる方法はありますでしょうか？ ・なにかキーを一度押して（KeyPress）から、 Me.DataGridView1.CurentCell.ReadOnly = False にする方法ならば、簡単ですが、そのなにかキーを押す手間を省きたいです。 ・また、なぜ一度 Me.DataGridView1.CurentCell.ReadOnly = True の状態にしたいかというと、 Me.DataGridView1.CurentCell.ReadOnly = False Me.DataGridView1.BeginEdit(True) で、編集可能し、全体を選択した状態で、右矢印を押すと、文字の最後にカーソルが来てしまい、次のセルに移動しないからです。 つまり、やりたいことは、セル上にカーソルがある時、右矢印を押したら、右のセルに移動。また、セル上にカーソルがある時、直接入力したいのです。 他の方法でも何かいい方法がありましたら、お教え下さい。 よろしくお願いいたします。

<form name="frm1"> <select name="permit"> <option value="0">いいよ</option> <option value="3">駄目！</option> </select> <input type="button" value="OKv" onClick='alert(frm1.permit.value)'> <input type="button" value="OKt" onClick='alert(frm1.permit.text)'> </form> Web上でこういうセレクトボックスがあったとして、画面上では「駄目！」が選択されているとします。 ここで「OKv」ボタンをクリックすると、その セレクトボックスpermit のvalueである"3"が表示されます。 ここで「OKt」ボタンをクリックすると、その セレクトボックスpermit のtextである"駄目！"が表示されます。 ウェブ上ではたったこれだけのことなんですが。 が、これをvb.net（vb 2005）でやろうとするとどうするのかわかりません・・。 comboboxのどこのプロパティに何をどうセットするのでしょうか。 ちょっと調べてみるとDataSource をセットして、DisplayMember がどうとか出てきましたが、そういうことをしないといけないのでしょうか。 こちらはDataSource も何もなく、手動で（コード上で）valueとtextを設定・取得したいだけなんですけど・・。 何か凄い間違ってるような気もするのですが・・そうでしたらその旨ご指摘くださいますようお願いします。

document.f.p（document.f.q）はNullまたはオブジェクトではありませんと出ます。 実は別府のポータルサイトを運営している管理人の友人なのですが、トップページの検索バーに組み込んだオートカーソルフォーカスのjavascriptがどうもうまくいっていないみたいなんです。いろいろと自分で試行錯誤をしましたが、わかりませんでした。管理人さんも原因がよくわからないみたいで。ブラウザのエラーメッセージでは、ライン75で文字15です。私が見ているブラウザはie7です。ie６ではこのエラーメッセージは確認できません。タイトルロゴにonload=sf()を入れたのが原因ではないかと考えていますが、どうやらそれは<body>にonloadを入れると、ページ全体を読み込むまで検索バーにカーソルがオートフォーカスされないのを理由にやっていると思います。それ以上はどうにも…。管理人を助けてあげたいので、どうか、ソースを見て、原因を突き止めていただけないでしょうか。宜しくお願いします。 BEPPoo!!のトップページは以下です。 http://www.beppoo.com/index.html

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