vba serial 통신으로 받는 data 셀 분할.

VBA
작성자
너스
작성일
2021-10-31 15:57
조회
441
엑셀버전 : 엑셀2016

운영체제 : 윈도우10

시리얼 통신으로 data를 한 줄씩 읽어들이는데

c3 셀에 한 줄 내용이 통째로 들어와버립니다.

한 줄에 data가 64개로 공백으로 나뉘어져 있습니다.

이걸 공백기준으로 나눠서 받을 수 있도록 봐주실분 계신가요?

파일이랑 질문 내용 첨부 했습니다.

스크랩
공유
전체 7

  • 2021-10-31 17:04

    @너스 님 Do While CommRead(intportID, strData, 64) <> EOF
    If strData = Space(1) Then vbCrLf
    Loop


    • 2021-10-31 17:32

      @Yukon 님 IngStatus = CommRead(intportID, strData, 10) 이부분 대신에 끼워 넣는거 말씀하시는건가요??


      • 2021-10-31 18:24

        @너스 님 Do while IngStatus <>0

        if strData = Space(1) Then vbCrLf

        Loop

        이렇게 해야 겠군요. 테스트해 보세요. 되는지 저도 궁금합니다.


        • 2021-10-31 18:30

          @Yukon 님 IngStatus = CommRead(intportID, strData, 10) 이 문장 아래에 넣고 실행하면
          제가 이상한데다가 넣은건지..
          vbcrlf 부분에서 속성에러 발생하네요 ㅠ
          번거로우시겠지만 혹시 수정해서 올려주실수 있나요??


  • 2021-10-31 17:15

    @너스

    Sub SplitVal(Rng)
    Dim s As String
    Dim v, a As Variant
    s = Rng.Value
    v = Split(s, " ")
    Rng.offset(0, 1).Resize(1, UBound(v) + 1) = v
    End Sub

    Split 함수로 해결해봤습니다 값 추가후 SplitVal(셀주소) 해도 좋을 것 같아요


  • 2021-10-31 23:03

    @너스 님 외부장치로 입력되는  C컬럼의 값을 변경하는 것은 바람직하지 않습니다.
    D컬럼부터 분리되어 표시하도록 하였습니다.

    동적으로 데이터가 들어오면 자동 SPLIT 하는 방식은
    엑셀에 부하가 많이 되어서 사이트이펙트가 발생하는 문제가 있으니,
    상단에 버튼을 만들고 아래의 매크로를 연결해서
    사용자가 필요시, 클릭하도록 하는게 좋을 듯 합니다.

     

     

    Sub DataSplit()
    
    
        Dim iRow As Long
        Dim iCol As Long
        Dim xOffset As Integer
        Dim yOffset As Integer
        Dim arrValue
        Dim yLoop As Integer
        Dim xLoop As Integer
        
        Dim cSrcName As String
        cSrcName = "Sheet1"
        
        
        Sheets(cSrcName).Select
        
        xOffset = 3
        yOffset = 6
        
        iRow = ActiveSheet.Cells(Rows.Count, xOffset).End(xlUp).Row
        
        For yLoop = yOffset To iRow
            arrValue = Split(Range(Cells(yLoop, xOffset), Cells(yLoop, xOffset)).Value, " ")
            
            For xLoop = LBound(arrValue, 1) To UBound(arrValue, 1)
                Cells(yLoop, xLoop + xOffset + 1).Value = arrValue(xLoop)
            Next
            
            '/// 데이터가 분리되었음을 시각적으로 표시
            Range(Cells(yLoop, xOffset), Cells(yLoop, xOffset)).Select
            With Selection
                .HorizontalAlignment = xlCenter
                .VerticalAlignment = xlCenter
                .WrapText = False
                .Orientation = 0
                .AddIndent = False
                .IndentLevel = 0
                .ShrinkToFit = True
                .ReadingOrder = xlContext
                .MergeCells = False
            End With
        Next
       Erase arrValue
    End Sub

     


  • 2021-11-01 06:54

    @너스 님 Ardunoid하시면 PLX-DAQ 다운 받아 하시던가 NI의 MyDAQ로 하세요. NI LABVIEW로 하면 더 많이 배우실 겁니다.


전체 7,761
번호 카테고리 제목 작성자 작성일 추천 조회
알림
🎉다양한 이벤트와 함께 진행하는, PPT 보고서 디자인 특강 안내 - 9/24 (토) 오후 9시~ (15)
오빠두엑셀 | 2022.09.08 | 추천 9 | 조회 2292
오빠두엑셀 2022.09.08 9 2292
공지사항 함수/공식
[신규 기능 업데이트!] 👉 이제 게시글 작성시 스크린샷 복/붙이 가능합니다! 😎 (3)
오빠두엑셀 | 2022.08.04 | 추천 4 | 조회 1636
오빠두엑셀 2022.08.04 4 1636
공지사항 함수/공식
⭐ [더 나은 커뮤니티 문화를 위한 Q&A 글 작성 규칙] ⭐ (93)
오빠두엑셀 | 2021.10.28 | 추천 123 | 조회 7371
오빠두엑셀 2021.10.28 123 7371
42453 VBA
New 엑셀 매크로가 왜 인터넷속도에 영향을 받을까요? (1)
빼갈 | 11:21 | 추천 0 | 조회 10
빼갈 11:21 - 10
42452 VBA
New 클릭한 값에 맞는 파일 불러오기 첨부파일
조지아 칸타타 | 11:16 | 추천 0 | 조회 7
조지아 칸타타 11:16 - 7
42449 함수/공식
New 숫자만 추출하여 연산하기 엑셀파일 (1)
eexcell | 11:00 | 추천 0 | 조회 14
eexcell 11:00 - 14
42447 함수/공식
New 여러개의 날짜로 되어 있는 것을 특정 날짜로 개수를 count 하고자 하는데, 잘 안됩니다. ㅠ.ㅠ (1)
jrki**** | 10:12 | 추천 0 | 조회 14
jrki**** 10:12 - 14
42442 함수/공식
New 이름을 검색할수 있는 함수와 부가적 기능.. 첨부파일 (1)
gogoexcel | 03:23 | 추천 0 | 조회 19
gogoexcel 03:23 - 19
42441 VBA
New 재고관리에서 비율 자동 계산 방법 첨부파일
EXCELEXCEL | 01:21 | 추천 0 | 조회 22
EXCELEXCEL 01:21 - 22
42434 VBA
New 셀레니움을 통한 엣지 호출 첨부파일 (2)
로고테라피 | 2022.09.25 | 추천 0 | 조회 25
로고테라피 2022.09.25 - 25
42432 VBA
New get_db 명령어 관련 질문드립니다 첨부파일 (3)
EXCELEXCEL | 2022.09.25 | 추천 0 | 조회 33
EXCELEXCEL 2022.09.25 - 33
42427 기능/도구
New 엑셀 '안전모드' 실행하는 방법 질문드립니다. 첨부파일 (5)
월마리아 | 2022.09.25 | 추천 0 | 조회 36
월마리아 2022.09.25 - 36
42426 VBA
New 사진대지 VBA 매크로 수정 엑셀파일 (1)
WWW | 2022.09.25 | 추천 0 | 조회 26
WWW 2022.09.25 - 26
42414 기능/도구
New 엑셀로 가능한지 여쭤봅니다. 엑셀파일첨부파일 (1)
naver_5f055a605ee7d | 2022.09.24 | 추천 0 | 조회 60
naver_5f055a605ee7d 2022.09.24 - 60
42405 함수/공식
New 엑셀 INDEX MATCH 함수 질문드립니다. (다중조건) 첨부파일 (3)
임천명 | 2022.09.24 | 추천 0 | 조회 44
임천명 2022.09.24 - 44
42396 함수/공식
New 함수조언 엑셀파일 (1) 답변완료
엑셀공부중 | 2022.09.24 | 추천 0 | 조회 39
엑셀공부중 2022.09.24 - 39
42395 함수/공식
New 함수 결과값 자동 갱신 질문입니다 엑셀파일 (2)
lifeti**** | 2022.09.24 | 추천 0 | 조회 36
lifeti**** 2022.09.24 - 36
42391 VBA
New 검색어와 동일한 결과값에 하이라이트 색깔 넣기 첨부파일 (2) 답변완료
조지아 칸타타 | 2022.09.23 | 추천 0 | 조회 45
조지아 칸타타 2022.09.23 - 45
42390 VBA
New 검색어 입력시 같은 정보가 2개 반복되어... 첨부파일
조지아 칸타타 | 2022.09.23 | 추천 0 | 조회 29
조지아 칸타타 2022.09.23 - 29
42386 함수/공식
New 조건부서식 오류 엑셀파일첨부파일 (3)
Ngw77 | 2022.09.23 | 추천 0 | 조회 36
Ngw77 2022.09.23 - 36
42385 기능/도구
New 파일 가로로 통합하기(합치기) 질문입니다 첨부파일 (1)
감귤쫀드기 | 2022.09.23 | 추천 0 | 조회 37
감귤쫀드기 2022.09.23 - 37
42379 문서서식
New 가로로 작업했는데, 내용 보존?하면서 세로로 쉽게 바꿀 수 있는 방법이 있나요?? (1)
앨리 | 2022.09.23 | 추천 0 | 조회 50
앨리 2022.09.23 - 50
42378 차트/그래프
New 강우-유출량 그래프 분석 엑셀파일 (1)
chanyk | 2022.09.23 | 추천 0 | 조회 47
chanyk 2022.09.23 - 47
42377 함수/공식
New 한도액에서의 지원금 정산하기 엑셀파일 (2)
송인숙 | 2022.09.23 | 추천 0 | 조회 32
송인숙 2022.09.23 - 32
42374 함수/공식
New 각기 다른셀에 값 입력시 한셀에 날짜 자동 나타내기 (2)
MC쿠마 | 2022.09.23 | 추천 0 | 조회 27
MC쿠마 2022.09.23 - 27
42372 함수/공식
New 조건별 날짜계산 함수 계산 엑셀파일 (2) 답변완료
Ngw77 | 2022.09.23 | 추천 0 | 조회 44
Ngw77 2022.09.23 - 44
42367 기능/도구
New 엑셀2019에서 shift + 스크롤 (시트 좌우 스크롤) 되는건가요? 첨부파일 (4) 답변완료
월마리아 | 2022.09.22 | 추천 0 | 조회 44
월마리아 2022.09.22 - 44
42366 구글시트
New 스프레드 시트 필터함수 엑셀파일첨부파일 (5) 답변완료
거꾸로문 | 2022.09.22 | 추천 0 | 조회 49
거꾸로문 2022.09.22 - 49
42362 함수/공식
New NaverFinanceHistory 함수 연결 데이터 갱신 질문입니다 엑셀파일첨부파일
lifeti**** | 2022.09.22 | 추천 0 | 조회 34
lifeti**** 2022.09.22 - 34
42358 VBA
New VBA 텍스트 파일 저장 후 불러오기 질문드립니다. 엑셀파일
LovelyK | 2022.09.22 | 추천 0 | 조회 42
LovelyK 2022.09.22 - 42
42355 함수/공식
New 근속년수 산출 관련 문의 (4)
꼬맹이영 | 2022.09.22 | 추천 0 | 조회 63
꼬맹이영 2022.09.22 - 63
42354 함수/공식
New 세가지의 조건을 만족하는 값 불러오기 엑셀파일 (3) 답변완료
뎡이 | 2022.09.22 | 추천 0 | 조회 71
뎡이 2022.09.22 - 71
42348 차트/그래프
New 엑셀 일일 데이터관리 차트를 만들려고 합니다,,, 첨부파일 (2)
MC쿠마 | 2022.09.22 | 추천 0 | 조회 59
MC쿠마 2022.09.22 - 59