Portal TOL Technology On-Line



Meta-Search TOL [e-books, codes, sites]:
tutorials, softwares, games, videos, projects, categories, articles, links (and images)*

- shortcuts for keywords, websites, videos, products of :
VBA비구조화를 구조화설문조사 취합 및 재정렬

Videos.Portal-TOL.net

[VBA](비구조화를 구조화)설문조사 취합 및 재정렬

Advertisement(s)



Description: --------------------------------------------------------------------------------
좋아요/구독 눌러주세요. 큰 힘이 됩니다.
--------------------------------------------------------------------------------
질문 사항이 있으시면 [email protected]으로 해 주세요.

File Link: https://drive.google.com/open?id=1NPz8JkfHc8t140uScn-nhXDEasTOmpEZ

#설문지취합


'-------------------------------
Sub re_arrange_survey()
'-------------------------------


'사번 부문/본부 부서/현장 성명 직위 직책 // 사번 작성자 작성 일자 Category 내용
'부서 성명 직위 직책 작성일자 Category 내용 작성자

Dim r As Range: Set r = Worksheets(1).[A3]
Dim vTemplate As Variant
Dim X As Range
Dim colX As New Collection

'------------------------------------
Do Until r.Value = ""
'------------------------------------
vTemplate = Array( _
r.Offset(0, 2).Value, _
r.Offset(0, 3).Value, _
r.Offset(0, 4).Value, _
r.Offset(0, 5).Value, _
"일자", _
"category", _
"내용", _
"작성자" _
)

' 설문 내용 범위
Set X = r.Offset(0, 6).Resize(1, 5)

'---------------------------------------
Do Until X.Cells(1).Value = ""
'---------------------------------------
vTemplate(4) = X.Cells(3).Value
vTemplate(5) = X.Cells(4).Value
vTemplate(6) = X.Cells(5).Value
vTemplate(7) = X.Cells(2).Value

colX.Add vTemplate

Set X = X.Offset(0, 5)
Loop

Set r = r.Offset(1)

Loop

Dim shtY As Worksheet: Set shtY = Worksheets(2)
' 기존 자료 지우기
shtY.Range(shtY.[A5], shtY.[I10000]).ClearContents

Set r = shtY.[B5]

For Each v In colX
r.Resize(1, 8).Value = v
Set r = r.Offset(1)
Next

Set r = shtY.[B5]

Set r = Range(r, r.End(xlToRight).End(xlDown))

r.Sort Key1:=r.Cells(5), order1:=xlAscending, Header:=xlNo

'Stop

Set r = r.Columns(1).Offset(0, -1)
'r.Select

For i = 1 To r.Cells.Count

r.Cells(i).Value = i

Next i





End Sub


Sent by: EXCEL AND VBA
( including the playlists )

Published at: 2019-08-25 23:01:14.000
Total of views: 86 - Duration: 27M59S

- Favorites: 0 - Likes: 3 - Dislikes: 0
Total of comments: 3 - Category id: 27

In window : Ssc7Wfoglzs
(Shockwave Flash Object)

¬ Video hosted by Youtube : the portal TOL is not responsible for this type of content

- requests for removal of this video based in laws like the DMCA must be sent to Google

Click this code to Select and Copy instantly
( Ctrl-C is necessary in the Firefox or Chrome )




Video HTML5 / Flash widescreen

Space destined for new content such as Comments, Updates, Suggestions, Constructive Criticism, Questions and Answers about "VBA비구조화를 구조화설문조사 취합 및 재정렬", doubts and solutions that help other visitors, users, students, professionals, etc.

| be the first ( soon ) to send a feedback related to: VBA비구조화를 구조화설문조사 취합 및 재정렬 |


Important ( before send a comment ) : Don't use this space to send another requests as content removals, claims, complaints, or to warn about errors that occurred on this page. Please, [click here] to report these or any other kind of problem for VBA비구조화를 구조화설문조사 취합 및 재정렬, even if it is temporary error or in the server...

Part of this page can be based on free documentation and paid or open content, including multimedia, therefore specific requests should be sent to the external source, the site Videos.Portal-TOL.net is not responsible for its edition and any page refresh can be made immediately or in a short and long term periods, depending on the origin.


Articles starting with the char * :
[PT][EO][ES][FR][IT][DE][NL][PL][SV][JA][ZH][RU][NO][FI][DA][CA][UK][CS][HU][RO]
[KO][TR][VI][ID][AR][FA][SR][LT][SK][HE][MS][BG][SL][EU][HR][HI][ET][LA][VO][EN]<

Related websites with VBA비구조화를 구조화설문조사 취합 및 재정렬 *




© Portal T.O.L. Technology On-Line powered by TOL framework

[ Tutorial On-Line changed the name to Technology On-Line when completed 15 years ]
Portal-TOL.net Technology On-Line Portal.TOL.pro.br