特定文字列の抽出
VB6の質問です。 桁数、データが不定の文字列中から特定文字を抽出したいのでが、方法を教えていただけないでしょうか? 抽出したいデータの桁数が毎回不定でMid, Left, Right関数が使用できません。 Dim Buffer As String Buffer = "A12345...B678910.TRAGET..C"'桁数、データが不定の文字列がBufferに入ります。...
View ArticleAUTOCADのVBAで図面上のあるブロックの取得
AutoCADのVBAで"A"という名前のブロックをAcadBlockReferenceタイプの変数に格納したいです。 でも、 Call objSelSet.SelectOnScreen だとか Call ThisDrawing.Utility.GetEntity(objEntity, p(), "図形を選択: ") のような、対話式のメッセージがでて、使う側がブロックを指定するのではなく、...
View ArticleMSCommのCommEventプロパティ
質問させてください。 ↓コードで、通信エラーのイベントを取得したいのですが、COMポートは正常に機能しているのですが、comEvReceiveに正しい値(0)が 入らずにデータ受信ができません。 対策を教えていただけませんか? Dim Buffer As String Do '5桁受信するまで待機 DoEvents Loop Until MSComm1.InBufferCount >= 5...
View ArticleActiveWorkbook.Path取得できない
ActiveWorkbook.Pathでパス名を取得して、 同じフォルダ内の別のエクセルシートを開きたいのですが、 見つかりませんと、エラーになります。 ただしそのエクセルを直接開いて名前を付けて同名で上書き保存をすると 取得できるようになるのですが、 すべて閉じて、再度実行すると、また取得できなくなるという現象が起こっているのですが 毎回上書き保存するわけにいかない為...
View ArticleSQLで時間差分とその合計の求め方
VB2010とACCESS2007にて管理区域の入退室管理をしています データは以下のような感じになります。 職員名 入室時間 退室時間 Ａ 8：30 10：00 B 8：40 9：00 A 11：00 11：30 C 13：00 16：00 と言ったデータを...
View Article自作Wordマクロのアドインの配布方法について
初歩的な質問になりますが、Wordマクロについて確認させてください。 VBAで自作マクロを作成しましてこれをユーザーに配布したいのですが、 その方法としてユーザーが自作マクロのアドインをインストールすることで 配布する方法があるようですが、その具体的な方法あるいはそのサイトがあれば ぜひご教授いただければと思います。 お手数おかけしますが、よろしくお願いいたします。
View ArticleVBA、VSTO、どっちを使えば？
客先のExcel2007で動作させる、簡単なアドオンを開発しようとしています。 動作としてはLAN内DB(SQL Server2005 Express)の収集データを、定型化されたExcelフォームに読み込むものです。 VB.NET2010はある程度使えますが、VBAはあまり経験がありません。 これだけの環境なら、間違いなくVSTO（Visual Studio Tool for...
View ArticleVBAのSaveFileNamePathメソッド
VBAでタブ区切りのテキストファイルを作成しようと思い Application.GetSaveAsFilenameメソッドを使用しています。 FileType = "txt ファイル (*.txt),*.txt" Application.GetSaveAsFilename(fileName, FileType, , Prompt)...
View ArticleEXCEL VBA 並び替えについて
こんばんは。 EXCEL VBAでデータの並び替えを作りましたが、実行すると実行時エラー（1004）となってしまいます。原因を探りましたが分からないため、問題点のご指導をお願いします。 ・1行目はタイトル行で、2行目以降にデータが入っております（現在は200行までデータが入っています）。。 ・A1～T1にタイトルのそれぞれの項目が入っています。...
View ArticleVBAのフォームについて
今、悩んでいるというか、不思議に思っていることがあります。 ACCESS2003 VBAで、VBAコードでメインのフォームから、ある帳票フォームのインスタンスを作成しています。メインフォームのモジュールに以下のように記述し、 Dim 帳票1 as Form で、ボタンのクリックイベントで、 set 帳票1 = New Form_帳票の元フォーム...
View ArticleVBAでwebクエリを取りすぎてI.Eが動かない
VBAのWEBクエリでwebページのデータを大量に取得したら エラーが頻繁に起きて、意味もわからずon eroor resume nextで続行した所、 IE,firefox共にネット接続できなくなり、 再起動、履歴の削除を行っても無意味でした。 当然別のpcは問題無く動きます。 何か解決策はありますでしょうか？ ご教示願います。
View Article勤務割表の式の簡略化
月間の勤務割表を作成しています。 1列3行を一枡として一人・一日の枡とし、勤務の割り振り状態を表示するものです。 列に日付、行を個人名（max16名）とし1列3行を名前の定義で13種類作成してあります。 別シートの各セルの入力番号に応じて13種類を貼り付けていますが、式を簡単にし月末までを連続処理するようにできませんでしようか？ お教えくださいませんでしょうか？勉強不足は否めませんが。...
View ArticleMS Access と VB6
現在、VB6とMSAccessを連動させたプログラムを作成し、 お客様のPCにて使っていただいているのですが、 VB6からAccessのテーブルに、 テキストファイルから取り込んだデータを書き込む際、 エラーコード3027と3343が起こったり、起こらなかったりとしています。 調べたところ、 3027は「データベースまたはオブジェクトは読み取り専用なので、更新できません。」...
View ArticleMSCommについて
↓例の桁数、データブロックが不定で連続して受信されます。 最後の1桁は(ETX)です。 (STX)XXXXXX...(ETX)(STX)XXXXX...(FS)XXXXX...(ETX)(STX)XXXXX.......(FS)XXXX...............(ETX) すべての桁数、データブロックが対象なので一度に受信します。 １．...
View Article小数点⇔ｎ進数のやり方
いつもお世話になっております。 早速ですが、VB2008にて小数点⇔n進数のやり方がわからず困っています。 16進数 404ccccd 10進数 1078774989 2進数 1000000010011001100110011001101 小数点に変換すると3.2になるはずですが、やり方がわかりません。 CONVERTやbitconverter等試してみたのですがうまくいきません。...
View Article勤務割表式の繰返し処理
月間の勤務割表を作成しています。 1列3行を一枡として一人・一日の枡とし、勤務の割り振り状態を表示するものです。 列に日付、行を個人名（max16名）とし1列3行を名前の定義で15種類作成してあります。 どうにか1人－1日分の式を簡略化はできましたが、16人－31日分までの式を簡単に繰返し処理するようにできませんでしようか？...
View ArticleDo～Loopした回数をカウントしたい
フォルダ内に数千件あるｃｓｖファイルのデータを他のBookにまとめるマクロを作成しました しかし、1000～5000件のデータを処理させると時間がかかるため、いつ終わるのか目途がたちません。 よって何件中何件処理が進んでいるのか？を知りたいです。 結果として、マクロ処理中に画面上に「**件/5000件処理中」みたいな感じでカウントアップしている表示をさせたい...
View Article2つのチェックボックスを制御
２つのチェックボックスがあり両方ともはずせて片方だけにチェックがつく２つの チェックボックスが作りたいです 自分なりに作成してみました。このソースで不具合等ありませんでしょうか Private Sub ckb1_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ckb1.CheckedChanged...
View ArticleVBAで1e-3を入力する方法
Excel2010でVBAを使用しています。 例えば、A = 1e-3 と入力すると自動的に A = 0.001 に変更されます。 A = 1e-20とかなら変更されないのである程度小さな値は自動的に変更されてしまうようです。 この機能をオフにすることはできないでしょうか？ 10^-3みたいにすれば良いのですが1e-3をそのまま残す方法があれば教えてください。...
View Article【VBA】AutoCADでの図形選択について
こんにちは、次のマクロを使って図面内の全ての図形を探索して「A」という名前のブロックを探し出して、その属性情報を書き換えるマクロを作成しています。 ですが、この方法だと、図形が3000～10000個ぐらいあると、数秒かかってしまい、使いづらいです。 ThisDrawing.ModelSpaceというコレクションをブロック参照に限定させる方法や...
View Article