Quantcast
Channel: OKWAVE 最新質問(Visual Basic/257)【本日】
Viewing all 6510 articles
Browse latest View live

vb.net タイマーに引数を渡す

0
0
vb.net(visual studio 2010)です。趣味(もちろん素人です。)でソフトを作ってます。timerに引数を渡すことはできるのでしょうか。integer型の引数を渡したいです。的外れな質問かもしれませんが、実現できたらうれしいです。よろしくお願いします。

ユーザーコントロールの繰返表示 c# vs2010

0
0
パネルにユーザーコントロールを20個ほど、繰り返し追加しています。表示途中は残像のようになり、表示完了までが遅く5秒ほどかかるのですが、早くできないでしょうか。 vs2010 c# ユーザーコントロールには、下記のコントロールを載せています。 パネル テキストボックス×3 コンボボックス×3 ラベル×5 for (int = i 0; i < 20; i++) { CustomUserControl ctrl = new CustomUserControl(); ctrl.Top = i * 50; panel.controls.add(ctrl); } 毎回 CustomUserControlのインスタンスを生成しているので、 CustomUserControlの InitializeComponent();が遅いような印象はあります。 this.SuspendLayout()と this.ResumeLayout()も 入れてみたのですが 変わりませんでした。 よろしくお願いします。

Excel forMac2011のVBA(日付)

0
0
これまでWindowsで動かしていたエクセルVBAですが、 Excel for Mac2011で動かすとエラーが出ます。 デバッグすると、InputDate = Temp の部分にマーカーが付きます。 エラーメッセージとしては、「0で除算しました」と出ます。 これまでwindows環境では問題なかったのですが、なぜでしょう? 以下、該当コードの一部です。 Sub 週間予定表() Dim InputDate As Date 'InputBox関数に入力された値を入れる変数 Dim Temp As Variant 'カレンダーのもとになる日付を入れる変数 Temp = InputBox("月曜日の年月日を半角で入力(例:2005/6/6)。", "年月日入力") If IsDate(Temp) = True Then InputDate = Temp If Weekday(InputDate) = 2 Then Else MsgBox "月曜日ではない。" Exit Sub End If Else MsgBox "入力間違い。" Exit Sub End If

リストボックスの列に連番をつけたい。

0
0
Excel2007でマクロ作成の初心者です。 以下のコードでリストボックスに顧客名前を、表示しています。 しかし、ボックスにずらりと名前が表示され見にくいです。 できれば、その名前の列の前列に、名前の順の連番をつけたいのですが できるでしょうか。名前の数は変動するので、番号も応じて変動します。 よろしくお願いします。 Private Sub UserForm_Initialize() Workbooks("請求.xls").Activate Dim i As Integer Const EXCEPT_NAME = "経理●一覧●基本●" For i = 1 To Worksheets.Count If InStr(EXCEPT_NAME, Worksheets(i).Name & "●") = 0 Then 顧客リスト.AddItem Worksheets(i).Name End If Next i End Sub

リストボックスからシートを選びアクティブにしたい

0
0
Excel2007でマクロ作成の初心者です。 リストボックスで選択した、リスト項目のワークシートを表示したいのですが、 「インデックスが有効範囲にありません」というエラーがでます。 どうしたらよろしいでしょうか? よろしくお願いします。 ’-------------------------------- Private Sub 顧客リスト_Click() With 顧客リスト Worksheets(.list(.ListIndex - 0)).Activate’----ここでエラー発生します End With End Sub ----------------------------- Private Sub UserForm_Initialize() Workbooks("請求.xls").Activate Dim i As Integer Const EXCEPT_NAME = "経理●一覧●基本●" For i = 1 To Worksheets.Count If InStr(EXCEPT_NAME, Worksheets(i).Name & "●") = 0 Then 顧客リスト.AddItem i & " " & Worksheets(i).Name End If Next i End Sub ’---------------------------

vb.net 違いは?

0
0
vb.netをインストールしたのですが すべてのプログラムに Microsoft Visual Studio 2010 と Microsoft Visual Studio 2010 Express があるのですが、違いはなんでしょう? 実際プログラムを作成するときは Microsoft Visual Basic 2010 Expressを起動すればいいんですよね?

リストボックスから選択したシートを削除したい

0
0
Excel2007でマクロ作成の初心者です。 リストボックスの選択項目のワークシートを削除したいのですが、 「インデックスが有効範囲にありません。」のエラーが発生し、 先に進めません。どうしたらよろしいでしょうか? ’--------------------- Private Sub 顧客削除_Click() Application.ScreenUpdating = False Unload Me Unload DS請求フォーム Dim i As Integer With 顧客リスト For i = 0 To .ListCount - 1 If .Selected(i) Then ' Worksheets(.list(.ListIndex)).Delete Worksheets(Split(.list(.ListIndex - 0), " ")(1)).Activate '←ここでエラー発生 ActiveSheet.Delete End If Next i End With MsgBox "選択の顧客を削除しました。" End Sub ’------------------------- Private Sub UserForm_Initialize() Workbooks("請求.xls").Activate Dim i As Integer Const EXCEPT_NAME = "経理●一覧●基本●" For i = 1 To Worksheets.Count If InStr(EXCEPT_NAME, Worksheets(i).Name & "●") = 0 Then 顧客リスト.AddItem i & " " & Worksheets(i).Name End If Next i End Sub ’----------------------

vb.netからアクセスのデータを引っ張ってこよう

0
0
vb.netからアクセスのデータを引っ張ってこようと思ってるのですが 画像のように 「選択された接続は、現在のプロジェクトにはないローカルデータファイルを使用します。 プロジェクトにファイルをコピーして接続を変更しますか?」 と出るのですが、 これは「はい」を選択すると、元のアクセスファイルのデータが追加・更新されても、反映されないということでしょうか? リアルタイムにアクセスファイルと連動したいなら、いいえを選べばいいのでしょうか?

メモ帳を開いて最大化するには?

0
0
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 にすると エラーステートメントの終わりを指定してください。 になってしまいます。

ラッパー????

0
0
オフィス2010をインストールしていて、vbからエクセル等を開く機会があるのですが デバックしてみたら警告に 参照される次のコンポーネントに使用できる、更新されたカスタム ラッパーがあります: Microsoft.Office.Interop.Access と出てきて、ダブルクリックすると 「COMコンポーネントの参照を追加した後、 それらのCOMコンポーネントに対する1つ以上のカスタムラッパーが このコンピュータにインストールされました。 これらのラッパーは現在使用されている自動生成ラッパーで提供されていない追加機能を提供する可能性があります。 自動生成ラッパーをカスタムラッパーにおきかえますか?」 と聞かれ、はい・いいえがあるのですが、意味が分からず何もしてないのですが、 どうすればいいでしょうか?

プロジェクトファイルはアンロードされました

0
0
久しぶりにvbを開いて前に作りかけのプロジェクトを開こうとしたら、 「プロジェクトファイルはアンロードされました」となって開けないのですが、 何が起こったのでしょうか? 消えちゃったのですか? vb2010を使っています。

VBAについて質問です

0
0
下記の場合、どのようなコードを組めばよろしいでしょうか。 (※表示シート、記入シート1、記入シート2の枚のシートがあります) (1)マクロを必ず有効にさせる。(→記入シート非表示であり、マクロが有効になると表示される) (2)記入シート1、2は「要入力」セルに未入力があるとエラーメッセージが表示される。  (上書き保存、名前を付けて保存、×で閉じようとすると表示されて保存ができないようにする) (3)記入シート1、2ともに「要入力」セルに未入力がない場合のみ、ファイルを保存(閉じる)ことが可能で記入シート1、2は非表示となる。  (※記入シート1か2のどちらかに未入力がある場合は、未入力がないシートも非表示とならない。)  (※×を押して閉じようとした際に、未入力がある場合でも、保存しますか→いいえを選択するとファイルは閉じれる) 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 If Sheets("記入シート1").Range("A1").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("記入シート1").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 上記をどう直せばいいか教えてください。

VB.NETでHTMLファイルを編集したい

0
0
質問させて頂きます。 VB.NET(Windows.Forms)から、PC内にあるHTMLファイルを読み込み、そのHTMLファイルの編集を行いたいと考えています。  ※例えば、C:\Test\Test.htmlの中身のコメントを削除する などです。  ※単純にファイルを読み込むのではなく、DOMを使って読み込みたいです。 どのような手法があるのかネットで検索してみてもいまいち分かりません。 何かご存じの方がいらっしゃいましたら、ご回答をよろしくお願いします。  ※ちなみに、作成したいのはツールですが、    世の中に出回るものではないので、その辺りの懸念は一応不要です。 環境  Windows7  VisualStudio2010

ハイパーリンク型を指定することは可能ですか?

0
0
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マクロ一覧から担当者別にデータを転機する方法

0
0
vbaマクロ初心者です。 次のような処理をしたいのですが、調べてもなかなか思うようにいかず ここに辿りつきました。良い方法を教えてください。 【マクロで行いたい処理】 「一覧(*)のデータを、担当者毎に分かれた別シートにデータを転記する処理」 ・一覧シート上にある下記のようなデータを「担当者」にフィルターをかけて、 別の担当者毎作成したシートにデータを転記したい。 (例 「山田」シートに「一覧」シートの山田さんの行のデータをコピーしてもってくる) ・すでに担当者毎のシートは作成されているものとします。 ・「一覧」シートに複数回分かれて同一人物名前がでてきます。(例山田さんが8行目、18行目に出てくる) ・「一覧」シートのデータは100~200行、担当者は10名ほどです。 「一覧」シート(*)  担当者  商品  売・買  実施日   山田   りんご  売    2/11  鈴木 みかん  買    2/25  田中 いちご   買  山田   いちご  売  山田   オレンジ 買 また、一覧シートに記載されているが、個別の担当者シートがない場合に メッセージ等で知らせてくれる処理がありましたらその機能も追加したいと思っております。 (上記の例で申しますと、田中さんシートが処理前に作成されていないケースでそれをマクロ処理中に教えてくれる) 文章に落とすとわかりづらくなってしまい、申し訳ないのですが、どうぞよろしくお願い致します。  

NET Framework3.5がインストできな

0
0
Windows XP Home SP3(x86)機へ.NET Framework3.5をインストールしたいのですが、インストール中にエラーが出て中断されてしまいます。なぜでしょう? ・既に入っていた.NET Framework2.0を削除してから試みてもダメでした。 ・インストールファイルのDLはうまくいっているようなのですが、インストール中にステータスバーが20%程進んだ所で”エラーが発生したのでファイルを削除します”となり中断されます。 調べた所インストール要件は満たしているようです。 思いあたるところやアドバイスがありましたら宜しくお願い致します。

SQL2012との通信リンクが切れてしまう

0
0
SQL Server2012を入れてあるサーバ(WinServer2008R2)へ対して、 TrueDBGrid7.0Jを使ったVB6で作成したアプリを クライアントPC(Win7Pro)で使っていると通信リンクが切れましたとか、 いつの間にか応答なしになっていたりします。 サーバに対してPingを通し続けた状態でもPingの応答は正常なのに SQL2012との通信リンクは切れるようになります。 このような現象の解決策など(SQL側での設定?)ご存知の方いらっしゃいましたら お助け下さい。 よろしくお願いいたします。

SheetsクラスのSelectメソッドが失敗

0
0
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

VB6 MSFlexGridについて

0
0
VB6SP6でMSFlexGridを使ってテーブルを表示しています。 (簡単ですが画像を添付します) 通常、「図1」のように表示しています。 どのPCでもこんな感じで表示されますが、十数台の内、1台だけ「図2」のようにテーブルのフォームがずれます。 左側にぴったり、値で言うと「0」と思われます。 上側に1列目が見出しなので2列目の途中まで上がっています。値で言うと「-300」ぐらいだと思われます。 十数台は問題がないのでロジックは問題ないとおもいます。 PCの何かの設定でしょうか。 正直、よくわかりません。 何かわかる方、又は、ここがあやしいと思われる方、なんでも結構です。 ヒントだけでも結構です。 宜しくお願い致します。

Vb.net で登録商標マークが文字化けされる

0
0
AS400 (DB2) にあるデータをVB.NETでEXCEL出力すると登録商標マークが文字化けされる。 DB2 FIELD PROPERTY : CCSID 5026 データ例: ス®ス 上記のデータを表示すると以下の通りになる。 ス ス どうすればこの現象がなおりますか? 開発環境:VB.NET 2003 & AS400, ISERIES NAVIGATOR V6R1
Viewing all 6510 articles
Browse latest View live




Latest Images