Results of 1 - 1 of about 14716 for VBA�������������� (0.003 sec.)
- [[20190901224753]]
- #score: 3409
- @digest: c816a422d4e8dfcc82ed60d8907b6fd7
- @id: 80643
- @mdate: 2019-09-02T11:43:02Z
- @size: 2003
- @type: text/plain
- #keywords: ホコ (18382), randbetween (10585), 0100045 (7055), 999999 (5216), 再チ (5159), 111111 (4386), 桁目 (2950), 119 (2874), tipsfound (1652), char (1325), ャレ (1237), ダム (1197), worksheetfunction (1144), 式等 (978), マナ (952), ら再 (880), ンダ (743), ラン (736), チャ (732), ナ様 (682), ンジ (677), 小文 (657), て勉 (623), ト関 (600), chr (579), 感激 (577), のラ (572), レン (562), ァベ (520), officetanaka (517), 2019 (481), ベッ (464)
- 『特定の条件の文字列をVBAで設定する』（ホコ）
今まで数式で作成していた数式等のVBA化に挑戦しているのですが、 どうも思い通りに出来ないため、お力お貸しください。 選択したセルに、8桁のランダムな文字列を入力するVBAコードを設定したいです。 1桁目と2桁目は小文字のランダムなアルファベット、3桁目以降はランダムな数字です。 今は以下の数式で作成しています。 ((CHAR(RANDBETWEEN(97,119)))&(CHAR(RANDBETWEEN(97,119)))&(RANDBETWEEN(111111,999999)) よろしくお願いします。 ＜ 使用 Excel:Excel2013、使用 OS:unknown ＞ ---- worksheetfunction.RANDBETWEENではだめですか （マナ） 2019/09/01(日) 23:12 ---- あと、CHRで （マナ） 2019/09/01(日) 23:13 ---- マナ様 ご回答ありがとうございました。 worksheetfunctionについて勉強してから再チャレンジしてみます。 （ホコ） 2019/09/02(月) 12:07 ---- ＞worksheetfunctionについて勉強してから再チャレンジしてみます。 横からですけど、読んでそのままワークシート関数です。 詳しくは↓が参考になるとおもます。 http://officetanaka.net/excel/vba/speed/s9.htm https://www.moug.net/tech/exvba/0100045.html また、マナさんがコメントされているVBAのChr関数はこちらが参考になりそうです。 私も勉強させていただきました。 https://www.tipsfound.com/vba/05chr 踏まえてコードにしてみるとこんな感じになりました。 Sub test() Debug.Print Chr(RT(97, 119)) & Chr(RT(97, 119)) & RT(111111, 999999) End Sub '//-----------------------------------------------------------------------// Function RT(x, y) RT = WorksheetFunction.RandBetween(x, y) End Function ちなみに、Evaluateメソッド（2つめのリンクを参照）を使って、提示の数式をそのまま使用して、 Sub test2() Debug.Print [((CHAR(RANDBETWEEN(97,119)))&(CHAR(RANDBETWEEN(97,119)))&(RANDBETWEEN(111111,999999)))] End Sub としてやることもできますね。 （もこな2） 2019/09/02(月) 12:59 ---- もこな2様 ご教示ありがとうございました。 参照のサイトまで教えて頂き感激です。 VBAをもう少し理解できるともっと楽しそうと改めて思いました! （ホコ） 2019/09/02(月) 20:43... - http://www.excel.studio-kazu.jp/wiki/kazuwiki/201909/20190901224753.txt - [detail] - similar
PREV
NEXT
Powered by Hyper Estraier 1.4.13, with 97009 documents and 608121 words.
訪問者：