VBA Spinner로 정렬

Question

Column A의 값을 기준으로 정렬해야하는 여러 행의 데이터가 포함 된 Excel 스프레드 시트에서 작업하고 있습니다. B 열은 B 열에있는 Spinners가 제어하는 ​​값을 포함합니다.

내가하려고하는 것은 눌렀을 때 A 열을 기반으로 모든 행을 정렬하지만 회 전자를 끊지 않고 단추를 만드는 것입니다.

지금까지 시도하는 것 : 난 그냥 간단한 분류 기능을 사용하면

• , 그것은 스피와 함께 필요에 따라 행을 이동하지만,이 스피너에 셀 링크를 업데이트하지 않습니다 그래서 그들은 오래된 질문에서 세포와 연결되어 있습니다.

• 스피너를 눌렀을 때 스피너 셀 링크를 업데이트하는 스피너에 대해 VBA에 줄을 추가하려고했습니다. 여기서 문제는 링크를 업데이트하기 전에 엑셀이 먼저 스피너의 증분 부분을 실행하여 링크를 업데이트하기 전에 이전 셀을 증가/감소시키는 것입니다.

• SORT 매크로에 대해 VBA에서 줄을 추가하여 For 루프를 실행하여 새로운 Topleftcell 값을 기반으로 모든 스피너 셀 링크를 업데이트하려고했습니다. 이것은 셀 링크에서 작동하지만 이동 한 마지막 스피너의 셀 값으로 보이는 값을 기반으로 셀 값을 업데이트합니다. 말할 나위도없이 이것은 문제입니다.

나는 다른 어떤 시도를해야할지 모르겠다. 나는 여전히 VBA에 경험이 없다.

회 전자의 값이나 링크를 깨지 않고 회 전자를 포함하는 셀을 분류 할 수있는 제안이 있으면 매우 감사하겠습니다.

미리 감사드립니다. 추가 정보가 필요한 경우 알려 주시기 바랍니다. 지금까지 사용해 왔던 코드 스 니펫을 포함 할 수는 있지만, 도움이 필요한지 확실하지 않았습니다.

Answer 1

다음과 같이 시도해보십시오.

Sub SORT() 

    Range("A2:B4").SORT. Key1:=Range("A2"), Order:=xlAscending 
    Call SpinnerControl 

End Sub 



Sub SpinnerControl() 

Dim spn As Spinner 
Dim rng As Range 

    For Each spn In ActiveSheet.Spinners 
     Set rng = spn.TopLeftCell 
     spn.LinkedCell = rng.Address(external:=False) 
    Next spn 

End Sub