게시판 컴게에 해도될런지...본삭금이라 삭제도 못하는데 ㅜㅜ <div><br></div> <div><br></div> <div>제가 엑셀에 화학물질을 옮겨야 하는데 갯수가 아주 많은지라 일일이 하나하나 블록지정해서 숫자를 아래첨자로</div> <div>바꾸기에는 시간이 너무들어요ㅜㅜ</div> <div><br></div> <div>보니까 매크로써서 하는방식이 있던데 제가 물분자를 예로들어서 매크로 지정했는데</div> <div>단축키 누를때마다 물분자가 생기더라는..ㅠㅠㅠㅠ</div> <div><br></div> <div>혹시 여러셀을 선택하였을때 모든 숫자는 아래첨자로 수정되게하는 방법은 없나요??</div> <div>네이버에 모든숫자는 아래첨자로 바꾸는 방식이 있는것같던데</div> <div><br></div> <div>다짜고짜 </div> <div><p style="margin:0px;padding:0px;color:#404040;font-family:gulim, sans-serif;font-size:13px;line-height:22.1px;">Dim str As String, char As String<br style="margin:0px;padding:0px;">Dim intLen As Integer, i As Integer<br style="margin:0px;padding:0px;">Dim r As Range</p> <p style="margin:0px;padding:0px;color:#404040;font-family:gulim, sans-serif;font-size:13px;line-height:22.1px;"> </p> <p style="margin:0px;padding:0px;color:#404040;font-family:gulim, sans-serif;font-size:13px;line-height:22.1px;">For Each r In Selection<br style="margin:0px;padding:0px;"> <br style="margin:0px;padding:0px;"> str = r.Value<br style="margin:0px;padding:0px;"> intLen = Len(str)<br style="margin:0px;padding:0px;"> <br style="margin:0px;padding:0px;"> For i = 1 To intLen<br style="margin:0px;padding:0px;"> char = Mid(str, i, 1)<br style="margin:0px;padding:0px;"> If IsNumeric(char) Then<br style="margin:0px;padding:0px;"> r.Characters(i, 1).Font.Subscript = True<br style="margin:0px;padding:0px;"> End If<br style="margin:0px;padding:0px;"> Next i<br style="margin:0px;padding:0px;"> <br style="margin:0px;padding:0px;">Next r</p> <p style="margin:0px;padding:0px;color:#404040;font-family:gulim, sans-serif;font-size:13px;line-height:22.1px;"> <br style="margin:0px;padding:0px;">End Sub</p> <p style="margin:0px;padding:0px;color:#404040;font-family:gulim, sans-serif;font-size:13px;line-height:22.1px;"><br></p> <p style="margin:0px;padding:0px;color:#404040;font-family:gulim, sans-serif;font-size:13px;line-height:22.1px;">이런걸 넣으라고하는데 어디다 넣는지 잘 모르겠고..ㅜㅜ</p> <p style="margin:0px;padding:0px;color:#404040;font-family:gulim, sans-serif;font-size:13px;line-height:22.1px;">혹시 설명해주실 분 계신가요ㅜㅜ 엑셀을 이제 막다루기 시작해서 너무 어렵네요ㅜㅜ신입이라 물어보기도 애매하구ㅜㅜ</p></div>
댓글 분란 또는 분쟁 때문에 전체 댓글이 블라인드 처리되었습니다.