□ 戻る　 □一般操作のサロン　 □ 使用方法　 □ 新着記事 　□ 新規に質問する！　 □ トピック一覧　 □ 検索 　□ 過去ログ
[ 最新記事及び返信フォームをトピックトップへ ]
このトピック参照回数 :
ランダムマクロ変更

    [195066] ランダムマクロ変更-

    ■親トピック/記事引用/メール受信=OFF■

    □投稿者/ 青葉マーク -(2022/07/24(11:05))
    □U R L/ 
      Sub Macro1()
Application.ScreenUpdating = False
Dim MaxNum As Long
Dim flg() As Boolean
Dim num As Long
Dim i As Long
Dim Number() As Long
MaxNum = 17
ReDim Number(1 To MaxNum) As Long
ReDim flg(1 To MaxNum) As Boolean
Randomize
For i = 1 To MaxNum
Do
num = Int(Rnd * MaxNum) + 1
If flg(num) = False Then
flg(num) = True
Number(i) = num
Exit Do
End If
Loop
Next i
For j = 1 To MaxNum
Cells(j, 4).Value = Number(j)
Next
End Sub

上記は1〜17の数字をランダムに発生しD1〜D17に表示させるマクロですが、表示部の構成上どうしても、D6〜D22に表示させたい。自分なりに試行錯誤したのですが何分素人なものでわかりません。どなたか伝授頂ければ幸いです。ちなみに上記コードはネットにて引用しました。Windows10


      この記事にはVBAのコードが含まれています。

      緑の太文字→注釈
      茶色の太文字→条件分岐
      赤の太文字→ループ
      青の太文字→その他



    [195067] Re[1]: ランダムマクロ変更-

    ■記事引用/メール受信=OFF■

    □投稿者/ 半平太 -(2022/07/24(11:52))
    □U R L/ 
      ＞For j = 1 To MaxNum
＞    Cells(j, 4).Value = Number(j)
＞Next
   ↓
  For j = 1 To MaxNum
      Cells(j + 5, "D").Value = Number(j)
  Next



      この記事にはVBAのコードが含まれています。

      緑の太文字→注釈
      茶色の太文字→条件分岐
      赤の太文字→ループ
      青の太文字→その他



    [195068] Re[2]: ランダムマクロ変更-

    ■解決！！ありがとうございました！ / 記事引用/メール受信=OFF■

    □投稿者/ 青葉マーク -(2022/07/24(12:07))
    □U R L/

      半平太さん、ありがとうございました。早速実行させて頂きました。
      完璧です。これで作業性が、構成上非常に効率的になりました。
      お忙しいい所お手数を掛けました。まずはお礼まで。



このトピック内容の全ページ数 / [0]

このトピックに書きこむ
Name/
E-Mail/

└>このツリーのレス記事をメールで受信しますか? YES/ NO/
Title/
URL/
Comment/ 通常モード->　 図表モード-> (←の場合適当に改行を入れて下さい)
タグが使用できます。例 ⇒ <font color="blue">文字</font>
解決！！ありがとうございました！ 解決       保留中です・・・ 保留        迷宮入りorほかあたって見ます・・ 迷宮入       すいませ〜ん。誰か〜！ Help! ←※回答者専用
解決したらチェック       保留(コードテスト中など・・)         解決不可orレスが全く付かなくてほかのサイトに行くときなど・・
削除キー/
(半角8文字以内)　

- Child Forum -
Edit:ゆう-Ｇ