[[20250501083116]]　『指定された数字を十の位に配置して、他の2桁をラメx（hiro）　ページの最後に飛ぶ

[ 初めての方へ | 一覧(最新更新順) |

| 全文検索 | 過去ログ ]

　

『指定された数字を十の位に配置して、他の2桁をランダムに』（hiro）

３桁の数字のうち、指定する十の位の数字がA1にあった場合、他の２桁をランダムに生成する関数またはVisual Basicを教えてください。

例えば、A2に"4"の数字があった場合、246,946,445,746と4が十の位に配置され、他２桁がランダムになるようにしたいです。

できれば関数が良いのですが、できなければVisual Basicなど他の方法でも大丈夫です。

あと十の位と別に、一の位でも同様、A3に例えば"8"の数字があった場合、228,658,598などできるように教えて頂けますとありがたいです。
よろしくお願いします。

＜ 使用 Excel：Excel2021、使用 OS：Windows11 ＞

Excel2021なのでLET関数も使えると思うので下記のようなものはいかが。
1と100の位の乱数を作るのでなく、最初に3桁の乱数を先に作って十の位を入れ替える手法です。
1の位も同様に処理すればいけます。

=LET(乱数,RANDBETWEEN(100,999), a,A2, IF(a="",乱数,VALUE(LEFT(乱数,1)&a&RIGHT(乱数,1))))
（abec） 2025/05/01(木) 09:19:51

abecさん、十の位、完璧にできました。ありがとうございます。
ただ一の位も同様にして、数式中のA2をA3にしましたが、十の位に配置されてしまいました。
他に数式のどこかを変えないといけないのでしょうか。
よろしくお願いします。
（hiro） 2025/05/01(木) 09:32:41
別案です 

 =IF(AND(ISNUMBER($A$1),LEN($A$1)=1),SUM(RANDBETWEEN(1,9)*100,$A$1*10,RANDBETWEEN(1,9)),"")
 =IF(AND(ISNUMBER($A$3),LEN($A$3)=1),SUM(RANDBETWEEN(10,99)*10,$A$3),"")

・複数出力の場合の重複を妨げません
・A1セルまたはA3セルの値が1桁の整数でない場合の出力は""になります
・ブック内のいずれかのセルの更新をするごとに出力値が変わります
（豆右衛門） 2025/05/01(木) 09:48:53

一の位はちゃんとできました！ありがとうございます。

A1（百の位）に、指定する数字が0〜9までの範囲であった場合、教えて頂いた数式でチャレンジしてみましたができませんでした。
※A2(十の位)0〜9 ,A3(一の位)0〜9

A1に、例えば"0"の数字があった場合、058,032,092と百の位に"0"が配置され、他２桁はランダムになるようにしたいのですが、教えて頂いた数式中のどこかを変えないといけないのでしょうか。
すみません、よろしくお願いします。
（hiro） 2025/05/01(木) 10:08:32

 =IF(AND(ISNUMBER($A$1),LEN($A$1)=1),TEXT(SUM(RANDBETWEEN(0,9)*100,$A$1*10,RANDBETWEEN(0,9)),"000"),"")
 =IF(AND(ISNUMBER($A$3),LEN($A$3)=1),TEXT(SUM(RANDBETWEEN(0,99)*10,$A$3),"000"),"")
 =IF(AND(ISNUMBER($A$1),LEN($A$1)=1),TEXT(SUM($A$1*100,RANDBETWEEN(0,99)),"000"),"")

まず先ほどの回答の「十の位」の式について、1桁目に0が来ないというミスがありました。訂正してお詫びします。
上から十の位、一の位、百の位を固定とする式です。一の位の式のみA3セルを参照するものになっています。
（豆右衛門） 2025/05/01(木) 10:35:05

豆右衛門さん、すべて完璧にできました！
わざわざ訂正していただいての再返信、貴重なお時間を取っていただきありがとうございました。
大変助かりました。本当にありがとうございました。
（hiro） 2025/05/01(木) 10:46:50
コメント返信：

[ 一覧(最新更新順) ]

YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.