変数Ａと変数Ｂの値が同じになる現象の原因とは？
- 現在、vb.net2010を使用して、あるアプリケーションの改造を行っておりますが、別々の変数にもかかわらず、一方の変数に値をセットするともう一方の変数にも値がセットされるという現象が発生しています。
- 変数Ａと変数Ｂは別の変数なのに、どうして変数Ｂ配下の変数に値がセットされると、変数Ａに反映されてしまうのかがわかりません。
- 変数名は違うけれど、アドレスが同じところを見ているので、こういう現象になるのでは？という指摘がありました。
- ベストアンサー
別々の変数なのに同じ内容がセットされてしまう
OS:Win7 Pro(32bit) VB.net:Visual Studio 2010 現在、vb.net2010を使用して、あるアプリケーションの改造を行っておりますが、 二つの別々の変数にもかかわらず、一方の変数に値をセットすると もう一方の変数にも値がセットされるという現象が発生しています。 APの構造は以下の通り（概略） Dim 変数Ａ as list(Of cSubStr_A)（パブリック変数） Private Sub ルーチンＡ Dim 変数Ｂ as cSubStr_B 変数Ｂ.SubString. = 変数Ａ.SubString(インデックス） 変数Ｂ.SubString.left = 123 End Sub 変数Ａについては、他のサブルーチンなどで値がセットされています。 変数Ａ、変数Ｂの配下には、leftという変数があります。 現在、変数Ｂ.SubString.left = 123が実行されたときに、 変数Ａ.SubString.leftに対しても同じ値がセットされてしまいます。 （ステップ実行で確認） 他のプログラマが作成したものなので、 詳細は現在不明なのですが、変数Ａと変数Ｂは別の変数なのに、 どうして変数Ｂ配下の変数に値がセットされると、変数Ａに 反映されてしまうのかがわかりません。 別の人に聞いてみたのですが、変数名は違うけれど、 アドレスが同じところを見ているので、こういう現象になるのでは？ という指摘がありました。 今までこういう現象にで合ったことがないので、 手がかりがつかめない状態です。 なにかヒントがあれば、お教え願えればと 思います。 以上、よろしくお願い申し上げます。
- PRI_YE
- お礼率50% (2/4)
- Visual Basic
- 回答数2
- ありがとう数2
- みんなの回答 （2）
- 専門家の回答
質問者が選んだベストアンサー
こんにちは >別の人に聞いてみたのですが、変数名は違うけれど、 >アドレスが同じところを見ているので、こういう現象になるのでは？ >という指摘がありました。 こちらの話が正しいような気がします。 参照型について調べてみてはどうでしょうか？ http://homepage1.nifty.com/rucio/main/dotnet/shokyu/standard34.htm
その他の回答 (1)
- imogasi
- ベストアンサー率27% (4737/17068)
私は素人ですが、下記が的外れなら笑って無視してください。 VBのコーディング上で、変数Aが変わるステップ（代入が顔を出すケースは）は、（コーディンウ）形の上で ・「A=」・・・のような書き方をしている場合ー代表的な代入による値変更 ・有名なByValとByRefについての話題 ・A as・・のあとに離れて「＝・・」がある代入の場合 変数型定義のあとに代入している 例 A as Integer=2 ・その他 Visual ＢＡＳＩＣの関数にＭｉｄ（Ａ、１，１）＝２というような左辺での変数を変える関数があった。 Sub test01() a = "3" MsgBox a Mid(a, 1, 1) = "2" MsgBox a End Sub ＶＢ．ＮＥＴにも、 「ちなみにVBなら.NETでも Mid(BeforeStr, 3, 1) = "2" の記述が可能です。これはBeforeStr自体を書き換えます。」 ・このほかにむつかしいケースがあるのでしょうか。 ーーー コーディング上の「検索」を使って、予想外で、Ａの値を変えているコーディング箇所は見つけられないでしょうか？それの適否をチェックして行く。 ーー 上記の机上の目視的な方法で無理なら、その後にはＶＢ．ＮＥＴの 「変数と式を監視する」機能で、Ａの動きを監視するとか。
関連するQ&A
- 変数から命令？
例えば dim a as String a="dim b as Long" という風にしてみて aの値に入ってるやつを実行（？）するようなことができますか？ つまり、ここでいうなら aに"dim b as Long"をいれて なんらかの処理を行って 変数bを作成することはできますか？
- ベストアンサー
- Visual Basic
- 変数の値について
変数の値について教えてください。 VB2010 Private Sub Button１_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Dim A As Single A = 2.0 MsgBox(A) End Sub 上記のプロシジャを実行するとメッセージボックスに２と表示され 2.0と表示しません。 2.0と表示させるには、どのようにすればよいなでしょうか。
- ベストアンサー
- Visual Basic
- オブジェクト型の変数同士の値の等価比較方法
VB.NETにおいて、オブジェクト型の変数同士の値が同じかどうかチェックする方法を教えてください。 Dim a As Object = 1.0 Dim b As Object = DBNull.Value ・・・ If a = b Then ' 同じ Else ' 違う EndIf 上記のようなことをしたいのですがエラーになります。よろしくお願いします。
- 締切済み
- Visual Basic
- VB6にて文字型変数の内容をオブジェクト変数に代入する方法
ＶＢ初心者ですが オブジェクト変数に文字型変数で作成した オブジェクト名を代入したいのですが 上手くいきません。 Dim anyCmb As ComboBox Dim cmb_name As String cmb_name = "ABC" Set anyCmb = cmb_name 誰かわかる方がいましたら、教えてください。 よろしくお願いします。
- 締切済み
- Visual Basic
- エクセルマクロ配列で変数は使えますか
エクセル2013です。 初めて配列を使います。 以下のように作成し思ったようにできました。 Sub 計算() '成功 Dim a As Integer Dim c As Integer Dim b(5) As Integer Dim 最終行 Dim 値列 値列 = 17 最終行 = Cells(Rows.Count, 1).End(xlUp).Row For 処理業 = 1 To 最終行 For a = 1 To 5 b(a - 1) = Cells(1, 値列) 値列 = 値列 + 1 Next 値列 = 17 For a = 1 To (22 - 値列) c = c + b(a - 1) Next Cells(処理業, 30) = c a = 0 c = 0 Next 処理業 End Sub ただ計算する列の範囲をインプットボックスで入力した値 にしたい為以下のように改造しました。 Dim b(対象列) As Integerでエラーになります 配列には変数は使用できないのでしょうか？ よろしくお願いします。 Sub 計算() '失敗 Dim a As Integer Dim c As Integer Dim b(対象列) As Integer’★ここでERRになる Dim 最終行 Dim 対象列 Dim 値列 対象列 = 22'インプットボックスで入力した値 値列 = 17 最終行 = Cells(Rows.Count, 1).End(xlUp).Row For 処理業 = 1 To 最終行 For a = 1 To (対象列 - 17) b(a - 1) = Cells(1, 値列) 値列 = 値列 + 1 Next 値列 = 17 For a = 1 To (22 - 値列) c = c + b(a - 1) Next Cells(処理業, 30) = c a = 0 c = 0 Next 処理業 End Sub
- ベストアンサー
- Excel（エクセル）
- VBAのプロシージャーと変数の名前の区別について
VBAの初心者です。教えてください。 Sub ex() Dim a As Integer Dim b As Integer a = 2 a a, b MsgBox b End Sub Sub a(a As Integer, b As Integer) b = a End Sub 上記のプログラムを実行するとうまくいきません。VBAのプロシージャーと変数って同じ名前を使うとだめなのですか？教えてください。
- ベストアンサー
- Visual Basic
- 2つ以上の変数を比較して最大数を求めたい
Sub 最大数() Dim a As Long Dim b As Long Dim c As Long a = 10 b = 20 c = 30 ここで変数を比較するコード MsgBox "a,b,cの中で一番大きな数は です" End Sub のように変数を比較して、最大数を求めたいのです。 ２つなら If a > b Then で結果を取得すればいいですが、 ３つや４つやそれ以上になった時に、応用を利かせるため質問しました。 よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- ＶＢでの変数宣言は１行に２つできないのですか？
Ｖｉｓｕａｌ ＢＡＳＩＣで変数宣言は１行に２つ以上記述しても実際、動作します。 例 ＤＩＭ Ａ、Ｂ ａｓ Ｉｎｔｅｇｅｒ このように宣言すると、ＡもＢも整数となります。 しかし、このように宣言して、この変数を Ｃａｌｌ サブプログラム名（Ｂ） のように、パラメ－タとして引き渡そうとするとエラーとなってしまうようです。 よくわからないまま、 ＤＩＭ Ａ ａｓ Ｉｎｔｅｇｅｒ ＤＩＭ Ｂ ａｓ Ｉｎｔｅｇｅｒ と分けて記述したらエラーがきえたようです。 変数宣言は１行に２つ以上まとめて記述してはいけないのでしょうか？ ＶＢは Ｖｅｒ ５ です。
- ベストアンサー
- その他(ソフトウェア)
- 変数の使い方の注意点なんですが・・・？
Windows XP Home Edition Excel 2002 当方は、まだ基本がしっかり頭に入っていないので、 勝手な疑問が出てきているようでございます。 まだまだ勉強中ですが、 下記コードの場合、動作はしますが、 変数 c の使い方は間違っているのではないですか？ ４は、 同プロシージャ内なので、 変数 c と r というように、区別して記述しないといけないのではないかと思って いるのですが。 ３は、 プロシージャが違うので問題はないと思っております。 Dim r As Range, s As Range と記載してもいいのでしょうか？ つまり、曖昧に、ごっちゃ混ぜにしてしまうと、エラー等、PCに支障をきたすことになって しまうのではないかと心配でございます。 また、こんな記述だと、エラー等、PCに支障をきたすことになって しまうという例を １つか２つ（又はHP等） 教えて頂けると有り難いです。 初歩的な例で結構です。 全くの初歩的な（ざっくりな）お答えで結構ですのでよろしくお願い致します。 Sub てす1() Dim r As Range, s As Range Set s = Cells(1, 1) s.Select MsgBox " A1 です " End Sub '------------------------ Sub てす2() Dim r As Range, s As Range Set s = Cells(1, 2) s.Select MsgBox " A2 です " End Sub '------------------------ Sub てす3() Dim r As Range, s As Range Call てす1 Call てす2 MsgBox " A1とA2 です " End Sub '------------------------ Sub てす4() Dim r As Range, s As Range Set s = Cells(1, 1) s.Select MsgBox " A1 です " Set s = Cells(1, 2) s.Select MsgBox " A2 です " MsgBox " A1とA2 です " End Sub
- ベストアンサー
- オフィス系ソフト
- 変数
Dim トータル As Integer トータル = 200 Dim 変数１(トータル) As Integer Dim 変数２(トータル) As Integer Dim 変数３(トータル) As Integer Dim 変数４(トータル) As Integer ※変数１～４に同じ数の変数（クローン？？）を用意したいのですがエラーがでます。 このような使い方は出来ないのでしょうか？ なお、VB上ではローマ字で使っています。 変数は６個ぐらいあり 毎回変えるのは面倒なので・・・ （スパイラルモデル方式？？といっても使うのは私自信ですが・・・）
- ベストアンサー
- Visual Basic
お礼
ありがとうございます。 返信遅くなりまして、申し訳ございませんでした。 あれから 色々調べてみましたが、 どうやら、 >・有名なByValとByRefについての話題 に関わるところのようです。 >Mid(BeforeStr, 3, 1) = "2" これは意外でした。 こういう使い方が出来ると言うことを知るのと同時に、 気をつけなければならないところだと思いました。 ありがとうございました。