Forum

Forum (https://www.ms-office.gr/forum/)
-   Άλλες συναρτήσεις (https://www.ms-office.gr/forum/alles-synartiseis/)
-   -   Δημιουργία τυχαίου κωδικού με συνάρτηση (https://www.ms-office.gr/forum/alles-synartiseis/1405-dimioyrgia-tyxaioy-kodikoi-me-synartisi.html)

Tasos 02-10-11 10:18

Δημιουργία τυχαίου κωδικού με συνάρτηση
 
Εργασία:
Δημιουργία τυχαίου κωδικού με αλφαριθμητικούς χαρακτήρες με χρήση συνάρτησης στην Excel.

Παράδειγμα:

<table style="font-family: Calibri,Arial; font-size: 11pt; background-color: rgb(255, 255, 255);" border="1" cellpadding="0" cellspacing="0"><colgroup><col style="width: 30px;"><col style="width: 197px;"></colgroup><tbody><tr style="text-align: center; font-size: 8pt; background-color: rgb(202, 202, 202);"><td>
</td><td>A</td></tr><tr style="height: 18px;"><td style="text-align: center; font-size: 8pt; background-color: rgb(202, 202, 202);"> 1</td><td>XScWVM75</td></tr></tbody></table>
<table style="border-style: groove; border-color: silver; color: rgb(0, 0, 0); font-family: Arial; font-size: 10pt; background-color: rgb(255, 252, 249);"><tbody><tr><td>Τύποι</td></tr><tr><td><table style="font-family: Arial; font-size: 9pt;" border="1" cellpadding="2" cellspacing="0"><tbody><tr style="font-size: 10pt; background-color: rgb(202, 202, 202);"><td style="width: 29px;">Κελί</td><td>Τύπος</td></tr><tr><td style="width: 29px; text-align: center;">A1</td><td> =RndChar&RndChar&RndChar&RndChar&RndChar&RndChar&RndChar&R ndChar</td></tr></tbody></table></td></tr><tr><td><table style="border-style: groove; border-color: silver; color: rgb(0, 0, 0); font-family: Arial; font-size: 10pt; background-color: rgb(255, 252, 249);"><tbody><tr><td>Ονόματα στους τύπους</td></tr><tr><td><table style="font-family: Arial; font-size: 9pt;" border="1" cellpadding="2" cellspacing="0"><tbody><tr style="font-size: 10pt; background-color: rgb(202, 202, 202);"><td style="width: 27px;">Κελί</td><td style="width: 54px;">Όνομα</td><td>Αναφορά σε</td></tr><tr><td style="width: 27px; text-align: center;">-</td><td style="width: 54px;">RndChar</td><td> =IF(RAND()<0,33;ROUNDDOWN(RAND()*10;0);CHAR(ROUND(RAND()*26+(RAND()>0,66)*32+64,5;0)))</td></tr></tbody></table></td></tr></tbody></table></td></tr></tbody></table>


Η ώρα είναι 09:17.

Ms-Office.gr - ©2000 - 2024, Jelsoft Enterprises Ltd.


Search Engine Optimization by vBSEO 3.3.2