ベストアンサー

vba

2012/05/19 09:27

vbaについて F５からL20までのセルに、ランダムにセルを選び、１～２０の20個の数字を重複なしでランダムに表示させたいです。省略できる所は省略した簡潔なプログラム教えてほしいです・・・：：

qqqqfring
お礼率38% (7/18)

Visual Basic
回答数1
ありがとう数5

みんなの回答 （1）
専門家の回答

質問者が選んだベストアンサー

ベストアンサー

watabe007
ベストアンサー率62% (476/760)

2012/05/19 10:22 回答No.1

どうぞ～ Sub Test() 　　Dim i As Long, 乱数 As Long 　　Dim v(1 To 112) As Boolean 　　Randomize 　　For i = 1 To 20 　　　　Do 　　　　　　乱数 = Int((Rnd * 112) + 1) 　　　　Loop While v(乱数) 　　　　v(乱数) = True 　　　　Range("F5:L20").Cells(乱数) = i 　　Next i End Sub

質問者

お礼 2012/05/19 11:15

ありがとうございます！！

関連するQ&A

重複しない乱数

vbaについて F５からL２０までのセルにランダムに１～２０の数字を入れたいです。省略できるところは省略した、簡潔なプログラムを教えてほしいです。お願いします・・・；；
vba

vbaについて下記のプログラム教えてほしいです。 F5からL20に、1～３０までの数字がランダムに入力されています。空欄もあります。クリックしたセルが空欄の場合と、値が３０の場合は何もしない。クリックしたセルに値がある場合、その値をコピーし、 F21に値を＋１して貼り付ける。わかりますかね？；；なるべく省略された簡潔なプログラム教えてほしいです。
Excel VBAのプロシージャについて

こんにちは、VBAを作成しているのですが、分からない所があるので、詳しい方からのご教授をお願いします。 A 　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　AF　 _______________________________________________________________________ 　1|　　　　　　 1　　 2 　　 3　　 4　　 5　　　　・・・　　31　　　←日付　2|　　鈴木　　11 　 15 　 35 　 8 25 　3|　　斉藤　 45 　 52 　 25 　 21 　 50 　4|　　伊藤　 25 　 45 75 　 36 16 　・1行目のB1セルからAFセルまで日付が入っています。・2行目のA2セルからA4セルまで名前が入っており、横方向にランダムな数字が入っています。上記の表から、日付とランダムな数字を指定し検索する事でmsgboxで氏名を返せるように作っています。（例えば3日25で検索すると、msgboxで斉藤とでるようにする)。自分なりに作ってみたのは、まずvbaを実行すると、A1行をautofilterで日付を検索し、activecell（検索結果の日付セル）の列からランダムな数字を再度autofilterで検索するというものですが、もっと記述について他に方法があるのではないかと疑問に思っていますので、このようなプログラムを作成する場合、慣れた方ならどのように記述するのでしょうか？よろしければ教えていただければと思いますのでよろしくお願いします。 ※実際は検索boxを作成していますが、AHセルに検索したい日付、AIセルに検索したいランダムな数字を入力するものとさせて頂きます。 ※EXCEL2000を使用しています。 ※中傷するような回答は遠慮させていただきます。よろしくお願いします。
VBA教えてください

セルB5からF5に各列の平均値が入力されています。 B5からF5の値をH6からL6にも表示されるVBAを作りたいのですが教えていただけないでしょうか？関数でを使えば簡単ですが数式を表示したくないのでお願いします。
特定のセルに数字を入力すると特定の文字を表記ＶＢＡ

(1)セルＧ９には「ドラム缶　　缶」と表記されています。ここに数字のみを入力すると「ドラム缶　〇　缶（〇は先ほど入力した数字）を自動表記し、「ドラム缶　〇　缶」と表記された文字をデリートボタン等で消したら、再び「ドラム缶　　缶」と自動表記するＶＢＡはありますか？セルＦ９には、Ｇ９の「ドラム缶　〇　缶」の〇の数字に２００を掛けて、「○○○Ｌ」と自動表記させたいのですが、どの様にＶＢＡを書けば良いですか？Ｇ９が「ドラム缶　　缶」と数字が表記されている時はＦ９も「　　　Ｌ」と空白表記させたいです。 (2)セルＧ１１には「２０Ｌ缶　　缶」と表記されています。ここに数字のみを入力すると「２０Ｌ缶　〇　缶（〇は先ほど入力した数字）を自動表記し、「２０Ｌ缶　〇　缶」と表記された文字をデリートボタン等で消したら、再び「２０Ｌ缶　　缶」と自動表記するＶＢＡはありますか？セルＦ１１には、Ｇ１１の「２０Ｌ缶　〇　缶」の〇の数字と一緒の数字「○Ｌ」と自動表記させたいのですが、どの様にＶＢＡを書けば良いですか？Ｇ１１が「２０Ｌ缶　　　缶」と数字が表記されていない時はＦ１１も「　　　Ｌ」と空白表記させたいです。 (3)セルＧ２９には「　　　　　　　 L」と表記されています。ここに数字を入力すると「　　　〇　　　　 L（〇は先ほど入力した数字）を自動表記し、「　　　　〇　　　 L」と表記された文字をデリートボタン等で消したら、再び「　　　　　　　 L」と自動表記するＶＢＡはありますか？セルＦ２９には、Ｇ２９の「　　　　　　　 L」と全く一緒に連動した文字（ここでは「　　　　　　　 L」）を自動表記させたいのですが、ＶＢＡではどの様にすれば良いですか？
該当するセルの隣の数字を表示させる計算式

「0,1,1.1,1.2,1.3,1.4,1.5,1.6,1.7,1.8,1.9,2,2.1,2.2,2.3,2.4,2.5,2.6,2.7,2.8,2.9,3」の数字が順番にＬ２～Ｌ２３に表示されています。その隣のＭ２～Ｍ２３には以下の数字が入力されています。「2.89,3.39,3.44,3.49,3.54,3.59,3.64,3.69,3.74,3.7,3.8,3.89,3.9,3.99,4.0,4.0,4.14,4.19,4.24,4.29,4.34,4.39」 ※「,」は質問内容を分かり易くする為に数字を区切っているだけで、実際には表示されていません。質問ですがセルＦ１１に「0」を入力した場合、Ｆ１３には「２．８９」、セルＦ１１に「1」を入力した場合Ｆ１３には「３.39」、セルＦ１１に「1.1」を入力した場合Ｆ１３には「3.44」・・・と順番に表示する様にする計算式やＶＢＡは、どのようにすれば良いでしょうか？
VBA　計算の速度調整

エクセルVBAでランダムに１から１０の数字10000個を各セルに書き、各数字に対応する色に塗り分けるというコードを作ったのですが、実行ボタンを押して、色が自動的に塗り分けられていくスピードを早くしたり、遅くしたりすることはできるのでしょうか？
VBAでこのプログラムの作り方

最近VBAを勉強し始めた初心者です。 Excel上でコマンンドボタン１つでＤ１８～Ｈ１８からＤ２２～Ｈ２２の５×５の２５マス（Ａシート）とＭ１８～Ｑ１８からＭ２２～Ｑ２２の５×５の２５マス（Ｂシート）それぞれに１～７５の乱数を同時に発生させ一定時間、数字を回転させたあと数字を表示させたいのですがどのようなプログラムを組めばよろしいですか？ただしＡシート内での数字の重複、Ｂシート内での数字の重複は起きないものです。ＡシートとＢシートの数字の重複はＯＫです。数字はＡシート２５マス、Ｂシート２５マス全て同時に回転させたいです。乱数を回転させ数字を表示させるプログラムは For = i = 0 To 100 　Range("○○").Value = Int(Rnd * 75) + 1 Next i です。よろしくお願いします。
ExcelのVBAに詳しい人に質問です

条件は以下の通りです。・A列に数字がランダムで入っているとします。・A列は数字のみです。・行は作業次第で増えていきます。・新しい行に数字を追加するときは行に空白の隙間はなしそこで、ボタン一つ押せばA列の数字全部に「+1」するようなプログラムを作りたいのですが、どうすればよろしいのでしょうか。VBAに詳しい方アドバイスよろしくお願いします。
EXCEL VBA （変更セル値の値をとる）

「A１セルからJ1セル」にランダムに数字が入っていたとします。 A1セルからH1セルのどこかの数字を変更した場合、その数字が変更したセルからJ1セルまで同じ数字になるようにしたいです。たとえば、A1からJ1セルに１～１０の数字をいれ、B１セル値の２を５に変更した場合、B1セルからJ1セルまでの値が全て５になるようにしたいです。これはVBAで可能ですか？すいませんが宜しくお願いします。
VBAの授業でナンプレを制作しているのですが

初めまして、VBA使用暦数ヶ月の超初心者です。学校の課題でVBAにて数独（ナンプレ）を作成しています。時間をかけて数字のランダム化にやっと成功した次第（それでも遅いのと偶にランダム化しきれないので不満は多々ありますが、そこまでのスキルを持っていないので断念せざるをえませんが）です。以降のステップとして、 1.セルに表示されている数字を幾つか消去か見えないようにしてパズルとしての体裁を整えること(個人的にはセルに直接入力してほしいので消去の方が望ましいです) 2.難易度のレベルを3段階作成すること（見えないセルを増やすことにより） 3.ゲームスタートのボタンを押した際に、別のワークシートに回答が表示されていること(セルの数字を消去することが可能であれば) 4.（可能であれば）回答ボタンを押した際に幾つ間違いがあるのか表示できることと担当教師に指導されました。これをVBAで作成せねばならないのですが、はっきり言って自分の手にはもう負えません。何方かマクロを作っていただけないでしょうか。参考書やゲーム作成用の教材も彼方此方で借りて読んだり、PC関係に強い友人達に尋ねたりしてはいるのですが遅々として進まないのが現状です。もう頼る当ても無く、最後の望みを賭けてこの知恵袋に投稿した次第です。年末の忙しいこの時期にお手数だとは重々承知をしておりますが、何卒よろしくお願いいたします。
エクセル関数（抽出）について

宜しくお願い致します。Ａ列にランダムな数字が入力されている。（重複する数字はなく、空セルなし）Ｂ列にランダムな数字が入力されている。（重複する数字があり、空セルあり）ここで、Ｂ列に入力されているＡ列のセルの数字を全部Ｂ列降順に抽出したいのです。（以下のような場合です）　　　Ａ　　　Ｂ１　　７　　２００２　　２　　１００３　　５　４　　３　　１００　５　　８　　　５０これを以下のようにする方法を教えて下さい。２００　７１００　２１００　３　５０　８
一括でセル削除　VBA　エクセル

B１からZ100にランダムに値（文字や数字）が入ってます。このうち、空白セルを削除して左に寄せたいのですが、VBAで一括でできますでしょうか？
配列、ランダムを使ったVBAプログラムの作成

10行10列のセル範囲に、1から100までの整数をランダムに配置するＶＢＡプログラムを作成したいのですが、うまくいきません。どなたかコードを教えていただけないでしょうか？
VBAを使って二進法計算

VBAを使って二進法のフラッシュ暗算するプログラムを作りたいのですが、なかなかうまくいきません。・ランダムに出る数字を二進法に変換して、エクセルに表示する例）４＋５＋６＝１５の場合、　　４　　　　　　５　　　　　　　６「１００」　⇒　「１０１」　⇒　「１１０」答えは「１５」（１０進法で）という流れでプログラムしたいのですが... どう変換させて、どう表示させるかでつまずいています。ちなみに１０進法のフラッシュ暗算は出来ました。分かる方がおられましたらご回答よろしくお願い致します。m(_ _)m
エクセルVBAでこのプログラムの作るには

最近エクセルVBAを勉強し始めた初心者です。エクセル上でコマンンドボタン１つでＤ４に１～７５の乱数を発生させて次にＥ４に乱数を発生させる。Ｄ４＋Ｅ４が１２０以上なら終了で、そうでなければＦ４に乱数を発生させてＤ４＋Ｅ４＋Ｆ４が１２０以上なら終了で、そうでなければＧ４に乱数を発生させてＤ４＋Ｅ４＋Ｆ４＋Ｇ４が１２０以上なら終了で、そうでなければＨ４に乱数を・・・の繰り返し。（最大、Ｌ４まで繰り返す）表示される数字はＤ４～Ｌ４まで同時ではなく１つずつタイムラグがある感じで表示させたいです。このプログラムを組みたいのですがどのようにすればよろしいでしょうか？よろしくお願いします。
ランダム関数で任意の桁数のランダム数字を作りたい

エクセル2000ユーザーです。ランダム関数を使い、重複を許さない５桁のランダム数字を1000個作りたいと思っています。randbetween関数を使おうと思ったのですが、2000では使えないのか、NAMEといったエラー表示がでます。５桁の中は同じ数字がでてきても構いません。例：11295、43634、70676・・・etc。が、1000個の中では同じ数字が重複しないようにしたいです。 =RIGHT(RAND(),5) のように考えたのですが、他にいい方法はありますでしょうか？マクロやVBAは苦手なので、できれば関数でいいやり方があれば教えてください。
エクセル2003のVBA

シート1のＡ列に『基本1，基本2,基本3,基本4』という文字をランダムに入力します。すると、例えば、Ａ１に基本1、Ｃ１に『30,60,90,120』と選択できるコントロールボックスがあり、その中（『30,60,90,120』）から任意の数字を選択し決定するとＣ１に決定した数字が入力される。このようなＶＢＡのプログラムを教えて下さい。基本2の場合は、『40,80,120,160』、基本3も、『40,80,120,160』、基本4は、『100,200,300,400,500』です。ちなみに、『基本1，基本2,基本3,基本4』が入力されたときにセルＡ１～Ｅ１位まで色分けしたいのですか。そちらもよけれが教えて下さい。よろしくお願いします。
Excel VBAのFindメソッドについて

Exceｌ VBAを勉強中の者です。 Findメソッドで、数字の入ったF5セルからF28セルの範囲から、 1という数字の入ったセルを検索したいと思い Sub test() Dim xRange As Range Set xRange = Range("F5:F20").Find(What:=1, LookIn:=xlValues) 　　xRange.Select End sub としました。しかし、このまま検索するとF6セルの12が検索されてしまいます。他の数字では問題なく、対象の数字の先頭の数字が選択されます。どうしてでしょうか？よろしくお願いします。
Excel　VBA　セルの隣を参照し別セルに代入

Excel2003版でVBAを使い　検索と参照プログラムを組みたい ----------------------------------------- Sub Sample1() Dim FoundCell As Range Set FoundCell = Range("B55:B63").Find("1") If Not FoundCell Is Nothing Then MsgBox FoundCell.Offset(0, -1) End If End Sub ------------------------------------------- ↑VBAプログラム参照↑ ・B55～B63セル内の中から(1)の数字があるセルを探し更に検索してヒットしたセルの左セルの内容をメッセージボックスに表示させるとゆうやり方です。この内容をあるセル例えば"E17"セルに代入させたい場合やりたいこととしまして、 ○----------------------------------------------------------○ E17セルの内容を空白にした後 Calculateを使いランダムシャッフルし、 B55～B63セル内の中から(1)の数字があるセルを探し更に検索してヒットしたセルの左セルの内容をE17に入力(代入又は参照でも可)させたい ○---------------------------------------------------------○ 場合はどのようにプログラムを組めばよろしいですか? 無知で愚かな私ですが恥を忍んでご教授頂けませんかよろしくお願いします(人>д<*ペコ謝)

vba

質問者が選んだベストアンサー

お礼 2012/05/19 11:15

関連するQ&A

重複しない乱数

vba

Excel VBAのプロシージャについて

VBA教えてください

特定のセルに数字を入力すると特定の文字を表記ＶＢＡ

該当するセルの隣の数字を表示させる計算式

VBA　計算の速度調整

VBAでこのプログラムの作り方

ExcelのVBAに詳しい人に質問です

EXCEL VBA （変更セル値の値をとる）

VBAの授業でナンプレを制作しているのですが

エクセル関数（抽出）について

一括でセル削除　VBA　エクセル

配列、ランダムを使ったVBAプログラムの作成

VBAを使って二進法計算

エクセルVBAでこのプログラムの作るには

ランダム関数で任意の桁数のランダム数字を作りたい

エクセル2003のVBA

Excel VBAのFindメソッドについて

Excel　VBA　セルの隣を参照し別セルに代入

注目のQ&A

カテゴリ
一覧

専門家に質問してみよう
専門家登録

あなたにピッタリな商品が見つかる！ OKWAVE セレクト

vba

質問者が選んだベストアンサー

お礼 2012/05/19 11:15

関連するQ&A

重複しない乱数

vba

Excel VBAのプロシージャについて

VBA教えてください

特定のセルに数字を入力すると特定の文字を表記ＶＢＡ

該当するセルの隣の数字を表示させる計算式

VBA 計算の速度調整

VBAでこのプログラムの作り方

ExcelのVBAに詳しい人に質問です

EXCEL VBA （変更セル値の値をとる）

VBAの授業でナンプレを制作しているのですが

エクセル関数（抽出）について

一括でセル削除 VBA エクセル

配列、ランダムを使ったVBAプログラムの作成

VBAを使って二進法計算

エクセルVBAでこのプログラムの作るには

ランダム関数で任意の桁数のランダム数字を作りたい

エクセル2003のVBA

Excel VBAのFindメソッドについて

Excel VBA セルの隣を参照し別セルに 代入

注目のQ&A

カテゴリ 一覧

専門家に質問してみよう 専門家登録

あなたにピッタリな商品が見つかる！ OKWAVE セレクト

VBA　計算の速度調整

一括でセル削除　VBA　エクセル

Excel　VBA　セルの隣を参照し別セルに代入

カテゴリ
一覧

専門家に質問してみよう
専門家登録