[已解决]vba代码 怎么随机取值 有关ASCII码的 ? 20楼有运算过程

学习学习vba

香川群子 发表于 2015-1-14 17:11
进制相互转换，而同时使用相同数字字符来表达且没有注明进制……这个肯定是无法理解的。

老师好...我在20楼 把 过程描述了一遍.

请再次看看

学习学习vba

上清宫主 发表于 2015-1-14 14:39
首先看看进制转换：
b = Hex(123)  '把十进制的123转为16进制赋给变量b，实际b是个字串
c = WorksheetFun ...

老师好...请看看20楼

学习学习vba

爱疯 发表于 2015-1-14 11:55
到现在我还没明白，数据源 和 结果，分别是怎样的。

爱疯老师好...


请看看 20楼..

希望 我把操作步骤写出来,能让你看明白

学习学习vba

各位老师早上好好

香川群子

学习学习vba 发表于 2015-1-14 20:41
我是用 系统自带的计算器 做运算的..

运算步骤:

因此问题就是:

已知16进制数x (如 B1={48}）要求：
① 按16进制数计算公式结果 {y} = {x} Mod {C} + {C} * {19}
② 求任意 4个字符[a1]、[a2]、[a3]、[a4]（从[0-9A-Z]的36个ASCII码字符）
    它们的和值{H}={[a1]}+{[a2]}+{[a3]}+{[a4]}
    要求正好={y}
只要这样的一组随机的解即可。

…………
总结描述问题则为：
求4个随机字符，它们的16进制ASCII码值的和值{[a1]}+{[a2]}+{[a3]}+{[a4]}，
正好等于16进制公式= {x} Mod {C} + {C} * {19}的计算结果。
其中x为已知值（放在B1:E1单元格中）

…………
用文字说明则是：
从0-9以及A-Z的36个字符中，求任意【4个随机字符】，要求它们的16进制ASCII码值的【和值】，
等于已知单元格B1中16进制数的【16进制公式】= {x} Mod {C} + {C} * {19}的【计算结果】。

香川群子

第1个{48}的计算结果为755组解：

9NOV 0IYZ 0JXZ 0KWZ 0KXY 0LVZ 0LWY 0MUZ 0MVY 0MWX 0NTZ 0NUY 0NVX 0OSZ 0OTY 0OUX 0OVW 0PRZ 0PSY 0PTX 0PUW 0QRY 0QSX 0QTW 0QUV 0RSW 0RTV 0STU 1HYZ 1IXZ 1JWZ 1JXY 1KVZ 1KWY 1LUZ 1LVY 1LWX 1MTZ 1MUY 1MVX 1NSZ 1NTY 1NUX 1NVW 1ORZ 1OSY 1OTX 1OUW 1PQZ 1PRY 1PSX 1PTW 1PUV 1QRX 1QSW 1QTV 1RSV 1RTU 2GYZ 2HXZ 2IWZ 2IXY 2JVZ 2JWY 2KUZ 2KVY 2KWX 2LTZ 2LUY 2LVX 2MSZ 2MTY 2MUX 2MVW 2NRZ 2NSY 2NTX 2NUW 2OQZ 2ORY 2OSX 2OTW 2OUV 2PQY 2PRX 2PSW 2PTV 2QRW 2QSV 2QTU 2RSU 3FYZ 3GXZ 3HWZ 3HXY 3IVZ 3IWY 3JUZ 3JVY 3JWX 3KTZ 3KUY 3KVX 3LSZ 3LTY 3LUX 3LVW 3MRZ 3MSY 3MTX 3MUW 3NQZ 3NRY 3NSX 3NTW 3NUV 3OPZ 3OQY 3ORX 3OSW 3OTV 3PQX 3PRW 3PSV 3PTU 3QRV 3QSU 3RST 4EYZ 4FXZ 4GWZ 4GXY 4HVZ 4HWY 4IUZ 4IVY 4IWX 4JTZ 4JUY 4JVX 4KSZ 4KTY 4KUX 4KVW 4LRZ 4LSY 4LTX 4LUW 4MQZ 4MRY 4MSX 4MTW 4MUV 4NPZ 4NQY 4NRX 4NSW 4NTV 4OPY 4OQX 4ORW 4OSV 4OTU 4PQW 4PRV 4PSU 4QRU 4QST 5DYZ 5EXZ 5FWZ 5FXY 5GVZ 5GWY 5HUZ 5HVY 5HWX 5ITZ 5IUY 5IVX 5JSZ 5JTY 5JUX 5JVW 5KRZ 5KSY 5KTX 5KUW 5LQZ 5LRY 5LSX 5LTW 5LUV 5MPZ 5MQY 5MRX 5MSW 5MTV 5NOZ 5NPY 5NQX 5NRW 5NSV 5NTU 5OPX 5OQW 5ORV 5OSU 5PQV 5PRU 5PST 5QRT 6CYZ 6DXZ 6EWZ 6EXY 6FVZ 6FWY 6GUZ 6GVY 6GWX 6HTZ 6HUY 6HVX 6ISZ 6ITY 6IUX 6IVW 6JRZ 6JSY 6JTX 6JUW 6KQZ 6KRY 6KSX 6KTW 6KUV 6LPZ 6LQY 6LRX 6LSW 6LTV 6MOZ 6MPY 6MQX 6MRW 6MSV 6MTU 6NOY 6NPX 6NQW 6NRV 6NSU 6OPW 6OQV 6ORU 6OST 6PQU 6PRT 6QRS 7BYZ 7CXZ 7DWZ 7DXY 7EVZ 7EWY 7FUZ 7FVY 7FWX 7GTZ 7GUY 7GVX 7HSZ 7HTY 7HUX 7HVW 7IRZ 7ISY 7ITX 7IUW 7JQZ 7JRY 7JSX 7JTW 7JUV 7KPZ 7KQY 7KRX 7KSW 7KTV 7LOZ 7LPY 7LQX 7LRW 7LSV 7LTU 7MNZ 7MOY 7MPX 7MQW 7MRV 7MSU 7NOX 7NPW 7NQV 7NRU 7NST 7OPV 7OQU 7ORT 7PQT 7PRS 8AYZ 8BXZ 8CWZ 8CXY 8DVZ 8DWY 8EUZ 8EVY 8EWX 8FTZ 8FUY 8FVX 8GSZ 8GTY 8GUX 8GVW 8HRZ 8HSY 8HTX 8HUW 8IQZ 8IRY 8ISX 8ITW 8IUV 8JPZ 8JQY 8JRX 8JSW 8JTV 8KOZ 8KPY 8KQX 8KRW 8KSV 8KTU 8LNZ 8LOY 8LPX 8LQW 8LRV 8LSU 8MNY 8MOX 8MPW 8MQV 8MRU 8MST 8NOW 8NPV 8NQU 8NRT 8OPU 8OQT 8ORS 8PQS 9AXZ 9BWZ 9BXY 9CVZ 9CWY 9DUZ 9DVY 9DWX 9ETZ 9EUY 9EVX 9FSZ 9FTY 9FUX 9FVW 9GRZ 9GSY 9GTX 9GUW 9HQZ 9HRY 9HSX 9HTW 9HUV 9IPZ 9IQY 9IRX 9ISW 9ITV 9JOZ 9JPY 9JQX 9JRW 9JSV 9JTU 9KNZ 9KOY 9KPX 9KQW 9KRV 9KSU 9LMZ 9LNY 9LOX 9LPW 9LQV 9LRU 9LST 9MNX 9MOW 9MPV 9MQU 9MRT 9NPU 9NQT 9NRS 9OPT 9OQS 9PQR ABOZ ABPY ABQX ABRW ABSV ABTU ACNZ ACOY ACPX ACQW ACRV ACSU ADMZ ADNY ADOX ADPW ADQV ADRU ADST AELZ AEMY AENX AEOW AEPV AEQU AERT AFKZ AFLY AFMX AFNW AFOV AFPU AFQT AFRS AGJZ AGKY AGLX AGMW AGNV AGOU AGPT AGQS AHIZ AHJY AHKX AHLW AHMV AHNU AHOT AHPS AHQR AIJX AIKW AILV AIMU AINT AIOS AIPR AJKV AJLU AJMT AJNS AJOR AJPQ AKLT AKMS AKNR AKOQ ALMR ALNQ ALOP AMNP BCMZ BCNY BCOX BCPW BCQV BCRU BCST BDLZ BDMY BDNX BDOW BDPV BDQU BDRT BEKZ BELY BEMX BENW BEOV BEPU BEQT BERS BFJZ BFKY BFLX BFMW BFNV BFOU BFPT BFQS BGIZ BGJY BGKX BGLW BGMV BGNU BGOT BGPS BGQR BHIY BHJX BHKW BHLV BHMU BHNT BHOS BHPR BIJW BIKV BILU BIMT BINS BIOR BIPQ BJKU BJLT BJMS BJNR BJOQ BKLS BKMR BKNQ BKOP BLMQ BLNP BMNO CDKZ CDLY CDMX CDNW CDOV CDPU CDQT CDRS CEJZ CEKY CELX CEMW CENV CEOU CEPT CEQS CFIZ CFJY CFKX CFLW CFMV CFNU CFOT CFPS CFQR CGHZ CGIY CGJX CGKW CGLV CGMU CGNT CGOS CGPR CHIX CHJW CHKV CHLU CHMT CHNS CHOR CHPQ CIJV CIKU CILT CIMS CINR CIOQ CJKT CJLS CJMR CJNQ CJOP CKLR CKMQ CKNP CLMP CLNO DEIZ DEJY DEKX DELW DEMV DENU DEOT DEPS DEQR DFHZ DFIY DFJX DFKW DFLV DFMU DFNT DFOS DFPR DGHY DGIX DGJW DGKV DGLU DGMT DGNS DGOR DGPQ DHIW DHJV DHKU DHLT DHMS DHNR DHOQ DIJU DIKT DILS DIMR DINQ DIOP DJKS DJLR DJMQ DJNP DKLQ DKMP DKNO DLMO EFGZ EFHY EFIX EFJW EFKV EFLU EFMT EFNS EFOR EFPQ EGHX EGIW EGJV EGKU EGLT EGMS EGNR EGOQ EHIV EHJU EHKT EHLS EHMR EHNQ EHOP EIJT EIKS EILR EIMQ EINP EJKR EJLQ EJMP EJNO EKLP EKMO ELMN FGHW FGIV FGJU FGKT FGLS FGMR FGNQ FGOP FHIU FHJT FHKS FHLR FHMQ FHNP FIJS FIKR FILQ FIMP FINO FJKQ FJLP FJMO FKLO FKMN GHIT GHJS GHKR GHLQ GHMP GHNO GIJR GIKQ GILP GIMO GJKP GJLO GJMN GKLN HIJQ HIKP HILO HIMN HJKO HJLN HKLM IJKN IJLM

香川群子

第2个{80}的计算结果为587组解：

0QYZ 0RXZ 0SWZ 0SXY 0TVZ 0TWY 0UVY 0UWX 1PYZ 1QXZ 1RWZ 1RXY 1SVZ 1SWY 1TUZ 1TVY 1TWX 1UVX 2OYZ 2PXZ 2QWZ 2QXY 2RVZ 2RWY 2SUZ 2SVY 2SWX 2TUY 2TVX 2UVW 3NYZ 3OXZ 3PWZ 3PXY 3QVZ 3QWY 3RUZ 3RVY 3RWX 3STZ 3SUY 3SVX 3TUX 3TVW 4MYZ 4NXZ 4OWZ 4OXY 4PVZ 4PWY 4QUZ 4QVY 4QWX 4RTZ 4RUY 4RVX 4STY 4SUX 4SVW 4TUW 5LYZ 5MXZ 5NWZ 5NXY 5OVZ 5OWY 5PUZ 5PVY 5PWX 5QTZ 5QUY 5QVX 5RSZ 5RTY 5RUX 5RVW 5STX 5SUW 5TUV 6KYZ 6LXZ 6MWZ 6MXY 6NVZ 6NWY 6OUZ 6OVY 6OWX 6PTZ 6PUY 6PVX 6QSZ 6QTY 6QUX 6QVW 6RSY 6RTX 6RUW 6STW 6SUV 7JYZ 7KXZ 7LWZ 7LXY 7MVZ 7MWY 7NUZ 7NVY 7NWX 7OTZ 7OUY 7OVX 7PSZ 7PTY 7PUX 7PVW 7QRZ 7QSY 7QTX 7QUW 7RSX 7RTW 7RUV 7STV 8IYZ 8JXZ 8KWZ 8KXY 8LVZ 8LWY 8MUZ 8MVY 8MWX 8NTZ 8NUY 8NVX 8OSZ 8OTY 8OUX 8OVW 8PRZ 8PSY 8PTX 8PUW 8QRY 8QSX 8QTW 8QUV 8RSW 8RTV 8STU 9HYZ 9IXZ 9JWZ 9JXY 9KVZ 9KWY 9LUZ 9LVY 9LWX 9MTZ 9MUY 9MVX 9NSZ 9NTY 9NUX 9NVW 9ORZ 9OSY 9OTX 9OUW 9PQZ 9PRY 9PSX 9PTW 9PUV 9QRX 9QSW 9QTV 9RSV 9RTU ABWZ ABXY ACVZ ACWY ADUZ ADVY ADWX AETZ AEUY AEVX AFSZ AFTY AFUX AFVW AGRZ AGSY AGTX AGUW AHQZ AHRY AHSX AHTW AHUV AIPZ AIQY AIRX AISW AITV AJOZ AJPY AJQX AJRW AJSV AJTU AKNZ AKOY AKPX AKQW AKRV AKSU ALMZ ALNY ALOX ALPW ALQV ALRU ALST AMNX AMOW AMPV AMQU AMRT ANOV ANPU ANQT ANRS AOPT AOQS APQR BCUZ BCVY BCWX BDTZ BDUY BDVX BESZ BETY BEUX BEVW BFRZ BFSY BFTX BFUW BGQZ BGRY BGSX BGTW BGUV BHPZ BHQY BHRX BHSW BHTV BIOZ BIPY BIQX BIRW BISV BITU BJNZ BJOY BJPX BJQW BJRV BJSU BKMZ BKNY BKOX BKPW BKQV BKRU BKST BLMY BLNX BLOW BLPV BLQU BLRT BMNW BMOV BMPU BMQT BMRS BNOU BNPT BNQS BOPS BOQR CDSZ CDTY CDUX CDVW CERZ CESY CETX CEUW CFQZ CFRY CFSX CFTW CFUV CGPZ CGQY CGRX CGSW CGTV CHOZ CHPY CHQX CHRW CHSV CHTU CINZ CIOY CIPX CIQW CIRV CISU CJMZ CJNY CJOX CJPW CJQV CJRU CJST CKLZ CKMY CKNX CKOW CKPV CKQU CKRT CLMX CLNW CLOV CLPU CLQT CLRS CMNV CMOU CMPT CMQS CNOT CNPS CNQR COPR DEQZ DERY DESX DETW DEUV DFPZ DFQY DFRX DFSW DFTV DGOZ DGPY DGQX DGRW DGSV DGTU DHNZ DHOY DHPX DHQW DHRV DHSU DIMZ DINY DIOX DIPW DIQV DIRU DIST DJLZ DJMY DJNX DJOW DJPV DJQU DJRT DKLY DKMX DKNW DKOV DKPU DKQT DKRS DLMW DLNV DLOU DLPT DLQS DMNU DMOT DMPS DMQR DNOS DNPR DOPQ EFOZ EFPY EFQX EFRW EFSV EFTU EGNZ EGOY EGPX EGQW EGRV EGSU EHMZ EHNY EHOX EHPW EHQV EHRU EHST EILZ EIMY EINX EIOW EIPV EIQU EIRT EJKZ EJLY EJMX EJNW EJOV EJPU EJQT EJRS EKLX EKMW EKNV EKOU EKPT EKQS ELMV ELNU ELOT ELPS ELQR EMNT EMOS EMPR ENOR ENPQ FGMZ FGNY FGOX FGPW FGQV FGRU FGST FHLZ FHMY FHNX FHOW FHPV FHQU FHRT FIKZ FILY FIMX FINW FIOV FIPU FIQT FIRS FJKY FJLX FJMW FJNV FJOU FJPT FJQS FKLW FKMV FKNU FKOT FKPS FKQR FLMU FLNT FLOS FLPR FMNS FMOR FMPQ FNOQ GHKZ GHLY GHMX GHNW GHOV GHPU GHQT GHRS GIJZ GIKY GILX GIMW GINV GIOU GIPT GIQS GJKX GJLW GJMV GJNU GJOT GJPS GJQR GKLV GKMU GKNT GKOS GKPR GLMT GLNS GLOR GLPQ GMNR GMOQ GNOP HIJY HIKX HILW HIMV HINU HIOT HIPS HIQR HJKW HJLV HJMU HJNT HJOS HJPR HKLU HKMT HKNS HKOR HKPQ HLMS HLNR HLOQ HMNQ HMOP IJKV IJLU IJMT IJNS IJOR IJPQ IKLT IKMS IKNR IKOQ ILMR ILNQ ILOP IMNP JKLS JKMR JKNQ JKOP JLMQ JLNP JMNO KLMP KLNO

香川群子

第3个{05}的计算结果为645组解：

0NYZ 0OXZ 0PWZ 0PXY 0QVZ 0QWY 0RUZ 0RVY 0RWX 0STZ 0SUY 0SVX 0TUX 0TVW 1MYZ 1NXZ 1OWZ 1OXY 1PVZ 1PWY 1QUZ 1QVY 1QWX 1RTZ 1RUY 1RVX 1STY 1SUX 1SVW 1TUW 2LYZ 2MXZ 2NWZ 2NXY 2OVZ 2OWY 2PUZ 2PVY 2PWX 2QTZ 2QUY 2QVX 2RSZ 2RTY 2RUX 2RVW 2STX 2SUW 2TUV 3KYZ 3LXZ 3MWZ 3MXY 3NVZ 3NWY 3OUZ 3OVY 3OWX 3PTZ 3PUY 3PVX 3QSZ 3QTY 3QUX 3QVW 3RSY 3RTX 3RUW 3STW 3SUV 4JYZ 4KXZ 4LWZ 4LXY 4MVZ 4MWY 4NUZ 4NVY 4NWX 4OTZ 4OUY 4OVX 4PSZ 4PTY 4PUX 4PVW 4QRZ 4QSY 4QTX 4QUW 4RSX 4RTW 4RUV 4STV 5IYZ 5JXZ 5KWZ 5KXY 5LVZ 5LWY 5MUZ 5MVY 5MWX 5NTZ 5NUY 5NVX 5OSZ 5OTY 5OUX 5OVW 5PRZ 5PSY 5PTX 5PUW 5QRY 5QSX 5QTW 5QUV 5RSW 5RTV 5STU 6HYZ 6IXZ 6JWZ 6JXY 6KVZ 6KWY 6LUZ 6LVY 6LWX 6MTZ 6MUY 6MVX 6NSZ 6NTY 6NUX 6NVW 6ORZ 6OSY 6OTX 6OUW 6PQZ 6PRY 6PSX 6PTW 6PUV 6QRX 6QSW 6QTV 6RSV 6RTU 7GYZ 7HXZ 7IWZ 7IXY 7JVZ 7JWY 7KUZ 7KVY 7KWX 7LTZ 7LUY 7LVX 7MSZ 7MTY 7MUX 7MVW 7NRZ 7NSY 7NTX 7NUW 7OQZ 7ORY 7OSX 7OTW 7OUV 7PQY 7PRX 7PSW 7PTV 7QRW 7QSV 7QTU 7RSU 8FYZ 8GXZ 8HWZ 8HXY 8IVZ 8IWY 8JUZ 8JVY 8JWX 8KTZ 8KUY 8KVX 8LSZ 8LTY 8LUX 8LVW 8MRZ 8MSY 8MTX 8MUW 8NQZ 8NRY 8NSX 8NTW 8NUV 8OPZ 8OQY 8ORX 8OSW 8OTV 8PQX 8PRW 8PSV 8PTU 8QRV 8QSU 8RST 9EYZ 9FXZ 9GWZ 9GXY 9HVZ 9HWY 9IUZ 9IVY 9IWX 9JTZ 9JUY 9JVX 9KSZ 9KTY 9KUX 9KVW 9LRZ 9LSY 9LTX 9LUW 9MQZ 9MRY 9MSX 9MTW 9MUV 9NPZ 9NQY 9NRX 9NSW 9NTV 9OPY 9OQX 9ORW 9OSV 9OTU 9PQW 9PRV 9PSU 9QRU 9QST ABTZ ABUY ABVX ACSZ ACTY ACUX ACVW ADRZ ADSY ADTX ADUW AEQZ AERY AESX AETW AEUV AFPZ AFQY AFRX AFSW AFTV AGOZ AGPY AGQX AGRW AGSV AGTU AHNZ AHOY AHPX AHQW AHRV AHSU AIMZ AINY AIOX AIPW AIQV AIRU AIST AJLZ AJMY AJNX AJOW AJPV AJQU AJRT AKLY AKMX AKNW AKOV AKPU AKQT AKRS ALMW ALNV ALOU ALPT ALQS AMNU AMOT AMPS AMQR ANOS ANPR AOPQ BCRZ BCSY BCTX BCUW BDQZ BDRY BDSX BDTW BDUV BEPZ BEQY BERX BESW BETV BFOZ BFPY BFQX BFRW BFSV BFTU BGNZ BGOY BGPX BGQW BGRV BGSU BHMZ BHNY BHOX BHPW BHQV BHRU BHST BILZ BIMY BINX BIOW BIPV BIQU BIRT BJKZ BJLY BJMX BJNW BJOV BJPU BJQT BJRS BKLX BKMW BKNV BKOU BKPT BKQS BLMV BLNU BLOT BLPS BLQR BMNT BMOS BMPR BNOR BNPQ CDPZ CDQY CDRX CDSW CDTV CEOZ CEPY CEQX CERW CESV CETU CFNZ CFOY CFPX CFQW CFRV CFSU CGMZ CGNY CGOX CGPW CGQV CGRU CGST CHLZ CHMY CHNX CHOW CHPV CHQU CHRT CIKZ CILY CIMX CINW CIOV CIPU CIQT CIRS CJKY CJLX CJMW CJNV CJOU CJPT CJQS CKLW CKMV CKNU CKOT CKPS CKQR CLMU CLNT CLOS CLPR CMNS CMOR CMPQ CNOQ DENZ DEOY DEPX DEQW DERV DESU DFMZ DFNY DFOX DFPW DFQV DFRU DFST DGLZ DGMY DGNX DGOW DGPV DGQU DGRT DHKZ DHLY DHMX DHNW DHOV DHPU DHQT DHRS DIJZ DIKY DILX DIMW DINV DIOU DIPT DIQS DJKX DJLW DJMV DJNU DJOT DJPS DJQR DKLV DKMU DKNT DKOS DKPR DLMT DLNS DLOR DLPQ DMNR DMOQ DNOP EFLZ EFMY EFNX EFOW EFPV EFQU EFRT EGKZ EGLY EGMX EGNW EGOV EGPU EGQT EGRS EHJZ EHKY EHLX EHMW EHNV EHOU EHPT EHQS EIJY EIKX EILW EIMV EINU EIOT EIPS EIQR EJKW EJLV EJMU EJNT EJOS EJPR EKLU EKMT EKNS EKOR EKPQ ELMS ELNR ELOQ EMNQ EMOP FGJZ FGKY FGLX FGMW FGNV FGOU FGPT FGQS FHIZ FHJY FHKX FHLW FHMV FHNU FHOT FHPS FHQR FIJX FIKW FILV FIMU FINT FIOS FIPR FJKV FJLU FJMT FJNS FJOR FJPQ FKLT FKMS FKNR FKOQ FLMR FLNQ FLOP FMNP GHIY GHJX GHKW GHLV GHMU GHNT GHOS GHPR GIJW GIKV GILU GIMT GINS GIOR GIPQ GJKU GJLT GJMS GJNR GJOQ GKLS GKMR GKNQ GKOP GLMQ GLNP GMNO HIJV HIKU HILT HIMS HINR HIOQ HJKT HJLS HJMR HJNQ HJOP HKLR HKMQ HKNP HLMP HLNO IJKS IJLR IJMQ IJNP IKLQ IKMP IKNO ILMO JKLP JKMO JLMN

学习学习vba

随意 取了 老师 运算出来的结果...

验证了一下...都正确...

如何 最后 一键 就实现,,把运算结果 逐渐输出到

B4:B10000
C4:C10000
D4:D10000
E4:E10000

学习学习vba

香川群子 发表于 2015-1-15 12:32
因此问题就是:

已知16进制数x (如 B1={48}）要求：

老师的 这个 写的 实在是太简单明了...非常棒

我回头看自己描述的.
哎,,我写的都是些什么啊..
又长又臭,还说不明白要干什么...

也难怪老师们 都看不明白我要说的...

最后非常感谢老师的指导.