vb.netでの質問
<font color="red">ピカチュウ</font> WebBrowser1で開いているページのソースの中に↑のようなコードがあるとします。 そのコードの「ピカチュウ」の部分だけをメッセージボックスに表示しとうと思い For Each es As HtmlElement In...
View ArticleVBA 検索するSheetの位置の変更
現在、グループの数だけユーザー名の合計数をSheet2に抽出するという 事をやっているのですが....... コードの方は下記になります Sub Sample3() Dim i As Long, j As Long, k As Long, lastRow As Long, lastCol As Long Dim wS2 As Worksheet, wS3 As Worksheet Set wS2 =...
View Article複数のテキストボックスのカンマ処理
現在、ユーザーフォームに60個のテキストボックスを設置しています。 数値入力されるとカンマが付くようコードを書いているのですが、まとめて処理できるようなコードはないでしょうか？ 現在… Private Sub TextBox1_Change() TextBox1.Text = Format(TextBox1.Text, "#,##0") End Sub Private Sub...
View ArticleエクセルＶＢＡの中の OFFSETの記述
早速ですが Cells(cnt, n - 5) = WorksheetFunction.Sum(Me.Range("cr" & cnt + 1 & ":ct" & cnt + 1)) は 通っています。 sumの範囲を 可変にしたいので 可変値 $CR$6 ＝3 とします（ｃｒ、ｃｓ、ｃｔ） で Cells(cnt, n - 3) =...
View ArticleExcel2013にしたらVBAがすごく重くなった
会社のPCがExcel2010からExcel2013に変更されたのですが、Excel2010の環境で作成していたVBAマクロの処理がもの凄く遅くなってしまいました。 Excel2010では10秒ほど待てば終わった処理が30分以上かかるようになってしまい、業務効率を上げるために作ったVBAが逆に非効率になってしまい困っております。...
View ArticleエクセルVBAで任意の文字列を抽出するには・・・
エクセル2003で作成した住所録があります。 県名（３文字）のみを抽出して、新たに設けたD列に表示させたいと考えています。 Sub 県名の列作成() Dim myStr As String myStr = ActiveCell.Value Range("D2").Value = Left(myStr,3) End Sub ここまで、できたのですが・・・・...
View ArticleエクセルVBAでVLookupを使って値を転記する
エクセル2003で商品の一覧表を作成しています。 Sheet1は商品一覧（左図） Sheet2は価格表（右図）となっています。 マクロを使用して、Sheet1のB列に価格表のデータを転記させたいと考えています。 VLookupになるのかと思い、自分でいろいろとやってみたのですが、 どうしても動作せず、挫折してしまいました。 商品一覧の最後の行までいって、空白セルがくると止まるというのが、...
View Articleエクセルでマクロ（VLookup）を使用する方法
エクセル2003で作成した会社の一覧表があります。 Sheet1は会社一覧（上図） Sheet2はエリア表（下図）です。 マクロを使用して、Sheet1のＧ列にエリアの読みを表示 どうにか自分でやろうとしたのですが、できませんでした。 Sheet1の最後まで行くとストップするようにしたいのです。 どうかご教授お願いいたします。
View ArticleエクセルＶＢＡでリストを仕分けしてファイル出力
会社リストからＨＴＭＬファイルを作成しています。 １つの地域で１つのファイルにしています。 地域によっては会社数が多くなってきたので、 ２０社ごとにファイルを別にして出力したいと考えております。 tokyo tokyo2 tokyo3 tokyo4 ・ ・ ・ Ｇ列のファイル名を２０社ごとに変換するには 以下のソースをどのように改良すれば良いのか、ご教授願います。 Sub...
View ArticleＥｘｃｅｌの起動と、セルの情報読込方法について
VB2008でＥｘｃｅｌの操作をおこなうプログラムを作成しています。ＯｐｅｎＦｉｌｅＤｉａｌｏｇでファイルを指定して、オープンし、操作するＳｈｅｅｔを指定するまでは出来ました。ここで、...
View ArticleAccess-郵便番号と住所の整合チェック
お世話になります。 Accessにて顧客管理システムを作成しています。掲題について、連結サブフォームでの入力項目の郵便番号には入力支援として住所の自動入力は設定しています。 ただ、その郵便番号入力後 住所を入力者が変えた時、郵便番号と異なる場合のチェックを保存処理のボタンを押したタイミングでDBに予め用意したフラグフィールドに付けたいです。...
View ArticleVB2008でExcelのセルを読み込む
VB2008でExcel（.xls）のセルデータを読み込もうと思い、ネットにあるものを試しましたが、全くよみこめません。列と行を整数型変数で指定して読み込む方法を教えてください。
View ArticleVB2008でExcelを起動時の問題
VB2008でExcelをオープンするとき「コノブックは、安全でない可能性のある外部ソースへのリンクが１つ以上含まれています」とメッセージが表示されますので、「更新する」ボタンをクリックすると次に「ブックの一部のリンクはすぐに更新できません」とメッセージが表示され、「続行」ボタンをクリックすると以後は正常に動作します。デスクトップからExcelを起動したときはこのような現象は発生しません。VBのどこ...
View ArticleCrystal Reportsのマイグレート
Windows XP + VB5.0 + Access97 + Crystal Reportで作成されたお客様のシステムのマイグレート作業を行っています。 SAP Crystal Reports, developer version for Microsoft Visual Studioですが、これはVB5.0で動作していたCrystalReportsをそのまま(OR...
View ArticleエクセルＶＢＡで住所録の分類コードを自動で作成
エクセルで作成した住所録があります。 数が増えてきたのでコードで分類したいと考えています。 現在の住所録には「大分類」のＣ列まで入力されています。 ここからＶＢＡによって、 「中分類」と「小分類」を入力したいと思います。 ＊中分類は末尾に２ケタの数字を追加（２０ごとに 01、02、03 とする。） ＊小分類は末尾に１ケタの英字を追加（１つごとに A、B、C とする） どうかよろしくお願いいたします。
View Articleエクセルマクロで自動転記について
独学で手さぐりしながら学んでいますが、どうしてもうまくいかず。 アドバイス頂けないでしょうか？ (1)を毎回元にして、出荷指示を作成していき、入力後保存ボタンをおすと(2)の別シートに自動転記して 月々のリストを作成していきたいのです。...
View Articlevb上で実行させたコマンドに変数を代入
現在vb.netで接続されたデバイスの状態変更操作を行うアプリを作成しています。 デバイスの状態変更はdevcon.exeをvb.net上で呼び出しそこで行っているのですが、デバイスそれぞれの状態を変更したいと考えています。 現時点では、devcon.exe上でUSB*を使用してデバイスのすべてを状態変更しているのですが、これを実行するとマウスやキーボードなども変更されてしまい困っています。...
View Articleエクセルのファイル名に変数を指定して開く方法
エクセルのVBA初心者です。 最近、といっても２～３日前に始めたのですが、簡単なところで つまづいてしまい、本を読んでもにっちもさっちもいかず、困っております。 下記にやりたいことと、構文を記載しますので、お手数ですがアドバイスを 頂ければ助かります。 ＜やりたいこと＞ 特定のセルに記載された文字をファイル名としたエクセルファイルを VBAで開きたい。 ＜構文＞ Sub W() Dim ファイル名...
View ArticleDo While ステートメントエラー
VBA初心者です。 VBAで作成したプログラムがエラーで止まってしまい、先に進まないのです。 わかる方いらっしゃいましたら、ご教示頂けないでしょうか。 ＜やりたいこと＞ 同じ形式の複数のエクセルBOOKに入っている特定の列の特定の行範囲にあるデータを、 別の集計用エクセルBOOKの単一のシートの中に順々にコピーをしていきたいのです。...
View ArticleエクセルＶＢＡ 違うbookのフォームにデータを
ひとつのエクセルに BOOK1,2 を 起こして BOOK1 から BOOK2 の 自作フォームの テキストに 値は 送り込めないのでしょうか？ シートのセルと ボタンは 可能なのですが・・・ Workbooks("Book2.xlsm").Worksheets("Sheet1").Range("A1:a4").Copy...
View Article