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
調整線性標註中延伸線的傾斜角度;1.使用指令: _dimedit輸入標註編輯的類型 [歸位(H)/新值(N)/旋轉(R)/傾斜(O)] <歸位>: _o選取物件: 找到 1 個選取物件:(按下 Enter)
輸入傾斜角度 (按下 Enter 表示無): 30
2.完成.