■ 現在のこのページの役立ち度:
表示されない場合こちらのリンクからもご覧になれます。
■ このページの役立ち度を評価する:
役立ち度を評価してください。
(1(左):あまり役立たない - 5(右):大変役立った):
■ ページの共有:
[ サイト内検索 ]
カスタム検索
#44674-0カウント数についてのの2001-07-04(水) 09:58
     #44675-0RE#44674:カウント数についてよねKEN2001-07-04(水) 10:16
     #44676-0RE#44674:カウント数についてせつら2001-07-04(水) 10:24
#44674-0
カウント数について
フォームにOKボタンを作り、OKを押せばText3.Text(ループカウント数
という名前)のフィールドに数字を表示させたいのです。
例えば、For 変数名 = 5 To 10と5〜10までText3.Textフィールドに
表示させたいのですが分かりません。
5〜10じゃなくてもForで決めた値、全てを自動表示できないでしょうか?
例 For 変数名 = 20 To 30であれば、Text3フィールドに20〜30の
値を表示したいのですよ。
教えて下さい。

#44675-0
RE#44674:カウント数について
> フォームにOKボタンを作り、OKを押せばText3.Text(ループカウント数
> という名前)のフィールドに数字を表示させたいのです。
> 例えば、For 変数名 = 5 To 10と5〜10までText3.Textフィールドに
> 表示させたいのですが分かりません。

前回までの質問と内容が変わっていないように思うのですが、
今までの回答はどういかされたのでしょうか?
また、今はどうやっていて、どこでつまっているのですか?

> 5〜10じゃなくてもForで決めた値、全てを自動表示できないでしょうか?
> 例 For 変数名 = 20 To 30であれば、Text3フィールドに20〜30の
> 値を表示したいのですよ。
> 教えて下さい。

Text3にどのように表示したいのですか?
説明にある内容を字面通りに受け取ると
startNumber = 5
endNumber = 10
Text3.Text = startNumber & "〜" & endNumber
で「5〜10」と表示できるので、ループする必要がないですし。

例えば、カンマ区切りで5〜10の数字をすべて列挙するのであれば、

Dim i As Long
    
Text3.Text = ""
    
For i = 5 To 10
    Text3.Text = Text3.Text & i & ","
Next i
    
Text3.Text = Left(Text3.Text, Len(Text3.Text) - 1)

のようにすればできます。
#44676-0
RE#44674:カウント数について
相変わらず、同じような質問をされていますが、過去に皆さんが回答してくれた事は役立っているので
しょうか? 報告が無いので、さっぱり判らないですよ。 それに、判らないことがあったときの調べ
方をいろいろ教えたつもりですが、まったく実行されていないように思います。 安易に人に頼りすぎ
ですよ。

Private Sub Command1_Click()
    Dim i As Integer

    Text3.Text = ""

    For i = 5 To 10
        Text3.Text = Text3.Text + Str(i)
    Next i
End Sub
お探しの情報は見つかりましたか?お困りの問題は解決しましたか?
サイト内検索, 似た記事検索で見つからなくてもあきらめずに掲示板で質問してみましょう。
VB初心者友の会があなたのお役に立てれば幸いです。また、本ページの投稿者の方々にこの場を借りて感謝致します。
本ページは過去ログを集めて自動構成しています。よろしければこのページに関するフィードバックをお願いします。
(※ 構成の誤り、広告等の不適切な記事、リンク切れ、読めないページの報告など)