VB2010 クリック数カウント
アンケート結果の集計のために、コマンドボタンをクリックするたび、ラベルのところにクリック数が表示されるプログラムを作ろうと思ってます VB2010ですが、下記のコードでは、クリックしたら「1」とだけしか表示されませんでした どうすれば、クリックの度、数が増えるのでしょうか？ Private Sub Button1_Click() Handles Button1.Click Dim a As...
View ArticleTimer等のリフレッシュについて
例えばTimer等で頻繁に10ms毎に更新していると、メモリの消費が物凄い食うのですが 良い解決方法はありませんか？ ラベルには 時:分:数:ミリ 時間取得しながら100ms毎に更新してます。
View ArticleVB6.0からVB.NETへの移行について
現在、VB6.0で作られているシステムをVB.NETへ移行しようとしています。 そこでAcvtiveX EXEのGlobalMutiUseで作成されている画面を持つプロジェクトを移行する方法に困っています。 現状は、上記の画面が最初に起動されたら常駐して、定期的にサーバから情報を取得して内容を更新して、他の別プロジェクトの画面からその情報を取得して動いているような仕組みとなっています。...
View ArticleVBAのRangeオブジェクトについて
いつもお世話になっております。 VBAのRangeオブジェクトについてご教示下さい。 例えば下記のPGを組みます。 Sub test() Dim r As Excel.Range Set r = Me.Range("A1") Debug.Print r.Cells.Count End Sub この時、Debug.Printには"1"と表示されます。...
View ArticleエクセルＶＢＡで セルの空白を識別する
早速ですが IF Application.ISBLANK(Q17)=TRUE Then って やると Q17 が 未定義エラーとなります。 セルに書き込む関数と ＶＢＡとは 異なるらしいのですが・・・イマイチでして。 ＶＢで使う ISNULLも 変数しか 受付ないようですので、一旦 tanka=cells(3,17) isnull(tanka) とやるようです。 ＶＢＡから 空白を...
View ArticleAccessから直接FTPサーバーのファイルを開く
いつもお世話になります。 FTPサーバーに保存したファイルを開くことって可能でしょうか？ ファイルに番号で管理しています。 ファイル番号をアクセスに入力して必要な時検索する画面を作りました。 私の考えですが、検索されてファイルをダブルクリックするとFTPの中にあるファイルを開きます。 そうするといちいちFTPに入らなくても済みます。 もし可能であれば、教えていただけますか？...
View Articleフリーズしてしまいます。
アクセスでWebBrowserコントロールを使ってIE操作をしているのですが フリーズしてしまいます。 フォームに、WebBrowser0を配置して、 ---------------------------------- Private Sub Form_Load() Me.WebBrowser0.Navigate...
View ArticleVBAのハイパーリンクについて質問です
こんばんわ。 ＶＢＡ初心者です。調べてみて分からない箇所がありましたので教えてください ｍ(＿ ＿)ｍ マクロを作成しているブックを、リスト.xls とします。 リストのマクロを実行して、別のブックを開く動作を行います。 開くブックは毎回違い、シートも複数あります。 条件にあてはまるシートをリスト.xls のシート２にハイパーリンクを追加したいと思っています。...
View Articleグラフィック描画中にボタンが使えない
よろしくお願いします。 Visual Basic 2010です。 ピクチャーボックスに、黒で四角を書いて、白で四角を書いて消すと言うことを始点を移動しながら黒の四角が移動していくように作りました。 これを実行している間にボタンをクリックして止めようと思うのですが、ボタンをクリックしてもボタンのハンドラーが実行されません。 どのようにしたらいいのでしょうか？ 描画部分のみを記述します。 Dim g...
View ArticleＶＢ2010 ＤａｔａＳｅｔ Ｄａｔａの初期化
ＶＢ2010のDataGridViewを使ってアドレス帳を作ってます。 登録データを初期化したいのですが、次のようにコードを書いても、初期化されません。エラーも出ません。DataＳｅｔを初期化して、保存する方法をとろうとしています。 DataSet.登録.clear() 登録TableAdapter.Update(DataSet.登録) お手上げの状況ですので、対処方法をご存知の方はご教授をお願いします。
View Articleお世話になった者です
質問箱では何度も相談に乗っていただきありがとうございました 8月末に2度目の質問をした後急遽出張が決まってしまい アカパスを会社に残したまま出てしまったので ログインが出来ずアクションが起こせませんでした ようやく出張が終わり今月から戻ってきて また改めてVBAに着手できるようになりました 2度目の質問に対する回答、ありがとうございます 参考にさせてもらい、取り組んでいきます...
View Articleexcelvbaでxmlファイルの内容の抽出
excelvbaでDomを使用し指定したxmlファイルを読み込んでselectNodes("")で欲しい内容を抽出をすることは出来ました。 しかしxmlファイルが大量にあり一つ一つファイルを指定して抽出するのは時間がかかりすぎてしまいます。 ですのでフォルダ内にあるすべてのxmlファイルからselectNodes("")で欲しい内容を抽出したいのですが出来ますでしょうか？...
View ArticleDeclareってなんて読むんでしょう？
http://vbae.odyssey-com.co.jp/study/glossary.html に読み方も単語も載ってなかったので教えてください。
View ArticleControlsのコレクションの中のControl
VB２００８で、伝票の行を実現するため、 Controlsのコレクションの中にユーザコントロール（複数のTextBoxやLabelからなる）があります。 図で書くと、 「 Panel （明細用） ------------------------ | 「Controls（１） | 「 LablelA TextBoxA...
View ArticleリアルタイムでForループを表示
Excel2010でVBAを使っています。 一つのループの計算のために10秒くらいかかるForループを10000回繰り返すプログラムを作った場合、 計算が終了するまでに30分程度時間がかかります。 計算途中にどこまで計算が進んだか分かるようにするため ダイアログにリアルタイムで変数iを表示できるようなプログラムを書きたいのですが どのようにすれば良いですか？...
View ArticleVBAのデータが増えて処理が遅くなる件につきまして
VBA初心者です。 現在勤怠表を制作しております。 csvにてデータを読み込み、計算して表にしています。 出勤時間より遅かったら「 遅刻 」と表示させていますが、 「 午前給 」や「 遅延 」などで出勤時間や勤務時間を再計算したいため、 「 Worksheet_Change 」でセルの値が変わった場合の処理を書いています。 これにより「 遅刻 」から「 午前給 」に変えると出勤時間が「 ９時...
View Articleなめらかに動かしたい
Visual Basic ２０１０で作っています。 ピクチャーボックス(縦５００横１５００)上を縦棒を移動するプログラムです Dim g As Graphics = Me.PictureBox1.CreateGraphics() For k = 1 to 100 For j = 1 to 20000 For i = 1 to 1000 StartBlack = i + 50 Startwhite =...
View Articlevbaでフォルダ内ファイルの処理
フォルダに複数のXMLファイルがあります。 そのXMLファイル一つ一つに対して まず1個目のXMLファイルを取り込む→処理する→終わったら2個目のXMLファイルを取り込む→処理・・・ という作業をフォルダ内にあるすべてのXMLファイルに対して行いたいのですが なにかいい方法はありますでしょうか？...
View ArticleVBAでリアルタイムで計算結果をグラフに表示
Excel2010でVBAを使っています。 30分くらいかかる計算があるのですが、 計算が終了するまで待っていたのでは、計算結果がどのようなものになるのか分からないため リアルタイムで計算結果をグラフに表示してくれるプログラムを書きたいと考えています。 検索したところ、 http://www.johoka.net/vbsin.htm VBの場合には、Picture1.Line...
View ArticleメッセージBOXの「はい」「いいえ」の処理について
お世話になっております。 エクセルマクロで処理を行うときに メッセージBOXにて「はい」か「いいえ」のボタンを押して 実行か中断の処理を行なっていたいのですが、 「いいえ」を押しても処理が実行されてしまいます。 以下で作成しております。 Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) Sub IP呼び出し() Dim...
View Article