draemonash2

draemonash2のメモ書き

---

Project maintained by draemonash2 Hosted on GitHub Pages — Theme by mattgraham

トップに戻る

Option Explicit

Private Const SHEET_NAME = "XXX"
Private Const REF_CELL_KEYWORD = "YYY"

Private Enum E_ROW_OFFSET
    ROW_AAA = 0
    ROW_BBB
End Enum

Private Enum E_CLM_OFFSET
    CLM_CCC = 0
    CLM_DDD
End Enum

Private Type T_XXX
    lXxxStrtRow As Long
    lXxxStrtClm As Long
End Type

Public gtSampleStruct As T_XXX

Public Function SampleFuncInit()
    Dim tSampleStructInit As T_XXX
    gtSampleStruct = tSampleStructInit
End Function

Public Function SampleFuncTerminate()
    '★終了処理
End Function

Public Function SampleFunc()
    Dim shTrgtSht As Worksheet
    Set shTrgtSht = ThisWorkbook.Sheets(SHEET_NAME)
    
    Dim rFindResult As Range
    Dim sSrchKeyword As String
    Dim lSrchCellRow As Long
    Dim lSrchCellClm As Long
    sSrchKeyword = REF_CELL_KEYWORD
    Set rFindResult = shTrgtSht.Cells.Find(sSrchKeyword, LookAt:=xlWhole)
    If rFindResult Is Nothing Then
        MsgBox sSrchKeyword & "が見つかりませんでした"
    Else
        lSrchCellRow = rFindResult.Row
        lSrchCellClm = rFindResult.Column
    End If
End Function

トップに戻る