\u30af\u30ea\u30c3\u30af\u3057\u305f\u30bb\u30eb\u306e\u5024\u3092\u53d6\u5f97<\/p>\n
Private Sub Worksheet_SelectionChange(ByVal Target As Range)\r\n\r\nOn Error Resume Next\r\n\r\n' \u30af\u30ea\u30c3\u30af\u30bb\u30eb\u306e\u5024\u30c1\u30a7\u30c3\u30af\r\n\r\nIf Target.Value <> \"[\u524a\u9664]\" Then Exit Sub\r\n\r\n' \u30af\u30ea\u30c3\u30af\u30bb\u30eb\u306e\u7bc4\u56f2\u30c1\u30a7\u30c3\u30af\r\n\r\nIf Target.Row < 2 Then Exit Sub\r\nIf Target.Column <> 8 Then Exit Sub\r\n\r\n' \u30af\u30ea\u30c3\u30af\u884c\u306e\u5024\u3092\u53d6\u5f97\r\n\r\nid = ActiveSheet.Cells(Target.Row, 1).Value\r\n\r\nEnd Sub<\/pre>\n\u30bb\u30eb\u306e\u5024\u306e\u5909\u66f4\u3092\u30c1\u30a7\u30c3\u30af<\/p>\n
Dim beforeValue As Variant\r\n\r\nPrivate Sub Worksheet_Change(ByVal Target As Range)\r\n\r\nOn Error Resume Next\r\n\r\nIf Target.Column <> 6 Then Exit Sub\r\n\r\nIf beforeValue <> Target.Value Then\r\n MsgBox \"\u5909\u66f4\u3055\u308c\u307e\u3057\u305f\" & Chr(13) & Target.Value\r\nEnd If\r\n\r\nEnd Sub\r\n\r\nPrivate Sub Worksheet_SelectionChange(ByVal Target As Range)\r\n\r\nOn Error Resume Next\r\n\r\nIf Target.Column <> 6 Then Exit Sub\r\n\r\nbeforeValue = Target.Value\r\n\r\nEnd Sub\r\n<\/pre>\nUserForm\u304b\u3089\u30b7\u30fc\u30c8\u306eSelectionChange\u3092\u62fe\u3046\u5834\u5408<\/p>\n
Private WithEvents e As Application\r\n\r\nSub e_SheetSelectionChange(ByVal w As Object, ByVal Target As Range)\r\n\r\nIf ToggleButton1.Value = False Then Exit Sub\r\n\r\n' w.Parent.Name ' \u30d6\u30c3\u30af\u540d\r\n' w.Name ' \u30b7\u30fc\u30c8\u540d\r\n' Target.Address ' \u9078\u629e\u7bc4\u56f2\r\n' Target.Item(1).Address ' \u9078\u629e\u7bc4\u56f2\u306e\u5de6\u4e0a\r\n\r\nDebug.Print Target.Item(1).Value\r\n\r\nr = Target.Item(1).Row\r\nTextBox19.Text = w.Cells(r, 1).Value\r\n\r\nEnd Sub\r\n\r\nSub UserForm_Initialize()\r\n\r\nSet e = Application\r\n\r\nEnd Sub<\/pre>\n<\/p>\n","protected":false},"excerpt":{"rendered":"
\u30af\u30ea\u30c3\u30af\u3057\u305f\u30bb\u30eb\u306e\u5024\u3092\u53d6\u5f97 Private Sub Worksheet_SelectionChange(ByVal Target As Range) On Error Resume Next ‘ \u30af\u30ea\u30c3\u30af\u30bb\u30eb\u306e\u5024\u30c1\u30a7\u30c3\u30af … <\/p>\n