回答数
気になる
-
TextBoxのプログラムについて
氏名:Text1 に氏名を入力しデータベースを検索 (1)Text1に入力がない場合、エラーメッセージを表示し再入力 入力されていた場合 (2)データがあった場合には、顧客コード:Text2は入力不可 (3)データがない場合に、顧客コード:Text2は入力可 という風にしたいとします。 1.[Enter]を押されたら、Text2が入力可ならText2へ 不可ならText3へ 2.[TabIndex]はText1:1 Text2:2 Text3:3になっているとし 3.マウスで項目移動できる 4.終了ボタンで終了することができる という操作をしたい場合に、どのイベントにどういう内容をコーディングしたらいいのでしょう? 他の質問に答えていて、ちょっと不安になりました。 皆さんの方法を教えてください。 できれば、Text1でコーディングするすべてのイベントについて知りたいのです。 また、こういう仕様の方がよいというアドバイスでも結構です。 特に入力チェックのタイミングを教えて頂ければと思います。
質問日時: 2002/09/27 01:55 質問者: taisuke555
ベストアンサー
6
0
-
エクセルのマクロについて教えてください
エクセルで、その行の中に赤色のセルがある場合は、その行のA列のセルに"○"を入れるというのは、マクロで書く場合はどのように書けばよいでしょうか。 行は1~100まで、列はA~Zまであります。赤色のセルはB列~Z列の所々に点在します。
質問日時: 2008/06/12 15:17 質問者: noche_gote
解決済
6
0
-
アプリケーション作成ソフトを探しています。
タイトルでは誤解があるかと思いますが、 VBで、アプリケーションファイルを作成する必要が、発生しました。 (いわゆるハスプの組み込みを命じられました。) が、当社はVBを持っていません。 購入の予定もございません。 フリーソフトで、VBコードでコンパイルまで出来る 物ってご存じでしょうか? また、ハスプの組み込みにはC、C++のAPIも 用意されているみたいですが、アプリケーション作成 ソフトをご存じの方、お教え下さい。 お願いします。
質問日時: 2006/05/24 10:14 質問者: yoshi5029
ベストアンサー
6
0
-
Visual Basic 2005 クラスライブラリの使い方
異なるクラス間で共通の変数aを使いたいのですが、うまくいきません。あるクラスForm1でaを宣言しても他のクラスClass1でも宣言しないとエラーが出てしまいます。 以下のクラスをデバイスアプリケーションとして作成し、 Public Class Form1 Public a As Integer = 100 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim Test As New MyLibrary.Class1 Test.Plus1() MsgBox(a, MsgBoxStyle.Information, "実験") End Sub End Class 以下のクラスをクラスライブラリMyLibraryとして作成します。 Public Class Class1 Dim a As Integer = 0 Public Sub Plus1() a += 1 End Sub End Class Form1でボタンを押すと、メッセージボックスに100と表示されます。 (関数Plus1の効果なし) ちなみにClass1の「Dim a」を「Static a」にしてクラスライブラリ(DLL)を最初に呼び出したときだけ初期化すればよいと思ったのですが、そうすると「'Static' は、メンバ変数宣言では有効ではありません。」というエラーが出てしまいます。 解決方法をご存知の方、ご教授願います。 また、クラスライブラリ(DLL)を作成するとまとまりができてプログラムの変更がしやすいと思いますが、やはり処理速度が遅くなるなどの問題もあるのでしょうか?
質問日時: 2007/05/28 20:56 質問者: Rossana
解決済
6
0
-
VBとVB.Netについて
早速質問します、よろしくお願いします。 これからソフトの勉強をしようと思いますが、Visual Basic Application (VBA)、Visual Basic(Ver6.0)、Visual Basic.Netとのそ れぞれの違いを教えてください。 またこれから勉強するにはどのソフトを勉強すれば良いですか。 Visual Basic.Netをマスターすれば、VBA、Visual Basic(Ver6.0)も使えるようになりますか。 また、C言語とC++との違いも教えてください。友人に聞くとC言語はもう古くて最近は殆ど使う人がいないとも聞きましたが、本当でしょうか。 勉強しやすい言語はどれですか。windowsはどの言語できてるのですか。 以上、よろしくお願いします。
質問日時: 2005/03/04 18:41 質問者: htgo
ベストアンサー
6
1
-
エクセルのセルからVB等で作成したアプリの変数を参照するには
エクセルのセルからVB等で作成したアプリの変数を参照する方法がわかりません。 また、そのアプリで変数が更新された際に自動的にセルの内容が変わるといった仕組みは無いでしょうか。 楽天証券のリアルタイムスプレッドシートは、セルで"=app|code!field"のような形で情報を参照できるので、何らかの方法があると思っています。 また、上記の式をエクセルに入力すると、「APP.EXEを起動しますか」といったメッセージが出ますので、参照はできるのだと思います。 VBのアプリからセルをいじると、パフォーマンスが悪く困っています。 アプリはVBにはこだわっておりません。 また、ヒントとなるような情報だけでもかまいません。 よろしくお願いします。
質問日時: 2005/07/14 18:00 質問者: momonga_excel
解決済
6
0
-
金額の割り振り方について(ACCESS&VB)
現在、ACCESSのみで請求書を発行するシステムを作っていますが、VB使用経験なしで、使う必要がでてくることになってしまったので質問します。 氏名 部門1 部門2 部門3 Aさん: 10 Bさん: 10 20 30 氏名 金額 Aさん:1000円 Bさん:1000円 という二つのテーブルがある時に 10→1333円 20→333円 30→334円 というふうに配分しなければなりません。 素人なりの考え方としては 1:Bの部門を取得 2:Bに割り振るべき部門数をカウント 3:1000円を2で得た部門数3で割る (この時に、単純に割れば333.33となってしまうので、関数的に数値を丸めた後変数に代入して a = 333, b = 333, c = 1000-(a+b)ということが可能?) 4:部門ごとに集計。というふうに考えいています。 4に関しては、「部門」で合計をだすだけなのでわかりますが、1・2・3に関しては可能でしょうか?ヒントだけでもいただければと思います。よろしくお願いいたします。
質問日時: 2005/07/31 12:01 質問者: withlinus
ベストアンサー
6
0
-
CSVファイルの特定行の削除
CSVファイルの特定行を削除するということは可能なのでしょうか? 可能であれば教えて頂けないでしょうか? お願いします。
質問日時: 2001/11/26 14:41 質問者: dmn
ベストアンサー
6
1
-
タスクトレイアイコンからのメニュー表示について
今VBでプログラムを作成しています。 サンプルソースを調べたりして、「Shell_NotifyIcon」を使用してタスクトレイにアイコンを追加する事はできたのですが、そのアイコンを右クリック等してメニューを表示させることができません。コールバックメッセージにWM_MOUSEMOVEを指定しているのですがフォームのMouse_Moveイベント自体が発生していないようです。 いくつかサンプルソースをダウンロードして実行してみましたが問題は無かったので、環境のせいでは無いと思います。 原因の可能性として考えつくものがあったら教えて下さい。 (ソースコードは長くなるので割愛させて頂きます。APIを使用している部分は全てサンプルソースのコピーそのままです。)
質問日時: 2002/03/11 15:20 質問者: akirou
ベストアンサー
6
0
-
Form1からForm2へ変数を送る
VBの初心者です。 下のようにコードを記述してみました。 ・Form1のdNameをForm2へ送り、ラベルに表示。 ・変数dNameは標準モジュールで定義。 **Form1** dName = delname.Text Form2.Show **Form2** Label.Caption = dName **標準モジュール** Dim dName As String しかし、ラベルにdNameの値が表示されません。 なにか良い解決策を教えてください。 あと、標準モジュールについてわかりやすく教えて下さい。
質問日時: 2005/11/25 10:00 質問者: hiromu0103
ベストアンサー
6
0
-
構造体配列を引数とするDLL作成し、VBで呼ぶには?
はじめまして。 VisualC++6.0でDLLを作り、VisualBasic6.0にて VisualC++の関数をコールし、構造体配列の値を 渡そうとしていますがうまくいきません。 どなたかよい知恵をお貸しください。 宜しくお願い致します。 下記に、VisualC++6.0とVisualBasic6.0のやりとり を記します。 *====Visual C++ 6.0側===== typedefstruct_DLP_MSGDATA { intflg; charmsg[504]; inttmp; } DLP_MSGDATA; _declspec(dllexport) int _stdcall SampSub(int data, DLP_MSGDATA *mdata) { return( 0 ); } *====Visual Basic 5.0側===== Declare Function SampSub Lib "test.dll" Alias "_SampSub@8" _ ( _ ByVal tlp_id As Long, _ ByRef mdata() As DLP_TLP_MSGDATA _ ) As Long Type DLP_TLP_MSGDATA flg As Long msg As String * 504 tmp As Long End Type Private Sub test() Dim mdata(0 To 130) As DLP_TLP_MSGDATA Dim aa As Long Call SampSub( aa, mdata ) End sub
質問日時: 2002/06/17 16:23 質問者: tosakoku
ベストアンサー
6
0
-
VB6(SP5) 無限ループ
VB6(SP5)で、プログラミングをしております。 コマンドボタンをクリックすると、別のフォームを開く仕様にしております。 下記のプログラミングです。 ブレイクポイントで、テキストボックスにフォーカスが戻る事は、確認しております。 が、再び、同じフォームが開きます。要するに無限ループになってしまって いるのです。しかも、開発マシン(Win2000)では、再現しません。 実際のあるマシン(Win98SE)のみ再現します。(全てではありません) 助言の程、よろしくお願い致します。 Private Sub CB_Code_Click() Form1.iDoF = True Form1.Show Do While Form1.iDoF = True DoEvents Loop Set Form1 = Nothing Form_Activate DoEvents Text1.SetFocus End Sub
質問日時: 2002/07/22 13:06 質問者: m-toshi
ベストアンサー
6
0
-
最大・最小を求めるプログラム
「最大」と「最小」の値が出る欄をそれぞれtextbox1・2として、button1のテキスト名を「計算」とおくことが前提です。 「計算」をクリックするとinputboxが出てきて、いくつか数字を入力していくと、該当する数字があれば入力するたびにその最大と最小が更新され、「dat」と入力するとinputboxが閉じるようなプログラムはどのようにすればいいでしょうか? Do While ~ Loopを使ってお教えください。よろしくお願いいたします。
質問日時: 2006/01/15 01:09 質問者: DT50
解決済
6
0
-
vb6で異なるのプロジェクト間で、値を渡したい
VB6で、以下1~3のような画面を作成したとします。 1.プロジェクトA・ログイン画面フォーム 2.プロジェクトB・照会画面フォーム 3.プロジェクトC・登録画面フォーム まず、1を表示して、ログインして、 次に2や3の画面に、ログイン情報を渡してやりたいのですが、 どうすればよいでしょうか? 異なるプロジェクト間で値を渡せません。
質問日時: 2008/07/04 10:46 質問者: lokki3
ベストアンサー
6
0
-
2次元配列のデータをファイルへ保存
教えて下さい。 a(100,200)の2次元配列のデータをファイルに保存したいのですが、 a(0,0),a(0,1),a(0,2).......a(0,200) a(1,0)....... a(2,0)... . . . a(100,0)...................a(100,200) といった感じでカンマ区切りでCSV形式で保存したいのですが、これを簡単にファイルに保存する方法を 教えて下さい。 よろしくお願いします。
質問日時: 2002/12/13 17:28 質問者: TeamMSY
ベストアンサー
6
0
-
複数フォームを1ボタンクリックで終了させる方法
VB6.0 WindowsXP (症状) 複数フォームを1クリックで終了できずに困っています。 理由は他のフォームに移ったときにボタンの位置やテキストの内容を残しておきたい為にunloadさせずに、 Me.Hideだけでフォームを移動しているためだと思います。 終了のときは、下記のコードを用いて、終了させています。 標準モジュールに Public Sub sAllEnd() Dim myObject As Object For Each myObject In Forms Unload myObject Set myObject = Nothing Next End Sub をおいて、 各フォームには Private Sub Form_Unload(Cancel As Integer) Dim myResult As Integer myResult = MsgBox("終了します。" & vbCrLf & "よろしいですか?", vbOKCancel + vbQuestion, "終了確認") If myResult = vbCancel Then Cancel = True End If Call sAllEnd End Sub 終了メッセージのOKボタンを開いたフォームの枚数分だけクリックしないと終了できない状態です。 これを1クリックで終了できるようにするためにはどうしたら良いでしょうか? よろしくお願いします。
質問日時: 2006/07/04 15:57 質問者: yoshi004
ベストアンサー
6
0
-
OBJファイルが削除できません
VBでEXEファイルを作成している途中にエラーがでてしまいました。EXEファイルが作成される場所にOBJファイルが残っているのですが、削除しようとすると「送り側または受け側のファイルは使用中の可能性があります」というメッセージがでて削除する事が出来ません。再起動をして削除しようとしても同じメッセージがでてしまいます。 どうやって削除したらよろしいのでしょうか。どなたかご存知の方がいらっしゃいましたらご教授ください。 よろしくお願い致します。
質問日時: 2003/06/09 16:09 質問者: saruno
解決済
6
0
-
階乗のマクロ
階乗のマクロを作りたいのですが、全然できません。どこを変えたらいいのか教えて下さい。ちなみに今こうなっています。 ------------------------------------------------ Sub exam5() Dim intA As Integer Dim intB As Integer Dim intC As Integer intA = Application.InputBox("数値を入力してください。") intB = (intA - 1) intC = (intA) * (intB) MsgBox (intC) End Sub Function kaijou(intA As Integer, intB As Integer) As Integer kaijou = intA * intB End Function ------------------------------------------------ どうかお願いします。
質問日時: 2003/11/17 13:37 質問者: macky69
ベストアンサー
6
0
-
エクセルVBA、テイストボックス&ラベル
いつもお世話になります。 エクセルのセルをcells(n,1)としてfor文を使うように、VBAのフォームのテイストボックスやラベル(10個ぐらい)に番号をつけてfor文を使いたいのですが、可能でしょうか? またfor文以外に順繰りに変数に代入できるでしょうか? 現状 a1=textbox1 ・・・ a10=textbox10と全部書かなければならないのを何とかしたいのです。 宜しくお願いします。
質問日時: 2004/09/23 16:15 質問者: keiri2002
ベストアンサー
6
0
-
インターネット上のファイルサイズの調べ方
インターネットでアクセスできるファイルのファイルサイズを調べたいのですが、 何か方法があるでしょうか? 例えば http://www.xxxtest.co.jp/test/index.html の ファイルサイズが知りたいのです。 また、ファイルの更新日も知る方法があるでしょうか? よろしくお願いします。
質問日時: 2001/06/08 12:57 質問者: y_an
ベストアンサー
6
0
-
保存先のフォルダ名を指定したいとき
希望する事は ファイルを保存するフォルダを指定し、 ファイル名(インプットボックスをつかって 変数として入力させたもの)をつけて保存したい。 フォルダは事前に作成してあるが 保存したい場所はそのときによってまちまちなので 保存するたびにフォルダを指定したい。 具体的には C:\入力済みデータ\【○○】としたいのですが この【○○】の部分を、そのときに応じて選択するにはどうすればいいでしょうか。 または、浅知恵で Application.Dialogs(xlDialogSaveAs).Show arg1:="c:\" というかたちでダイアログボックスを出すまでは出来たのですが ファイル名は空欄になってしまいますよね。 InputBoxでファイル名を変数として入力させたものを 上のファイル名に入れることは可能ですか? どうぞよろしくお願いします。
質問日時: 2007/10/30 02:26 質問者: miz_k
ベストアンサー
6
0
-
ピクチャーボックスのサイズを変えたら表示されてるのまでいっしょに大きさを変えたい
タイトルにあるようにピクチャーボックスの サイズを変えたら表示されてるのまでいっしょに大きさを変えたい のですがそうしたらいいかわかりません誰か教えてください
質問日時: 2001/11/13 17:27 質問者: ryuta_mo
ベストアンサー
6
0
-
CSVファイルへの保存の際、データが途中で切れてしまいます。
はじめまして。初心者になりますが、よろしくお願いします。 visual basic 2008を使って、研究で数値シミュレーションを組んでいるのですが、 その値をcsv形式で出力した際に、値の終わりの方が消えてしまう現象が出てしまいます。 具体的には、(出力データ数,xの値,zの値)という形でファイルに書き込んでいくのですが、 出力データ数を1001個にした際、保存したファイルをExcelやメモ帳で開くと、 最後が、(991,0.111540025,0.2)といった形となってしまい。値の数が合わないのです。 他にも出力データ数の値を変えて試してみましたが、 出力データ数が101個の際には、実際保存されたのは97個 出力データ数が2001個の際には、実際保存されたのは1998個 出力データ数が5001個の際には、実際保存されたのは4988個 となります。 いずれも、途中は完全に保存されていて、最後の部分のみ保存されていない(途中で切られている)といった状況です。 デバッグで切られている部分も値が存在していることは確認できていますので、 おそらく保存する際の間違いだと思うのですが、原因がわかりません。 すみませんが、ご指導をお願いします。 (以下、保存のためのプログラムを記します) Private Sub RK_ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Rk_ToolStripMenuItem.Click 'ルンゲクッタデータを保存するためのモジュール Dim myStream As Stream Dim saveFileDialog1 As New SaveFileDialog() Dim s As String = "" If save_flag = False Then MsgBox("Error!!" & vbLf & "データがありません。") Else saveFileDialog1.Filter = "csv files (*.csv)|*.csv|txt files (*.txt)|*.txt|All files (*.*)|*.*" saveFileDialog1.DefaultExt = "csv" saveFileDialog1.FilterIndex = 1 saveFileDialog1.RestoreDirectory = True saveFileDialog1.OverwritePrompt = True If saveFileDialog1.ShowDialog() = DialogResult.OK Then myStream = saveFileDialog1.OpenFile() Dim sw As StreamWriter = New streamWriter(myStream) If (myStream IsNot Nothing) Then For i As Integer = 0 To n s = t_temp(i).ToString & "," & x_temp(i).ToString & "," & z_temp(i).ToString sw.WriteLine(s) Next i myStream.Close() MsgBox("ファイルへの書き込みが終了しました") End If End If End If End Sub
質問日時: 2008/07/24 20:01 質問者: lapis-amul
ベストアンサー
6
0
-
VBAで範囲指定をかえるには?
マクロで範囲の選択したいのですが、任意のセルの値で範囲の大きさをかえるということは可能でしょうか? 例:range("A1:C5").seiect 任意のセルの値より range("B1:D6").seiect という具合です 全くのトーシローなんで宜しくお願いします。
質問日時: 2003/01/25 16:21 質問者: keiri2002
ベストアンサー
6
0
-
()を含む文字列を検索
”()”を含む文字列を完全一致で検索したいのですが、 ()が条件として認識されません。 なにか良い手法はありますでしょうか? ちなみに、IF文で文字列一致を判断しています。
質問日時: 2006/05/26 20:05 質問者: ddaaii
ベストアンサー
6
0
-
エラー時の MsgBox の出し方
VB5 WIN2000 です。 おはようございます。初心者の質問で申し訳ありませんが、宜しくご指導頂きたいと思います。 MsgBoxの質問です。顧客管理表を作っていますが、存在しない顧客番号等を検索をした時に 《実行時エラー'3021': カレントレコードがありません》 というエラーが出ます。これを、 MsgBoxで、「データーは存在しません。」という感じで表示できるようにするには、どのようなコードを書けばいいでしょうか? ちなみに今は、データを抽出できた時に rs.MoveNext If rs.EOF Then MsgBox "(^ω^)Already at end of recordset!" rs.MoveLast Exit Do End If Loop というメッセージを出すようにしてます。 これの後に続くコードとしては、どのような感じにすれば・・? BOFとかも考えたのですが、さっぱりうまく動きません・・。 どうかご指導宜しくお願いします。
質問日時: 2006/06/09 10:58 質問者: sasayakana
ベストアンサー
6
0
-
パソコンくわしいかたお願いします!
高校で数学コンピューターをしています。家でも勉強したいのですが立ち上げ方がわかりません。学校では 、フロッピィをいれた状態で電源をつけると立ち上がるのですが家では同じようにしてもウインドウズが立ち上がってしまいます。使っているパソコンはSONYのVAIOノートパソコンです。ちなみに数学コンピューターというのは、BASICでダイレクトモードやプログラムモードなどで簡単な計算などしています。下手な質問ですいません。お願いします。
質問日時: 2003/06/29 15:01 質問者: smartmini
ベストアンサー
6
0
-
VB6とAccess
VB6(SP5)で、プログラミングをしております。 Jetを使ってAccessのファイルを読み書きしています。 配布先のPCにAccessがインストールされていない場合、サポートで、 内部のデータを見る必要があります。皆さん、どうしているのでしょうか ? また、何か良い方法があれば教えて下さい。 宜しくお願い致します。
質問日時: 2004/06/18 14:12 質問者: m-toshi
ベストアンサー
6
0
-
フォームロード時のループ
フォームロード時にDo Loopを使うとフォームが表示されません。フォームロード時には無限ループは使えないんでしょうか?できればフォームロード時に繰り返し処理をしたいんですけど何か方法があれば教えてください。
質問日時: 2005/02/08 18:19 質問者: bentou18
ベストアンサー
6
0
-
Tiny Basicのプログラムでもうひとつ。。
三角形の三辺の長さを入力し、面積を求めるプログラムを作成せよ。三角形の面積はヘロンの公式を用いて求める。ヘロンの公式による面積計算部分を関数プログラムとして作成せよ。 ヘロンの公式:三辺の長さをa,b,cとすると,(s(s-a)(s-b)(s-c))^2 s =(a+b+c) それで僕なりに作ってみたんですが cls print"入力した数字から三角形の面積を求めます" input a,b,c s=(a+b+c)/2 A=(s-a)*(s-b)*(s-c) B=A*s M=(B^2) print M end が副プログラムを入れないで作ったもので cls print"入力した数字から三角形の面積を求めます" input a,b,c print Mb3 end Function mb3 s=(a+b+c)/2 A=(s-a)*(s-b)*(s-c) B=A*s M=(B^2) print M end function になるんですがなぜだか結果が0になってしまいます なぜでしょうか?
質問日時: 2007/06/19 20:33 質問者: famituu
ベストアンサー
6
0
-
VisualBasicプログラミング技術者能力認定試験について
VisualBasicを独学で勉強しています。最終的にはVisualBasicプログラミング技術者能力認定試験に挑戦したいのですが参考図書とか問題集にオススメはありますか?
質問日時: 2005/03/23 17:45 質問者: marutin99
ベストアンサー
6
0
-
ActiveReportについて
ActiveReportの詳細セクション(Detail)以外の、例えばGroupFooterなどで、1ページに表示するデータ(行)数が足りなかった場合に空白行を出力することなどできますか? (例えば1ページに18行のデータを表示するとして、データが5件の場合、合計(GroupFooter)で18行に満たない分、空白を表示させる) 説明がうまくできなくて申し訳ないのですが、よろしくお願い致します。
質問日時: 2001/07/16 13:25 質問者: marmi1516
ベストアンサー
6
0
-
vb2005でmysqlを扱うには?
お世話になります。 vb2005でmysqlに接続するにはどのように コーディングすればよろしいのでしょうか? 教えてください。お願いします。
質問日時: 2005/10/10 11:21 質問者: googole
解決済
6
0
-
Shell関数で起動したメディアプレーヤーを終了したい。
以前このコーナーで質問して教えて頂いたShell関数でメディアプレーヤーを起動できました。(以下にそのコーディングを記載しました) 今度は起動したメディアプレーヤーをVBから終了する方法が知りたいのですが教えて頂けませんか。 Shell ("C:\Program Files\Windows Media Player\wmplayer.exe /1 G:\TEST.wma ,vbMinimizedFocus") 宜しくお願いします。
質問日時: 2006/03/13 22:32 質問者: IDGozo
ベストアンサー
6
0
-
解決済
6
0
-
API関数 GetExitCodeProcess
GetExitCodeProcessで戻り値を取得したいです。 lngRet = GetExitCodeProcess(PROCESS, lngExitCode) とした場合、プロセスが独自に返している戻り値を取得するには どうしたら良いでしょうか? lngExitCodeに終了時の状態が戻るのかと思っていたのですが、 上手く取得できません。
質問日時: 2003/06/02 19:34 質問者: wan-chan
ベストアンサー
6
0
-
UPDATE文
また、投稿させていただきます。 言語 VB6.0 DB ORACLE9i 接続 oo4o 売上高のデータを更新したいんです。 DBは2つあります。変換マスタ、売上高 ○変換マスタのデータ 変換コード 得意先コード 得意先名 1 100 あああ 2 200 いいい 3 300 ううう っいう風にデータがあります。 ○売上高のデータ 変換売上コード 売上名 1 NULL 2 NULL 3 NULL 4 NULL ていう風にデータがあります。 ●更新後の売上高のデータ 変換売上コード 売上名 100 あああ 200 いいい 300 ううう 4 NULL 変換マスタの変換コードと売上高の変換売上コードが一緒なら変換マスタの得意先コードのデータを 売上高の変換売上コードを更新し、変換マスタの得意先名を売上高の売上名に更新したいんですが自分で書いたソースでは更新後の変換売上コードの「4」→「NULL」になって帰ってくるんです。変換マスタになかったらそのままのデータにしたいのですが、どうかお願いします。ソース乗せます。 W_SQL = "UPDATE " W_SQL = W_SQL & "売上高 " W_SQL = W_SQL & "SET ( " W_SQL = W_SQL & "売上高.変換売上コード,売上高.売上名) = " W_SQL = W_SQL & "( SELECT 得意先コード,得意先名" W_SQL = W_SQL & " FROM 変換マスタ WHERE 売上高.変換売上コード = 変換マスタ.変換コード)"
質問日時: 2003/06/25 14:40 質問者: GERRARD
ベストアンサー
6
0
-
ファイルのパスについて
おせわになります。VBでファイルにアクセスしてデータのInputやOutputを行いたいのですが、常にVBが起動したパスにデータを保存するにはどのように明記すれば良いのでしょうか、例えばこのEXEファイルをフロッピーで起動した時はそのフロッピーにデータファイルを作成するというようにプログラムしたいのですが教えて下さい。
質問日時: 2003/10/28 15:54 質問者: homma
ベストアンサー
6
0
-
htmlから取り込んだ を消したい EXCEL VBA
WIN XP HOME,EXCEL2002を使用しています。 あるWEBサイトから取り込んだデータに「やまだ たろう」とあります。この「やまだ」と「たろう」の間に、 (実際にはスペースのように見えます)というデータが入っており、最終的にEXCEL VBAでCSVファイルに変換すると「やまだ?たろう」となってしまいます。 この「?」を無くして「やまだたろう」(間にスペースは不要)としたいのですが、どのようにすればいいのでしょうか? ちなみに↓の"a"のところに半角スペースや、全角スペースなどを入れてみましたが、NGでした。 Cells.Replace What:="a", Replacement:="", どなたかよろしくお願いいたします。
質問日時: 2003/11/09 04:49 質問者: min128mini
ベストアンサー
6
0
-
MS-DOSにて ファイルの削除
質問の場所が違うかと思いますが、教えて下さい [192.168.1.10](コンピュータのIPアドレスです) →[c:](C:ドライブ)(\\192.168.1.10\c:\) →[test](フォルダ)(\\192.168.1.10\c:\test) →[test1](フォルダ)(\\192.168.1.10\c:\test1) →[test1_1](フォルダ) (\\192.168.1.10\c:\test1\test1_1) →[test1_2](フォルダ) (\\192.168.1.10\c:\test1\test1_2) の階層状態で test1のフォルダは残し、 test1フォルダ内のtest1_1フォルダ、test1_2フォルダ、及び test1フォルダ内のファイルも全て削除する タスクのプログラムを教えて下さい 宜しくお願いいたします 補足:タスク処理する側、される側の両端末ともにLAN(同ドメイン)です
質問日時: 2004/05/31 18:49 質問者: nao0
ベストアンサー
6
0
-
Beep音を鳴らしたい
ExcelVBA初心者です。 Beep音を鳴らしたいのですが、Beepステートメントを使用しても鳴らないのです。Windowsの設定に問題があるのでしょうか。 よろしくお願いします。
質問日時: 2005/06/12 23:48 質問者: takaandhiro
ベストアンサー
6
0
-
MSCommを用いたRS-232-Cデータ転送
Visual Basic ver.6を用いてRS-232-Cデータ転送のプログラムを書いています。 転送には,MSComm controlを用いています。 コンピューター側から命令コードを測定器側に送信すると(例えば,MSComm1.OutPut = "F,3,300," & Chr(13)のように),測定器側からは次のようなテキストデータの転送が指定された回数だけ起こります: @C/R 数値データC/R 数値データC/R ・・・・ ・・・・ (指定回数繰り返す) そこで,質問ですが,このデータをMSComm1.Inputを介してきちんと取得する方法をお教えください。私がよく理解できいない部分は,「どのような形でbufferにデータが落ちているのか?」という部分と「繰り返し処理をどう記述するのか?」という部分です。多分後者は配列型変数を用いて「指定回数」だけ繰り返すことになると思いますが・・・・。 なお,データ転送の制御フォーマットはデータのみの転送で,STXもETXも使用していません。
質問日時: 2001/09/14 14:42 質問者: cholerae
ベストアンサー
6
0
-
エクセルでこんなマクロを組みたいんです。(初心者です)
エクセルでこんなことしたいんです。特定のセルをクリックすると、 そのセルだけ色が変わるような操作って、できますでしょうか? 今、エクセルでアンケート表を作っていまして、例えば「はい」と記載されたセルをクリックするとそのセルの色だけが青に変わる・・・みたいなイメージです。 ご存知の方、どうかお力を貸していただけませんでしょうか? よろしくお願い致します。
質問日時: 2005/08/15 02:43 質問者: GoStraight
解決済
6
0
-
VBの条件判断の応用問題
大学の情報の問題で難しくてできなくて困っています。 できる方がいれば回答をお願いします。 東京都水道局では23区内の水道料金(月額)を水道管の口径(以下で呼び径と記述)と月の水道使用料により、次の表に基づいて計算する。水道管の呼び径の番号と水道使用量を性数値で入力すると、次表と計算式に従い、次のページの仕様を満たす水道料金計算のプログラムを作れ。 申し訳ないのですが 表をのせられなかったのでこちらから参照してください 東京都水道局のホームぺージです http://www.waterworks.metro.tokyo.jp/life/r_keisan.htm 水道料金一か月の表の一般用の部分です 計算式 (基本料金+従量料金)*1.05(1円未満の端数は切り捨て) 計算例:呼び径20ミリで1か月24使用した場合の料金 (基本料金1170円+従量料金2042円)*1.05=3372円 ≪従量料金内訳≫ 1~5 → 0円/*5= 0円 6~10 → 22円/*5= 110円 11~20 → 128円/*10 = 1280円 21~24 → 163円/*4 = 652円 小計 2042円 【プログラムの仕様】 1.呼び径は(1)13mm、(2)20mm、・・・(12)300mm以上の中から該当する番号を、水道使用量は㎥単位で整数値を、どちらもInputbox関数で取得する。呼び径番号取得ではInputboxに番号と呼び径の対応関係を表示せよ。この際、表示文字列を複数部分に分割して、行末を文字列連結演算子と継続指定「 & _ 」することにより複数行で記述する。 2.入力された水道管の呼び径を番号をもちいてSelectCase構文で基本料金を決定する。 3.従量料金のけいさんでは、まずどの呼び径の料金区分で計算するかをSelectCase構文またはIf文で決定して、各区分の料金表の単価を使用量の各増分に適用して、増分毎の料金を求めて積算する。例にも示した(2)の呼び径の場合は、使用量を複数の増分に分けて、1~5;、6~10、11~20、21~30、・・・、1001以上の各増分に異なる単価を適用する。 4.基本料金と従量料金の合計金額に消費税を加えたものが水道料金となる。この計算を行うと小数点以下の金額を切り捨てるため、Int関数の引数に計算式を書き入れ、その関数値を整数型変数に代入すればよい。 という初心者に対して大変難しいもんだいです。 回答をお願いします。 数字に単位が付いてませんがm^3です
質問日時: 2007/11/22 12:34 質問者: 40one
ベストアンサー
6
1
-
VB6と.NETどっち?
VB6と.NETはどっちがいいですか? 初心者です。 どっちがお勧めですか? よろしくお願いします。
質問日時: 2005/11/25 17:23 質問者: noname#16168
ベストアンサー
6
0
-
フリーソフトをVBで起動させるには
フリーソフトをVBで立ち上げたいのですが、やり方がわかりません。コマンドボタンを押すと立ち上がるようにしたいです。ご存知の方ご教授お願いします。
質問日時: 2006/01/06 15:09 質問者: cross22
ベストアンサー
6
0
-
自動メール送信プログラム
初めまして^^。 現在、自動メール送信のプログラムをVisual Basic 6.0を用いて作成しようとしている者です。OSはwindows2000でVisual Basicについての基礎的な事は勉強しているつもりです。 したい事は、毎週水曜日に決まった内容のメール本文を、決まった人に自動的に送信するプログラムを作成するという事です。 初歩的な質問かもしれませんが、ヒントや問題解決になる手がかりを教えて頂ければ幸いです^^。
質問日時: 2006/01/11 15:17 質問者: sun_set633
ベストアンサー
6
0
-
セル結合部の合計額
A列に年月日、B列に氏名、C列に金額の表が有ります。 この表をマクロでB列、氏名で並べ替えをし、同名をセル結合しています。セル結合されているのがいくつも有ります。このセル結合された部分のC列の各々の金額の合計をD列に表示する記述を教えてください。 例えば、Aさんでセル結合されたC列のデータが3個有れば三個の合計額をD列に表示するものです。よろしくお願いします。
質問日時: 2008/04/30 12:11 質問者: hoshi7777
ベストアンサー
6
0
-
"$"記号
関数の末尾に"$"記号が付いてるものそうでないものを見かけるのですが、意味の違いはあるのでしょうか? 例えば、MID$()とMID()とか、Trim$()とTrim()とかのことなのですが。 よろしければ、お教えください。
質問日時: 2002/10/22 09:36 質問者: rpepper
ベストアンサー
6
0
-
ヘルプのSQLが動きません
VB.NET+Access2000環境です。 データ更新時の「同時実行違反」解決のため、MSの ヘルプから処理方法を探し、書かれていたSQLを そのまま動かそうとしているのですが、何か抜けて いるのかビルドエラーになります。 Ctype(ex.Row.ltem(0), String) と書かれているのですが、ex.Row に波下線が入り 文法上の記述間違いのような指摘が出てくるのですが、 Ctypeの構文がおかしいのでしょうか? ちなみに以下に書かれていたものです。 ms-help://MS.VSCC.2003/MS.MSDNQTR.2003FEB.1041/vbcon/html/vbtskcatchingconcurrencyerror.htm エラーの箇所をなんとか特定したいと頑張っています。 よろしくご助言をお願いします。
質問日時: 2006/05/12 15:09 質問者: danchor
ベストアンサー
6
0
【Visual Basic(VBA)】 に関する回答募集中の質問
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
【Visual Basic(VBA)】に関するコラム/記事
-
弁護士が語る「合法と違法を分けるオンラインカジノのシンプルな線引き」
「お金を賭けたら違法です」ーーこう答えたのは富士見坂法律事務所の井上義之弁護士。オンラインカジノが違法となるかどうかの基準は、このように非常にシンプルである。しかし2025年にはいって、違法賭博事件が相次...
-
釣りと密漁の違いは?知らなかったでは済まされない?事前にできることは?
知らなかったでは済まされないのが法律の世界であるが、全てを知ってから何かをするには少々手間がかかるし、最悪始めることすらできずに終わってしまうこともあり得る。教えてgooでも「釣りと密漁の境目はどこです...
-
カスハラとクレームの違いは?カスハラの法的責任は?企業がとるべき対応は?
東京都が、客からの迷惑行為などを称した「カスタマーハラスメント」、いわゆる「カスハラ」の防止を目的とした条例を、全国で初めて成立させた。条例に罰則はなく、2025年4月1日から施行される。 この動きは自治体...
-
なぜ批判コメントをするの?その心理と向き合い方をカウンセラーにきいた!
今や生活に必要不可欠となったインターネット。手軽に情報を得られるだけでなく、ネットを介したコミュニケーションも一般的となった。それと同時に顕在化しているのが、他者に対する辛らつな意見だ。ネットニュース...
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
VBAでCOPYを繰り返すと、処理が途中...
-
【マクロ】並び替えの範囲が、その...
-
【マクロ】オートフィルター を非表...
-
Vba Array関数について教えてください
-
Vba 型が一致しません(エラー13)...
-
【ExcelVBA】値を変更しながら連続...
-
vbsでのwebフォームへの入力制限?
-
エクセルのマクロについて教えてく...
-
【ExcelVBA】5万行以上のデータ比...
-
VBAでセルの書式を変えずに文字列を...
-
【マクロ】開いているブックの名前...
-
Vba セルの4辺について罫線が有るか...
-
vb.net(vs2022)のtextboxのデザイン...
-
Excel VBA 選択範囲の罫線色の変更...
-
【マクロ】売上一覧YYYYMMDDHHSS.xl...
-
エクセルの改行について
-
VBAで特定の文字が入った行をコピー...
-
WindowsのOutlook を VBA から操作する
-
Excel 範囲指定スクショについて Ex...
-
【マクロ】シートの変数へ入れるコ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Vba セルの4辺について罫線が有るか...
-
vbsでのwebフォームへの入力制限?
-
【ExcelVBA】5万行以上のデータ比...
-
【マクロ】売上一覧YYYYMMDDHHSS.xl...
-
【マクロ】開いているブックの名前...
-
【マクロ】並び替えの範囲が、その...
-
エクセルの改行について
-
エクセルのマクロについて教えてく...
-
vb.net(vs2022)のtextboxのデザイン...
-
VBAでCOPYを繰り返すと、処理が途中...
-
VBA ユーザーフォーム ボタンクリッ...
-
エクセルのVBAコードと数式について...
-
エクセルのVBAコードについて教えて...
-
[VB.net] ボタン(Flat)のEnable時の...
-
【マクロ】変数を使った、文字の種...
-
改行文字「vbCrLf」とは
-
質問58753 このコードでうまく動作...
-
【マクロ】シートの変数へ入れるコ...
-
ワードの図形にマクロを登録できる...
-
算術演算子「¥」の意味について
おすすめ情報