回答数
気になる
-
Excel VBA If文の処理について
Excel VBA If文の処理方法で質問です。 http://www.sigoto.co.jp/excel/statement/state09.htm を参考にしながら作ってます。 ▲空白なら の方法は記載されていますが… If 要素.Value = Empty Then ~ ▲セルに(文字・数値に関係なく)情報があるなら… という定義をしたいのですがどうやればよろしいでしょうか? If 要素.Value != Empty Then ~ これだとエラーが返りました。VBAは (※Else以外の方法で) 否定文の処理方法ってありますか? *内容抜粋* Set cell = Range("G5:I9") If cell.Value = "" Then '…ここの定義どうやれば良いか? ・ ・ End If アドバイスよろしくお願い致します。
質問日時: 2005/01/30 00:27 質問者: u-mesh12
解決済
8
0
-
このマクロを高速化させるにはどうすればいいですか?
VBA初心者で、とりあえず頑張って作ってみました。以下のVBAでの修正点を教えてください。 (英単語の小テスト用につくりました。) Range("C3:E22,H3:J22").Select Selection.Font.ColorIndex = 2 Selection.Interior.ColorIndex = 2 Selection.Borders(xlDiagonalDown).LineStyle = xlNone Selection.Borders(xlDiagonalUp).LineStyle = xlNone Selection.Borders(xlEdgeLeft).LineStyle = xlNone Selection.Borders(xlEdgeTop).LineStyle = xlNone Selection.Borders(xlEdgeBottom).LineStyle = xlNone Selection.Borders(xlEdgeRight).LineStyle = xlNone Selection.Borders(xlInsideVertical).LineStyle = xlNone Selection.Borders(xlInsideHorizontal).LineStyle = xlNone Selection.Borders(xlDiagonalDown).LineStyle = xlNone Selection.Borders(xlDiagonalUp).LineStyle = xlNone ' ここまでは、共通の動作 Range("A1").Select ActiveCell.FormulaR1C1 = "20" ' 問題数に応じて、数字を変更 Range("C3:E22,H3:J22").Select With Selection.Borders(xlEdgeLeft) .LineStyle = xlContinuous .Weight = xlThin .ColorIndex = xlAutomatic End With With Selection.Borders(xlEdgeTop) .LineStyle = xlContinuous .Weight = xlThin .ColorIndex = xlAutomatic End With With Selection.Borders(xlEdgeBottom) .LineStyle = xlContinuous .Weight = xlThin .ColorIndex = xlAutomatic End With With Selection.Borders(xlEdgeRight) .LineStyle = xlContinuous .Weight = xlThin .ColorIndex = xlAutomatic End With With Selection.Borders(xlInsideVertical) .LineStyle = xlContinuous .Weight = xlThin .ColorIndex = xlAutomatic End With With Selection.Borders(xlInsideHorizontal) .LineStyle = xlContinuous .Weight = xlThin .ColorIndex = xlAutomatic End With ' 罫線を引く Range("D3:E22,I3:J22").Select Selection.Font.ColorIndex = 1 ' 文字を黒くする Range("C3:C22,H3:H22").Select Selection.Interior.ColorIndex = 16 ' セルをグレーにする Rows("3:18").Select Selection.RowHeight = 31.5 ' セルの幅を指定 ActiveSheet.PageSetup.PrintArea = "$B$1:$K$25" ' 印刷範囲を指定 Range("U3:U42").Select Selection.ClearContents ' 四線を消去 Range("D3:D4").Select Calculate ' 再計算完了 宜しくお願いします。 また、このVBAは慣れている人から見ると何点くらいですか?(感覚で結構です)
質問日時: 2008/02/22 13:46 質問者: add0804
ベストアンサー
8
0
-
いい方法ありませんか?
If i= 1 Then label1.text="1" i= 2 Else label1.text="2" i= 1 End If ※コマンドをクリックするだびに1 2を繰り返す
質問日時: 2003/09/25 00:59 質問者: kenta_tanaka
ベストアンサー
8
0
-
実行時エラー429
あるプログラムを起動させようとすると 以下のメッセージが出てきてしまい起動できません。 実行時エラー429 ActiveXコンポーネントは、オブジェクトを作成できません。 対応策は、ございますか? VB6の最新版は、ダウンロード済みです。 http://www.vector.co.jp/soft/win95/util/se188840.html Windows98 Office97 ↑ 諸事情でこちらの環境を替える事は、 出来ないんです・・・
質問日時: 2004/07/21 08:25 質問者: cyocyocyo
ベストアンサー
8
0
-
CSVファイルの内容を編集する方法について
こんにちは。CSVファイル(1レコード9項目、平均50レコード)を何らかのオブジェクトに格納し、各レコードの項目を編集・一括更新を行う方法はないか、現在模索しております。以前のスレッドではOLEのエンジンを使用してCSVファイルを模擬的にDBとしてデータグリッドに表示させる方法を確認し、試行しましたが、編集できない&レコード読み飛ばしができないなど、不都合があったため、改めて質問させていただきました。一番思いつくのは、テキストボックスを2次元に並べて、コマンドボタンで一括保存などがありますが、コントロール数やオブジェクト数にも配慮した方法がありましたら、お教えください。
質問日時: 2004/07/26 16:54 質問者: natural_aspirate
ベストアンサー
8
0
-
定数配列の書き方
VB6で定数を定義する場合は次の通りです。 Const strTest As String = "TEST" では、定数配列を定義する場合はどのように書けばいいのでしょう? Const astrTest() As String = Array("A", "B", "C") '→NG Const astrTest(0 To 2) As String = Array("A", "B", "C") '→NG いろいろな書き方を試して見たのですが、上記のような書き方でも文法的にエラーになるようです。 どのように書けばいいのでしょうか? それとも定数を配列で定義するのは無理なんでしょうか?
質問日時: 2005/06/28 09:55 質問者: typeman
ベストアンサー
8
0
-
DLL不要のソフト製作方法について教えてください
フリーウェアの紹介で「DLL不要/アンインストールする場合はフォルダごと削除・・」との記載をよく見かけますが、こういった「単体EXEで起動するソフト」はどのように作成されているか不思議です。 VBでは単体EXE起動は可能ですか?「VB*.*ランタイムモジュール必須・・・」など見かけますが、VBでは不可能なのでしょうか? 最近、VBを少しずつ覚え自分でも「フリーウェアの製作」を行ってみたいと思います。無知ではありますが、どなたか御教示願います。
質問日時: 2002/01/10 13:05 質問者: RJBASE
ベストアンサー
8
0
-
フォームにページを表示させたブラウザ組込みたいのだが…
VB6で開発中です。 フォームの一部に、あるURLを指定してそのページ(例えばYahoo!ページ)を表示させたブラウザを組み込むことはできますか? もしくは、あるURLを指定してそのページを表示させたブラウザを起動させるのでかまいません。 おかわりになられる方いらっしゃいましたら、ご教授下さいませ。 WebBrowserを使うらしい??(正しいかどうかはわかりませんが・・・) Sub WebBrowser1_StatusTextChange(ByVal Text As String) End Sub のですが・・・??
質問日時: 2005/03/25 19:13 質問者: THUBAN
ベストアンサー
8
0
-
Double型について
ずっと疑問でした、教えて下さい。 ついにその疑問を解き明かさなければ 次に行けない事になりました。 型はDoubleで計算をすると 0.7015-0.7=1.50000000000006E-03 という結果になりますが、 最後の6ってなんですか?この結果で比較をすると、 たまにはじかれる処理が出てくるのです。 ホントは0.0015でしょ? 他に良い方法があれば合わせて どうぞ宜しくお願いします。
質問日時: 2002/02/12 10:57 質問者: HUKAHIRE
ベストアンサー
8
0
-
小数点 第n位 を切り上げ,切り捨て
実数 Y を小数点第n位で (1)切り上げ (2)切り捨て をしたいのですが、どのようにすれば良いのでしょうか
質問日時: 2003/07/16 13:57 質問者: nao0
解決済
8
0
-
CSVファイルを任意の場所に出力するには?
ACCESS-VBAの初心者です。 ACCESSのテーブルを、csvファイルとして、任意の場所に出力させるには、どのようにしたら良いのでしょうか。 当方初心者につき、なるべく簡単な方法だとさらに助かるのですが。
質問日時: 2007/05/09 13:54 質問者: tamago800
ベストアンサー
8
0
-
エクセルVBAについて
エクセルVBAでプログラミングしたのですが、 どんなデータ型を使っても「オーバーフロー」 してしまいます。 重すぎるのでしょうか? 重すぎるとしたら、VBAの場合、許容範囲は どれくらいになるのでしょうか? お願いします。
質問日時: 2005/03/17 22:07 質問者: na714
ベストアンサー
8
0
-
VBAで背景色
以前にも同じような質問をしたのですが、応用できなかったので改めて質問させていただきます。申し訳ありません。 VBAを使って、入力された値によってセルの背景色を変更したいです。 C列からAF列までのセルに 「1」から始まる値が入力されたら背景を黄色 例:「1テスト」 「2」から始まる値が入力されたら背景を緑色 例:「2VBA」 「3」から始まる値が入力されたら背景を水色 例:「3教えて」 「4」から始まる値が入力されたら背景を赤 例:「4終了」 にするVBAが欲しいです。 例えば、C1に入力した「1テスト」という値を、D1~AF1にコピーすれば C1~AF1の背景が黄色になるようにしたいわけです。 かつ、B列にはその行で背景が黄色のセルの数を返せれば最高です。 どの部分が「C列からAF列」を指すのかをご説明いただけると大変ありがたいです。 よろしくお願いします。
質問日時: 2006/12/15 23:25 質問者: ao_
ベストアンサー
8
0
-
Excel VBA で自在に図形を変化させたい
Excel VBAを使って図形を自由に変化させたいと思っています。 一つの形の四角形や三角形をVBAを使ってシート上に表記することは出来ます。 私はユーザーインターフェースを作り、テキストボックスに値を入れることで図形を変化させることをしたいと思っています。 例えば、一つの三角形を正三角形にしたり、直角二等辺三角形にしたり、自在に角度を変えてVBAに描かせたいと思っています。 三角形は以下のようにコードを記述しましたらシートに表示できました。 Sub 三角形作成() Set ArwLine = ActiveSheet.Shapes.AddLine(10, 10, 200, 200) Set ArwLine = ActiveSheet.Shapes.AddLine(200, 200, 100, 400) Set ArwLine = ActiveSheet.Shapes.AddLine(100, 400, 10, 10) End Sub これを以下のようにして変数(x、y)にユーザーインターファースから値を代入するようにしたいのですがどのようにすればよいのでしょうか教えてください。 Private Sub CommandButton1_Click() UserForm1.Show End Sub Sub 三角形作成() Set ArwLine = ActiveSheet.Shapes.AddLine(10, 10, 200, 200) Set ArwLine = ActiveSheet.Shapes.AddLine(200, 200, x, y) Set ArwLine = ActiveSheet.Shapes.AddLine(x, y, 10, 10) End Sub 前回、「Excel VBAで図面を書きたい」という質問をしたのですがややこしく書いたため解答される方が居ませんでしたので編集して再質問をさせていただきます。 よろしくお願いします。
質問日時: 2005/01/09 21:08 質問者: kakusan_t
ベストアンサー
8
0
-
ExcelVBA:すでに開かれているブックの判定方法
同 Excel内で開かれている異なる複数のBOOKの判断方法は以下のサイトを参考にできました。 http://www.asahi-net.or.jp/~ef2o-inue/vba_o/sub05_010_020.html しかし、別のEXCELを起動して開いているBOOKについては、上記のコードの判断にはかかりませんでした。 別のEXCELを起動して開いているBOOKについても、すでに開いていることを判断したいのですが、何か方法がございますでしょうか? よろしくお願い致します。
質問日時: 2007/07/24 16:30 質問者: THUBAN
ベストアンサー
8
1
-
.Netのタイマーについて
現在system.timers.timerを使用しています。 仕様としては、タイムアウト内に電文がこなければ再送するというものです。 Timerの使い方はわかったのですが、その途中で電文受信のイベントを走らすことって無理なのでしょうか? 今、わからないのはタイムアウトになるのを待ってから受信イベントが走っているので、 どうにかタイマーが動いている時でも中止して受信イベントを走らせたいです。 何か方法はありますか? また、どういうふうにした方がいいとかあれば教えてください。 わかりにくい説明になったと思いますがよろしくお願いします。
質問日時: 2005/03/24 10:33 質問者: okkomu
解決済
7
0
-
文字列の後ろから必要分だけ削除したい。
例1 Dim str As String = "あいうえお1234" 文字列の中の1234だけ削除したい場合は、 str = str.Remove(5,4) という風に、5文字目の後から4文字削除にすればよいのですが、 例の"あいうえお"の部分の長さが毎回処理する度に異なる場合は、 文字列の頭から何文字目という指定ができないので、”後ろから4文字を削除したい”となります。その場合は、どのようなプロパティを使えばいいのでしょうか。 .NET環境です。
質問日時: 2007/11/29 16:44 質問者: mysotoko
ベストアンサー
7
0
-
VBとVBAの違い
お世話になります。 現在、ExcelVBAで機械設計の計算をさせようと思い勉強しているのですが、VBとVBAの違い(VBと比較したとき、VBAできること、できない事)の境目?がいまいち判りません。 まだまだ勉強中で困惑しております。このままExcelVBAを勉強していく物か、VBについて勉強していくか迷っています。このままExcelVBAを勉強してExcelVBAを理解すれば判断できるかと思うのですが、畑違いの勉強になってしまわないかと心配です。 やりたいことは、各種計算の簡略化です。 現在は、関数電卓で行っていますが、これをパラメータを入力すると計算結果が出る。このような物を作りたいと思っています。 長くなってしまったのでまとめると、 1、VBAとVBの違い 2、ExcelVBAで設計計算が可能か あと、 プログラムにより計算させるときに、最適なプログラム(JavaとかPHPとかHTML等など・・・)お勧めのプログラムがありましたらアドバイス頂けたらと思います。
質問日時: 2005/09/16 11:19 質問者: noname#44124
ベストアンサー
7
0
-
VBでカードリーダ(USB)のイベント
VBでカードリーダ(USB)のデータを読み込み、プログラミングしたいのですが、 カードリーダがUSBのため、カードを読み込ますとフォーカスのあるところに、データを勝手に表示してしまいます。 VBにてイベントは取れないのでしょうか? 多分キーボードなどのキーダウンと同じイベントが発生しているとは思うのですが、区別したいのです。 よろしくお願いします。
質問日時: 2002/10/22 11:31 質問者: noname#15354
ベストアンサー
7
0
-
VBでリスト構造を実現するには?
DTDとHTMLのパーサを作ろうと思い、データを解析して配列に入れようとしていたのですが、配列じゃなくてリスト構造で実現しろというお達しをうけて非常に困っています。 そもそもVBでリスト構造って実現できるんでしょうか?実現できるのであればその方法を教えていただきたいと思っています。
質問日時: 2002/10/28 21:20 質問者: runo1
ベストアンサー
7
0
-
VB2005でExcelのシートをコピー
VB2005Expressで開発をしています。 Excelのシートをコピーして同じbookに追加をしたいと思っています。 下記でまずExcelを使用できるようにして Dim xlApp As New Excel.Application Dim xlBooks As Excel.Workbooks = xlApp.Workbooks Dim xlBook As Excel.Workbook = xlBooks.Add '新規のファイルを開く Dim xlSheets As Excel.Sheets = xlBook.Worksheets Dim xlSheet As Excel.Worksheet = xlSheets.Item(1) xlApp.Visible = True 下記で追加できると思うのですが、()内にセットするパラメータが わかりません・・・ xlBook.Worksheets.Copy() どなたかご存知の方がいらっしゃいましたら教えて下さい。 よろしくお願いします。
質問日時: 2008/07/17 20:40 質問者: madamadahiyoko
ベストアンサー
7
0
-
4桁の数字を A*1000+B*100+C*10+D 以外で表現したい。
A=1 B=2 C=3 D=4 のとき 1234をA*1000+B*100+C*10+D以外で表現したいのですが 何かいい方法がないでしょうか? 4桁ならいいんですが 15、6桁を10行ぐらいコーディングしないといけないのでなえてます↓助けてください。
質問日時: 2006/05/17 06:05 質問者: mixiho
ベストアンサー
7
0
-
EXEファイルのタイトル取得
一応、自分なりにWEB等で調べてみたのですが、 実行ファイルのタイトル取得の仕方が分かりません。 (実行した時のタイトルバーに出る文字) そのファイルを実行せずにタイトルを取得したいのです。 ご存知の方いらっしゃいましたら、どうか宜しくお願いします。
質問日時: 2003/05/27 10:51 質問者: GX71
ベストアンサー
7
0
-
再帰処理を用いて階乗を求めるプログラム
こんにちは 再帰処理を用いて階乗を求めるプログラムについて の質問です。 以下のように考えたのですが、 まったく駄目なようです。 どこをどのように直したらいいのか いまいちわかりません。 どなたか教えて下さい。お願いします。 Private Sub CommandButton1_Click() Dim n As Integer 階乗する数 Dim f As Integer 階乗する数の階乗した値 n = Val(TextBox1) Do While f > 1 KEISAN n, f Loop TextBox2 = f End Function Function KEISAN(n, f) If n <= 1 Then f = 1 Else f = n * f(n - 1) End If End Function
質問日時: 2003/10/08 17:02 質問者: 1724
ベストアンサー
7
0
-
コンボボックスの表示は最大何行?
いつもお世話になります。 VB.NET2003で開発しています。 いままで全然気にしておらず、質問が来て初めて気がつきましたが、 現在使っているコンボボックスに現れるデータはすべて8個なんですね。 これをもっと多くするにはどうしたらいいのでしょうか? また最大表示出来る数はいくらなのでしょうか? 初歩的な質問で恐縮ですがよろしくお願いします。
質問日時: 2007/01/18 16:33 質問者: danchor
ベストアンサー
7
0
-
エクセルVBAのプログラム
A.xlsからB.xlsのファイル(最初はA..xlsのみが開いています)へのデータ転送をしたいのですが、プログラムが組めません(>n<) すみませんが誰か助けてください。 行いたい作業は以下の通りです。 ※デスクトップにあるB.xlsを開く ※A.xlsのセル「A1~A5」をコピーしてB.xlsのAの列の列で空欄の行を見つけて、列と行を入れ替えて貼り付ける(もしB.xlsのA10までデータが入力されていたら、貼り付ける場所はA11~F11になります) ※B.xlsは作業終了後自動保存して閉じる その際に ※A.xlsのセル「A1」にはデータ名が記入されているのでB.xlsのAの列にその名前があれば、そこに上書きする形にしたい。 ※A.xlsのA2のセルには「55,23」のように二つの数字が「,」でつながって入力されているので、B.xlsに貼り付けるときには、二つのセルにわけてそれぞれの数字を貼り付けたい。 お手数おかけしますがよろしくお願いいたします。
質問日時: 2005/02/09 09:46 質問者: noname#10631
ベストアンサー
7
0
-
Excelの別々のブックから関数を呼び出したい
簡単なVBAマクロなら今まで作ったことがあるものの 関数の引渡し等がさっぱりで、 且つプロシージャ???とかヘルプを見ても言葉の 障害で意味が理解しにくくて困ってます。(苦笑 なのでVBAは初心者そのものです。 (大昔C言語は多少かじったけど忘れましたね・・) 出来るのかどうか分かりませんが、 ブックAを操作中にブックBをオープンします。 それからAとBの各シートの情報をやりとりする、 こんな感じのプログラムを作りたいと思っています。 ブックAからブックBの関数(プロシージャ?)を 呼び出すことは出来るのでしょうか? 出来るのなら簡単なサンプルをお願いします。
質問日時: 2005/10/23 19:25 質問者: sakocchi
ベストアンサー
7
0
-
プロの人のプログラム完成までの所要時間
ちょっとしたプログラムを作るのにもすごく時間がかかってしまい ふと思ったのですが、プログラムを作るのを職業にされてる人は どのくらいのスピードでコードを書くことができるのでしょうか? 例えばWindowsに付属しているmspaint(ペイントソフト)と ほぼ同じものを作るとしたらトータルで何時間くらいかかるでしょうか? プロの方がおられましたらご回答頂けたらありがたいです。 よろしくお願いいたします。
質問日時: 2008/04/05 13:28 質問者: popopompom
解決済
7
0
-
他言語で言うcontinue文
他言語で言うcontinue文に相当する命令はVBに用意されているのでしょうか? continue文とはループ中の後続の処理をやめループの先頭に戻るという命令です。 なんか探したけど無かったもので…。どんな言語にも用意されてそうな基本的な命令なので質問してみました。 バージョンは Winエクセル2002 SP3 VBA Retail:6.4.8869, Version:9969 です。基本エンジンはVB6です。 よろしくお願いします。
質問日時: 2006/03/14 10:26 質問者: arakororin
ベストアンサー
7
0
-
イメージコントロールについてVB6
Image1.Picture = LoadPicture("C:\VB練習\テストプログラム\ime1.jpg") と作ります。当然作っている時は上の順番でフォルダ から読み込まれてime1.jpgが表示されます。 ただ配布用にパッケージしてから他のPCで起動させると ("C:\VB練習\テストプログラム\ime1.jpg") が見当たりませんのようなエラーが出てプログラムが起動しません(T_T; 対処方法はありますか?
質問日時: 2004/01/14 16:01 質問者: a12b12
ベストアンサー
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
-
マイクロソフト系簡易データベースを解説しているヘルプファイル名
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
-
時間差を取得結果を求めるには
現在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
-
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
-
ファイル処理について
下記で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
-
ウインドウハンドルのつかみ方について質問です。
visualbasic6.0で開発をしています。 例えば、同親内の子コントロールに同じ「edit」クラスが2つ存在していたとします。 私は、ハンドルを掴むのにクラス名とキャプション名で掴んでいます。 しかし、クラス名は一緒で、キャプション名は存在しません。 すると、2つのコントロールを区別することができません。 現在は、FindWindowExで取得したハンドルを、アプリケーション「spy」等であっているか確認しています。 上記のような、クラス名とキャプションで判断できないものは、皆さんどのようにハンドルを取得していますか? 自分のように順次取得して、順番で判断していますか? だとしたら、FindWindowExで取得した順番はOS環境や、取得する時々で変わったりしないモノなのでしょうか? よろしくお願いします。
質問日時: 2004/09/21 19:45 質問者: HITPOINT100
解決済
7
0
-
VBはなぜ遅い?
今のVBはネイティブ・コード・コンパイラを持っていますよね?しかし、単純なソートのプログラムとか、足し算掛け算の繰り返しとかをさせると、C++と比べて相当遅いと聞きます。 なぜなのでしょうか?ちゃんとしたネイティブ・コード・コンパイラを持ってないのでしょうか?
質問日時: 2004/12/11 18:47 質問者: white-tiger
ベストアンサー
7
0
-
SendKeys "^V", True(貼り付け)のミス
エクセルシートに設定したリアルタイム関数(楽天マーケットスピード)でデータを取得し、フィルターをかけてメモパッドに表示しています。 エクセルでクリップボードに格納したものを下記のプログラムで[Ctrl]+[V]キーを転送しています。 問題は[Ctrl]+[V]キーがしばしば他のアプリケーションのカーソルに転送されてしまいメモパッドがパスされてしまいます。 AppActivateが効かないのか分かりませんが対策を是非ご教示下さい。 Sub NotePad書き出し() Dim myPath As String dim y as long If nsw <> 0 Then GoTo 即貼り付け'メモ帳起動は一度だけ nsw = 1 myPath = ActiveWorkbook.Path & "\" 'メモ帳を起動する myID = Shell("Notepad.exe", vbNormalFocus) For y = 1 To 3000 'notePadが開く余裕を3秒間取る DoEvents Sleep 1 Next y 即貼り付け: '[ENTER]キーを転送して1行空ける SendKeys "{ENTER}", True 'メモ帳をアクティブにする AppActivate myID '[Ctrl]+[V]キーを転送してコピーした内容を貼り付ける SendKeys "^V", True 'コピーモードを解除する Application.CutCopyMode = False End Sub
質問日時: 2005/10/01 13:45 質問者: NazeTarou
ベストアンサー
7
0
-
HTMLソースからURLだけを抜き出す方法を教えてください!
どなたかお知恵をお貸しください。 HTMLのソースファイルからURLを取得するツールを 作ろうと思うのですが、そのURLだけを抜き出すと いうところがよく分かりません。 ソーステキストを open "source.txt" for input as #1 do until eof(1) line input #1,aa で一行ずつ読み込んでいき、 その中から InStr関数で「http://」の文字列を検索すると いうことぐらいは想像がつくのですが、URLは 文字数も決められているわけではないので、検索で 見つかった位置から最後までを抜き出すという方法が どうしても分かりません。 あるいは、タグの <A href= という文字列を検索して 見つかった位置から次に > という文字列が見つかった 場所までの間を抜き出すという方法になるかと思いますが、 最初に検索で見つかった位置から次に見つかった位置まで をどのように検索すればいいのかが分かりません。 何かいい手がございましたら、ぜひ教えてください。 よろしくお願いします!
質問日時: 2002/07/28 04:44 質問者: fujiyama2002
ベストアンサー
7
0
-
VisualBasicで外サブってできるんですか?
プログラミングについてですが VBのプログラミングの方法として外部サブルーチンは作れるのでしょうか? 例えば、ある値をメインのプログラムから別のプログラムに投げ 処理した結果をメインのプログラムに投げ返すといった処理が出来ないのでしょうか? COBOLでいう外部サブルーチンのような考えです。(以前COBOLをやっていたので・・・) こういったプログラミング方法がVBでもできるのでしょうか?
質問日時: 2002/12/04 14:23 質問者: tokyo_dajp
ベストアンサー
7
0
-
アクセサリのペイントを呼び出すには?
ボタンを押したらアクセサリのペイントが自動的に開くようにしたいんですがどうしたらいいのでしょうか? ど素人質問ですみません^^;
質問日時: 2003/01/12 00:50 質問者: 1kou
ベストアンサー
7
0
-
VB5の逆コンパイルについて
お世話になります。 VB5の資産の改修を迫られていますが、 EXEファイルしかなく、ソースファイルがありません。 著作権は問題ないので逆コンパイルしたいのですが、 調べた所、VBDecompiler、ATTAPといったツールが 海外ツールであるそうですが見つかりません。 仕様書、設計書といったものは少しはありますが 古すぎてEXEファイルの動作と違いがあり、 なんとか逆コンパイルできればと思うのですが、 ご存知の方はいらっしゃらないでしょうか。
質問日時: 2007/08/28 20:15 質問者: wrongside
ベストアンサー
7
0
-
関数がDLLファイル内に見つかりません!
VC++で作成した関数をVB6.0で使おうとしたんですが、 タイトルのようなエラーになってしまいます。 関数名はあっています。 なにか考えられることはありますか?
質問日時: 2002/03/15 13:09 質問者: wan-chan
ベストアンサー
7
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 このコードでうまく動作...
-
【マクロ】シートの変数へ入れるコ...
-
ワードの図形にマクロを登録できる...
-
算術演算子「¥」の意味について
おすすめ情報