나는 하나의 값을 찾은 칼럼을 나에게주는 함수에서 작업하고 있었다. 나는 그것을 끝내는 데 어려움을 겪고 있었다. .. 그러나 나는 그것을 일하게했다!!Find 메서드에 작은 너비 열에 문제가 있습니까?
오류는 Find 메서드가 너비가 너무 작은 셀에서 값을 찾는 데 문제가 있다는 것입니다. 그렇게 바보 일 수 있습니까?
이 ..
Private Sub CommandButton3_Click()
Direccion = BuscarCol(2)
MsgBox "the cell address is " & Direccion
End Sub
호출되며이 함수는 ...
Function BuscarCol(Fecha As Integer) As String
Dim RangoFech As Range
With Sheets("REGISTRO").Range("A1:IN1")
Set RangoFech = .Find(What:=Fecha, LookIn:=xlValues, LookAt:=xlWhole, SearchDirection:=xlNext, MatchCase:=False)
If Not RangoFech Is Nothing Then
BuscarCol = ConvertToLetter(RangoFech.Column)
End If
End With
End Function
아, 그리고 문자에 열 번호를 변환하기위한 하나 더있다, 그러나 이것은 결코 없었다 그게 맞다면 문제는 ..
Function ConvertToLetter(iCol As Integer) As String
Dim iAlpha As Integer
Dim iRemainder As Integer
iAlpha = Int(iCol/27)
iRemainder = iCol - (iAlpha * 26)
If iAlpha > 0 Then
ConvertToLetter = Chr(iAlpha + 64)
End If
If iRemainder > 0 Then
ConvertToLetter = ConvertToLetter & Chr(iRemainder + 64)
End If
End Function
그래서 ... 당신이 말해 줄 수? Find 메서드에 문제가 있습니까?
사이드 노트, 'ConvertToLetter' 함수가 일부 값에 대해 실패합니다 (예 : 강력한 해결책은 53, 79, 80 ([대답 참조]) (http://stackoverflow.com/a/12797190/445425) –