Office TANAKA - VBAデータベース的活用法[検索ã®åŸºæœ¬ã¯Findメソッド]ã¾ãšã¯ï¼»æ¤œç´¢ï¼½ãƒ†ã‚¯ãƒ‹ãƒƒã‚¯ã§ã™ã€‚下ã®ã‚ˆã†ãªãƒ‡ãƒ¼ã‚¿ã‚’対象ã¨ã—ã¾ã™ã€‚[商å“コード]列ã‹ã‚‰ã€ŒA007ã€ã‚’検索ã—ã¦ã¿ã¾ã—ょã†ã€‚ Sub Sample01() Dim FoundCell As Variant With Worksheets("Sheet1") Set FoundCell = .Range("A2:A11").Find("A007") If FoundCell Is Nothing Then MsgBox "A007ã¯è¦‹ã¤ã‹ã‚Šã¾ã›ã‚“。", vbExclamation Else MsgBox "A007ã¯ã€" & FoundCell.Address & "ã§ã™ã€‚" & vbCrLf & _ "A007ã¯ã€" & FoundCell.Row & "行目ã§ã™ã€‚", vbInformation End If End With End Sub Excelをデータベース的ã«ä½¿ã†ã¨ãã€ä½•ã¯ãªãã¨ã‚‚検
{{#tags}}- {{label}}
{{/tags}}