vb.netからアクセスのデータを引っ張ってこようと思ってるのですが 画像のように 「選択された接続は、現在のプロジェクトにはないローカルデータファイルを使用します。 プロジェクトにファイルをコピーして接続を変更しますか？」 と出るのですが、 これは「はい」を選択すると、元のアクセスファイルのデータが追加・更新されても、反映されないということでしょうか？ リアルタイムにアクセスファイルと連動したいなら、いいえを選べばいいのでしょうか？
vb.netからアクセスのデータを引っ張ってこよう
↧
↧
メモ帳を開いて最大化するには？
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles cmd_ボタン.Click System.Diagnostics.Process.Start("notepad.exe") End Sub これでメモ帳を開くことはできたのですが、最大化するにはどうすればいいでしょうか？ System.Diagnostics.Process.Start("notepad.exe") ,vbMaximizedFocus にすると エラーステートメントの終わりを指定してください。 になってしまいます。
↧
ラッパー？？？？
オフィス２０１０をインストールしていて、vbからエクセル等を開く機会があるのですが デバックしてみたら警告に 参照される次のコンポーネントに使用できる、更新されたカスタム ラッパーがあります: Microsoft.Office.Interop.Access と出てきて、ダブルクリックすると 「COMコンポーネントの参照を追加した後、 それらのCOMコンポーネントに対する1つ以上のカスタムラッパーが このコンピュータにインストールされました。 これらのラッパーは現在使用されている自動生成ラッパーで提供されていない追加機能を提供する可能性があります。 自動生成ラッパーをカスタムラッパーにおきかえますか？」 と聞かれ、はい・いいえがあるのですが、意味が分からず何もしてないのですが、 どうすればいいでしょうか？
↧
プロジェクトファイルはアンロードされました
久しぶりにvbを開いて前に作りかけのプロジェクトを開こうとしたら、 「プロジェクトファイルはアンロードされました」となって開けないのですが、 何が起こったのでしょうか？ 消えちゃったのですか？ ｖｂ2010を使っています。
↧
VBAについて質問です
下記の場合、どのようなコードを組めばよろしいでしょうか。 (※表示シート、記入シート１、記入シート2の枚のシートがあります) (1)マクロを必ず有効にさせる。(→記入シート非表示であり、マクロが有効になると表示される) (2)記入シート１、２は「要入力」セルに未入力があるとエラーメッセージが表示される。 (上書き保存、名前を付けて保存、×で閉じようとすると表示されて保存ができないようにする) (3)記入シート１、２ともに「要入力」セルに未入力がない場合のみ、ファイルを保存(閉じる)ことが可能で記入シート１、２は非表示となる。 (※記入シート1か２のどちらかに未入力がある場合は、未入力がないシートも非表示とならない。) (※×を押して閉じようとした際に、未入力がある場合でも、保存しますか→いいえを選択するとファイルは閉じれる) Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) flag = 0 For Each seru In Sheets("記入シート1").Range("要入力_1") If seru.Value = "" Then MsgBox seru.Address & " が未入力です。(記入シート1)" flag = 1 End If Next If flag = 1 Then Cancel = True End If Ｉf Sheets("記入シート1").Range("Ａ１").Value > 0 Then flag = 0 For Each seru In Sheets("記入シート2").Range("要入力_2") If seru.Value = "" Then MsgBox seru.Address & " が未入力です。(記入シート2)" flag = 1 End If Next If flag = 1 Then Cancel = True End If End If End Sub Private Sub Workbook_BeforeClose(Cancel As Boolean) If Not Sheets("記入シート1").Range("要入力_1").Value = "" Then If Sheets("表示シート").Visible Then Sheets("記入シート１").Visible = xlVeryHidden If Not Sheets("記入シート2").Range("要入力_2").Value = "" Then If Sheets("表示シート").Visible Then Sheets("記入シート2").Visible = xlVeryHidden ActiveWorkbook.Save End If End Sub Private Sub Workbook_Open() If Not Sheets("記入シート1").Visible Then Sheets("記入シート1").Visible = True If Not Sheets("記入シート2").Visible Then Sheets("記入シート2").Visible = True End Sub 上記をどう直せばいいか教えてください。
↧
↧
正規表現について
VBSでRegExpで文字を抽出したいのですが、上手くいきません。 *****abc******** ************} *は不確定の文字で、キーワードはabcと}です。がabcの先頭行から}までの複数行を 抽出したいです。 re.Pattern = "[^*].*abc.*}" だと上手く動きません。 よろしくお願いします。
↧
複数エクセルシートの組合せるマクロの質問で(2)
ややこしくて済みません。質問の真意は以下の通りです。 ＜シート１＞にはABCD....の2桁からの組合せ、＜シート2,3,4....＞には0と1の2桁、3桁、4桁....の組合せになります。そしてシートには＜シート１＞の各桁の組合せと0,1を組合せた結果のまとめになります。以下は例文です。 1 A B A C : : A B C A B D : : : A B C D A B C E : : : : 1 1 1 0 : : 1 1 1 1 0 1 : : : 1 1 1 1 1 1 1 0 : : : : A B 1 1 A B 1 0 : : A B C 1 1 1 A B C 1 0 1 A B D 1 1 1 A B D 1 0 1 : : : A B C D 1 1 1 1 A B C D 1 1 1 0 A B C E 1 1 1 1 A B C E 1 1 1 0 : : : : 以上、マクロの組み方あるいは関数などで解決できる方法を教えていただきたいです。
↧
access モニタ電源off時の動作
自社システムをaccess(vba)で構築しています。 このアプリは24時間動作しており、一定周期(60秒)ごとに処理を実行しています。 夜間帯は省電力のためにモニタ電源をoffにしています。 ※この時はモニタ電源offアプリを用いてモニタの電源をoffにしています。 夜間帯に、ごく稀にですが、上記60秒ごとの処理がされない。(システムが止まる) 事象が発生してしまいます。 しかしながら、モニタの電源をon(リモートでログイン)したら処理が再開されます。 この原因として何かわかる方がいらっしゃいましたらご教授いただけないでしょうか。
↧
Userform Label Backcolor
Userform Label Backcolorの色イメージが意図したものになりません。 どうすればいいか教えて下さい。 UserForm1.Label1.BackColor = RGB(204, 204, 102) UserForm1.Label2.BackColor = RGB(255, 204, 204) を実行したときのUserForm1のLabel1とLabel2の色イメージが Range("A1").Interior.Color = RGB(204,204, 102) Range("A2").Interior.Color = RGB(255, 204, 204) を実行したときのセルA1,A2の色イメージとが随分乖離しています。
↧
↧
VB.NETでHTMLファイルを編集したい
質問させて頂きます。 VB.NET(Windows.Forms)から、PC内にあるHTMLファイルを読み込み、そのHTMLファイルの編集を行いたいと考えています。 ※例えば、C:\Test\Test.htmlの中身のコメントを削除する などです。 ※単純にファイルを読み込むのではなく、ＤＯＭを使って読み込みたいです。 どのような手法があるのかネットで検索してみてもいまいち分かりません。 何かご存じの方がいらっしゃいましたら、ご回答をよろしくお願いします。 ※ちなみに、作成したいのはツールですが、 世の中に出回るものではないので、その辺りの懸念は一応不要です。 環境 Windows7 VisualStudio2010
↧
ハイパーリンク型を指定することは可能ですか？
VBAでテーブル（フィールド）を作る際にハイパーリンク型を指定することは可能ですか？ Sub test() Dim cat As ADOX.Catalog Dim tbl As ADOX.Table Set cat = New ADOX.Catalog cat.ActiveConnection = CurrentProject.Connection Set tbl = New ADOX.Table tbl.Name = "テーブル" tbl.Columns.Append "URL", adVarWChar cat.Tables.Append tbl Set cat = Nothing End Sub アクセスでこんな感じで作ってるのですが adVarWCharの部分をハイパーリンク型にしたいです。 しかし http://www.accessclub.jp/ado/adox/06.html を見てるとデータ型にハイパーリンク型が見当たらないのですが、不可能という事でしょうか？
↧
vbaマクロ一覧から担当者別にデータを転機する方法
vbaマクロ初心者です。 次のような処理をしたいのですが、調べてもなかなか思うようにいかず ここに辿りつきました。良い方法を教えてください。 【マクロで行いたい処理】 「一覧（*）のデータを、担当者毎に分かれた別シートにデータを転記する処理」 ・一覧シート上にある下記のようなデータを「担当者」にフィルターをかけて、 別の担当者毎作成したシートにデータを転記したい。 （例 「山田」シートに「一覧」シートの山田さんの行のデータをコピーしてもってくる） ・すでに担当者毎のシートは作成されているものとします。 ・「一覧」シートに複数回分かれて同一人物名前がでてきます。（例山田さんが８行目、１８行目に出てくる） ・「一覧」シートのデータは１００～２００行、担当者は１０名ほどです。 「一覧」シート（*） 担当者 商品 売・買 実施日 山田 りんご 売 2/11 鈴木 みかん 買 2/25 田中 いちご 買 山田 いちご 売 山田 オレンジ 買 また、一覧シートに記載されているが、個別の担当者シートがない場合に メッセージ等で知らせてくれる処理がありましたらその機能も追加したいと思っております。 （上記の例で申しますと、田中さんシートが処理前に作成されていないケースでそれをマクロ処理中に教えてくれる） 文章に落とすとわかりづらくなってしまい、申し訳ないのですが、どうぞよろしくお願い致します。
↧
NET Framework3.5がインストできな
Windows XP Home SP3(x86)機へ.NET Framework3.5をインストールしたいのですが、インストール中にエラーが出て中断されてしまいます。なぜでしょう？ ・既に入っていた.NET Framework2.0を削除してから試みてもダメでした。 ・インストールファイルのＤＬはうまくいっているようなのですが、インストール中にステータスバーが２０％程進んだ所で”エラーが発生したのでファイルを削除します”となり中断されます。 調べた所インストール要件は満たしているようです。 思いあたるところやアドバイスがありましたら宜しくお願い致します。
↧
↧
SQL2012との通信リンクが切れてしまう
SQL Server2012を入れてあるサーバ(WinServer2008R2)へ対して、 TrueDBGrid7.0Jを使ったVB6で作成したアプリを クライアントPC(Win7Pro)で使っていると通信リンクが切れましたとか、 いつの間にか応答なしになっていたりします。 サーバに対してPingを通し続けた状態でもPingの応答は正常なのに SQL2012との通信リンクは切れるようになります。 このような現象の解決策など(SQL側での設定？)ご存知の方いらっしゃいましたら お助け下さい。 よろしくお願いいたします。
↧
SheetsクラスのSelectメソッドが失敗
Excelファイルのマクロで、SheetsクラスのSelectメソッドが失敗しましたのエラーが出ます 以下のマクロですが、最初のSheets(Array(................))._Select でエラーになりますその後は解りませんが．．．。 原因はSelectしているSheetの中に非表示なシートがあるのが原因ですが、 このマクロが入っているExcelファイルは色々な人が使うので人によって非表示にしたい シートがまちまちで、限定は出来ません。ただし、非表示にしたものはそのファイルを 使う人はそのシートはなくても構わないですので、使う人によってマクロを修正すれば 動くのですが、ちょっと面倒なのでこのマクロを修正して対応出来ればと思います。 このケースはsheet4～sheet10までのシートを選択して、選択した全てのシートの特定 部分を消去し、選択していないシートに入って選択を解除し基本となるシートに戻る というマクロです。 マクロの記録で作成して、いらなそうなやつを削除したものです。 ホームページで色々検索しましたが、非表示シートはSelect出来ないと言うことは何となく 解りましたが、マクロの記録で作成した事でも解るように全くの初心者ですので、そこの ところよろしくお願いします。 Sub クリアー() ' ' クリアー Macro ' Sheets(Array("sheet4", "sheet5", "sheet6", "sheet7", "sheet8", "sheet9", "sheet10")). _ Select Sheets("sheet6").Activate Union(Range( _ "F109:BO109,F112:BO112,F115:BO115,F118:BO118,F121:BO121" _ ), Range( _ "FJ225:GS225,FJ228:GS228,FJ231:GS231,FJ234:GS234,FJ237:GS237" _ ), Range( _ "OA535:PD535,OA538:PD538,OA541:PD541,OA544:PD544,OA547:PD547")).Select Selection.ClearContents Sheets("sheet3").Select Sheets("sheet6").Select Range("J1:L1").Select End Sub
↧
ActiveReports 初歩の質問
お世話になります。 先週からASP.Net の印刷機能の為にActiveReportsを使い勉強中であります。 明細とレポートフッターにデータを表示させることはできたのですが、 例えば以下のデータで、レポートフッターにＡの合計値60 と Ｂの合計値 800の割合を出したいのですが、どのようにすればよいかわかりません。 下記のフッターにある合計値のAとBのTextBoxには それぞれSummaryFunc に Sum を SummaryType に GrandTotal を入れてあります。 そこで、 Sub ReportFooter1_Format me.C.Value = me.A.TEXT / B.TEXT End Sub 上記を記述しても、それぞれの合計値を参照せず、最後のレコードの値を参照する形になってしまいます。どのように記述すれば、フッターにある合計値を取得することができるでしょうか？ 何分初心者なので、よろしくお願いいたします。 Ａ Ｂ 10 100 20 300 30 400 --------- 60 800 → 7.5％ と表示させたいのです。
↧
回答No１へ
有難うございました。 やってみたところ以下の問題を生じました。 ・シート1は最上行を空けないでシート2～4の最上行を空けておくとシート５に結果が出ますが、1と0は組合せになっていません。例えば２桁の場合、１１と００のみ、１０と０１の組合せはありませんでした。 ・シート１の最上行も空けておくと結果は６行目から出てきます。
↧
↧
ＶＢ６ MSFlexGridについて
VB6SP6でMSFlexGridを使ってテーブルを表示しています。 （簡単ですが画像を添付します） 通常、「図１」のように表示しています。 どのＰＣでもこんな感じで表示されますが、十数台の内、１台だけ「図２」のようにテーブルのフォームがずれます。 左側にぴったり、値で言うと「0」と思われます。 上側に１列目が見出しなので２列目の途中まで上がっています。値で言うと「-300」ぐらいだと思われます。 十数台は問題がないのでロジックは問題ないとおもいます。 ＰＣの何かの設定でしょうか。 正直、よくわかりません。 何かわかる方、又は、ここがあやしいと思われる方、なんでも結構です。 ヒントだけでも結構です。 宜しくお願い致します。
↧
Vb.net で登録商標マークが文字化けされる
AS400 (DB2) にあるデータをＶＢ．ＮＥＴでＥＸＣＥＬ出力すると登録商標マークが文字化けされる。 DB2 FIELD PROPERTY : CCSID 5026 データ例： ス®ス 上記のデータを表示すると以下の通りになる。 ス ス どうすればこの現象がなおりますか？ 開発環境：VB.NET 2003 & AS400, ISERIES NAVIGATOR V6R1
↧
VBSで正規表現キーワード複数は？
すみません、VBSの正規表現で改行をまたぐ検索をしたいのですが キーワードが複数の場合はどう書けばいいのでしょうか？ 例：xxxxxabcxxxxxxxx改行 ｘｘｘｘｘefgxxxxxxxxxxx改行 xxxxxxLxxxx xは不定期文字 キーワード abc , efg , L .*abc[^efg][^L]*efg*L.*とやってもだめでした。 よろしくお願いします。
↧
More Pages to Explore .....
