Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


11648 / 13646 ツリー ←次へ | 前へ→

【14961】自分でココまでやりました。(かなり初心者です) 04/6/11(金) 22:00 質問[未読]
【14963】Re:自分でココまでやりました。(かなり初... ちゃっぴ 04/6/11(金) 22:51 回答[未読]
【14965】Re:自分でココまでやりました。(かなり初... 04/6/11(金) 23:11 お礼[未読]
【14968】Re:自分でココまでやりました。(かなり初... 04/6/12(土) 0:17 質問[未読]
【14969】Re:自分でココまでやりました。(かなり初... ちゃっぴ 04/6/12(土) 0:23 回答[未読]

【14961】自分でココまでやりました。(かなり初心...
質問    - 04/6/11(金) 22:00 -

引用なし
パスワード
    VBAを使って数字データーの入ったファイルを呼び出して、その数字にtextbox3に入力した数字を掛けた値をtextbox2に表示させたいのですが、なぜか最後の数字しか上手くいきません。
自分ではココまでやりました。
Dim box(10) As Variant
sp = " "
TextBox1.SetFocus
  n = 0
Open "c:\jisaku.txt" For Input As #1
 Do While Not EOF(1)
Input #1, nm$
 n = n + 1
box(n) = nm$
 Listbox1.AddItem nm$ & sp & gs$ & sp & mn
Loop
 m = Cint(TextBox3.text)
simei = Cint(TextBox1.Text)
 Text2,Text = nm$ * m
   Close #1
End Sub
このような感じです。
長くなって失礼しました。よろしくお願いします

【14963】Re:自分でココまでやりました。(かなり...
回答  ちゃっぴ  - 04/6/11(金) 22:51 -

引用なし
パスワード
   丸投げの依頼が多い中で感心します。

ただ一点
ループや条件分岐の時はインデントつけてみやすいように
コードを記述しましょう。

例)
If 〜 Then
  Do
    '処理
  Loop
End If

テキストから読み取った値を配列box(n)に格納している
ようですが、これを使ってないのでは?

また、テキストボックスに表示すると言うことですが、
テキスト内のデータは10件あるのでしょう?

テキストボックスでいいのですか?
ListBoxにすべきでは?

【14965】Re:自分でココまでやりました。(かなり...
お礼    - 04/6/11(金) 23:11 -

引用なし
パスワード
   回答ありがとうございます。
>テキストから読み取った値を配列box(n)に格納している
>ようですが、これを使ってないのでは?

最後のnm$をbox(n)に変えてみました。

>また、テキストボックスに表示すると言うことですが、
>テキスト内のデータは10件あるのでしょう?

10件も無いです。計算結果だけ表示したいです。

>テキストボックスでいいのですか?
>ListBoxにすべきでは?

リストボックス1には読み込んだデータを表示させたいので新たにリストボックス2を付け足すという事なのでしょうか?

まだ上手くいかないみたいなので色々試してみます。

【14968】Re:自分でココまでやりました。(かなり...
質問    - 04/6/12(土) 0:17 -

引用なし
パスワード
   下から3行目を
Listbox2.Function = box(n) * m
としてみたのですが、グループが見つからないと言われましたコレの意味がさっぱりわからないのですが教えていただけますか?

【14969】Re:自分でココまでやりました。(かなり...
回答  ちゃっぴ  - 04/6/12(土) 0:23 -

引用なし
パスワード
   >Listbox2.Function = box(n) * m

・・・( ( (__|||) ) ) どよぉ〜ん。。。
ホントに自分で書かれたのですか?

Listboxのメソッド、プロパティにFunctionなんてものありませんよ!
ヘルプで調べてみましょう!

Listboxに項目を追加する方法はご自身で書いた?ようなので
もう一度ソースを眺めてみることをお勧めします。

11648 / 13646 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free