Private Sub CommandButton1_Click()
Dim mekey As String
Dim lchr As Integer
mekey = ""
Cells(1, 1) = ""
mekey = InputBox("請輸入亂數密碼長度:", vbOKCancel, 6)
lchr = Val(mekey)
If lchr <= 0 Then
MsgBox "不可以為0"
Else
Randomize
For i = 1 To lchr
Cells(1, 1) = Cells(1, 1) & Chr(Int((126 - 33 + 1) * Rnd() + 33))
Next i
End If
End Sub
熱門文章
-
前言:有一些EXCEL檔內容不多可是檔案大小確是很大一個的解決方法,或者你在網頁上去複製貼上一個有網頁程式的網頁而要刪除,方法如下; 1. 如下為網頁上去複製貼上一個有網頁程式的網頁貼上後內容有一堆程式物件 ; 2.點選「功能區」的常用,編輯/尋找與選取/到 ; 3...
-
前言:桌上型電腦鍵盤右邊的數字鍵可以方便輸入數字,為何會變成上下左右鍵呢?其實是有一個數字鍵[Num Lock]被關閉了,如圖你可以去按一下[Num Lock]燈亮時為數字鍵,關閉燈時為上下左右方向鍵。 延伸閱讀: 使用word開啟網頁資料,可以將網頁下載存成WORD檔...
-
前言:列印簡報要雙面都印每頁2張投影片設定 方法如下; 1.使用Powerpoint 2010,點選,檔案/列印 ; 2.將單面列印改為雙面列印,按一下[印接機內容] ; 3.按一下,/排版/,頁籤,將多張合一,改為 "2合1",按一下,[確定]...
-
問題:執行excel時，預設開啟Personal.xls，該如何恢復，使能如一般情況開啟Book1.xls? 解決:在如下資料夾 C:\Documents and Settings\(登入使用者名稱)\Application Data\Microsoft\Excel\XLSTAR...
-
前言:使用AUTOCAD有很多共用圖例在公共工程製圖手冊 - 標準圖例中已經幫我們建立網址如下; 下載: http://pcces.archnowledge.com/csi/PicMaker/CD5/CD5-2.htm 製圖標準圖例 ...
-
IMT-瑛茂電子股份有限公司下載 http://www.inmax.com.tw/ 司內網頁下載 http://nts1191.ceci.com.tw/Intranet/IntranetSetup.htm CR0530智慧卡讀卡機驅動程式 資料來源:兆豐國際商業銀行 微亮電...
-
軟體:7-Zip 說明:使用個人7zip檔案壓縮及解壓縮的習慣都是在檔案總管中進行,壓縮檔案時只要按住ctrl複選檔案後按滑鼠右鍵選7zip壓縮;解壓縮時就按滑鼠右鍵選7zip解壓縮到資料夾,這樣壓縮檔檔案內容就會被解壓縮到與檔案名稱同名的資料夾中; 下載: http:/...
-
前言:ApeosPort-II C4300/C4300H 線上Xerox驅動程式下載網址 ; Windows XP Windows 7 64
-
前言:DocuWorks影像轉換輸出可以轉換為BMP、jpg及pdf檔，轉換pdf檔並不需要安裝pdf印表機套件,方法如下; 1. 選取,要轉換的文件,按一下,[影像轉換輸出] ; 2.選取”轉換格式”為PDF檔案,按一下,[確定],即可以完成。 3.轉換完成會輸出...
-
前言:有些日期資料在EXCEL儲存格中「93.03.09」,此時如果要將他分開成3個欄位這時可以使用Notepad將「.」改為TAB後再貼回去EXCEL即可; 1.選取,尋找/取代,搜尋模式改為●增強模式,尋找目標為「‧」,取代成「\t」,按一下.[全部取代] ; 2...
沒有留言:
張貼留言