"행복공작소"
742
-
[비공개] 엑셀 VBA #44 / Find메서드_변형2 [VBA] - 역방향으로..
엑셀 VBA #44 / Find메서드_변형2 [VBA] - 역방향으로 찾기 Dim rng As Range, cf As Range Dim ad As String Set rng = Range("B3", Cells(Rows.Count, "B").End(xlUp)) Set cf = rng.Find("서울", Range("B18"), , xlWhole, , xlPrevious) If Not cf Is Nothing Then ad = cf.Address Do..추천 -
[비공개] 엑셀 VBA #44 / Find메서드_변형2 [VBA] - 역방향으로..
엑셀VBA#44/Find메서드_변형2[VBA]-역방향으로찾기 DimrngAsRange,cfAsRange DimadAsString Setrng=Range("B3",Cells(Rows.Count,"B").End(xlUp)..추천 -
[비공개] 엑셀 VBA #43 / Find메서드_변형1 [VBA]
엑셀 VBA #43 / Find메서드_변형1 [VBA] Dim rng As Range, cf As Range Dim ad As String Set rng = Range("A2", Cells(Rows.Count, "A").End(xlUp)) Set cf = rng.Find("A-1", , , xlWhole) If Not cf Is Nothing Then 'cf값이 있으면 ad = cf.Address 'ad라는 변수에 cf값을 넣는다. Do cf.In..추천 -
[비공개] 엑셀 VBA #43 / Find메서드_변형1 [VBA]
엑셀VBA#43/Find메서드_변형1[VBA] DimrngAsRange,cfAsRange DimadAsString Setrng=Range("A2",Cells(Rows.Count,"A").End(xlUp)) Setcf=..추천 -
[비공개] 엑셀 VBA #42 / Find메서드_기본 [VBA]
엑셀 VBA #42 / Find메서드_기본 [VBA] 예시1. B-1제품코드의 판정값 불러오기.... For~Next구문 혹은 For Each~Next구문 사용해도 되나, 자료가 방대한 경우 속도가 느려질 수 있음. Dim rng As Range, cf As Range Set rng = Range("A2", Cells(Rows.Count, "A").End(xlUp)) Set cf = rng.Find(Range("D2").Value, , , xlWho..추천 -
[비공개] 엑셀 VBA #42 / Find메서드_기본 [VBA]
엑셀VBA#42/Find메서드_기본[VBA] 예시1. B-1제품코드의 판정값 불러오기.... For~Next구문혹은ForEach~Next구문사용해도되나,자료가방대한경우속도가느려질수있음. DimrngAs..추천 -
[비공개] 엑셀 VBA #41 / 행 삭제_개선2 [VBA] - 배열
엑셀 VBA #41 / 행 삭제_개선2 [VBA] - 배열 Sub 행삭제_배열_myexr231224() Dim r As Variant '모든 데이타를 넣을 배열방r....variant적용 Dim a() '배열방r의 데이타 중 'A-1'이외 값을 넣을 배열방a....동적배열적용 Dim i As Long, j As Long, k As Long '----------------------------------------------------- '값을 각 ..추천 -
[비공개] 엑셀 VBA #41 / 행 삭제_개선2 [VBA] - 배열
엑셀VBA#41/행삭제_개선2[VBA]-배열 Sub 행삭제_배열_myexr231224() Dim r As Variant '모든 데이타를 넣을 배열방r....variant적용 Dim a() '배열방r의 데이타 중 'A-1'이외 값을 넣을 배열방a....동적배열적용 Dim i As Long, j As Long, k As Long ..추천 -
[비공개] 엑셀 VBA #40 / 행 삭제_개선1 [VBA] - Union
엑셀 VBA #40 / 행 삭제_개선1 [VBA] Sub 행삭제_union() Dim r As Range ' "A-1"값이 포함된 셀의 범위를 담을 변수(방) Dim i As Long, lR As Long lR = Cells(Rows.Count, "A").End(xlUp).Row For i = 2 To lR If Cells(i, "A") = "A-1" Then If r Is Nothing Then Set r = Cells(i, "A").Resize..추천 -
[비공개] 엑셀 VBA #40 / 행 삭제_개선1 [VBA] - Union
엑셀VBA#40/행삭제_개선1[VBA] Sub 행삭제_union() Dim r As Range ' "A-1"값이 포함된 셀의 범위를 담을 변수(방) Dim i As Long, lR As Long lR = Cells(Rows.Count, "A").End(xlUp).Row For i = 2 To lR If Cells(i, "A") = "A-1" Then ..추천
1510개
1046806개
715966개
