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
熱門文章
-
前言:使用Adobe Reader X版處理公文表單上傳PDF檔案時出現「Adobe Reader已經停止運作」錯誤; 1.錯誤訊息如下,解決方法即將Adobe Reader X移除後再安裝(Adobe Reader X)一次後,即可以正常操作不再出現錯誤。 使用w...
-
前言:列印簡報要雙面都印每頁2張投影片設定 方法如下; 1.使用Powerpoint 2010,點選,檔案/列印 ; 2.將單面列印改為雙面列印,按一下[印接機內容] ; 3.按一下,/排版/,頁籤,將多張合一,改為 "2合1",按一下,[確定]...
-
前言:結束 Word 時，可能會出現提示要求您一定要將變更儲存至共用範本 Normal.dot 中。首先，您可以關閉提示，而 Word 將會自動儲存變更，但可能還是會發生問題。第二，您的 Normal.dot 範本可能會受到巨集病毒的感染。如果要解決這個問題，您必須在電腦上安...
-
前言:有一些EXCEL檔內容不多可是檔案大小確是很大一個的解決方法,或者你在網頁上去複製貼上一個有網頁程式的網頁而要刪除,方法如下; 1. 如下為網頁上去複製貼上一個有網頁程式的網頁貼上後內容有一堆程式物件 ; 2.點選「功能區」的常用,編輯/尋找與選取/到 ; 3...
-
前言:桌上型電腦鍵盤右邊的數字鍵可以方便輸入數字,為何會變成上下左右鍵呢?其實是有一個數字鍵[Num Lock]被關閉了,如圖你可以去按一下[Num Lock]燈亮時為數字鍵,關閉燈時為上下左右方向鍵。 延伸閱讀: 使用word開啟網頁資料,可以將網頁下載存成WORD檔...
-
前言:當試算表原版(自己作的)資料不想被任意人開啟後修改,可以設定一個密碼才可以打開為正本,而不是原作者開啟時都要以複本文件打開,如此不會改到原版資料,當然你忘記密碼時...那就會掉眼淚了; 1.將已建立好的檔案另存新檔 ; 2.按一下,[工具▼],[一般選項] 3....
-
前言:通常寄出去的mail是沒有辦法回收的,可是如果收件者是公司的同事而且系統是microsoft outlook就可以回收，方法如下; 1. 在寄件備份區,去開啟你要回收的郵件 ; 2.按"檔案",按一下[重傳或回收▼]，選取「回收此郵件」 ; ...
-
前言:使用AUTOCAD有很多共用圖例在公共工程製圖手冊 - 標準圖例中已經幫我們建立網址如下; 下載: http://pcces.archnowledge.com/csi/PicMaker/CD5/CD5-2.htm 製圖標準圖例 ...
-
方法如下: 1.使用options,對話方塊中的「檔案」頁籤上定義的支援搜尋路徑,去設定新的外部參考檔案路徑 這樣CAD即會自動去抓 2.下載如下(rexrefpath.scr內容)將保存成rexrefpath.scr檔案,改一下新的外部參考檔案路徑即最後一行,使用script指...
-
軟體:7-Zip 說明:使用個人7zip檔案壓縮及解壓縮的習慣都是在檔案總管中進行,壓縮檔案時只要按住ctrl複選檔案後按滑鼠右鍵選7zip壓縮;解壓縮時就按滑鼠右鍵選7zip解壓縮到資料夾,這樣壓縮檔檔案內容就會被解壓縮到與檔案名稱同名的資料夾中; 下載: http:/...
沒有留言:
張貼留言