回答数
気になる
-
マイクロソフト系簡易データベースを解説しているヘルプファイル名
Microsoft Basic では, OPEN File18$ FOR ISAM Custbl "Nani" AS #11: '要 TYPE宣言 Custbl CREATEINDEX #11, "CuIDIdx", 0, "Siran": '重複可 インデックス名"CuIDIdex" 新規作成 SETINDEX #11, "CuIDIdx" より簡易データベースを使用できました。これらは、 cobol の sort file の雰囲気で使用してきました。 Visual Studio 6.0 の Visual Basic 文法ヘルプ(VBENLR98.CGM)内 OPEN ステートメントには,記載がありません。 マイクロソフト系簡易データベースを Visual Basic で利用するための文法を解説しているヘルプファイルはどれなのでしょうか。 それとも Professional Edition のため入っていないのでしょうか。
質問日時: 2003/10/19 00:08 質問者: aramananto
ベストアンサー
7
0
-
ExcelVBAを使って、値がある場合は作業を繰り返し実行するプログラムを作成したい。
以下のようなプログラムをVBAで作成したいと考えています。 A1のセルに値があれば、その値をB1に返す。 次にA2のセルに値があれば、その値をB2に返す。 A行に値がある一番下のセルまで同じようなことをさせたいと考えています。 VBAは初心者です。 どなかた宜しくお願い致します。
質問日時: 2007/08/10 13:42 質問者: smorgas030
ベストアンサー
7
0
-
こんな問題、VBAで解けますか?
ひとグループ何人か? x人をグループ分けする。 ただし、以下のような条件がある。 ・番号が小さいグループが、大きい番号のグループより、人数が少なくなることはない。 ・グループの最大数は10である。 ・1グループの最大人数は40人で、最小は32である。 ・グループあたりの人数は極力少なくする。 関数名/GROUP 引数/人数 戻値/ひとつのグループの人数 どのように問題を整理してプログラム化していけばよいのでしょうか?
質問日時: 2007/10/09 23:07 質問者: mountain3
ベストアンサー
7
0
-
サーバとVBの連携
VB6.0について質問です。 これまでローカル環境だけのテストでは問題なく実行できていたのですが サーバに置いてあるDBを参照・更新しようとしたときにサーバ側のパスワードが 影響してエラーが発生してしまいます。 一旦VBを終了して端末からサーバにログインした後再びVBからサーバへ接続すると エラー無く実行されます。 このエラーを解消するにはどうしたらよいでしょうか。。。 参照・更新するたびにいちいちサーバに手入力ログインするのはシステム的にも問題があります。 お知恵をお貸しください。。。
質問日時: 2006/03/14 11:56 質問者: go_osaruku
ベストアンサー
7
0
-
Excel ファイルに保存すると実行時エラーになる
こんにちは。宮本と申します。VB6(SP5)で、 プログラミングをしております。 下記の様にプログラミングをしましたが、どうしても [実行時エラー’1004’ test_1.xlsにアクセスできません]と、なります。 c:\test.xls は、元々ある事を前提とし、c:\test_1.xlsに上書きをしたいのです。 宜しくお願い致します。 Dim wApp As Excel.Application Dim wExl As Object Set wApp = CreateObject("Excel.Application") Set wApp = CreateObject("Excel.Application") Set wExl = wApp.Workbooks.Open("c:\test.xls") wExl.Worksheets(1).Cells(1, 1).Value = 3000 wExl.Application.Visible = False wExl.Application.DisplayAlerts = False wExl.SaveAs "c:\test_1.xls" <---ここで、エラー
質問日時: 2003/06/04 15:04 質問者: m-toshi
ベストアンサー
7
0
-
EXCELをDAOで操作したい
VBを使用してEXCELにあるデータをDAO(Recordsetなど)を用いて操作しようと考えています。 ACCESSをDAOで操作することはできるのですがEXCELを操作することはやったことがなく今、操作方法など色々と調べているところです。 そこでEXCELをDAOで操作する方法などが掲載されているサイトなど知っている方がおられたら教えてほしいです。 自分でも探してみたのですがなかなか思うようなところがなく質問させていただきました。 どうぞよろしくお願いします。
質問日時: 2003/09/28 16:29 質問者: ryuji0202
ベストアンサー
7
0
-
関数で複数の値を戻り値として返す方法
こんにちは初歩的な質問ですいませんが、VB6.0にて関数を 呼び出して、求めた値を戻り値として返す方法は知ってい ますが、2つ又は3つの値を返したい場合、どうやればよい のでしょうか? よろしくお願いします。
質問日時: 2003/11/19 10:39 質問者: ichihachi
ベストアンサー
7
0
-
時間差を取得結果を求めるには
現在VB6.0を使用してエクセルに書かれた日時データから時間間隔を取得出来るようなプログラムを作りたいのですがどうしたらいいのかわかりません。 例えば A行に2007/04/18 10:11:50と書かれていて B行に2007/04/19 12:13:25と書かれていた場合 このAとBの差が何年何ヶ月何日何時間何秒差があるかを求めたいです 何かいい方法があれば教えて下さい。
質問日時: 2007/04/18 18:17 質問者: Simanohito
ベストアンサー
7
0
-
VBでファイル分割の方法
あるテクストファイルをデータの内容をキーに分割したいのですが、ファイル番号の指定をどう記述すればいいのでしょう? 出力ファイル1個の場合は "FreeFile"を指定して稼動します。
質問日時: 2004/12/03 09:35 質問者: KIMV
ベストアンサー
7
0
-
Form間のデータ渡しについて
申し訳ありません。VB.NET初心者です。 Form1から、ボタンAをクリックするとForm2がオープンします。 Form1から、ボタンBをクリックするとForm3がオープンします。 Form1では、Form2またはForm3で設定した値をそれぞれ演算に使おうとしています。 MicrosoftのHPからパクってForm1 - Form2間のデータの引渡しを行うことはできたの ですが、新規でForm3を作成して、Form1 - Form3間のデータの引渡しを行おうとする とForm3の立ち上がり時に "NullReferenceException はハンドルされませんでした"となり、 困ってしまいました。 使われている方から見ると簡単かもしれず 申し訳ありませんが、どなたか教えていただけないでしょうか。 ==================== Form1.vb ======================= Form1には、Label1、Label2、Button1、Button2があります。 Public Class Form1 Inherits System.Windows.Forms.Form Private m_form2 As Form2 Private m_form3 As Form3 Public Property LabelText() As String Get Return Label1.Text End Get Set(ByVal Value As String) Label1.Text = Value End Set End Property Public Property LabelText2() As String Get Return Label2.Text End Get Set(ByVal Value As String) Label2.Text = Value End Set End Property Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ScaleYokusou.Click m_form2 = New Form2(Me) m_form2.ShowDialog() m_form2.Dispose() End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ScaleHikito.Click m_form3 = New Form3() m_form3.ShowDialog() m_form3.Dispose() End Sub End Class ==================== Form2.vb ======================= Form2には、TextBox1、Button1があります。 Public Class Form2 Inherits System.Windows.Forms.Form Private m_form1 As Form1 Private Sub TextBox1_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged If m_form1 Is Nothing = False Then m_form1.LabelText = Me.TextBox1.Text End If End Sub Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load If m_form1 Is Nothing = False Then Me.TextBox1.Text = m_form1.LabelText End If End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Me.Close() End Sub End Class ==================== Form3.vb ======================= Form3には、TextBox1、Button1があります。 Public Class Form3 Inherits System.Windows.Forms.Form Private m_form1 As Form1 Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged If m_form1 Is Nothing = False Then m_form1.LabelText2 = Me.TextBox1.Text End If End Sub Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Me.TextBox1.Text = m_form1.LabelText2 End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Me.Close() End Sub End Class
質問日時: 2008/04/09 20:33 質問者: koro_koro_koro
解決済
7
0
-
ファイル処理について
下記で1データとして、そのデータが1万個くらいあるのですが、 このデータでは『41.8037834』の部分の値の上限と下限を指定して、 その範囲内データだけを抜き出し、抜き出したデータを新規ファイルに保存するプログラムを 作成中なのですが、データを読み込む部分で、つまづいてしまいました。 どなたかよろしくお願いします 105 4 18 22 10 55 25 300001 1 0.000 0.000 32.920 9.400 -25.60 -52.60 -2.70 -2.40 0.00 0.00 0.00 0.00 6.55 5.05 5.94 5.51 30581507.37 6086402.72 -623434.83 203142.10 655696.35 41.8037834 140.7141167 -23.10 -41.12 30581507.4 46510538.0 24324613.6 19914382.8 0.0 0.0 0.0 0.0 0.00 0.00 72 cm BT dB 0.45 0.042 12.37 -32768 -32768 -32768 -32768 -32768 -32768 255 255 255 255 0 2147483647 16.37 -32768 -32768 -32768 -32768 -32768 -32768 255 255 255 255 0 2147483647 20.37 -32768 -32768 -32768 -32768 -32768 -32768 255 255 255 255 0 2147483647 24.37 -32768 -32768 -32768 -32768 -32768 -32768 255 255 255 255 0 2147483647 28.37 -32768 -32768 -32768 -32768 -32768 -32768 255 255 255 255 0 2147483647 32.37 -32768 -32768 -32768 -32768 -32768 -32768 255 255 255 255 0 2147483647 36.37 -32768 -32768 -32768 -32768 -32768 -32768 255 255 255 255 0 2147483647 40.37 -32768 -32768 -32768 -32768 -32768 -32768 255 255 255 255 0 2147483647 44.37 -32768 -32768 -32768 -32768 -32768 -32768 255 255 255 255 0 2147483647 48.37 -32768 -32768 -32768 -32768 -32768 -32768 255 255 255 255 0 2147483647 52.37 -32768 -32768 -32768 -32768 -32768 -32768 255 255 255 255 0 2147483647 56.37 -32768 -32768 -32768 -32768 -32768 -32768 255 255 255 255 0 2147483647
質問日時: 2007/05/07 12:13 質問者: valga
解決済
7
0
-
VBの問題です
VBの条件判断の応用問題 大学の情報の問題でヒントをもらいやってみたのですがうまくできません。自分でやったものをのせたのでどこがどのように間違えているか指摘してもらえるとありがたいです。 東京都水道局では23区内の水道料金(月額)を水道管の口径(以下で呼び径と記述)と月の水道使用料により、次の表に基づいて計算する。水道管の呼び径の番号と水道使用量を性数値で入力すると、次表と計算式に従い、次のページの仕様を満たす水道料金計算のプログラムを作れ。 申し訳ないのですが 表をのせられなかったのでこちらから参照してください http://www.waterworks.metro.tokyo.jp/life/r_keisan.htm 水道料金一か月の表の一般用の部分です 計算式 (基本料金+従量料金)*1.05(1円未満の端数は切り捨て) 【プログラムの仕様】 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です Sub ex51() '問題5 Dim x As Integer, y As Integer, z As Integer x = InputBox("呼び径を丸番号の数字で選択してください。 " & _ "(1) 13mm (2) 20mm (3) 25mm " & _ "(4) 30mm (5) 40mm (6) 50mm " & _ "(7) 75mm (8) 100mm (9) 150mm " & _ "(10) 200mm (11) 250mm (12) 300mm以上 ") y = InputBox("今月の水道使用量を立法メートル単位で入力してください。") Select Case x Case ((1)) '13mm 基本料金 = 860 Case ((2)) '20mm 基本料金 = 1170 Case ((3)) '25mm 基本料金 = 1460 Case ((4)) '30mm 基本料金 = 3435 Case ((5)) '40mm 基本料金 = 6865 Case ((6)) '50mm 基本料金 = 20720 Case ((7)) '75mm 基本料金 = 45623 Case ((8)) '100mm 基本料金 = 94568 Case ((9)) '150mm 基本料金 = 159094 Case ((10)) '200mm 基本料金 = 349434 Case ((11)) '250mm 基本料金 = 480135 Case ((12)) '300mm以上 基本料金 = 816145 End Select Select Case ((1)、(2)、(3)) If y = 1 < 5 Then z = 0 * y If y = 6 < 10 Then z = 22 * y If y = 11 < 20 Then z = 128 * y If y = 21 < 30 Then z = 163 * y If y = 31 < 50 Then z = 202 * y If y = 51 < 100 Then z = 213 * y If y = 101 < 200 Then z = 298 * y If y = 201 < 1000 Then z = 372 * y Else z = 404 * 1000 End If Select Case ((4)、(5)) If y = 1 < 100 Then z = 213 * y If y = 101 < 200 Then z = 298 * y If y = 201 < 1000 Then z = 372 * y Else z = 404 * y Select Case ((6)、(7)) If y = 1 < 1000 Then z = 372 * y Else z = 404 * y Select Case ((8)、(9)、(10)、(11)、(12)) z = 404 * y MsgBox ”水道料金=”int((x+z)*1.05) End Sub
質問日時: 2007/11/27 12:58 質問者: 40one
ベストアンサー
7
0
-
Textbox
例えば、 txt1.Text= "abcde" & "12345" & "あいうえお"と、 txt2.Text= "abcde" & "12345" & "かきくけこ" があるとします。 今2行でこれを書いているのですがこの二つを合体?みたくして1行にすることって可能ですか???
質問日時: 2006/07/19 22:10 質問者: lark198220
解決済
6
0
-
VB6 コマンドボタン クリックイベントについて
教えてください。 フォームに貼り付けているコマンドボタンのクリックイベントについてですが、クリックイベント内の処理で処理に時間がかかります。コマンドボタンを1度クリックすると、この処理を実行します。この状態であれば、問題ないのです。ところが、コマンドボタンを押して、処理している間にコマンドボタンを連打すると、ずーっと同じ処理を繰り返してしまいます。 クリックイベントが待ち行列にたまっているように思えるのですが、 これを回避する方法などがあれば教えてください。 ・待ち行列をクリアするとか ・待ち行列にイベントがたまっていても、1度しか実行しない。 などなど、具体的な方法とサンプルコードなどを教えていただけないでしょうか。お願いします。 環境VB6 WIN2K です。
質問日時: 2006/08/26 17:36 質問者: TeamMSY
ベストアンサー
6
0
-
VB6.0でネットワークドライブの接続・切断
VBから、ネットワークドライブにフォルダを作ろうとしたのですが、ネットワークドライブが割り当てられていない為、エラーが返ってきてしまします。 ネットワークドライブの割り当てを行うAPIは分かったのですが、それでは割り当てを要求するダイアログが表示されてしまいます。 ソフトを使用する人間の殆どがパソコンのことを殆ど分からない人ばかりなので、ネットワークドライブの割り当てと切断を自動的に行えるようにしたいと思っています。 そして、自動的に割り当てられたパスの先に任意のフォルダを作成するプログラムを作成したいのです。 ・ネットワークドライブの自動割当・切断方法 ・割り当てられたパスの取得方法 以上の二つが分かる方、お願い致します。 +++ 開発環境 +++ ・VB6.0 ・Windows2000
質問日時: 2004/03/22 09:28 質問者: xyz0108f
ベストアンサー
6
0
-
テキストファイル中の文字列の置換
読み込んだテキストファイルに中にある文字を別の文字に置換後、置換したファイルを再度保存したいと考えています。 どのようにすれば良いのでしょうか? VB6を使用しています。 宜しくお願いします。
質問日時: 2004/05/17 02:53 質問者: h_shinon
ベストアンサー
6
0
-
Excel VBA:ダイアログを使ってファイル名を取得したい
ファイルを開く際に、GetOpenFilenameを使用し、以下のように記述しています。 Dim sFName As String Dim sPath As String sPath = ThisWorkbook.Path & "\データフォルダ" ChDir sPath sFName = Application.GetOpenFilename(FileFilter:="CSVファイル(*.csv),*.csv", MultiSelect:=False) このとき、win98ですと、指定したフォルダが表示されますが、 win2000やXPですと、Excelのカレントフォルダが表示されます。 ダイアログ表示したときに、任意のフォルダを表示させるには、どのようにしたらよいですか? ご回答よろしくお願いします。
質問日時: 2004/10/15 16:46 質問者: yun1999
ベストアンサー
6
0
-
Mid関数(2)
VB6.0でタイピングソフトを作成しています。KeyPressの入力判定で、入力された文字とLabel1に表示されている文字が一緒なら、その文字を消すという処理なんですが、 Private Sub Form_KeyPress(KeyAscii As Integer) Label1.Caption = "taipingu" If Mid(Label1.Caption, z, 1) = Chr(KeyAscii) Then Dim ss As String ss = Label1.Caption Mid(ss, z, 1) = " " Label1.Caption = ss z = z + 1 End if というやり方を教えていただいてやってみたのですが、 「If Mid(Label1.Caption, z, 1) = Chr(KeyAscii) Then」の部分で 「プロシージャの呼び出し、または引数が不正です」 というエラーが出てしまいます。しかも、このエラーが出ずに実行がうまくいくときもあります。 何故このエラーが出るのか、分かる方お願いします。
質問日時: 2007/05/16 11:46 質問者: sikimori
ベストアンサー
6
0
-
exeファイルで実行できない
VB6.0のexeファイルでのアプリ稼動ができません。プロジェクトファイルを開いて実行すれば稼動するのですが、生成したexeファイルを実行した場合は稼動しません。 いったいどういう原因なのでしょうか?リリースモードでコンパイル云々という話でしょうか? ただ他にもVBのアプリが存在するのですが、そちらはexeファイルの実行だけで問題なく稼動します。 OS Windows XP(SP1) 開発環境 VB6.0 (SP5) .NET Framework 1.0? 原因が分かる方、推測できる方いらっしゃったら、教えていただけないでしょうか?宜しくお願いします。
質問日時: 2007/06/18 12:07 質問者: maTTun1219
解決済
6
0
-
プロシージャ名の取得
教えてください。 VBで現在実行しているプロシージャ名を取得指定のですがkのようなことは可能ですか? 可能ならばどのようにすればいいか教えてください。 現在実行ファイルにて起動しているのですが、どこかで「実行エラー」が発生しています。 この実行エラーの場所の特定のために、現在起動中のプロシージャ名をログに保存しようかと考えています。 また、その他このようなエラー箇所特定方法などがありましたら教えてください。 環境:VB6.0 Win2000
質問日時: 2005/02/15 10:51 質問者: TeamMSY
ベストアンサー
6
0
-
Cシェルにあるコマンドの代わり
UNIX端末でCシェルのプログラムがあるのですが、今後UNIX端末を 廃棄して、WindowsのPCだけにするようなので、プログラムが使えなくなるのが困ります。 いくつかはVB2005でdosコマンドを使って作り直したのですが、今作ろうとしている物の中の コマンドで調べても解らないのがありました。 echo(echo $a > sssやecho 'abc def' >> sss) cat(set x = 'cat rrr') paste(paste fff ggg > hhh) などのコマンドと、あとawkがありました。 よろしくお願いします。
質問日時: 2007/08/24 10:09 質問者: satomi002
ベストアンサー
6
0
-
VBAで
sheet2のE3(得意先名)とE4(得意先コード)をコピーして sheet1のA3へE4+E3(得意先コード得意先名)で貼付けってできますか?
質問日時: 2005/06/29 12:04 質問者: LINERS
ベストアンサー
6
0
-
マルチページTIFFで指定ページを直接表示する方法は?
お世話になります。 現在、MS-AccessでTIFFファイル(名前と内容)を管理しています。 検索すると、目的の情報が○ページ目にあるか分かるようにしていますが、 TIFFファイルを開いて目的のページまで進むのが面倒です。 ファイルを開く時に、開いた時に表示されるページを指定する方法はありませんか? OS:WinXP Pro viewer:画像とFAXビューア 方法があるならば、他のviewerでもOKです。 宜しくお願いします。
質問日時: 2005/09/29 18:01 質問者: mangetsu_k
ベストアンサー
6
0
-
エクセルでSQLを使う
VB6.0でのSQLは 理解しているのですが (アクセスのデータベース宣言して、使ってるんですが) エクセルでSQLを 使うには、データベースの宣言など、必要らしい。 でも、エクセルのデータやら、文字列や式まで、混ざっているシートと、データベースが頭の中で一致せず、困っています。 ある範囲を宣言するんでしょうか
質問日時: 2005/10/05 16:38 質問者: takamoke
ベストアンサー
6
0
-
プログラムを基礎から学びたい
プログラムを基礎から勉強したいと思い、まずは初心者に向いているといわれるVisual Basicの言語から勉強を始めようと思いました。 Visual Basic 2008 Express Editionをダウンロードして学びたいのですが、全くの初心者なため、なにか手元に参考書を用意した上でやりたいと思っています。そこでお聞きしたいのですが、Visual Basic 2008に対応した参考書が見つからないので、Visual Basic 2008 Express Editionをやる上で、Visual Basic 2005の参考書やVisual Basic.NETの参考書は使えるのでしょうか? それから、プログラマーを目指す上で、Visual Basicの言語からプログラミングの勉強を始めるのは適切な選択だと思いわれますか?
質問日時: 2008/01/17 14:12 質問者: intellect
ベストアンサー
6
0
-
変数の宣言について
変数の宣言のことなんですけど,何個ぐらい宣言できるのでしょうか?相当な数を宣言するとメモリ不足になってしまうそうで・・・。これから作ろうとしているプログラムは変数を相当数(それこそ万単位)なもので。ご回答の方,よろしくお願いします。
質問日時: 2002/07/10 10:57 質問者: Precision
ベストアンサー
6
0
-
dllが見つからないのですが・・・
いつもお世話になります。 今回、VBで簡単なアプリケーションを作成しています。 そのなかで「a.dll」を使おうとしているのですが、「a.dllが見つかりません」とのエラーが出てしまいます。 現在、テストとしてwin2000で動かしています。このdllを"WINNT\system32"やこのアプリのあるディレクトリにコピーしてみたのですがそれでも見つからないのです。なにか原因があるのでしょうか?
質問日時: 2002/07/24 13:56 質問者: zzZZZ
ベストアンサー
6
0
-
Accessの認証について
お世話になっております。 以前に、ユーザー認証について質問がありまして、その回答を参考にさせていただいたのですが、ユーザーIDとPasswordを確認して、合っているならばデータベースを開いて作業できるという方法が分かりません。 RecordSetを使うとあったのですが、具体的にはどのようにVBAを組めばよろしいのでしょうか?テーブル(テーブル名:Login)は、User_Idと、Passwordのフィールドがあり、User_IDの値に対応するPasswordを参照して、一致したらAccessにアクセスできるという感じで管理したいと要望があがっています。まったくの、初心者ですので、よろしくお願いいたします。
質問日時: 2002/09/02 11:55 質問者: hunnbaruzo
解決済
6
0
-
VB 文字判別
VB初心者です。 Dim wkStr As String * 10 wkStr = Space(10) wkStr = subStr(wkStr) というプログラムでwkStrに返された文字を正確に取得したいと考えています。 たとえば"abcdefg@@@"が返されたら、実際の文字は"abcdefg"だと判断したいのですが、本当は"abcdefg@の可能性もあるので上手く判断できません。(@はスペースです) サブには必ず10バイトの領域で渡さないといけない制約があり、このサブは変更できません。 数字、アルファベット、記号等の文字コードは全て返される可能性があるので初期化には使用できません。 正確に文字を取得できれば、文字コードで初期化する方法以外でも構わないので、良い方法を教えてください。よろしくお願いします。
質問日時: 2008/05/29 13:29 質問者: torum
ベストアンサー
6
0
-
ユーザーフォームのテキストボックスに配列の値を読み込む方法を教えて下さい
お世話になります ユーザーフォームのリストボックスにAddItemで記述したデータを表示するような形で、ユーザーフォームのテキストボックスに配列にとりこんであるデータの値を順番に読み込むようにしたいのですが、このようなことができるのでしょうか? どなたか教えて頂けないでしょうか
質問日時: 2002/10/10 15:28 質問者: tomosato
ベストアンサー
6
0
-
Visual Basicを使って三平方の定理の計算式を表現するにはどうしたら良いのでしょうか?
Visual Basic.net 2003を使っているのですが、 For...Next loopなどをを使って、 三平方の定理のパターンを全部(A<300 B<300 H<300の条件で)だすという プログラムを作りたいのですが、どうしたらよいのかわからなくて困っています。 一応すべて整数でというのが条件なので、 dim A, B, H, as interger A^2 + B^2 = H^2 で、このときどこかに、 For nextなどをはさんで、 AやBの値を増やしていくと思うのですが…。。 もう5時間以上格闘しても答えが出なく、 ここに投稿してみました。 どなたか、回答よろしくお願いいたします。。
質問日時: 2006/05/05 13:02 質問者: yumikochan
ベストアンサー
6
0
-
GOTO文の使い方
非常に単純で申し訳ない質問なのですが もし ~の条件を満たさない場合 ~へ行くというプログラムを組みたいのですが ちょっとよく分かりません GOTO文を使えば良いのでしょうか?一回 IF 条件 GOTO (文字) とやりましたところ (文字)の部分が指定されていないと でました 本などで調べれば良いのですが, ちょうどその本を忘れてしまい 困っているところです また,このプログラムは他人が作ったものを修正する作業ですので勝手も分からない状態です 単純質問でもうしわけありませんが宜しくお願いします
質問日時: 2003/05/15 20:32 質問者: youhei715
ベストアンサー
6
0
-
テキストボックスに入る文字を1字に制限したいのですが、うまくできません。
事前に文字があってもなくても、最終入力文字が1つだけ残るようにしたいのです。 先日、同じ質問をしましたが、いただいた回答は、どれも役に立ちませんでした。ご自分で実験されてから回答してくださるようお願いします。 ダメだった方法 * sub text1_keyascii の中でボックスをクリアする。 * sub text1_keyascii の中でtextプロパティを再指定する。 * maxlength プロパティを1に設定しておく。 困っている状態 キー入力した文字が、次々とボックスに入ってしまい、BSキーなどを使わないと消せない。
質問日時: 2006/08/10 13:37 質問者: Ishiwara
ベストアンサー
6
0
-
ACCESSで大量の更新を行うと「レコードが大きすぎます。」
ACCESS2003です。 SQLのSELECT文で取得した結果に対して、条件を満たすかどうかを 判定して、1レコードずつ結果を更新していくロジックを考えました。 wSQL = "SELECT * FROM ~" Set wREC = wCNN.OpenRecordset(wSQL, dbOpenDynaset) Do Until wREC.EOF If 条件を満たすか Then wREC.Edit wREC.Fields("結果") = "○" wREC.Update Else wREC.Edit wREC.Fields("結果") = "×" wREC.Update End If wREC.MoveNext '次レコードへ Loop これを実行すると、途中で「レコードが大きすぎます。」というエラーが 発生します。SELECT文を*でなく、項目を絞ったのですが相変わらずです。 レコード数は1800行ほどです。 これはどういった対処が必要でしょうか?
質問日時: 2006/08/26 18:21 質問者: nozomi300k
ベストアンサー
6
0
-
ADOを使いDBへ読み書きしたい
VB初心者です。よろしくお願いします。 今、VBのActiveXドキュメントを使い、ブラウザ上で利用できるシステムを作ろうと思っています。その際、Textboxに入力されたデータをADOを使いAccess2003に格納したいのですが、うまくいきません。DAOではうまくいきました。 コードは以下の通りです。 Private Sub Command1_Click() Dim db As ADODB.Connection Dim rst1 As ADODB.Recordset Set db = New ADODB.Connection db.ConnectionString= "Provider=Microsoft.Jet.OLEDB.4.0;" _ & "Data Source = 'データへのパス'\zaseki3.mdb" db.Open MsgBox ("接続成功") Set rst1 = New ADODB.Recordset ☆☆rst1.Open "T-利用者", db,adOpenForwardOnly,adLockOptimistic With rst1 .AddNew .Fields("氏名") = Text1 .Update End With rst1.Close db.Close Set db = Nothing Set rst1 = Nothing End Sub ☆☆のところでエラーが発生します。エラー内容は次の通りです。 実行時エラー'-2147217900(80040e14)': SQLステートメントが正しくありません。'DELETE'などを使用してく ださい。 環境は Windows XP, VB6.0, Access2003 です。 よろしくお願いします。
質問日時: 2006/11/15 13:27 質問者: HAtSu569
ベストアンサー
6
0
-
VBA マクロ 集計の方法
マクロで集計するツールを作っているのですが、 各々のエクセルに下記のようなデータが入っています。 data.xls 日付 名前 12/1 ああああ 12/5 いいいい 12/8 うううう ・ ・ ・ data2.xls 日付 名前 12/1 ああああ 12/5 いいいい 12/8 うううう 12/4 3333 ・ ・ このように色々なエクセルのデータを集計する場合、 集計しようとするデータの数がわからない場合は どのように処理したらいいのでしょうか? たとえば、配列をある程度考えられる数分確保し、 その分だけループさせて、日付又は名前が空になるところまでやる必要があるのでしょうか? どのようにしたら、効率よくデータ数を取得できるか教えてください。
質問日時: 2006/12/13 11:45 質問者: aiurai54
ベストアンサー
6
0
-
タイトルバーのないアプリに二重起動防止機能を付けたい
今、タイトルバーのないアプリを作っているのですが、このアプリのウインドウを別アプリから、APIのFindWindow関数で見つけたいのですが、タイトルがないのでクラス名でしか見つけれません。同じクラスのウインドウが他にもあった場合、区別が付かず困っています。 具体的に申しますと、作ったアプリに二重起動防止機能を付けたい(すでに起動されている場合はそのアプリのウインドウを元の大きさに戻してアクティブにする)のですが、そのアプリにはタイトルバーがなく、FindWindowでは見つけれない場合があります。 このような場合どうすればいいでしょうか? よろしくお願い致します。
質問日時: 2006/12/29 20:09 質問者: yamamoto99
ベストアンサー
6
0
-
TabStripのイベントについて
VB6にて開発しています。 VB.NETと違い、VB6の[TabStrip]には各ページにコンテナが用意されていません。 そこで、[PictureBox]をコンテナにして、実行時の[Crick]イベントにて [SelectedItem.Index]を参照し、[Visible]プロパティを切り替えて使用しています。 しかしここでひとつ不具合が起こります。 タブをクリック(押下)したままドラッグしてフォーム外でドロップすると、 タブ自体は切り替わりますが、[Crick]イベントが発生しません。 [TabStrip]の[MouseUp]イベント時に[Crick]イベントをコールするという方法で 回避しています。 ですが、そもそも一般のタブは(例えば画面のプロパティ等のタブ) マウスを押した(押下)時点でページが変わります。 これを実現したく、思考錯誤しています。 [Crick]イベントでは、マウスを押して放した時にイベントが発生します。 マウスを押した(押下)時点で切り替えるには、必然的に[MouseDown]時に [Visible]プロパティを切り替えなければいけないと思うのです。 が、イベントの発生順序は[MouseDown]→[Crick]→[MouseUp]という順で発生する為、 どうしても[Crick]時に取得する[SelectedItem.Index]が[MouseDown]時に取得できず、 実現しません。 VB6でマウスを押した(押下)時のページ切り替えを実現する方法はないのでしょうか? [参考] Private Sub TabStrip1_Click() Dim i As Byte With Me For i = 0 To 8 .Picture1(i).Visible = False Next i i = .TabStrip1.SelectedItem.Index - 1 .Picture1(i).Visible = True End With End Sub
質問日時: 2005/01/17 22:52 質問者: pikero
ベストアンサー
6
0
-
初心者なんですが・・・・
こんにちは!! 早速ですが、ベクターサイトにあるようなフリーソフト(ゲーム以外で)を作りたいと思っております。 そこでVisual Basic .NETというソフトウェアを進められたのですが・・・・というより、Visual Basic .NETというのはダウンロードできるようなものなんですか? ほかにもお勧めのソフトウェアがあれば教えてください。 もう一度言っておきますが、Visual Basic .NETの入手 方を教えてください。 ご存知の方よろしくお願いします。
質問日時: 2005/07/13 17:40 質問者: noname#16168
ベストアンサー
6
0
-
VB6.0で作成したexeファイルが他のPCではエラーが発生して動きません
はじめまして。 色々検索してみたのですが、なかなか見つからなかったのでお力を貸していただければと思います。 仕事でVB6.0でつくられたプログラムがあります。 最初は別の方(仮にAさんとします)が作ってくださり、いつもそのexeファイルをもらって仕事をしておりました。 この度、私がそのプログラムを修正し、exeファイルを作成したところ、自分のPCでは問題なく動くのですが、他のPCで使用しようとするとエラーが発生して動きません。 プログラムはVB6.0で、指定したエクセルファイルを開いて参照し、データと照合させるものです。 AさんのPCのOSはwinXPです。 Aさんが作ってくれたexeファイルはコピーして、Win95/Win98/WinXPで問題なく動作することが出来ました。 しかし私が修正し、作成したexeファイルはOSは関係なく自分のPC以外ではエラーが発生してしまいます。ちなみに自分のPCもWinXPです。 エラーは「不正な処理をしている為、このプログラムを終了します」という様なものです。 エクセルを参照しようとすると、発生するエラーなので、そのときだとは思うのですが、デバックしようにも、自分のPCでは問題なく動いてしまうので、どうにも出来ません。 よろしくお願い申し上げます。
質問日時: 2008/04/25 17:13 質問者: yuzumiya
ベストアンサー
6
0
-
初歩的な質問なのですが、サブルーチン、プロシージャについて
初めてプログラミングを行おうと思っています。 そこで、VBを使って行おうと思っているのですが、 全てが初めてなので、まずは本を読んでいるところです。 本の中で、サブルーチンやプロシージャという言葉がよく出てくるのですが、サブルーチンは処理のかたまり、プロシージャは処理の命令と軽く考えていたのですが、本の中に、『サブルーチンにはFunctionプロシージャとSubプロシージャの2種類がある』と書いてあり、それ以来、私にはサブルーチンもプロシージャも同じものに思えてしまいます。人に聞いたところ、『全然別ものだよ』という答えしかありませんでした。これは、どう違うのでしょうか?? また、SubプロシージャのSubはサブルーチンを示すとあり、益々、理解できなくなりました。 恐れ入りますが、サブルーチン、プロシージャ、Functionプロシージャ、Subプロシージャとは何かについて、おわかりの方がいらっしゃいましたらご教授ください。 宜しくお願い致します。
質問日時: 2003/08/22 15:00 質問者: makitty
ベストアンサー
6
0
-
TextBox内の特定文字の数を数えたい
お世話になります。 あるTextBox内の例えば"a"の数を数える場合は、どの様にしたら良いでしょうか? よろしくお願いします。
質問日時: 2006/09/08 17:10 質問者: yurinchi
解決済
6
0
-
VBについて
VB6.0でコモンダイアログボックスにてファイルを指定をしたいのですがどの様にしたらいいのでしょうか? 得意な方わかりやすく教えてください。(ファイルを読み込んでCSVファイル等へ表示したいのですが)
質問日時: 2004/03/01 15:02 質問者: asa0220
解決済
6
0
-
不特定のアクティブフォームをアンロードするには?
こんにちは。別件でもお世話になっている者です。複数のフォームを入れ替わりに表示するプログラムにおいて、現在フォーカスの当たっている、不特定のフォームをアンロードする場合、どのようにすればよいでしょう? APIにて、GetFocus()を使用してアクティブフォームを取得すればできそうなのですが、ハンドルからアンロードするまでを導き出せず、困っています。よろしくお願いします。
質問日時: 2004/04/06 17:44 質問者: natural_aspirate
ベストアンサー
6
0
-
テキストボックスの制限
VB2005にてプログラム作成を考えておりますが、一つのフォームに作成できるテキストボックスは何個まででしょうか? 経理的な物をで、科目数(120前後)*月(12)を考えております。 本来は分割すべきだとは思いますが、よろしくお願いします。
質問日時: 2007/02/13 16:03 質問者: gonta_256
ベストアンサー
6
0
-
そのソースの意味
済みません。 このソースの意味を教えてください。 If lngRecCnt = 0 Then vsgTANA.Rows = 1 GoTo END_ROUTIN End If よろしくお願いします。
質問日時: 2005/02/15 15:37 質問者: aki08102001
ベストアンサー
6
0
-
ワークテーブルの作成について
現在、VB.NETで読み込んだファイルのコードで 一件一件、データベースを検索してチェックを行っているのですが とても処理時間がかかるので最初にデータベースの結果を ワークテーブルか何かに溜めておいてそのワークテーブルに 検索をかけにいくことは可能でしょうか? 何か参考になるサイトなどありましたら教えてください。 .NETは2002です。
質問日時: 2007/07/14 13:49 質問者: morimori7
ベストアンサー
6
0
-
VB6.0の「vbFromUnicode」はVB.NETではどれに相当しますか?
VB6.0で、例:StrConv(Text, vbFromUnicode)とかで使用する、 「vbFromUnicode」(文字列を Unicode からシステムの既定のコードページに変換する) は、VB.NETでは使用できないようです。(相当する定数はない?) 「vbFromUnicode」と同等の機能を、VB.NETで使用したいのですが、 どうすれば良いでしょうか?
質問日時: 2005/03/22 20:19 質問者: THUBAN
ベストアンサー
6
0
-
program filesにファイルをコピーするとエラー
vbでprogram filesにファイルをコピーするとエラーが発生します。filecopy関数とFileSystemオブジェクトでもエラーが発生します。Win2000では上手くいきます。Win98では失敗します。何か違いがあるのでしょうか?
質問日時: 2005/04/15 09:14 質問者: 2430326
解決済
6
0
-
教えてください
アスタリスクを使ってピラミッドを作るコードを教えてください。 底辺は7のとき、8のときの2とおりです。 Vbできる方、お願いします。
質問日時: 2001/06/11 23:49 質問者: shimoraji
ベストアンサー
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 このコードでうまく動作...
-
【マクロ】シートの変数へ入れるコ...
-
ワードの図形にマクロを登録できる...
-
算術演算子「¥」の意味について
おすすめ情報