ソスソスソス[ソスNソスVソス[ソスgソスフイソスxソスソスソスg:Excel VBAソスソスソスソス |
ソスXソス|ソスソスソスTソス[ソスhソスソスソスソスソスN | |
Activate | Change | SelectioChange | BeforeDoubleClick |
ソスCソスxソスソスソスgソスvソスソスソスVソス[ソスWソスソス | ソスソスソスe |
Activate | ソスVソス[ソスgソスソスソスAソスNソスeソスBソスuソスノなゑソスソスソスソスニゑソスソスノ費ソスソスソスソスソスソスワゑソスソスB ソス\ソスソスソスFPrivate Sub object_Activate() |
Deactivate | ソスVソス[ソスgソスソスソスAソスNソスeソスBソスuソスナなゑソスソスネゑソスソスソスソスニゑソスソスノ費ソスソスソスソスソスソスワゑソスソスB ソス\ソスソスソスFPrivate Sub object_Deactivate() |
Change | ソスZソスソスソスソスソスマ更ソスソスソス黷スソスソスソスノ費ソスソスソスソスソスソスワゑソスソスB |
SelectionChange | ソスIソスソスヘ囲ゑソスソスマゑソスソスソスソスソスソスソスノ費ソスソスソスソスソスソスワゑソス |
BeforeDoubleClick | ソスZソスソスソスソスソス_ソスuソスソスソスNソスソスソスbソスNソスソスソス黷スソスソスソスノ費ソスソスソスソスソスソスワゑソスソスB |
BeforeRightClick | ソスZソスソスソスソスソスEソスNソスソスソスbソスNソスソスソス黷スソスソスソスノ費ソスソスソスソスソスソスワゑソスソスB |
Calculate | ソスVソス[ソスgソスソスソスト計ソスZソスソスソス黷スソスソスソスノ費ソスソスソスソスソスソスワゑソスソスB |
FollowHyperlink ソスiExcel2000ソスナ追会ソス) |
ソスnソスCソスpソス[ソスソスソスソスソスNソスソスソスNソスソスソスbソスNソスソスソス黷スソスソスソスノ費ソスソスソスソスソスソスワゑソスソスB |
PivotTableUpdate | ソスsソス{ソスbソスgソスeソス[ソスuソスソスソスソスソスXソスVソスソスソス黷スソスソスソスノ費ソスソスソスソスソスソスワゑソスソスB |
Private Sub Worksheet_Activate() ソス@ソス@Worksheets("Sheet1").Range("A" & Rows.Count).End(xlUp).Offset(1).Select End Sub |
Private Sub Worksheet_Activate() ソス@ソス@With Worksheets("Sheet2") ソス@ソス@ソス@ソス@.Range("A:I").ClearContents ソス@ソス@ソス@ソス@Worksheets("Sheet1").Range("A1").CurrentRegion.Copy ソス@ソス@ソス@ソス@.Range("A1").PasteSpecial Paste:=xlValues ソス@ソス@ソス@ソス@.Range("A1").CurrentRegion.Sort _ ソス@ソス@ソス@ソス@ソス@ソス@Key1:=Range("G1"), _ ソス@ソス@ソス@ソス@ソス@ソス@Order1:=xlDescending, _ ソス@ソス@ソス@ソス@ソス@ソス@Header:=xlYes, _ ソス@ソス@ソス@ソス@ソス@ソス@OrderCustom:=1, _ ソス@ソス@ソス@ソス@ソス@ソス@Orientation:=xlTopToBottom, _ ソス@ソス@ソス@ソス@ソス@ソス@SortMethod:=xlPinYin ソス@ソス@End With End Sub |
Private Sub Worksheet_Change(ByVal Target As Range) ソス@ソス@If Target.Row = 1 Or Target.Row > 6 Then Exit Sub ソス@ソス@If Target.Column <> 3 Then Exit Sub ソス@ソス@Application.EnableEvents = False ソス@ソス@ソス@ソス@Target.Value = Int(Target.Value * 1.05) ソス@ソス@Application.EnableEvents = True End Sub |
Private Sub Worksheet_Change(ByVal Target As Range) ソス@ソス@If Intersect(Target, Range("C2:C5")) Is Nothing Then Exit Sub ソス@ソス@Application.EnableEvents = False ソス@ソス@ソス@ソス@Target.Value = Int(Target.Value * 1.05) ソス@ソス@Application.EnableEvents = True End Sub |
Private Sub Worksheet_Change(ByVal Target As Range) Dim myData As Range, c As Range ソス@ソス@Set myData = Application.Intersect(Target, Range("C:D")) ソス@ソス@If myData Is Nothing Then Exit Sub ソス@ソス@For Each c In myData ソス@ソス@ソス@ソス@If IsNumeric(Range("C" & c.Row).Value) And IsNumeric(Range("D" & c.Row).Value) Then ソス@ソス@ソス@ソス@ソス@ソス@Range("E" & c.Row).Value = Int(Range("C" & c.Row).Value * Range("D" & c.Row).Value * 1.05) ソス@ソス@ソス@ソス@Else ソス@ソス@ソス@ソス@ソス@ソス@Range("E" & c.Row).Value = "" ソス@ソス@ソス@ソス@End If ソス@ソス@Next End Sub |
Private Sub Worksheet_SelectionChange(ByVal Target As Range) ソス@ソス@If Target.Address() = "$B$3" Then ソス@ソス@ソス@ソス@MsgBox "ソスソスソスフセソスソスソスノは難ソスソスヘゑソスソスネゑソスソスソス!!" ソス@ソス@End If End Sub |
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean) ソス@ソス@If Target.Interior.ColorIndex = xlNone Then ソス@ソス@ソス@ソス@Target.Interior.ColorIndex = 3 'ソスソス ソス@ソス@ElseIf Target.Interior.ColorIndex = 3 Then ソス@ソス@ソス@ソス@Target.Interior.ColorIndex = 6 'ソスソス ソス@ソス@ElseIf Target.Interior.ColorIndex = 6 Then ソス@ソス@ソス@ソス@Target.Interior.ColorIndex = xlNone ソス@ソス@End If End Sub |
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean) ソス@Dim myColor As Variant ソス@myColor = Target.Interior.ColorIndex ソス@ソス@If myColor = xlNone Then ソス@ソス@ソス@ソス@myColor = 3 'ソスソス ソス@ソス@ElseIf myColor = 3 Then ソス@ソス@ソス@ソス@myColor = 6 'ソスソス ソス@ソス@ElseIf myColor = 6 Then ソス@ソス@ソス@ソス@myColor = xlNone ソス@ソス@End If ソス@Target.Interior.ColorIndex = myColor End Sub |
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean) ソス@Dim myColor As Variant ソス@myColor = Target.Interior.ColorIndex ソス@ソス@Select Case myColor ソス@ソス@ソス@ソス@Case xlNone ソス@ソス@ソス@ソス@ソス@ソス@myColor = 3 ソス@ソス@ソス@ソス@Case 3 ソス@ソス@ソス@ソス@ソス@ソス@myColor = 6 ソス@ソス@ソス@ソス@Case 6 ソス@ソス@ソス@ソス@ソス@ソス@myColor = xlNone ソス@ソス@End Select ソス@Target.Interior.ColorIndex = myColor End Sub |
ソスXソス|ソスソスソスTソス[ソスhソスソスソスソスソスN
PageViewCounter
ソス@
ソス@Since2006/2/27