Excel VBA質問箱 IV

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

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


66337 / 76734 ←次へ | 前へ→

【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
このような感じです。
長くなって失礼しました。よろしくお願いします
2 hits

【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 回答

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