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

VB.Net 初歩的なトランザクション

大変お世話になっております。 ASP.Net をVBにて作成しております。 いずれも初心者なのですが、下記にトランザクションをつけたいのです。 おそらく初歩的なトランザクションだと思うのですが、うまくいきません。 引数のSQL には複数にわたる Insert 文が入っております。 cmd.ExecuteNonQuery() のところでトランザクション処理をしたいのですが、どこが間違っていて...

View Article


VBAでCSVファイルを分割したい

VBAを利用して、あるCSVファイルを一定のレコード数ごとに新しいファイルにファイル分割したいです。 やりたいことは、以下のようなイメージです。 関連サイトなどを参考に自分なりに取り組んでみましたが、なかなかうまくいきません。 VBAでなくても実現できそうですが、ここまでやったので勉強のためにもVBAでやりたいです。 サンプルコードなど教えていただけるとうれしいです。...

View Article


EXCEL2010でRGB指定できない

バグではないかと思いますが。 excel2007では動くのにExcel2010では動かない。 Cells(3,3).Interior.Color=RGB(0,0,255) Blueを指定するとErrorになります。 事情がおわかりの方 お教えください。

View Article

VisualBasic 2010

VisualBasic 2010 でWindowsアプリケーションを作成しています。 以下のような構成を考えております。 ・FormA ・ClassA(FormAでの処理を行うクラス) FormA内でClassAをNewしてClassAのメソッドを使用するようにしています。 その際に以下のようなコーディングをすると意図した動作をしません。 FormA.Txt_Msg.Text = "aaa"...

View Article

VBA DO~LOOPのネスト方法について

エクセルマクロの構文でDO~LOOPのネストを行った際に、EXIT DOで飛び出した後のLOOP条件が無効になるようです。どなたかご教授願います。 Sub TEST() y = 1 Do Do If y = 2 Then Exit Do End If y = y + 1 Loop Loop While y = 3 End Sub

View Article


SQL文でフィールド名を変動的にできますか?

VB.NETにてアクセスのMDBへSQLを使って直に書き込むコーディングについて疑問があります。 例えば、 cmnd.CommandText = "UPDATE 野菜テーブル SET 野菜カゴ1 = '" & 野菜名 & _ '" WHERE 条件文・・・" このように野菜テーブルのフィールド「野菜カゴ1」へある野菜をアップデートするSQLコマンド文があるとします。...

View Article

VBAのプログラムに関してです

VBAに関する質問です。 いま、A列に0~4の数字が順番に繰り返し記入されていて(数字の数はランダム)、B列に適当な値が記入されています。A列の中から1を探しだして(1つ上の行の数字が0)、...

View Article

VBAを利用して、呼び出し元マクロのフルパスを取得

現在、エクセルマクロの勉強をしているのですが、ご質問があります。 早速ですが、[マクロA]から[マクロB]を呼び出す時、[マクロA]のフルパスを[マクロB]から取得する事はできるのでしょうか。 [マクロA]のファイル名に関しては、"AAA_111.xls"だったり"AAA_222.xls"だったりします。...

View Article


プリンターを指定して印刷するには

アクセスです。 フォームのコマンドボタンをクリックしてレポートを開きます。 VBAコードは Private Sub コマンド0_Click() DoCmd.OpenReport "レポート1" End Sub です。 レポートが開いたら、自動で印刷されますが、 それは、通常使うプリンタに設定しているプリンタで印刷されてしまいます。 そうではなく、 Bullzip PDF...

View Article


いま以下のコードでA列のデータから1を探してその

1つ前と2つ前のB列の値をC.D列に出力することができるのですが、この時のデータ数を知りたいのですがどうすればいいでしょうか? Sub sample() Dim i As Long, j As Long, flg As Boolean For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row If Cells(i, 1) = 0 Then flg = True...

View Article

VBSのADODB.Streamで先頭に「追記」

こんにちは、 VBSのADODB.Streamでファイルを操作しています。 単純なことですが、どうしたらよいか、わからないことがあります。 test.txt の中身は abc def ghi となっています。 これを 123 abc def ghi のように変更したいのです。 ファイルの内容をいったんすべて読み込んで、Position =...

View Article

VBSループ内でファイル更新の遅延?

VBSでファイルを操作する処理を書いています。 1回目のループでtest1.txtファイルを開いて追記Aを行い、2回目のループでまたそのtest1.txtファイルを開いて追記Bを行って上書き保存しているのですが・・・ 2回目に開いてファイルに保存した後、保存したファイルが「ループ開始前の状態に対して追記Bのみをされた状態になっている」のです。...

View Article

Excelアドインファイルのマクロが消えます。

初歩的な質問になりますが、Excelアドインについて確認させてください。 当方Excel2003環境で標準モジュールを挿入したうえでマクロを作成し、ファイルの種類でExcel2007以降のアドインファイル(.xlamファイル)を選択して保存しました。...

View Article


vb6を用いての一部文書獲得の方法

vb6を用いたプログラミングについて質問させていただきます。 長文の中から以下3つの条件で文章を取得したいと考えています。 1.特定のキーワード(例えば:「goo」)が含まれている文とその前後の一文を取得したいです。 2.キーワードが最初の文に含まれる場合には後ろ二文、最後の文に含まれている場合には前の二文を取得。...

View Article

excelでのウェブの入力フォームへの入力について

excelを使ってwebの入力フォームを一発で入力したいのですが、やり方がよくわかりません・・・。 どなたかご存知の方、教えていただけると大変助かります。 お願いします!

View Article


日付を数値型にしたいけどうまくできない

Sub さんぷる1() Dim testlong As Long testlong = CLng(("2012/12/14")) End Sub をすると、 型が一致しません。になりますが、なぜでしょう? VBAです。

View Article

VBAでユーザーフォームの表示を確認

VBAでユーザーフォームが表示されていなかったら UserForm1.Show vbModeless で表示させるようなプログラムを組みたいのですが 表示されているかどうかはそのようなコードで調べることができますでしょうか?

View Article


Service Pack 1なのかどうかってどうや

Service Pack 1なのかどうかってどうやったらわかりますか? Microsoft Visual Basic 2010 Expressをインストールしてあるのですが、 これがVisual Studio 2010 Service Pack 1かはどうやってわかりますか? ヘルプのバージョン情報を見ましたがサービスパックについては何も書いてありませんでした。

View Article

【.NET】コンストラクタをあとで呼出す方法

.NET初心者です。 今VB.NETでVB6向けの自作COMクラスライブラリを作成しています。 自作クラスはStreamWriterクラスのラッパークラスとしてStreamWriterと継承関係にあります。 COMは引数なしのコンストラクターを一つ用意しなければなりませんが、 StreamWriterクラスは引数なしのコンストラクタを用意されていないため困っています。...

View Article

keydownイベントを発生で他のフォームで受信

VB初心者です。 よろしくお願いします。 バーコードリーダーで読み込んでtextboxに表示させる仕組みを作りましたが、バーコードリーダーが ないのでバーコードリーダーを読み込んだように疑似的にできるようなことを考えています。 考えとしては バーコードを読み込んで表示させる:フォームA  ・keydownイベントを受っとる  ・textboxに読み込んだ値を表示...

View Article
Browsing all 7264 articles
Browse latest View live


<script src="https://jsc.adskeeper.com/r/s/rssing.com.1596347.js" async> </script>