hyla12345

[hyla12345]

   'セルの値を取得する    'With Worksheets("Sheet1") wCellVal = Sheet1.Cells(Target.Row, Target.Column).Value    'End With     If Target.Column = 1 Then         Call checkSuji         End If End Sub

Sub checkSuji()        'A列(ID)の文字数チェックを行う    'If Target.Column = 1 Then        If Len(wCellVal) > 10 Then            MsgBox "IDは10桁以内で入力してください。", vbOKOnly + vbExclamation, "入力エラー"            'Exit Sub        End If    'End If End Sub

[hyla12345]

Private Sub Worksheet_Change(ByVal Target As Range) Dim wCellVal As String

   'セルの値を取得する    With Worksheets("Sheet1")        wCellVal = .Cells(Target.Row, Target.Column).Value    End With

   'A列(ID)の文字数チェックを行う    If Target.Column = 1 Then        If Len(wCellVal) > 10 Then            MsgBox "IDは10桁以内で入力してください。", vbOKOnly + vbExclamation, "入力エラー"            Exit Sub        End If    End If

   'A列(ID)の半角チェックを行う    If Target.Column = 1 Then        If Len(wCellVal) <> LenB(StrConv(wCellVal, vbFromUnicode)) Then            MsgBox "IDは半角で入力してください。", vbOKOnly + vbExclamation, "入力エラー"            Exit Sub        End If    End If

   'B列(商品名)の全角チェックを行う    If Target.Column = 2 Then        If Len(wCellVal) * 2 <> LenB(StrConv(wCellVal, vbFromUnicode)) Then            MsgBox "商品名は全角で入力してください。", vbOKOnly + vbExclamation, "入力エラー"            Exit Sub        End If    End If

   'C列(品番)の半角チェックを行う    If Target.Column = 3 Then        If Len(wCellVal) <> LenB(StrConv(wCellVal, vbFromUnicode)) Then            MsgBox "品番は半角で入力してください。", vbOKOnly + vbExclamation, "入力エラー"            Exit Sub        End If    End If

   'D列(単価)の数字チェックを行う    If Target.Column = 4 Then        If Not IsNumeric(wCellVal) Then            MsgBox "単価は数字で入力してください。", vbOKOnly + vbExclamation, "入力エラー"            Exit Sub        End If    End If

End Sub

[hyla12345]

BeforeDoubleClick：在本工作表鼠标双击（之前），将触发下面的代码程序。

activate：在sheet表被选取的时候，就触发。

Change:只要sheet（工作表）发生变化，就将触发。

Before Right Click:鼠标右击之前触发。

SelectionChange:鼠标焦点发生变化时，触发。

[hyla12345]

Linux commands!

[hyla12345]

pwd: print working directory ls:list contents of current directory cd command:used for navigation between directories and folders cd ..:back cd / :take you to the root directory(os) cp command:copy files cp test testcopy:copy test to the same folder rm command:remove or delete files cp test /home/saki/Downloads:copy test to Downloads folder

mkdir command:create a new folder rmdir command:delete an empty folder

rm -r folder-name to delete non-empty folder clear:clear the screen man ls:user command man cp:user command q:return to the menu