아래 VBA 코드는 작업을 수행하지만 조 변경 부분에서 약 3 초를 잃고 있습니다. 3 초를 잃지 않고 동일한 결과를 얻을 수있는 방법이 있습니까, 아니면 SQL 쿼리 또는 getrows 프로세스에서 얻을 수 있습니까? Sub LoadData()
Dim strCon, srtQry As String, tmpArray, tmpArray2, R As Varia
이 질문에 답을 얻었지만 대답 할 수 있을지는 거의 모르겠지만 어떻게 묻는 지 잘 모르겠습니다. 진행 :이처럼 보이는 데이터를 가지고 (거기에 약 1000 개 그것과 같이 그) : KV2c KV2c KV2c I210plus I210plus I210plus I210plus
12s 16s 16s 1s 2s 2s 4s
320
시트 1의 열 A에서 시트 3의 행까지 루프의 정적 범위를 조 변경하려고 시도했지만 아무런 효과가 없습니다. 지금까지 사용하고있는 코드는 다음과 같습니다. Sub Looptranspose()
'
' Looptranspose Macro
'
' Keyboard Shortcut: Ctrl+a
Dim x As Integer
Dim y A
원본 테이블에서 개별 항목을 매주 요약하려고합니다. 어떤 항목이 반환되지 않을 경우 쿼리는 내가이 함께 아래의 쿼리를 넣을 수 있었다 null 값 Original Table
+-------+-----------+----------+-----------+-------+------+
|ITEMID | Date |ItemType |Account No |Am
MySQL 쿼리의 결과를 행당 키 => 값 결과 집합에서 키가 열 머리글이고 값이 해당 행 항목 인 결과 집합으로 바꿔야합니다. 기둥. 다음 데이터 주어 즉 |------------------+-------------|
| CLASS_LESSON | ATTENDANTS |
|------------------+-------------|
| class1a
Shiny server에는 테이블이 들어있는 여러 개의 탭이 있습니다. 이 테이블의 내용은 sidebarPanel의 사용자 선택에 따라 동적으로 변경됩니다. gvisTable을 사용하고 있지만 필요한 경우 라이브러리를 변경해도 상관 없습니다. 동적 선택을 사용하면 특정 테이블의 열과 행 수가 크게 변경 될 수 있으며 때로는 많은 열과 소수의 행이 있으므로
R에 data.frame을 전치 (예 : 벡터로 열)하고 행 번호없이 라텍스로 내 보내려합니다. . 그러나 df <- data.frame(qwertz=c("a","b","c","d","e","f"), asdfg=c("a","b"))
즉 qwertz asdfg
1 a a
2 b b
3 c a
4 d b
5 e a
6 f b