Random number
For any reason, if you need to generate a alphanumeric password, the VBA code below will be able to help you.
1. Press Alt+F11 to bring up the Visual Basic Editor.
2. Right click the book object and select Insert > Module.
![](data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAcIAAAD8CAIAAABrfTN7AAAAA3NCSVQICAjb4U/gAAAgAElEQVR4Xu19DZAlV3Vej7Sg5S/zjA0SeMU8sInXoHjHRgULEcyTirhkDNlRWSlwgNohYAmCg3YNKf5qszOlEKFKybsLjsJPubRbmLJUUaKRf0AVZDNTgmIXZDyyBKWkJPEWFmlLKPiNooKRIu3k9DszZ8/ce7vf7e7b73X3+1pbrdvnnr/7dc/3zr3dr99Er9eLsAGBQQgsLi6eOHHisssuG6SIfiAwdghsoz+PsRs0BpyKwN69e1dXV1NV0AkEgMBZBLZRiQE8gIAg8IlPfAJoAAEgkAmBbTfeeGMmg0zKExMTpL++vq6t/u7qiYu/EN19VYR9WARe8/ktOGc6U6J86tSpfIawAgJji8CEwXEBgYg5lP+u6f+KSUke5A8+YKoNcEUfTkFOJdHojh077Ek91kYbcJFgCCUhcE5Bv8SJXHK6/VAxupVDSY3qUGzBEQCqwSGFQyDgiUBRGo3DrK8zmQqfCrdSfWSXSDSTbdhGFBaExfz92JrNQ7VhFwmG02AEtumxfehDH0oa6mc+85mkriievPdn7/2VUOJQdeQwIgq4erMm5T9+5iBeKNQGmhqEp0RoMFcmHpGIjvxcohR93VUkJVfYszIjAcaKhElopHtDLxAAAgER2EKj5NdJlyn0SiZUb+p5vRxyw1mNvubzaUMQbtU0kWSQSVmcZOLcpNBJ8nwpJXkjucHOTk0Kup6KqtMKQiAABIojYNJofo9Ugm6ukzJ1xmVpFDOswaREClSNZtqkFqNGOrdqTaEziWVIkhRIXzOXcK44F4e2xDmuFG+sb9O69ky92oOYkJD+2aNw5gAhEAACJSEQYG10oxTlqf3WZ5ucSfOfvfzx20zE7EC2Nrk4HdpCIR1xrrlGu3UqaKFWprZPSkb+A0NQ/pIwj0VM7KElSXwSS7KFHAgAgSIIOGiUbxDJXrzz1F7vqUsqTWrQ+ujS8jIJyXZhYSGe1NN9emszKMPqj6lKs56toCUGZ3GXJ9+JH3GSHsuzN1P+ts8cHEpOBqJqB4IECACBIAg4JvX2aiZH4mVTvec6dGlpqdPpsM7MzEzcWF+fn5iY728HDx40EiWWSV8bNfSFIHRDiq8gVVgQJ5nOB33MkP7b+jb9ZtzmBvvhLvEpOiLRhtT+q5fO/5W213qB2ueff/73vve9QM7gZgACr371qwdooLsyCDho1DM34lAi0A3e7FegZEiSeL+83OnP7p1kSmzIa6NEXv6VlzBdY8quAwcOeEINtXFD4Nprrx23Idd6vPlplCpNLkLj6fz6+nJ/Os8S4taNry/17zuRJnVJWTqwGhWiLF4kMlOnODQUKE+S2FZaorMSuRYa4WxvfMWcc45jRSX3xXTmzJnctjAEAkCgCAImjaY/26QjCS1yHcpLAVyNshrLDQ6lLqlGqa3Zxz5kP0k6htypnORTDySUn5RYzhA6B7SBABCoLwJbaNT50GjK2PS6pybTJAJlV8QpmdZGUxLI1+W/kuDjX4pNcKUPXNABAs1DwKxGc4zQJlO7AtVudTWaI1xxk+B8F9xh8THCAxAAAkNDIACNcq5MpvZ9eXsk/fJt3N+V97b+ejE2IAAEGoCA+RWj4kOi1dWsiwPFg9bOAz3wZH/k6MeJaK2Z7ho988wzNDTac5sPqeuNb3yjMWTcYqrdNZCSMN2pxwNPKfhUrSvkzWIeGzi0yDk+b3N71rOeRc3t27dTg/bUfu5zn/u85z2P9k8//bR/iFtvvdVQZokt9/cpmuSEN3/bIHH9w0ETCAwBgWCTesk1UzXKT6GLrV2gDQGCSoV48sknKR8pRan8lFKUn4Xg3uI5X3nllQWdECGKE90u6BbmQKB2CISnUf9q1J7Y2pKRA6qfQCg7mW3btk1OTtL751/5ylcasZhMiUmp8d3vftc/E2K6MvjO4M3ipOw/ImgCgaohEIZGU542TWJVZsz+fn5hgb4zyvuDRn1KeBklqsFrckgNqddCoax9Ov1zdAlXPAHx8KMf/YiWO2mjKfwrXvGKhx56iKJceOGFmWb0KTgY3EqaTIVJnOtfb8q0XXOrCHVKLAQFp5wmdNUCgTA0SkN10mUKvTI6WzmUmNQkTZtVk2AtTmFJntPlwePyzSJiTI5LhxRiamqK7zIFv5Uk/GgQJR/6sydnq/WdnoVPnb3pUKMXCFQTgfC3mDKNU9WhUpPSizom+uzJe4c/ohUuA41qkVVJyBsdiprd5ZRoW61gtx1p9UUcUfSTojjNmSi565FHHqHZ/cmTJ2mwP+hv3Oab9U7zJCHP66k3iRNJLuwmytpbkmFSRE+5jutpAjUgUEEEglWjmcbGNebmfp5siU/tPdeqmTxrYmVDkegubhvKtgJ50MWms/AU3uRepnjZkwdnlKQqm9dAyeolL3kJ7fmQfqqT2TO+39R/BCrsNqpp9ajihkUP3oBASBoVQmFYhXT43r3ek0L6TXlimf5Xoeife9M85dbYlDq5T0wMjkt35ey1/Q/MjYLyF71shzyFJzmVokyaL33pS6ky5SXRF73oRbbJSCRctAoPeparUvOOJGcEBQIlIRCSRm1C4aTtF5WynF4KNTPTWV6mt+2Ze6pDYxYteeOEmf2Tki8jBYrlrEb16qeuRl/84hdzWUqG+apRg/X0oPQsnmlRK2cyJLe2Ny00evVKQhk4wycQGA4CIWnUP2MqRYlHaO/kUGbV+fklotIUNg1FfFw8+ic/UJMr3Hx1LrPk448/zg+Q5iNNZ4ZSOXKvPjS6SCG9V/zbhoatrenp2TkECIFANREYDY0KFnYdKhJ6+3MOyDQnGjxrdzmXNTmozdFibnTppQzWYQVpG3H50PnxQF0PPvggJXDvvffmGPvITZxzdifVjjzV6idw/fXXVz9JZMgIBKPRgc82GYhvFqTrMzMTSTUpcY29hGqwGLkV2uIQWsFQTj8UV5JqVn3Dg5jbfpyT+ov6W30vTTBmwHP3ne98J6A3uCoVgfCPrPun66QSw9ymUX//VdbkNY2AGQZ/njRgbnCVFQF6NckFF89mtYL+qBAIVo3KAPy/U99UihzVuUTcJiHg/FXdJg2wSWMJT6POrzM1CTKMBQgMAwHHb5MPIyxi5EAg/LeYsi6SStK5DXMMGyZAoOII0K1LbHVBoELVaKYyNmVdFWsFFScIpOeDgH4CxEcfOiNEIDyN+q+NGsPOauikS6JXuv7su/kjhBihgUAOBM6ZwKw+B2yjMQlPo5mKSj1oH0P9EW0/eilPPnkyqadakTMzhBBF0oNtZREAi1b21NiJ1W9tlLhS6NJo0PCIW5lqnXMiEspmY+EpsT3bEnZFcqmLg4T2zBBqDUBgYoLqUfyrBwLhadSnqHRe5Z6GzEfkwW6QkEl2aWnJDsGkxgrCbrZaVkkSh2o/JYXOmir0gQAQKAOB8JP6rEucMipPQ2ZAKfR0IwdAQoK6bGQ/AyVSCzuZVBLzzIp/FpR8ygtKpM3vJRE/dHjppZd6uoVaTRHA2miNTlx4GvUsKm2MPA2Fs+yG7VNLiJVs0tRcyQoDJeRTdNIjSq8ztG1LP/8pQn5jnuz5HSV8uLq6attC0jAEnJ/NDRtjY4YTflKf+/FPNkzfE+5EScxidmPgWWETTWq2CV2+vEmXLbGtBkp8QtNbndbW1n72s5/9382NXvVEpNnr9WhPG4mfeOKJgbG0gv26EJbY8kxuWZlfX2+4cnp2CnNEhAkQqCAClatGuSZN2hOCdhEa9nObOVqfKltS0onkd4yKc/6aPEXnBhek9FP13/zmN4snUPw1IsSM4kS3nbllCjfQmzNEw4TnnIMHnmpzSitXjQ5Ezi5CRTLQNpOCzc62JJNDH+Vut/vAAw98//vfv+eee0j/pz/96Y9//OMf/vCHJKftvvvuo1rVx4/oEH/pSjAUQxl+jCiZMoSyEwGZA6FRfQQqV406LyktzF2NahJMKjD1fJ91UiSswG5pb/hkQ63Do0gKzb3tdpsaUofSNP9lL3sZH5L8xIkToV7kbNSS5JwLxqQaMyv/Mnc7y1Wji0IL0Qsd2zr6GhiH9jkT4UucccBtJGMMT6OeN9zt0foYCgfleNGczV9aIu10NU7baWiPSCS2zxRl3UVLpVSW/vznP2fh/+tvnraeasKPBlHyYVb25KBJPqnX7jJCMJNmWgTwHGm91IYw9akXIFXONjyNet5wt0HJakg/5WQ7qZSE2NOuUgdmqJdEuRRlFubb9PzjIgOdaAUhpiROJLnoO1ksyTApjXQS1OGSPECOYrRG10B4GvUpKp0AZTXsdDpOP5USZq1DaQGUfgT0qaeeoqrzVa96Fd2dp8VQahOH0nSebtNPTU0FH2A669U9XPD8h+MQk/rh4BwkSngazVpUyjAyGdJ7SZyvJgkCygidUPlJ0Yl8uSa110ZlnXSESVJoo2jNWq6ONvlaRMekvhaniZMMT6NZi0oBy98w5QrLWv1V6lTp6TwlRof22ij/YH3WtJ1TdXbCXdKmhlbOZChZybTdrnOTwtkJcCZZR9oYfTzwVKNTad5frkXqSQuOTK+1YFL7Fhl9GZSeG+Xnmfjbn3xTnttcn1KbGg8//PBb3vIW40xVpEpNun5QriYh45TTbzFNX/5vnF0QVhCBWlajKTjmu6uT4nCYXcePHx9muDJiOW8f2TVpGaEb5pNe79SwETV4OA2sRvls+dSkSVVtwPNthJBDuxotGLSy1SgTK5g00/mlavS3fvcPMplAeYQIhP/E4y/F5xjSQMP4zfb038ICO+c27SUWUSdvzuhEYXpL0rHlvFawEVS9TVfLbStIGAEiUHBojovBuFxxWGUEwk/qM91w15fXQMP5aH794DrxZvxuZtrTO5r7/zyvUa5P6WSkFKopXZ5RoAYEgiCAt98HgXE4TupUjTKH0l4IlBoFH3uSjziGWwpMQ55+MpxOxJXTc7pD9AKBKhdfyM1AoE7VKP1pCZNKNRotUDkaV6n5/vCk/CRcnO046OaXkVhH76nXaaiFhg5HSfll03wDgVXDEMBrm2t0QitXjfIKadKe2ZP2Rk0aHHHiwSI+9eKAQalF3MJ2fBAw6h0cVhqBGq0G6vXQs+ukrnl9CnM5i0f642S50Utyxkf3Gpq2wxSJdA3tTr3zZ6nGh4xqOtK77rrr9Vf825omP4Zph5/U+38ZKSvcekmU2lyTxnfqF6KCK6TOTHguz10yr2di1UTptDWE2txHP6BOLd48EHC8zXBFNPq6qWc3YyzjMIrwk/qBN9xzw0pcSXP5mDHnY95kJmVuze3TaUgsyZtPqc4UOVBfSJk1nXEhBAJAoI4IpD39k2885VWjks/AYnCgQr6hBbQa2qQ+YM5wNTQE6PF7foH30CIiUBEEwk/qy6tGi4wTtkCgXgjQLx3UK+FxzjY8jQ6hGqUTRvXmOJ82jL3xCNx4442NH2NjBhieRodQjfosWTbmDGEgQAAIVByB8LeYBn41vuKIID0gAASAQCYEalmNZhrhmCufe+65xo+JsoT2goytQF1amKKcAq8dOkXZ2ZUvrtOVv7B42v6xoNkMBMLTaKa1UeM7kWU8/tmM81TGKIQofYgjkzJna7Bz+hCScsgRNz2Qs1dHz5S201t1hHwLYYSPLVcHilIzCU+j/muj9kM/tiTU4JMegUqSh4o7cj9ECpojkthK8hSFgZojHxoS8EcATOqPVQ7NMDSash6axKrMmP39/MICvaiJ9wftd3YYJap8wPJojcMcEMAkHwLMs5p22Y+zfiQ16nUuFDDRU6+t40zMM67tzZCIH44ivTIiZ0q2W2eSxYXyLIrcUNVPp7AwRYLbsMVPgb+HMDRK8Zx0mUKvnOJWDiUmNb/WabOq/9igmY4AMwLp5J7GCuMY1GM4tNW0PidgSAZmziGS4qZEdJo4o6c4SU8vSK8QJU+YdLlAbRZyIM2zhpWRibYKkiScMALh79RnQlbVoVKT0svtJ/rsyXuHP56hUIdxWfDlxRccmxkSo0u7HmjryKMmIl3uaYKjNm/EFzwUzSZiJV3Ua9CN9pYOBtum6zh72TBrXGdidg5ONZ2GYWJg4ky4VCFfpUkh+O9CX+RJmpCHRWA0NMo15uZ+noZEfGrv4+/Ne29MqXQlGSTLknQ3RWzTPdeuV2iLGjr5Tcp9Jt+IcpvnNrTzzOHKNhktk/LFnHRJM4FSrz12SEpFINiknrI0PgbldPK9e70n5fSb8sSw9EshUUT/3BtzZcArxv4MZ251h2+i1Kj4eIhOYRNHn2dMAo7dyOPO2wZ06Q3VkBRDVqP6o1ITHC+b6j0Pbnl5mbjXuc9UhwaByvic50O6Xm16DRJuyE64hqK9jiuFpyHPkRv7Z4e2N93LzlMkmaInxbWHZkfUgaTXKZTCPGmAmXLOp8x/UHJBOgsI0UkK4bRKUobcH4GQNOoflUpRqjdnZmaWl5dmZjrOPVWj/YI0cSvpmtC8WVKIxCGV2WGwGx3KxmENBS1M6ZKUDW/GUOzeJIk2zB3Xdk5u08fLvayWNCjRMRCTPJ0JG1BkOuSPczbhti3RDg0dUW5GNZAJumEqh5zU58g7iUNJHkVLmRzSFSPXCtOflsiF6LyebFvDVaZMoFw1BKSclMSC813Vhmznw38UthyS4ggEo9GBzzYZuXJBSi9inpmheb27JqVq1F5Cta8GkaR0SXRDJ8nWdlUc6/HxwLRVHaqqTiajugZwPZeKfBgadT406pN3/2b9PBWeS0vOvY8P6FQOgdHS1mijV+5kIKHyEQhDo/nytCvNfH5gBQSAABAYIQKjucU0wgEjNBAAAkAgLAKjrEaNkWR6NVRYFOANCFQNgVOnTlUtJeSThECFaDT3AivdVZcVdN1OGjPkQKD6COzYsaP6SSJDRqBCNJqvGu3z5saX6+N2FD/2VJf7khd/IeB1iPWZgGCO0tW333eGwvNXpUeZx3jH3rdvnz8AFaLRHNXoJoeeHe9EFJhJk0g5Se4PPWve8Oac31LPGgj6tUDgw3duvMrgwIEDtUi4kUnSD1xnGleFaDRvNRr1q9GNUcfVaOT+0VAiPlLS0399mAm1gcqhSHZgICg0FYFzzgk5vThzJq5wsfkjsLi46K9cIRrNWo1u0mLMoUyOtN+Y1ycwqT8uRTQ5sSIeYAsEgMBoEThx4oR/AhWi0UzVqJR73LD3Tgg2eJbZVn15VIjPqFXFia4udZsUbFuO4kwAQiAABGqBwI033uifZ4Vo1Kca1XTJg9xSh/bftJj1/pJNkYYkBU3bNkUZXUCgIAInj9z++LO3nXn86SjqRWsR/eutcSPe90hCG0miaM9XDxWMBXN/BEKuv/hHdWryt/JT9jFnqRvxdMgbeWM6o73TsxZKQTpQ01NBp+FpMmS1zq9U6MNyyGNvTLiFYyd5LJMvm2ztbLV2trf8m55uTbfbG/+mu6djJsU2NAQq9Admv5bUkHz2s5+VG/ExQFR6Em1uPu0UCzZn60ODj4MOM9xoYxEjLz1IpRC2oSOwFhGTzlLYP/kb5sj+vl+Kxv/bKEI32kPPbswDVohGfc6E3IjfWH/cyqRcjXJlmuIt66w/xZXuGhjX0w/UGoxA7s8hIsrp9tTRlWh+cc/keVsRejJaFUGfVTvveM813iDKq/vZwjj0dKNfRTiGr4ap0KR+4AmLqbP/WChrxmzIk/j+nfqYQ/lXaNS9o4E+SYFteW7ODKslEss5ebdtSV/Y3Cf6MHV4dk97Y5pvSOxDSlKEtvkwh9CAWAb4viMiftwetXdOzR0+ufpkFNG/KKJG/I9a/YXR+F8UrXQ3pv++ngPpEXvyFshfndzUrRrdOm3XdeVZJu3zqV0bamU+RSJJ6ZKTaehksq3OFUF/wzwrtxucpFPuFFZnULXLRPD0z3zj9hHVpMSk8/e0W91er3t4/prDn1vu32Xq8X7+Ywf9fUIzBQEuhkTBpghtWzMapdRTxrPBpKRUn++DppzIMrrslU2SGH/VdrlkW5WR21j5zMyk/dn64h33TO/e1d65q3t/dHR+Tx+x3tzsdGt7K2pF8x87HBZD4/Xb9iGVnymLADLTl2k+Kxt7ypkVDP9hx5LVG5OJsI1dlmmH9aPRdDhSSDbdcJx7DSYFaQ7hYsgKclyN0pydStDj90QX7Gq1d1FNenR+F8kPH13kG02Udv9eU5j0DX6UQy032hxYONFgT+51mmsCNeKGGUxQL7pQZcJpGo0GhQvOgEApCGTl0H4SNG2f6p3u3nbT3kv33xOttVsXtGMm/dgeoU6+gx8qY7vSZLLT/oUoSajbKTkkmXiap3geTpdRlvIhaHQ44Fc3Ck/h5Q+bK1NO1/5rl167q7ojrFhm+aCTavTllx6JWu1Wq0c02r6gPX/05GynJSun8VgDVaPkyWDSujBdwBMuhae+F2Ism1I40GhAzCvqSlOkpOgUcq/xd55+WNExVzWtfBzKo+n1os7lc30+pWZ8X77b7bUvaB2+udtdCbwqWlX8hp0Xs6fmTbsapZxAo8M+MaOKZ984okyK/FWPaiBjG3dp5Z547BtfAI1vzROTrqz0p/Jr0w/+z6te+ILn5ACHS04xlJJTr1dSr1bzKUuz6ufIfGgmxu0miSv0Chod2rkYcSAw5ohPQLHwXz+0655jLycf3V7UbsX7VivqnY739NXP1vboL//TPD1YGpep2+Ny9ZpDG49X+4R10qItNCT60FamuLYwySRJ7pN8STpMkVJ7CpNyg4Nym3Tq9Ph9SXjBLRCoCwK7pucoVd7PTM9Se2Znh/Z7puP93p3TtJ/b2V7p0v+9Nio5nZuXcaOViCJ5k1HSIbd1F7dRjTb6WsDgGoQA34jf05mjMe3pzNLsfs/uDrX30n4t2js9vbrWm5tu95+L8h22XTD6WkJPIQAaxeUABGqCwFp05OjhjZvy/btMfFN+UxKPYsst+5oMqwFpgkZHfBLlt3dGnAfCVx6Bmat/MFP5JMczQdDoKM/73VcFi44f2wkGJRwBgYwI4BZTRsCgDgSAABDYigBoFFcEEAACQKAQApjUF4IPxkCgPAQu/kJA3yiYfMH89vsy/xg1aNQXXOgBgeEjcMObnxl+0HGOmO+WLz6jxvmawdiBABAIgACq0QAgwgUQGDICv/zU15514nf+8fUrq9suGnLoMQk3MbFAI11fPygNGThLdC9otPlXxUjeg6vfTclflZE0RpJPk07z5FMrxKFTlx+N7piOwKTlnFomUGJMalAEu8FCJlNM6ss5CePkVTOmHjexJ28sxPcOQ10Uv3Di4qnLD0fbW1Odw7/wrfh79LRNnr5v5ktX0j5UFPghBJhDk6CQXtBoEkSQA4HqInDy+HzUW1le3Ld4PE6S2HP6L+ej6VnaTz6cjUmdb1Akn0lyG5R0zfRe21sdJaDROp61nDlz2chv9GEXuk0SW0Gr6arT0DT8OPNzFq0+hk5v4yx8bNed9PaRI5+eX7k/+sU33UBQTP/nTkQveWpFUbt98t0b9ak/RDbT2RJ/b+OjKYukoNHxOenxSIm2eKLN/CVtQUErsFAkpKypUOSkpifv2lU6S9qxxutk5B3tyZ+/cvmc+B0lz3/TFy983TXkZpXeP7p4OLp/5Z7Dh7vhfkQkb4JNsGOKtPeyZiqrpTRa3GJqwin3H4NeoHQuVjqFTv8DNQcqkFvNy84oEAoC8cz9a/Nfe8Mn//bOr1z+jg+88KJ/fcfN//XCXT8/b/tzVj5yy8yfvP3I/GFS/rVbH8gKGr3Sm8pPebE3t3VBKm398m+7YrWdGJmwSS3eIK5XRY0VUnvBFDSa9ZKDfkgEfKg2ZLza+tpY/dw9+y/+9lPP/t3/GE2+kIZCZPoXx/6Y9nf8w/3P/sNboo+8nTj0OS9phx2lkxwNoU9EMdG2PoZV05G5PCXGlAoardo5Gut8eJpPENiNscaFVz/fMc+rn729F7X+5ulH1lZu+d/ve+fvH/2Lm/74X8790VOTL3z1HY896wW0Pppnk4K0VI6zC9g8uY7axq5GsTY66nNSsfi8miksRtnxkijLncWjKGQdivac1Xbc9I3Vz58Qh977vrnOvi//r7nL3v2ub3zl5v/z2OpfL2174KGnqowMkTX/q3KSOXIDjeYArWYmwn2aBFPa1KV7abQsSTIRBY2L4YF1WMHwo8NJl92oGeih031g4U76PWVa/VzqRb9y091fvvd9nenZVtSa3T13/V+/9U173n/X18/tTE/e972nfvLY0/mCGyuknk6cBaZT6OmwjmqY1NfxrGXIWe7h2LyWwQtUR43AExd1/u6Td0Z/8Gbi0Bf80+nul3pLvcXezu7i0tLKSveLvYc7u1v0m6DTO6Mv//nxff/ukoD5Mr2yQ7k7JEKjlwlUCyUTp5+AeY7QFWh0hOAPIzTYcxgoDyXGE6/qTH9zo9K8+jf/7PN//67FO45S5C9+8vinPkW/wtTrTPe63d7S0lImGhVmJFc+bRmrptQUYZLPoWA2pCCg0SEBXYsw4NxanCZK8tcv2n119GcfWLnkpgN3v7w1/eG93RuObTv8uaPUdd31+/xHMXD2rUnQ3+24aYJGx+2MY7wNQYCY9DN/dCdxKI3nn/1Gm5j0wELMob/+q8/3HyFY0h8rQ3NiYkJ+uR63mHLDCEMgMGIEfuOXO5IBMemB//CBTBw64uwrH56IMiVH4VDSQTWaAhS6gECdEHjNrl+sU7rVzpU5VJhUk6YtBI1W+2QiOyAABEaBAPGmnrbrFJhSda0KGh3FKUJMIOCHQL6fBvLzDa1gCIBGg0EJR0AgLAJ3XxXM35kzmX/tMljsMXCEW0xjcJIxRCAABIohkH67CdVoMXRhDQSAQEMR4OVRHpzzFhNzK3WBRht6CWBYQAAIFEZAs6c4s4WY1BdGGg6AwKgQ6N4XffyK6KFsP740qmQbHBfVaINP7sbQbr31VhnklVdeWeqA7Vgk4aDSKDWBMXJOHHrsQPwTTA8puPEAABJ+SURBVF888OSlV5732+8co7FXbKig0YqdkHLSKYM9k2jRiFVG6HJAqrrXY7csS4qtte6e+xej3bOxpN2+4+p39T69g3v3vn2m6iNpXH6g0cadUgyouQicpcgrZiN6GT5tpzd+xu6aPnu+Z/9CPhq1X6ioX92dD9EkD0lyO0q6Znqv7a08CdZGy8O2op71vJvbstddlD0d8iYjMTSNXueADZ+s42Po9AYhESX9i073fwq0z6H0IueVzlwszLsxH/H7s4VP8zrbYmd7syVBAo3WCarR0eI/pOjCZTTFpo0OZc8ZsITadkMLkxT0MHQs5/CcIZyaEDoRuOnQwae/O7Ptg5fyT4Hu+e9fv+YNHT3ld1olCY2aDi9LTAIqRQ4aTQGnOV32eqVwGQ/SfwVzoOZABYooVNsciIc7km2/1Xn8Dw9FH9lPHNp+Q6fU4FI/aoZloUiMQ8mHFDRNc1sXpCnO9aBsJ8aQkxIoFRlxDhodDs6IsgUBH6oFZOkI/JN37tv7ptnWhe10teK9miu5rUmN/BuH/hGd5GgIfbyJSe5MfKKk6GBtNAWcxnbJpL4iI5Ti1G5UJMMqpNHtRfuPrEbb4/c086Y5tN3qnjw20b6gV0aqRE+0iWeuMZMOjQREuVSOMzIsA4QUn6hGU8BpTpder5TpvF4e1Qo8bO6Vto2FKGQtLQd6tmNB8sCpp3u96c7uyaWVDrV/dcfWv9zV77ZPz01dfnjujn3RE++Nnn9RQMR0rSdujdm6cRgwuqcrKZk99cOqnX0Pfli/8JaOwMLCwsGDB9N1MvUWeYWPsU6aKS6Uy0Dg2muvNS6PK/afpN/+bF8wSeGWVlY/+HvPO8ukj6+cvO03py4/Gmey1ju5tG9q77qRVfrloetETZrGFN4oJ9MPKQGnWy13KhisbedAHmxhWBq18TfwNA5RjabjU/te+2ZO1uKx9hA0YgAr3fi3P2c79Kz9JP2K8r+/4ZuzuzcG1lnrUB3KB8uL+5ZWooN7s41Z5t1kZvOR7mW/xHRa0zj0j+2MK0KjV6JwQ0dx+vFPo7gmaLQ4hpX2ANKs9OnxTu5LH19/93UTi0tnf0X5tkMbs5mTx6KTx+enpvctL84Th+796Ne9vZ5VdLKndBu96YdOK22S1LYNnZoidPbmGHtxE9BocQxr7wFUW/1TeMlr27O7b188Ps2/okwTfHnevt2am2sfPfLp+d5a1N0+197Z8R+OXdmxrc2q/j7HUBM0OoYnHUOuJQKHPrrn977dfdvV0Ve/9OHdF235FeWnH9vbW7qU6tBMHEoogC6DXAp44CkIjHACBIaBANWkt/yXDxocSoG3/VInB4cOI+PxiAEaHY/zjFE2BYHffsMvOYeStQ51OoEwHwKg0Xy4wQoIAAEgsIEAaBSXAhAAAkCgEAK4xVQIPhgDgZIQSH9gvqSgcJsPAdBoPtxgBQTKRYC+SFNuAHgPhwBoNByW8AQEwiEQ9rvC4fKCJwcCWBt1gAIREAACQMAfAVSj/lhBEwgMD4GJibM/CrK+HvItNsMbw9hEAo02/1Trt5Pge591Od9EncSkTKDSqEvy45YnaHQszriwJ96JV8fzrSmV8kehWrWTCBqt2hlBPkAgDQGjMkWhmgbWsPpwi2lYSFcvDlWmer7PbS00FGgELBErbc69PErbsHqjR0ZAIBgCqEaDQVllR8J39uyeupxCGg7LRcGpaY/aqW+rQQIEGoMAaLQxpzJtIEKIWsmoJalL34DyuRlFOk7StD2nJYe+QQhg5j4IoRH3g0ZHfAKGGV6znkGaYdPwoeCwEZvnje8j8V4/8MS3m2S8eBaqCqceNFqFs1DjHJiaSyXlGqNTIPUUfkzpKhAQpvkRAI3mx66OllKQCv35M6CniadaHdFDzkDAiQB+YNkJS+nCSv3AcumjRYCMCGT9gd+M7qEeGAFUo4EBrZo7590erF1W7TQhn1ojABqt9ekbnDwYczBG0AACxRDA4/fF8IM1EAACY48AaHTsLwEAAASAQDEEQKPF8IM1EAACY48AaHTsLwEAMMYITCxMJI0+pSvJJJO87v71YEGjmU49lIHAuCCwfnC91KFm9e9Pu6TprxxkjLhTHwRGOAECzUFAOMiH6WzCGmiVyX8OWDkBO7EcrjxNQKOeQEENCIwLAploaCBp2qhl8m+bV1ACGq3gSUFKQGBICOQgQSMzu+gr7lOH0P7LLmNzgw4azQ1duYYLR243Ahy8Zk+5IeEdCGRHICxp2vHFP3Fo2bHs6J4S0KgnUCNQ07z5nv30O5Gg0RGcBYQEAgMRAI0OhKgCCk9WIAekMDYIyNyZG8FrwLr7ty8E0KiNyYglN9988y233zK9e24jj00OveL3r3jrzFvf+/73Zs3v3HPPFZNnnnnGNicFp9zWhGQcEAjOmwZo+fz7W/lrhjqbeG40FJLB/Dz66KPtVtt2176g/eg/PmrLfSTEkrxpShXDdA51mvgEhQ4QGBMEUI1W5UQ/+OCD9913H2Wzvr7e3tmOou6RI0fi5Nbi3fQFrV7UeirqsXDXa3Z1LulUJXXkAQTGGwHQaFXO/zfu/Mbeq/dSNkSUs5fPOtM6unh07v1z1LVv33xBGuWJvN6TWzmkNpeoXIryPr1odSYMIRAYBwRAo1U5y7213uqTq1R7tlotajvToq64OO3Xp8U355KoCLlB1OlUKx4dHoBAYxAAjVboVHbv7xJFdk93W/e3JK3FzeecZrff3uv2Vu5fyUGjXE6ST11ROqtLp7BCGCEVIFA9BECjlTkna1HvdC+uN7duxJ6GpNdz16opIwE5poCDLiBQEAHQaEEAQ5qvrKyQOyLTpdNLSX5XllZ6gSb1SSFS5MaUnzQx5U+BC11jggBotDInevvGqujKYkym07Oz++ZmV9b6i6FRtPi5w93jS7H8/dNUr3ZPDy9tXh6leChphwd6+ZEmJra8aZSeDykek30WdEVOCnooPpCsHvDcaFbEStSnO0ut7RuTempMnT/V3j559OiWKTzN6LNO6p3051wkdQqZQLlLFOxGibjAdQkIMFXRnjeDVfMFDEJ/QZzkyz+3FarR3NAFNnz9xa//1je+tXT/Srw8un3Debe3Oje3SawXxJXpykqXei+5+CLP8HJzSes7idXTIdQaj4CmVCE1qTTtklP0DQa0/WgnrKxrTx8/BL6REp+O0ZIvaLQqfxSv/eevpX+SzcKRY9Te82uTUf/LoItRdNttt+XIFYyZA7RxNtG8RjjIIfEUteXQbrCyQOf0o52QAimzhElQiNXG38m5mjqNcLaHUiWg0VLhze+c7iO95+NHooQHSPP7hSUQUAgwl5FAKIl5LQkkzVy2Trqt6OtYthNbYnMo60jytsmQJaDRIQPuG+7QR+NvNGEDAqUiIAwlUewqstQEPJ07i810Tvf0HEQNt5iCwAgnQKDGCCRVkVnLvaz6npBpDi0phGcmSWqoRpOQgRwINBkB5iNhKGZS2mtK5TbraH3dTtI3qJkOCU0jqOZH6ZUGm/A5sNnT8E9qWn/IZw40OmTAEQ4IVAIBm3REorvShTwSp76T15yazhAaIztVO+5oMQWNjhb/0qMvLS2VHgMBgMB4IwAabfj573Q6DR9hE4d31113NXFYjR0TbjE19tRiYEAACAwHAVSjw8E5LcrFX0jrTe+7+6r0fvQCASBQOgKg0dIh9glw+7/K8+Ofe/7beT7OoQMEgECpCGBSXyq8cA4EgEDzEQCNNv8cY4RAAAiUigAm9aXCC+dAYHwRMJ6ZT3r80x8g43F9MUx6jJ8UdNCkfJLcpiemrUCj6Vg1oVe/Ky/HC5983m/v1HEKmwAoxuCHAFOYP0n5a6bEtynV+cx/ioeBXULH3CD/oNGBoDVBQdgT1NaE0xloDLo6G1gqamWOP9DEmaZQjzRYjQ8liu2cumwh2SbJndGdQnKbyYn98YC1USewlRPueOHmm5yLpUZ86nyRczGvsK4fAkwcxAi8CX8ljUQ0pZGkmS7XHERtgzcLOqfQ7JPc8sbhJCWRpyc5sJfRk+RRjQ5EbPQKoTjUHolQqp7sO4VkK5VsigKpOdcN2MTZZWcFyRAQ0BTmE04oQ5QNhvJxEsQ2PRATnOjoQ52woZbuc2AvaHQgRCNQIN489dON3/9kDpXDgNnoCb6mSCfZaWXnEkGKh5SugMOBq0wI2HSTbl6ENNM917GX0RBMMKmv6Elk9iyPQzMNW3MoG5KENu3ESb6iYOtnSgDKpSJgV5qlhvNxHjyl4A71KECjPud02Dpce1aEQ+3BM6um86ZhRcq82d4gGQkCeg2Rq6rgREMO2ac0aKQiMdp0aKeUAxnthGJJwZgkzxHCNgGN2phUQsJMGnwub9eVPqMlBjRqTx8r6FQcAWIW3ihPaQTMWfxr53ZQkkhQ3WtkQl1OorflOq52kiTXbJtv+FgbzYfbMKwCcqiQoC4hNTmK3Cmk0bKc1Zys6gzBMCX5HAaIiAEEykcANFo+xqOOoKnTyMXZZQjlUMuTdLT/FP1RQ4L4tURA1616AElyz0EWNKcooFFPqMdUzZ7LO5l3TNHBsIFAHwHQKC6ENARAmmnooA8I9BHALSZcCEAACACBQgiARgvBB2MgAASAACb1lbgG8B77SpwGJAEEciEAGs0FW1Aj/J5SUDjhzBeBiYkFrbq+flAfSq8h9/U+LD1+mFTfbdePl3rehefBZh2pWIFGh3W2EQcIVAwBZg3iAps+nMIg6Rd/1n0r18ffU9K8afj3DEcIGB8qPoMVK9CoD1zQAQLjgoCwiX81mqn6E9Yz6kTthLEeWEh6UqTPmeOPDf3hIZWmNMSPjQxo1Adk6ACBcUEgpUR1QpCj+mN+NAwHkqYzenlCrjSFWO0GhRY+xZ368k4EPAOB5iPA1SVxIm/+AxZDNhEPnq5IrU9k8cYN9pM7H2fm9nKHVpNeVKNO9CAEAkDACwFiMV1IMqn5WBqGWatRI6g+zJvPlhtuPkMQHdBoJrigDASAQCICnhzKall5MzFqcofB1EmKxpJoegWqncikHjSahO2w5fs/v0ohe2vxvyje9+I9ifoN6qFG3BU3oh98de+w80O8xiEgLKDvohhCGnQ6rfAkmrGRCXUKRXpSmz/YMqnnoJrKU9IQ/zxeZlKftr6nL+unoFH/81W65vTOyT5RMpPG7T6lTvXWVmMmjWk0JtNudyVTKvY7RkVid5FnpzBTRCjXAgEnPzqF6cNJmlA7rXyozWmYJDQcZvWvx+vTpjRsNdBo0tkZgXxpZdVRilIiG5VpzKH9yjTYhjePBIMSjsYYAdBoVU7+7PTKzOtmNrOZ3GxMbTSejP+/Sv9F0fzH5quSNPIAAkAAL8qrzjWgONRKSnEo9R06dMjSyCnQ83f71aLklIUoWnPiC7PxQADPjVblPC8vL7tT2cqhNKnfv3+/WzNZSmyoN1uR+ZToUjOmCJ0MazuBBAiMJwKY1FflvM/MyIx+QEo5qlGjnPSnRX/NAUmjGwg0FwFUo1U5t7fffrsjFasUJZ0c1ajDs5+I61NM6v3QgtaYIoBqtConfs+ePVtS6RMobXxbKW5t3qPPUY1u8Zx6gPIzFR50AgEHAqhGHaCMROSsRs9yqMqpjGqU6k1ePNWFpwjBrSO5JGodlB6D11uQsbDDIK7ESZA8UY2GPSn5vW2pRl1z+Q3Xa5nv1NtTcpEYpMkhnML8A4PlWCLA32iSh+GJrbI+GG/Dxj5teRFJkDxRjRY5BSFtjx07Ru640tz/sf3RefHzoZPnTcb7ycn5+c39+ZOZqlGuMZ37kNnDFxDwRsBZpUqlaZecou8Twagu6dDHyqnjn2eAjwhnBhCmI7CwsHDw4JbfbEjXH9h75syZgTpQqAsC1157bdjLYyQD1xWotLWQsjJ0SMJFq1OfObF4VWugUTxPTOpHcoEhKBAYCwSY+IQcuSFCG4J0ivSZ1NvO031yDgXzBI3apxISIAAEwiAgpaW406UfCW3WKxjYhzTtEAXzxNqoDSkkQAAIhEQgqYrMyqFZ9bOOIXeeoNGsUEMfCACBwQgw5enJMreZqqhNm64Btb5uJ+kPzsBPQ8ciC2HSpLjOPDGp9wO7BC3cFCoBVLisCgJMkTobkeiudCGbO/VDjTNInqDRUKcjsx+6G5vZBgZAAAhUDwE88FS9czLSjE6dOrVjx47V1fjFpnpbXFw8ceLEZZddNtLsAgSn53P/9Oif/3Rt3fB14s7/QQO87rrrWN5qtahO+do//CRSzx2ur0eP/P1XtFqOhNhzDkOYVBYBrI1W9tQgMSAABOqBAGi0HucJWQIBIFBZBP4/hAETGzlS/8wAAAAASUVORK5CYII=)
3. Paste the code below into the Module window.
4. At any cell enter function =RandomizeF()
![](data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAZAAAABhCAIAAAB3ZGCTAAAAA3NCSVQICAjb4U/gAAAPqUlEQVR4Xu2dS+gf1RXH+48xajQm8f2IrwRjYjTEB1hdBSR0E8RAFiLughsXXbSFUuiyUFqKi25a6MK1IAhSxRqiFRULIojGJCQxGjXxFR9JjO/EfvToZZjnnblzZ+78/t8fIcz/zrnnnvO9c79zzpn7m9/c999//wt9hIAQEAJTQGDBFIyUjUJACAiBHxAQYek6EAJCYDIIiLAmM1UyVAgIARGWrgEhIAQmg4AIazJTJUOFgBAQYekaEAJCYDIIiLAmM1UyVAgIARGWrgEhIAQmg8DCnKUvvvjiZGxPw9Dbb789kiGai76AdXMkSPuCdCw9ecLCjngrcCwn440bewFoLsLnLjdHgjQc0hE1lBDWiNZoaCFQhcCpU6d27dq1b9++BQsWXHjhhTfffPOZZ55ZJaz2WUVANaxZndmZ8uvbb7999NFHH3744QsuuOC000577LHHduzYMVMeyhk/BERYfjhJalQEnnvuuZdeeunaa69dv379e++9hy179uwh5hrVKA0+AgJKCUcAvZchv/nmmwMHDhw7duz888+/7LLLyI/m5uaqNPNODj4I1MhU9e3Wfvz4cQhl6dKl3bpne73//vvPPPMMLatXrz7jjDOuuOKKo0eP3nLLLd99993pp58+mEfhjkhDOAIirHAMx9EAVX366aeM/eGHH3Jw+eWXky6xgHPWwFMs7M8+++zkyZPnnXfeokWLYpvLQB988MHHH38Mk/ZCWFTNSQkhJhTCy3feeeeGDRvQPCT/xgZN+j0REGF5ApWc2FlnnXX22WefOHECy1jPb731FhR25ZVX0u5sJQr75JNP4A44i9U+jA/vvPPOkSNHYJOFC/u5uvbu3Yvl0DGEywGkfMkllxC+UX0fxiONkg4CmvLh5uLfP376Gg+2uu666y666CKK0KYTbtq/fz+5GH/CUPAUhR6IjKhqzZo1K1asiB1effnll5ALbIUBRHaBhELCizaqV+YRPHXw4EE8Onz4cLjyvmYhUM+mTZsCNcTo7qxK0LzW90B82L59ew4mc6zYHgNN6XQIUNBZuXLlkiVLqEN/8cUXtH/++edwFukhB+RlMNQ111xz8cUXDwMahMK4NtY555xTzE/9zSByfPLJJ3EKEoR86UhWSyWLFjZSXXrppVaS81cYLplbvelc7aVLstHfKney2vCxm/LG0TsLtCMssz7ng2vsbESCHf/0578UrfrjH35fbPRv2bx5s7+wpySZF0HWueeeS9xBhEVu+NVXX73xxht0X7ZsGRkigZinqkCxl19+GRIxJVAVGVxIAQsuvueee4jRHn/88ddeew21t912G4V2MkGocKxCe5ak0lnJnamzc8fASyWkezvCKh1pim6XOpJthJtynBXIVo0jhghQiibUsjTQ9LDUyQF7ZCvKYfARPFK0k6jq3XffdWyFDBFQYMmM+pdVrCjhMyJpL3UrSJACGcNhDJEjA5F+8rnqqquylbuihbFbXLTi1kLuLp5jOrMnt3CcEs6W6rFGE8spzMo7Z+sbSzEpsjBKio2lfYdpbEFYzu7UfIiEVJazemErK2DFiLNY1Tz7twK8oUEkAonAYqUU0xYxYjdoAp0wUVEhmSCJm+kk/GEbeiBbOfOoXpEJ8ifBGvyFAfj49NNPv/322/feey8DPfTQQzxquOuuu+644462TlXJZ4nDyeTIJds3u54bj3MCTk+OFEr1mGGOtkpNKpJUjeYqBFJub0FYKbsRyTbjrF7YKpKFqCXcIO5gcwPH9gTN1jlLnXY4K7D4jVrq32Y/4QyVfqpm9idE+eabbzq2IiyCWfpiK4aAKG3rxuLFi5cvX04myNMD2IoP+0gZCGNwliIdlriHD4FQlxKB6cxymROrkq9qd+YhkFVYZXZWT6NOZ6ePZKk7VWYk0u5LWDmeNqx9QEnEz85m9MhWMWIr2z5qqxq2IlFiGX/99dfwCI0fffQRIQ/JVGf3ix0PHTpEsolaOAJCtAgIMdJPqmkUzopdOrcQ1hkbMhycZYV2RoG5+FIhEdbdd99NzS6ckT0tdBd8jmh8eMdziHCx3FJFYZV5U1y/voRV43Y4xNLQDQGKVkZMdCe6ufrqqy26IWuDuVjVRChwCiV5Vnu3IYq9IBECHAI3qx+ZAPoJc6zqVOzSuQX7ra89FrQYCp6CHDHDyluWovZYhi9d3jVrO0sQpX07u99Xxxrj+xpiMD1ehFXkbLOvqn0w66c1UL81LAo6EIctaVYyhedsLuY4i91YiPEtvJCM6aabbuLJI9UiA5y9Bbt37za+gCnIEHuPrRgI/URzHNjrGRwl4Yh9i9D87ZGqzDuf5V2aYbRlq7byPlf7zC9JL8KqR8rhbgc+812vUGd9ECAXs7oV65mv1xF35JaubcIijYLUiIZCdmPBEYRv0Af0Z7YZW3GMfgir30zQhmCLhu1BhXxJQgknyf5wit2k7okkknyvMGT/hA/U9TJGXsi4gxr5rEzVsamqUVJ/yq1HW4lFqya9Queycw8QfG9LbzirvyCyZ6PCVa98586dtgWcEhXhVVUdh2XPCqcSdP3114cnhgRWqLIAx3CAQQjfYuwqIKB78MEHIam1a9fed999//vxQzLIV6DJf5944gnGpegOV65bt64mzsrCWA+p/7zPsGQuRkstZNNXc6Z67dmdhuVK9FHFVvhGJX7VqlXQCvER5BXoLdxBNOeUWCoag60YgsAQtuIAqmUg/OUZAi7ceOONpKjUy/CIQA/+yhJooIPqnjgCPaSEiXs4q+ZRh7ZEr/EbMGwr5f0zCJNVNQo3wmW5J48gCbVIBvtNx5599lm2UGzcuJGHBnzHCGOwnGwUYiLwh7mgZuJE+PeBBx7AAJ4ewmU1fN3ojgRyCFgKaWljauEVpoqwpnrFsu2bj6f1rYQbdbIlip0TxDW9PxaEsKjoo5YvFb3yyiskerfeeqvtwIKVbO+omQdV8cEGZGrywUZfJFBEwBW5Eqx2ibCK86WWBgQIavh+dYNQp9MEg+wsu+GGG2AuQkLYigQQPnIxVC6YUmzVCeYJdxJhTXjyZs/0rVu3cld/6qmnKKtv2bKFkln9m1RnDwF5VI+ACKseH50dFAH2o27bto0gyypTFlspjBp0DtIerISwYv/WXtqApGWd5qL3+RCkvUM6pML8Pqwhx9ZYQkAICIFWCGgfViu4JCwEhMCYCIiwxkRfYwsBIdAKARFWK7gkLASEwJgIiLDGRF9jCwEh0AoBEVYruCQsBITAmAiIsMZEX2MLASHQCgERViu4JCwEhMCYCIiwxkRfYwsBIdAKARFWK7gkLASEwJgIlHw1p7M5r776aoxX5Xa2J6QjLyBev359iIZx+2L/pOdC9uv6KUWgzwhrll78OHVfcm++Lp37lBtl/7izkyz+IqzyC2PqhCX7y+d1qFbhHwlpEVY5sFO/4JK9Q5bDXWiV/QVIBm1IFv/QGha/Z8mbag3LARb5xr/fb2P999f/ijqBA/gi+2sQEP414AxwKln8gwgLtuI9tkMS1gBTFZt8sz+fGe+d2bHvkLG9iGR/1mwmeor4D+NCJPxtcYVcPN0Jy9gqyyCxWdnCK2IrDvgXNciK6otbJ/F+lSSq/Vmzc+unrztKPPuzJDVR/OPxrJu+ePjbEJ1d6FjDKrIVdsR2sq/F4KNn6r7Eu0PmFnnnK69+FuLZnx0X4yMR7jD212MYcjZZ+7sQVilbibBCro/e+06dcGV/75dEK4XJ4t86Jaxiq9iE5fJBh3vUrDDqhLm7eqTwBIiSvUN6LhvZXwNUSA2oRm32VGz8Oy+BdoRVw1axCcvQdE8JPXHvLBaVsAaoYcW+4DoD69lR9tcAFe8+5waNjX9nF1qkhPVsNQxh1cxiv6eiEla/ppZqk/2lsOQaIxWwZmAtJHv9+BJWI1tFnaTs9iseDrrng/ECrmQnzGcdIhPvDpkrVEda8/HsdwCa5Z1v9fUTMYD99QYEnk3Wfq+U0IetohKWoZ/dx2CbGwJnpaZ7VMLqnMDXGJw7FdX+LGdFWvDx7B+gABR7LQzgQjz8/a/hUslmwvJkq6iTVLrlqrSx1MkOjfEmLNIKz/kY+w4Z24tI9sc2281CJPvRP4wL8ewPdKEhJfRnq6iE1YFxArvEI6xAwzy7y35PoCKJCf9IwDZEWHztxn3zptGCqU9S1sGp+xL1Dtl4JYQLyP5wDEM0JIt/Q4TVyuepL/JZIqypz4Xsb7X0ehdOFv+GCMsfiJW/+9UPws/790hd8jfP/+PA3/6TupUV9iV7h6ywN98s+/OIDPt3svjP7dy5Ezblg4n1B/UCv33hn8NCOsRof/3lT2+zGWIwjSEEhEATAguXLFnSJON3/oUfxKYbkuSctIBx69atfs4nJ/X666+vW7cuObO8DZL93lBFEUwW/z5rWFGQk1IhIASEwM8IiLB0LQgBITAZBERYk5kqGSoEhIAIS9eAEBACk0HAi7DslcThPs3NzYUrkQYhIATmLQIN+7C6vQ4BYsrt4yi2VCFupFbcBlLVntVTlMlRZFFtlRlqFwJCIEEEvCKstnbDC1mm8GertgPl2KqUj2h0nxx/hQynvkJACAyPQANhZV8+1a9xjjvsgP9dS47vGLdIeSbv/kemlK1qbM72dUPXyOuUEBACoyPQkBJ2ts9Ix/2f05MjoCIf1Y+blW/b1zTnNNQPp7NCQAgkgkAswqpxr0gxxeAoy3RF+RrlxVPZ6Kk4EPLFgK6oRC1CQAikgEBEwioNrwLZpwNkjqSyzNVBj7oIASEwOgIRCavUt1IWK5WsaczGRKVBU01fnRICQmC6CAxNWCDlyVmOlYqU1C1MqxpXkdd0L19ZPt8QGIGw/DmrajKyEZZp43/HO3ZQpLmstlyMJs6qglrtQiApBLwIq/PPPeRYI/unO/aRMcicZC7Csj9LGcpfeVKzImOEgBAoRcCLsEp7znbjzLzYa7anSd7NNwQmSVjZhI4JK42tOk/kT+96/rm/mKszkuooBHpHYJKE1TtJ9Ut5vU+SFAoBIWAILDx+/Hj9q9zd695Z1TWSpi4XnkwO5WI8xbtiJ+eFGTxdy2V/CpdcmtfPwr7e/D2TP0LBddMXPgNfgsm+k9sTB9nvCVQksWTx7y0lJDZ55JFHpvurDZEmXmqFgBDoEYHeCKtHm8ZVZVlhsneYccHR6EJgXAQaXi8zrnEaXQgIASGQRUCEpetBCAiBySAgwprMVMlQISAEmmtYmzZtMpi2b98uvISAEBACIyLQQFiwleOp7PGIFmtoISAE5i0CDSmhoqp5e2XIcSGQIAINhJWgxTJJCAiBeYuAL2EpH5y3l4gcFwLpIOBFWGKrdCZMlgiB+YzA/wF9UBTizpenCwAAAABJRU5ErkJggg==)
5. This code will skip Capital "I", Capital "O", small letter "l", small letter "o" because I use this code to generate random password. In order to avoid confuse, I decide to remove these letter.
*
Public Function RandomizeF()
Dim Rand As String
Application.Volatile
Do
'i = i + 1
Randomize
a = Int((85) * Rnd + 38)
If a >= 49 And a <= 57 Then
Rand = Rand & Chr(a)
ElseIf a >= 65 And a <= 72 Then
Rand = Rand & Chr(a)
ElseIf a >= 74 And a <= 78 Then
Rand = Rand & Chr(a)
ElseIf a >= 80 And a <= 90 Then
Rand = Rand & Chr(a)
ElseIf a >= 97 And a <= 107 Then
Rand = Rand & Chr(a)
ElseIf a >= 109 And a <= 110 Then
Rand = Rand & Chr(a)
ElseIf a >= 112 And a <= 122 Then
Rand = Rand & Chr(a)
End If
Loop Until Len(Rand) = 8
RandomizeF = Rand
End Function
---
1. Press Alt+F11 to bring up the Visual Basic Editor.
2. Right click the book object and select Insert > Module.
3. Paste the code below into the Module window.
4. At any cell enter function =RandomizeF()
5. This code will skip Capital "I", Capital "O", small letter "l", small letter "o" because I use this code to generate random password. In order to avoid confuse, I decide to remove these letter.
*
Public Function RandomizeF()
Dim Rand As String
Application.Volatile
Do
'i = i + 1
Randomize
a = Int((85) * Rnd + 38)
If a >= 49 And a <= 57 Then
Rand = Rand & Chr(a)
ElseIf a >= 65 And a <= 72 Then
Rand = Rand & Chr(a)
ElseIf a >= 74 And a <= 78 Then
Rand = Rand & Chr(a)
ElseIf a >= 80 And a <= 90 Then
Rand = Rand & Chr(a)
ElseIf a >= 97 And a <= 107 Then
Rand = Rand & Chr(a)
ElseIf a >= 109 And a <= 110 Then
Rand = Rand & Chr(a)
ElseIf a >= 112 And a <= 122 Then
Rand = Rand & Chr(a)
End If
Loop Until Len(Rand) = 8
RandomizeF = Rand
End Function
---
Comments
Post a Comment
Feel free to leave your question or comment here, we will reply you as soon as possible.