Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

28370 / 76738

←次へ　｜　前へ→


	【53667】Re:ラベルにランダムに表示させる

VBWASURETA - 08/1/30(水) 10:15 -


	引用なし

	パスワード

▼ルネッサさん、じゅんじゅんさん：

おはようございます。
一応、考えて作りましたが、
じゅんじゅんさんのソースが良いかも知れませんね＾＾；
ただ長いだけであまり良い出来ではないですが
記載します。
自分の場合は配列に値をセットし、選ばれた値は
配列を詰めて行くソースです。

例：

Dim Setval() As String
Dim Maxindex As Integer

Function Main() As String
　　Dim MaxCnt As Integer
　　Dim Cnt As Integer
　　Dim GetStr As String
　　
　　'初期処理
　　Call FncFstSetData
　　GetStr = ""
　　
　　MaxCnt = Maxindex
　　For Cnt = 1 To MaxCnt
　　　　'配列より取得処理(連結)
　　　　GetStr = GetStr & FncGetData
　　Next
End Function

'初期配列セット処理
Function FncFstSetData()
　　Dim i As Integer
　　Maxindex = 5
　　
　　'5の配列定義
　　ReDim Setval(Maxindex) As String
　　
　　'A～Eまでを配列にセット
　　For i = 1 To Maxindex
　　　　Setval(i) = Chr(64 + i)
　　Next i
End Function

'配列から1文字を取得
Function FncGetData() As String
　　Dim Getindex As Integer
　　Dim CntIndex As Integer
　　Dim GetStr As String
　　　　
　　Randomize
　　Getindex = Int((Maxindex * Rnd) + 1)
　　
　　'取得文字列を取得
　　GetStr = Setval(Getindex)
　　
　　'取得文字列の配列以降を詰める
　　For CntIndex = Getindex + 1 To Maxindex
　　　　Setval(CntIndex - 1) = Setval(CntIndex)
　　Next
　　
　　Setval(Maxindex) = ""
　　Maxindex = Maxindex - 1
　　
　　'取得文字列を返す
　　FncGetData = GetStr
End Function

1 hits

▼

【53653】ラベルにランダムに表示させる ルネッサ 08/1/29(火) 18:45