Excel VBA質問箱 IV

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

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


28364 / 76732 ←次へ | 前へ→

【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 質問
【53654】Re:ラベルにランダムに表示させる VBWASURETA 08/1/29(火) 20:02 質問
【53655】Re:ラベルにランダムに表示させる ルネッサ 08/1/29(火) 20:38 回答
【53656】Re:ラベルにランダムに表示させる じゅんじゅん 08/1/29(火) 21:28 発言
【53657】Re:ラベルにランダムに表示させる ルネッサ 08/1/29(火) 21:46 お礼
【53667】Re:ラベルにランダムに表示させる VBWASURETA 08/1/30(水) 10:15 発言
【53668】Re:ラベルにランダムに表示させる ハチ 08/1/30(水) 12:27 発言
【53709】Re:ラベルにランダムに表示させる ルネッサ 08/2/4(月) 12:18 質問
【53710】Re:ラベルにランダムに表示させる ハチ 08/2/4(月) 13:05 発言
【53711】Re:ラベルにランダムに表示させる ルネッサ 08/2/4(月) 14:21 お礼
【53712】Re:ラベルにランダムに表示させる ハチ 08/2/4(月) 14:40 回答
【53719】Re:ラベルにランダムに表示させる ルネッサ 08/2/4(月) 17:04 お礼
【53669】Re:ラベルにランダムに表示させる ルネッサ 08/1/30(水) 14:25 お礼
【53728】Re:ラベルにランダムに表示させる VBWASURETA 08/2/5(火) 10:40 発言

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