login register Sysop! about ME  

2022년 05월 04일 23시 21분 00초,     조회수 : 244
  제목 : instr 함수 질문 엑셀 행값 숫자 표현
SEQ : 164383 글쓴이 : 74saint

작성 포맷 : TEXT 모드, 자동 줄바꿈 사용

Function Sheet_Get(Str_Eng, Str_Data)
	   If Not(Str_Data="" Or IsNull(Str_Data)) Then 
	   	   Sheet_No = Instr(str_Eng,Str_Data)-1
	   	   Select Case Sheet_No
	   	   Case 0
	   	   	   Sheet_Get="0"
	   	   Case 1
	   	   	   Sheet_Get="1"
	   	   Case 2
	   	   	   Sheet_Get="2"
	   	   Case 3
	   	   	   Sheet_Get="3"
	   	   Case 4
	   	   	   Sheet_Get="4"
	   	   Case 5
	   	   	   Sheet_Get="5"
	   	   Case 6
	   	   End Select 
	   Else
	   	   Sheet_Get =""
	   End If 
End Function



1번 : 
Str_Line = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
' SheetRS는 엑셀 RecordSet
' Str_Data : 엑셀 행 입력값

ex) Str_Data="Z"
A_Data = SheetRS(abs(Sheet_Get(Str_Line, Str_Data)))
결과값 : 25


2번 : Str_Line = 
"ABCDEFGHIJKLMNOPQRSTUVWXYZAAABACADAEAFAGAHAIAJAKALAMANAOAPAQARASATAUAVAWAXAYAZBABB
BCBDBEBFBGBH"
Str_Data="BB" 로 했을 경우 53으로 결과값이 나오게 하려고 하는데 방법이 없을까요?

A~Z까지는 1번처럼 하면 문제가 없는데 A~BH 행 값의 해당 숫자를 가지고 오려고 하는데 안되네요. ㅠㅠ

고수님의 자문을 부탁드립니다 

  supercore
  2022-05-06(13:03)
캐릭 이미지
A~Z + A~Z 확장(AA,AB,AC~~) 두 그룹으로 체크해야 원하는 결과 얻을 수 있을거 같
습니
다.

1. 0~25 인덱스까지는 한자씩, 25 인덱스부터는 두자씩 분리해서 콤마 분리자 새로운 문
자열 생성
2. Array 로 인덱스 조회



제목 작성자 날짜 조회
instr 함수 질문 엑셀 행값 숫자 표현 (1) 74saint 2022-05-04 244

 
 
.NET과 Java 동영상 기반의 교육사이트

로딩 중입니다...

서버 프레임워크 지원 : NeoDEEX
based on ASP.NET 3.5
Creative Commons License
{5}
{2} 읽음   :{3} ({4})